StrinGrid
Publicado por Milena (1 intervención) el 26/07/2008 23:08:22
Mira este codigo
procedure ActualizarCant(Signo,Campo,MaxItem:Integer;Cods,Cants:TStrings;Tabla:TTable);
var
i:Integer;
begin
with Tabla do
for i:=1 to MaxItem-1 do
if FindKey([Cods[i]]) then
begin
Edit;
Fields[Campo].AsFloat:=Fields[Campo].AsFloat+Signo*StrToFloat(Cants[i]);
Post;
end;
end;
Y mira este
with dmVentas,Datos do
Begin
Tproductos.Open;
GuardarItems(NumF.Text,RowCount,[Cols[1],Cols[5],Cols[4],Cols[3],Cols[5],Cols[6]],TKardex);
ActualizarCant(1,3,RowCount,Cols[1],Cols[3],TProductos);
MsgInf('Registros Grabados Exitosamente...');
end;
Me funciona bien y me aqctualiza la Cantidad en la Tabla deproductos, pero a demas quiero actualizar otro campo y no me deja o mas bien no se como ponerlo
Estos datos los Cargo en un StringGrid
procedure ActualizarCant(Signo,Campo,MaxItem:Integer;Cods,Cants:TStrings;Tabla:TTable);
var
i:Integer;
begin
with Tabla do
for i:=1 to MaxItem-1 do
if FindKey([Cods[i]]) then
begin
Edit;
Fields[Campo].AsFloat:=Fields[Campo].AsFloat+Signo*StrToFloat(Cants[i]);
Post;
end;
end;
Y mira este
with dmVentas,Datos do
Begin
Tproductos.Open;
GuardarItems(NumF.Text,RowCount,[Cols[1],Cols[5],Cols[4],Cols[3],Cols[5],Cols[6]],TKardex);
ActualizarCant(1,3,RowCount,Cols[1],Cols[3],TProductos);
MsgInf('Registros Grabados Exitosamente...');
end;
Me funciona bien y me aqctualiza la Cantidad en la Tabla deproductos, pero a demas quiero actualizar otro campo y no me deja o mas bien no se como ponerlo
Estos datos los Cargo en un StringGrid
Valora esta pregunta


0