Cita:
Empezado por Al González
que de hecho es el sentido que adquiere el código de Román
|
Je, je. Me equivoqué. Sería así:
Código Delphi
[-]
DmAbon.IBDtsAbonBULTOS.AsInteger := (-2*Integer(EsAbono) + 1)*ABS(DmAbon.IBDtsAbonBULTOS.Value);
DmAbon.IBDtsAbonUNIDADES.AsInteger := (-2*Integer(EsAbono) + 1)*ABS(DmAbon.IBDtsAbonUNIDADES.Value);
Por otro lado, también podría optarse por crear disparadores
before insert y
before update para asegurar las signaturas correctas en la base.
// Saludos