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.
|
