BUSCA CONTAS A PAGAR/PAGAS

 Tópico anterior Próximo tópico Novo tópico

BUSCA CONTAS A PAGAR/PAGAS

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#365113 - 11/02/2011 11:34:58

LEAO10
BRASILIA
Cadast. em:Agosto/2009


Olá Galera!

Estou uma sub que pesquisa se a conta está no contas a PAGAR ou a RECEBER...

Se tiver na tabela contas pagas, irá colocar no list view contas pagas, se não tiver, irá colocar a pagar...

Fiz assim:

ContaPagarTemp = 0

Dim T1
T1 = rs!valor
--------------------------------------------------------------------------------------------
Sub Verifica_Vlr_Conta_Paga()

        Set rsPG = Arq.OpenRecordset("Select * From ContasPagas where ValorPago=" & T1)
    
  
            If (rsPG.EOF And rsPG.BOF) Then
                ContaPagarTemp = 0 'Conta Paga
            Else
                ContaPagarTemp = 1 'Com contas a pagar
            End If
        
        Set rsPG = Nothing

end sub
--------------------------------------------------------------------------------------------

Ao executar, funcionou perfeitamente, mas ao lançar uma conta a pagar, e depois quitar ela, não aparece no contas pagas, ou seja, funcionou com os dados que tinham no banco de dados, ao adicionar, não funcionou... Já olhei no banco, lá está adicionando tudo ok...



Todos respiramos o mesmo ar, portanto devemos ter todos a mesma chance (Ayrton Senna)

#365118 - 11/02/2011 11:49:44

LEAO10
BRASILIA
Cadast. em:Agosto/2009


Ops... copiei errado...

O certo é

------------------------------------------------------------------------------------------------------
Sub Verifica_Vlr_Conta_Paga()

ContaPagarTemp = 0

Dim T1
T1 = rs!valor

        Set rsPG = Arq.OpenRecordset("Select * From ContasPagas where ValorPago=" & T1)
    
  
            If (rsPG.EOF And rsPG.BOF) Then
                ContaPagarTemp = 0 'Conta Paga (paga)
            Else
                ContaPagarTemp = 1 'Com contas a pagar
            End If
        
        Set rsPG = Nothing

End Sub        
------------------------------------------------------------------------------------------------------

Todos respiramos o mesmo ar, portanto devemos ter todos a mesma chance (Ayrton Senna)

Resposta escolhida #365134 - 11/02/2011 12:53:49



Cadast. em:


Última edição em 11/02/2011 12:56:06 por GOODSPEAKERS

Cara se voce esta pegando (*from) então ta buscando todos na tabela que esta com o status = t1 e deve estar inserindo na listview.

então faz assim :

Sub Verifica_Vlr_Conta_Paga()

ContaPagarTemp = 0

Dim T1
T1 = rs!valor

        Set rsPG = Arq.OpenRecordset("Select * From ContasPagas where ValorPago=" & T1) em vez de valor pago .... pesquisa por intervalo de dadas que é mais lógico ......
    
  
            If  rsPG.recordcount > 0 then
                Do While not rspg.eof
                    if ContaPagarTemp = 0  then
                          insere na listview com o status de pago (dai trata recordset conforme dua coluna)
                    else        
                           insere na listview com o status de aberto  (dai trata recordset conforme dua coluna)
                    end if    
                    rspg.movenext
                    do events
                loop
            Else
                msg box "não encontrei registros", vbinformation
            End If
        
        Set rsPG = Nothing

End Sub        



#365173 - 11/02/2011 16:44:53

LEAO10
BRASILIA
Cadast. em:Agosto/2009


Obrigado GOODSPEAKERS... Realmente vi que é por aí mesmo...

Mas depois de olhar e testar, vi que funciona somente com intervalo de datas mesmo... Como ficaria um SQL com intervalo de datas? A data inicial e final seriam iguais, pois a pesquisa é dentro daquele dia...



Todos respiramos o mesmo ar, portanto devemos ter todos a mesma chance (Ayrton Senna)

#365194 - 11/02/2011 19:20:25

CHARLESTON10
PIRASSUNUNGA
Cadast. em:Abril/2010


Isso vai te ajudar


http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=364451&varWorld=

flw

"‎A cor do dia é a arte da vida, que transparece cada detalhe da criativade de um gênio chamado Deus" Joseo Nowc

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por LEAO10 em 15/02/2011 10:22:12