Fórum Desafio !!!!!!!!!!!! #146664

Cara marcia mostrarei a linha q está errada e como ficaria correta

[b:3bd52e8dd8]With not EOF do[/b:3bd52e8dd8]

e a correta seria

[b:3bd52e8dd8]While not EOF do[/b:3bd52e8dd8] :lol:

Amigão, Tente ir no Menu
Tools
Debuger Options

Na Guia Language Exceptions desmarcar Stop on Delphi Exception e veja a Mensagem que o aplicativo vai te retornar.. OK.

Qual Banco de Dados Esta Usando??
Quais Componentes de Banco de Dados

[b:2c00750564]Procedure[/b:2c00750564] TFaturamento.CalculaTotalValor;
[b:2c00750564]var [/b:2c00750564]
total_produto, total_servico : real;
[b:2c00750564]Begin [/b:2c00750564]
Dm.TbItensFatura.Open;
Total_Produto := 0;
Total_Servico := 0;
ValorTotalFatura := 0;
DM.TbItensFatura.First;
DM.TbitensFatura.Disablecontrols;
[b:2c00750564]While[/b:2c00750564] not Dm.TBItensFatura.EOF [b:2c00750564]do[/b:2c00750564]
[b:2c00750564]Begin[/b:2c00750564]
[b:2c00750564]If[/b:2c00750564] Dm.TbItensFaturaTIPO.Value = ´P´ [b:2c00750564]then[/b:2c00750564]
[b:2c00750564]Begin[/b:2c00750564]
Total_Produto := Total_Produto + (Dm.TbItensFaturaUNITARIO.value * Dm.TbItensFaturaQTDE.Value);
[b:2c00750564]End else [/b:2c00750564]
Total_Servico := Total_servico + ((Dm.TbItensFaturaUNITARIO.value * Dm.TbItensFaturaQTDE.Value)* 0.05);
[b:2c00750564]End; [/b:2c00750564]ValorTotalFatura := Total_Produto + Total_Servico;
DM.TbitensFatura.EnableControls;
[b:2c00750564]end;[/b:2c00750564]

procedure TFaturamento.CalculaTotalValor;
var
total_produto,
total_servico: real;
begin
Total_Produto := 0;
Total_Servico := 0;
ValorTotalFatura := 0;
with DM.TbItensFatura do
begin
Disablecontrols;
try
if not Active then
Open
else
First;
with not EOF do
begin
if Dm.TbItensFaturaTIPO.Value = ´P´ then
Total_Produto := Total_Produto + (Dm.TbItensFaturaUNITARIO.value * Dm.TbItensFaturaQTDE.Value)
else
Total_Servico := Total_servico + ((Dm.TbItensFaturaUNITARIO.value * Dm.TbItensFaturaQTDE.Value)* 0.05);
Next; // faltou esta linha
end;
ValorTotalFatura := Total_Produto + Total_Servico;
finally
EnableControls;
end;
end;
end;

Ps: Ajude o forum. Coloque títulos compatíveis com a sua pergunta.

Tb Falta declarar a Variavel que armazena o valor total da fatura =)