En una tabla guardo abonos y cargos los abonos tienen que ser negativos y los cargos positivos. El objeto es que al facturar cargue o abone dichas cantidades.
El propósito es, independientemente de la buena voluntad del usuario que los bultos y unidades sean positivas o negativas dependiendo de lo explicado anteriormente.
Código Delphi
[-]
procedure TDmAbon.IBDtsAbonBeforePost(DataSet: TDataSet);
begin
if Es_Abono = True then
begin
DmAbon.IBDtsAbonBULTOS.AsFloat :=Sqr(Power(DmAbon.IBDtsAbonBULTOS.Value,2))*-1;
DmAbon.IBDtsAbonUNIDADES.AsFloat:=Sqr(Power(DmAbon.IBDtsAbonUNIDADES.Value,2))*-1;
end
else
begin
DmAbon.IBDtsAbonBULTOS.AsFloat :=Sqr(Power(DmAbon.IBDtsAbonBULTOS.Value,2));
DmAbon.IBDtsAbonUNIDADES.AsFloat:=Sqr(Power(DmAbon.IBDtsAbonUNIDADES.Value,2));
end;
end;
procedure TDmAbon.IBDtsAbonBeforePost(DataSet: TDataSet);
begin
if Es_Abono = True then
begin
DmAbon.IBDtsAbonBULTOS.AsInteger :=ABS(DmAbon.IBDtsAbonBULTOS.Value)*-1;
DmAbon.IBDtsAbonUNIDADES.AsInteger:=ABS(DmAbon.IBDtsAbonUNIDADES.Value)*-1;
end
else
begin
DmAbon.IBDtsAbonBULTOS.AsInteger :=ABS(DmAbon.IBDtsAbonBULTOS.Value);
DmAbon.IBDtsAbonUNIDADES.AsInteger:=ABS(DmAbon.IBDtsAbonUNIDADES.Value);
end;
end;
Alguna otra idea?
Un Saludo.