Hola
Esto es solo para tratar de entenderlo mejor
Código Delphi
[-]
while not frmfactura.MDtemporal.Eof do
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Text:='update stock set prostkact=prostkact -'+quotedstr(frmfactura.DBGrid1.DataSource.DataSet.fieldbyname('cantidad').AsString)+
'where'+'procod='+quotedstr(frmfactura.DBGrid1.DataSource.DataSet.fieldbyname('codigo').AsString);
query1.ExecSQL;
end;
Código Delphi
[-]
for i:=0 to frmfactura.DBGrid1.FieldCount-1 do
begin
query1.SQL.Text:='Update stock set prostkact=prostkact-'+frmfactura.DBGrid1.Fields[0,i]
+'where'+'procod='+quotedstr(frmfactura.DBGrid1.Fields[1,i]);
query1.ExecSQL;
end;
end;
por favor usa las etiquetas
Saludos