hola,
estoy con Delphi5 y paradox7 con un formulario para realizar albaranes, tengo la tabla maestra "Talbaranes" donde guardo datos generales (idalb, fecha, observaciones, transporte, ...) y una tabla detalle "TalbprodDetalle" donde guardo cada linea de detalle del albaran (el id del albaran al que pertenece, el codigo del producto seleccionado y la cantidad). Yo lo que quiero es controlar el stock de los productos, es decir, una vez que doy de alta un albaran y lo guardo, seguidamente quiero recorrer la tabla detalle para cada linea de producto y descontar la cantidad en la tabla "Tproductos" (donde guardo todos los datos de los productos y tengo un campo stock). No se si me explico. Me gustaria saber como recorrer la tabla detalle, tengo un esbozo pero no me funciona, testea el while y sale.
Código Delphi
[-]procedure TFormAlbaran.ControlStock;
begin
while not TalbprodDetalle.Eof do
begin
TProductos.Locate('Codigo',TalbprodDetalleCodprod.asString,[]);
TProductos.FieldByName('Stock').asInteger:=TProductos.FieldByName('Stock').asInteger - TalbprodDetalleCantidad.AsInteger;
TalbprodDetalle.next;
end;
end;
El procedimiento se realiza justo despues de realizar:
Código Delphi
[-]Talbaranes.Post;
TalbprodDetalle.Post;
TalbprodDetalle.ApplyUpdates;
Muchas gracias.