Obtener un número positivo o negativo.

[Ñuño Martínez]

La solución de calcular el valor absoluto y luego multiplicar o no por -1 me parece la más cómoda. No sé si sería más eficiente comprobar los valores:

Código Delphi [-]
  IF ValorPositivo < 0 THEN
    ValorPositivo := ValorPositivo * (-1);
  IF ValorNegativo > 0 THEN
    ValorNegativo := ValorNegativo * (-1);

Vamos, que no sé cómo está implementado "ABS", porque si el compilador la expande como hace, por ejemplo, con INC y DEC entonces creo que da lo mismo, casi.

[marcoszorrilla]

Gracias Ñuño, creo que lo dejaré tal como está. Que conste que antes de hacer cosas como está pronuncio internamente "la polvora la inventaron los chinos...".

Un Saludo.

[[Delphius]]

Hola,
Creo que lo más adecuado es irse por el valor absoluto. Supuestamente ya está optimizada esta función y debería hacer uso de la instrucción ABS y/o FABS en assembler que justamente lo único que hacen es alterar el campo de signo.

La ventaja del uso del valor absoluto es que no interesa si se ingresa positivo o negativo... siempre se obtiene el "lado positivo" y lo que nos resta por hacer es multiplicarlo por -1 en caso de ser necesario (que es más que evidente que solo aplica para cuando se requiere de los negativos) y no se necesita de hacer evaluaciones previas, como la que sugiere Nuño. Añadir un IF equivale a añadir un V(G) = 2. Dos IFs, son V(G) = 4. A mi humilde ver, me parece algo exagerado contar con una V(G) de 4 sólo para generar positivos y/o negativos.

Cuanto mucho me podría preguntar si da lo mismo hacer:

Código Delphi [-]
Negativo := - Abs(Valor);

Que:

Código Delphi [-]
Negativo := Abs(Valor) * -1;

Saludos,

[roman]

También podrías evitar el condicional:

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);

// Saludos

[[coso]]

Hola,
tambien podrias asignar directamente el bit de paridad con un or (no recuerdo cual es) aunque supongo que es lo que debe hacer abs o algo bastante parecido.
Saludos.

[[Al González]]

Yo también optaría por una solución como la de Román, dándole simetría aritmética al condicionante Boolean. Pero a esa variable le daría un significado positivo, es decir, la llamaría EsCargo (que de hecho es el sentido que adquiere el código de Román).

Saludos.

[roman]

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

[marcoszorrilla]

Me gusta la solución de Román, gracias también al resto que me habeis dado pautas interesantes.

Decir que Es_Cargo es una variable de tipo Boolean que le paso desde el menú y que se analiza en el evento de apertura del formulario para saber cual de las dos opciones se está ejecutando.


Por otra parte como veis el código va en el evento:

Código Delphi [-]
procedure TDmAbon.IBDtsAbonBeforePost(DataSet: TDataSet);
begin

Para que cada vez que se ejecute algún cambio en los datos se actualice el valor.

Un Saludo.