Pido mil disculpas, la falta de sueño a veces nos juega malas pasadas, el "ERROR" era que tenia registros repetidos en la tabla, el codigo estaba bien, pero GRACIAS ALECA!!! tu sugerencia indirectamente me hiso ver el error en la tabla y el codigo quedo mejor (menos engorroso y mas ordenado), de esta manera:
Código Delphi
[-]procedure TPRODUCCION.Button1Click(Sender: TObject);
begin
if BDatos.PRODUCTOSTAB.FieldbyName('STOCK').AsFloat <
BDatos.PRODUCTOSFTAB.FieldbyName('STOCK').AsFloat then begin
ShowMessage('El STOCK no es suficiente, elija una cantidad menor.');
Abort;
end else
begin
BDatos.PRODUCTOSTAB.Edit;
BDatos.PRODUCTOSTAB.FieldbyName('STOCK').AsFloat:=
BDatos.PRODUCTOSTAB.FieldbyName('STOCK').AsFloat -
BDatos.PRODUCTOSFTAB.FieldbyName('STOCK').AsFloat;
BDatos.PRODUCTOSTAB.Post;
end;
end;
Hace lo que necesito con menos enredo, como se dice, "NO HAY MAL QUE POR BIEN NO VENGA"
Por si a alguien le sirve, lo que hago es filtrar ambas tablas con el producto requerido, una tiene el STOCK general y la otra el STOCK requerido (se que no es necesario, pero tengo mis motivos de filtrar dos tablas, toy en plena etapa de PRUEBA Y ERROR y necesito algo asi) si el STOCK es mayor al que existe nos avisa, si existe STOCK continua con el PEDIDO - INGRESO o EGRESO correspondiente... gracias nuevamente ALECA por responder e iluminarme y sugerir un cambio que facilita y ordena mi trabajo... Byes!!!