USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Recordset
Joao
não registrado
Postada em 07/08/2018 18:12 hs   
Ola pessoal!!!! me surgiu uma pequena duvida. Vamos la.
Tenho uma consulta SQL que me retorna os numeros de notas fiscas iguas dentro da tabela, e com formas de pagamentos diferentes, ou seja, uma mesma nota é paga de duas formas, dinheiro e cartao, nesses campos guas as inicias M para dinheiro e C para cartao que somados dao o valor da NF, a questao é como filtro isso atraves do recordset e caso tenha a NF com dois pagamentos deixo meu check1 = true e chack2 = true. Estou usando VB6 com ADO. Abaixo deixo o codigo que nao funciona.

Parte do Codigo

With cmdCommand
        .ActiveConnection = connConection
        .CommandType = adCmdText
        .CommandText = "SELECT * FROM Cad_Pagamentos WHERE Cad_CodigoInvoice LIKE '" & CodInvoice & "' ORDER BY Cad_CodigoInvoice DESC"
    End With

        rsPagamentos.Open cmdCommand, , adOpenDynamic, adLockOptimistic
            
    If rsPagamentos.EOF Then
       MsgBox "Problema do pagamento deste invoice, verifique e retorne.", vbInformation
       Text_CodeInvoice.SetFocus
       Text_CodeInvoice.SelStart = 0
       Text_CodeInvoice.SelLength = 65000
       Exit Sub
    Else
    If rsPagamentos!Cad_TipoPagamento = "M" Then
       Check1.Value = Checked
    ElseIf rsPagamentos!Cad_TipoPagamento = "M" And rsPagamentos!Cad_TipoPagamento = "C" Then
       Check1.Value = Checked
       Check2.Value = Checked
    ElseIf rsPagamentos!Cad_TipoPagamento = "M" And rsPagamentos!Cad_TipoPagamento = "C" And rsPagamentos!Cad_TipoPagamento = "P" Then
       Check1.Value = Checked
       Check2.Value = Checked
       Check3.Value = Checked

Agradeco desde ja pela ajuda.
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página