hidrau
asked on
Breakpoint doesn't stop in my variable
Hello guys,
I am having a problem with my debug in a unit.
I made a breakpoint on a line and the debug doesn't stop on it.
I want the breakpoint to stop at this variable : Ā SomaPeso := ValorCampoSQL(What could it be?
Please, take a look at my code
Thanks
I am having a problem with my debug in a unit.
I made a breakpoint on a line and the debug doesn't stop on it.
I want the breakpoint to stop at this variable : Ā SomaPeso := ValorCampoSQL(What could it be?
Please, take a look at my code
procedure TTelaEPDLeituraCodbar.SpeedButton1Click(Sender: TObject);
var
SomaQtd : Integer;
SomaPeso: currency;
begin
if DS01.dataset.fieldbyname('idtexped').asinteger = 0 then
exit;
if DS01.dataset.fieldbyname('STATUS').asinteger = 250 then
exit;
if not estaeditando(ds01) then
exit;
SomaQtd := ValorCampoSQL('',' select SUM(QTDPRO) as valor from Expedicao_Leitura where IDTExped = '+DS01.dataset.fieldbyname('idtexped').asstring+
' and flagbax = 0 ','valor','I');
SomaPeso := ValorCampoSQL('',' select isnull(SUM(PESO),0) as valor from Expedicao_Leitura where IDTExped = '+DS01.dataset.fieldbyname('idtexped').asstring+
' and flagbax = 0 ','valor','F');
if (SomaQtd <> 0) and (not Estavazio(SomaPeso)) then
PesoBruto := (SomaQtd * SomaPeso)
else
PesoBruto := 0;
TelaTranspVol := TTelaTranspVol.Create(Application);
wEstaAlterandoVolume := true;
TelaTranspVol.ShowModal;
with TelaTranspVol do begin
if modalresult =mrok then begin
TelaTranspVol.close;
end;
end;
wEstaAlterandoVolume := false;
end;
Thanks
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER