|
|
Postada em 15/08/2007 14:18 hs
Boa tarde Este é o primeiro sistema de contas a pagar e receber q faço e estou sem idéias de como fazer. Pensei em fazer assim na consulta mostrar todas os registros ate hj que estejam em aberto ou vencidos. E deixar uma opção para o usuário listar, por periodo (emissão e vencimento) e por status, (pagos e não pagos) Será que funciona?? Alguem pode me dar alguma nova idéia?? |
|
|
|
|
|
|
|
Postada em 15/08/2007 14:34 hs
Funciona sim, eu utilizo dessa forma
No momento estou programando em DAO, e estou passando a maioria dos meus códigos para SQL, más esse ainda não mudei, más dá para você ter uma idéia de como fazer
Entrada.Index = "IData"
Entrada.MoveMin
While Not Entrada.EOF
If ChkContasPagar.value = 0 Then 'esse check pergunta se quer incluir as contas já pagas valor=0 não valor=1 sim
If Entrada!datavencimento >= CDate(Text1.Text) And Entrada!datavencimento <= CDate(Text2.Text) And Entrada!Pago = False Then
Resultado = Entrada!NNota & Chr(9) & Entrada!datavencimento & Chr(9) & Entrada!Valor & Chr(9) & Entrada!razao
Grid.AddItem Resultado
Grid.TextMatrix(Grid.Rows - 1, 2) = "" & Format(Grid.TextMatrix(Grid.Rows - 1, 2), "###,###,##0.00")
Grid.Row = x 'marca a linha a receber a cor
Grid.CellForeColor = vbRed ' seleciona a cor desejada
x = x + 1 ' marca a próxima linha
Total = Total + Entrada!Valor
End If
Else
If Entrada!datavencimento >= CDate(Text1.Text) And Entrada!datavencimento <= CDate(Text2.Text) Then
Resultado = Entrada!NNota & Chr(9) & Entrada!datavencimento & Chr(9) & Entrada!Valor & Chr(9) & Entrada!razao
Grid.AddItem Resultado
Grid.TextMatrix(Grid.Rows - 1, 2) = "" & Format(Grid.TextMatrix(Grid.Rows - 1, 2), "###,###,##0.00")
Grid.Row = x 'marca a linha a recer a cor
Grid.CellForeColor = vbRed ' seleciona a cor desejada
x = x + 1 ' marca a próxima linha
Total = Total + Entrada!Valor
End If
End If
Entrada.MoveNext
Wend
Apenas para lembrar, estou usando o msflexgrid para a exibição do resultado da pesquisa
Qualquer coisa posta ai
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
TÓPICO EDITADO
|
|
|
|
KoRn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 15/08/2007 14:57 hs
bom, eu tenho um exmeplo feito em listview com essas caracteristas de filtros , só que nao esta aki agora , mas quando eu chegar em casa eu mando pra voce se vc quiser |
|
|
|
|
|
Postada em 15/08/2007 21:08 hs
|
|
|
|
KoRn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 16/08/2007 15:16 hs
ok vou mandar pra tu irmao, ele tem varias funcçoes pra mexer com o listview cara , é bem legal ate, da pra melhorar bastante claro, mas vou mandar pra vc, tres projetos , um é sobre funções praticas no listview , outra é esse projetinho de contas a pagar e outro é um de contas a pagar parcelado , onde vc pode gerar parcelas(linhas) dentro do listview cada uma com uma data difentes, e respeitando o intervalo entre elas que vc pode colcoar tmabem , tipo de 30 em 30 dias ou 60 , vc gera conforme vc precisa. desculpa nao ter mandado ainda cara , olha só cara esse projeto de contas a pagar esta na minha casa, dentro de um pen drive meu , eu nao achei ainda em qual esta , mas vou procurar direitinho pra tu , mas agora eu to na mao aki o sistema de pagamentos de contas em parcela e o sistema de funcçoes pra listview vou mandar agora pra tu, ae se ja vai vendo e pode adaptar os tres num só. alias esse projeto de parcelas ele ja esta upado aqui no site esta na sessao de "troca de Arquivos", que vc visulaliza no alto do canto direito , um link , vc entra la e busca no link VB , o seguitne projeto Korn_parcelas.zip |
|
TÓPICO EDITADO
|
|
|
|
KoRn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 25/08/2007 18:10 hs
encerra o topico pra nois ?
Jesus Cristo é O Senhor!!!
|
|
|
|
|
