hola amigos como estan les cuento que e hecho un codigo el cual me recorre una tabla de principio a fin con el objetivo que en cada registro que alla en esa tabla me escoja un valor
X de un campo y me lo sume con un numero
Y y luego me lo agrege en otra tabla
el codigo funciona sin error el problema esta que me esta sumando y agregando solo el ultimo registro de esa tabla no se que esta mal aqui esta el codigo que utilizo
Código Delphi
[-]while not DM.tbl_Ventas.Eof do
begin
DM.Pro_Existencia.Active:=False; DM.Pro_Existencia.Parameters.ParamByName('@ARTI').Value:=DM.tbl_Ventas.FieldValues['ARTICULO'];
DM.Pro_Existencia.Active:=True;
DM.Pro_Existencia.ExecProc;
DM.tbl_Compras.Locate('ARTICULO',DM.tbl_Ventas.FieldValues['ARTICULO'],[]); DM.tbl_Compras.Edit;
DM.tbl_Compras.FieldByName('CantAlmacen').Value:=IntToStr(StrToInt(DM.Pro_Existencia.FieldValues['EXISTENCIA'])+ StrToInt(DM.tbl_Ventas.FieldValues['CANTIDAD']));
DM.tbl_Compras.Post;
DM.tbl_Ventas.Next;
end;