Obtener un número positivo o negativo.

[marcoszorrilla]

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 [-]
//Empece así:
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;


//Lo remedé así:

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.