[Sudamericano]

Código Delphi [-]

Código Delphi [-]
procedure xxxxxxxxxxxxxxxx
var
a,b,c:integer;
begin
//inicializo variables
a := 0;
b := 0;
c := 0;
 
// verifico que este Abierto Atemporal
with modulo.Atemporal do
begin
if Active then 
 
Append
else
begin
Open;
Append
end;
FielByName('Cantidad').AsInteger := a;
FieldByName('PrecioMN').AsInteger:= b;
c:=a*b;
FieldByName('ImporteMN').AsInteger:=c;
end
end;

yo lo haria de esta manera