CADASTRO DE CLIENTES

ROBSONSLZ 11/02/2012 22:50:05
#394513
Boa Noite,

Fiz um exemplo simples, mais não consigo elaborar uma [Ô]soma[Ô] no vb.
Veja o exemplo, em anexo, e gostaria de um auxilio ou ajuda para finalizar o pequeno projeto.

Detalhe: Fiz no VB6 com Banco Access, funcionando perfeitamente.
apenas uns ajuste nos valores conforme o exemplo.

EXEMPLO:
Cod| Nome | R$-PAGO |R$-PEND |Total-PG |Total-PEND |Geral
001| Robson | 100,00 | 0,00 | 100,00 | 0,00 |
002| José | 0,00 | 50,00 | 0,00 | 50,00 |210,00
003| Maria | 60,00 | 0,00 | 60,00 | 0,00 |
etc...

Agradeço...
MARCELO.TREZE 12/02/2012 11:06:39
#394525 Resposta escolhida
bom colega eu baixei o seu prog, mas não entendi o problema seja mais especifico por favor.
TECLA 12/02/2012 13:13:26
#394529
Que soma que você se refere?
Poste os detalhes.
JESUEL.OLIVEIRA 12/02/2012 13:43:30
#394530
Amigo, pelo que entendi você quer a soma GERAL, só que você colocou a função no LOST_FOCUS mas veja você precisa setar esta função no final de cada instrução que pode alterar esxte valor, por exemplo no LOAD do form, call txtGeral_LostFocus cada vez que você mover o registro precisa execuat txtGeral_LostFocus pois se não não irá somar.
ROBSONSLZ 12/02/2012 16:12:44
#394534
Boa Tarde,

Os detalhes da [Ô]soma[Ô] esta zipado, juntos com os codigos fontes.
verifique, e veja se dá para compreender, o assunto.

Grato,

Fico no aguardo...

Favor desconsiderar o arquivo anterior.
(baixe e teste a modificação)
Somente não consigo elaborar a soma conforme a figura.
MARCELO.TREZE 13/02/2012 10:13:10
#394553
olha colega eu coloquei no evento change destes dois controle text

tire o calculo dos outros eventos

Private Sub txtRSPago_Change()
If txtRSPago.Text <> [Ô][Ô] Then
txtGeral.Text = CDbl(txtRSPago.Text) + CDbl(txtRSPendente.Text)
txtTPago.Text = txtRSPago.Text
End If
End Sub


Private Sub txtRSPendente_Change()
If txtRSPendente.Text <> [Ô][Ô] Then
txtGeral.Text = CDbl(txtRSPago.Text) + CDbl(txtRSPendente.Text)
txtTPend.Text = txtRSPendente.Text
End If
End Sub
ROBSONSLZ 14/02/2012 18:31:55
#394742
Boa Noite,

Marcelo, o projeto ficou correto, com um porém:
No campo: (R$ Total Pago) a soma deveria esta totalizando
os 4 (quatro) valores [Ô]Pago[Ô]. E no campo (R$ Total Pend)
tambem deveria esta totalizando os 4 (quatro) valores
[Ô]Pendente[Ô]. E no campo (R$ Geral) deveria mostrar as soma
dos 2 (dois) valores, [Ô]R$ Total Pago + R$ Total PD[Ô]

Gratos,

----------------------------------------------------------------------------------
Codigo Nome R$-PG R$ PD R$-Total Pago R$ Total Pend R$ Geral
----------------------------------------------------------------------------------
1. Ana 10,00 0,00 12,00 17,00 29,00
2. João 0,00 15,00
3. Maria 2,00 0,00
4. Pedro 0,00 2,00
----------------------------------------------------------------------------------
FEDERHEN 15/02/2012 08:35:11
#394791
é conveniente salvar o histórico dos pagamentos, para permitir conferencia de datas e valores.
Da maneira que você fez, não é possível uma conferencia futura para descobrir erros de lançamento.
ROBSONSLZ 15/02/2012 21:25:32
#394840
Citação:

:
é conveniente salvar o histórico dos pagamentos, para permitir conferencia de datas e valores.
Da maneira que você fez, não é possível uma conferencia futura para descobrir erros de lançamento.



(...) Desculpe, Não entendi o [Ô]aasunto[Ô] citado.
FEDERHEN 16/02/2012 08:07:01
#394858
Citação:

Desculpe, Não entendi o [Ô]aasunto[Ô] citado.



Vou esclarecer minha colocação com uma pergunta:
Suponhamos que você faz 3 lançamentos de pagamentos neste form, como você faz para consultar o valor e data do primeiro lançamento?
ROBSONSLZ 16/02/2012 19:24:59
#394958
Citação:

:
Desculpe, Não entendi o [Ô]aasunto[Ô] citado.

Vou esclarecer minha colocação com uma pergunta:
Suponhamos que você faz 3 lançamentos de pagamentos neste form, como você faz para consultar o valor e data do primeiro lançamento?



(...) Não será necessario,a consulta. Apenas o projeto é para controlar pagamanento de serviço.
Página 1 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar