Buenas, espero puedan orientarme con una duda.
Utilizo este codigo (Algo rebuscado, pero hace bien la pega):
Código Delphi
[-]While Not BDatos.PRODUCTOSTAB.Eof do
begin
BDatos.PRODUCTOSTAB.Edit;
BDatos.PRODUCTOSTAB.FieldbyName('STOCK').AsFloat:=
BDatos.PRODUCTOSTAB.FieldbyName('STOCK').AsFloat -
BDatos.PRODUCTOSFTAB.FieldbyName('STOCK').AsFloat;
BDatos.PRODUCTOSTAB.Next;
BDatos.PRODUCTOSFTAB.Next;
end;
BDatos.PRODUCTOSTAB.First;
BDatos.PRODUCTOSFTAB.First;
end;
end;
Lo que hace es recorrer todos los registros de dos TABLAS los cuales pueden ser varios (previamente filtrados en ambas TABLAS, siendo identicos) de la TABLA1 (STOCK Disponible) descontando la cantidad indicada en la TABLA2 (cantidad necesaria), esto lo utilzo para formulas y descuento de materias primas en el STOCK, funciona perfecto, la pregunta, ¿Como puedo saber antes de ejecutar el descuento si el STOCK es suficiente? Por ejemplo, de 5 materias primas la tercera es inferior a lo solicitado me lanse algun mensaje de aviso, se entiende???
y la segunda, cuando recorro los registros y se vuelve a posicionar en el primero, se ve como desciende y vuelve a subir, hay alguna manera de que esto no sea visible???
Gracias de antemano...
PD: Utilizo Delphi 2010, Zeos 7.0.0, MySQL