Laço para calcular tabela
Olá pessoal, estou tentando fazer o seguinte laço (tabela Paradox):
With DMDados.TBEmprestimo Do
While DMDados.TBEmprestimoDataDeEntrega.Value < Date Do
DMDados.TBEmprestimo.Edit;
DMDados.TBEmprestimoDataDeEntrega.Value:= DMDados.TBEmprestimoDataDoEmprestimo.Value + DMDados.TBEmprestimoPrazo.Value;
DMDados.TBEmprestimoAtrazo.Value:=Date - DMDados.TBEmprestimoDataDeEntrega.AsVariant;
DMDados.TBEmprestimoTotalDaMulta.Value:=DMDados.TBEmprestimoAtrazo.Value * DMDados.TBEmprestimoValorDaMulta.Value;
BtnSalvar.Click;
Só q não está dando certo, alguém pode me ajudar?
Grato,
Ilano.
With DMDados.TBEmprestimo Do
While DMDados.TBEmprestimoDataDeEntrega.Value < Date Do
DMDados.TBEmprestimo.Edit;
DMDados.TBEmprestimoDataDeEntrega.Value:= DMDados.TBEmprestimoDataDoEmprestimo.Value + DMDados.TBEmprestimoPrazo.Value;
DMDados.TBEmprestimoAtrazo.Value:=Date - DMDados.TBEmprestimoDataDeEntrega.AsVariant;
DMDados.TBEmprestimoTotalDaMulta.Value:=DMDados.TBEmprestimoAtrazo.Value * DMDados.TBEmprestimoValorDaMulta.Value;
BtnSalvar.Click;
Só q não está dando certo, alguém pode me ajudar?
Grato,
Ilano.
Ilanocf
Curtidas 0
Respostas
Ivonei
15/07/2003
O que está acontecendo?
Não grava, atualiza só alguns campos, dá erro? :?:
Voce está colocando DMDados.TBEmprestimo.Next no final?
Você está atribuindo o valor de alguns campos, usando outros campos modificados. Tente usar variáveis. :)
Até +
Não grava, atualiza só alguns campos, dá erro? :?:
Voce está colocando DMDados.TBEmprestimo.Next no final?
Você está atribuindo o valor de alguns campos, usando outros campos modificados. Tente usar variáveis. :)
Até +
GOSTEI 0