Re: [Firebird-net-provider] FirebirdSql.Data.INGDS.GDSException

[Josauro S.J. <jo...@ca...>]

Ok, I found the problem than I don't put REC_VALOR_TAXA in select ;) and =
than it return NULL .
Thanks for all help.

Josauro S.J.
Diretor
e-mail: jo...@ca...
   site: www.casasoft.inf.br

Portal de im=F3veis www.IndicadorDeIm=F3veis.com.br

O =FAnico Portal de im=F3veis 100% on-line com as imobili=E1rias, =
im=F3veis atualizados minuto a minuto a certeza de que o im=F3vel =
anunciado realmente esta Dispon=EDvel.

  ----- Original Message -----=20
  From: Carlos Guzm=E1n =C1lvarez=20
  To: Josauro S.J.=20
  Cc: fir...@li...=20
  Sent: Tuesday, November 25, 2003 9:23 AM
  Subject: Re: [Firebird-net-provider] =
FirebirdSql.Data.INGDS.GDSException


  Hello:

  > Ok, it's work fine.
  > But other question...
  > Variable  VR_VALOR_BRUTO   and VR_VALOR_LIQUDO return nothing =
values, do=20
  > you know why ?=20

  No, think in that i can't test it ;), just try to move the IF .. ENDIF =

  block:

  CREATE PROCEDURE GET_RECIBOS (
        CLI_REFERENCIA VARCHAR(12))
  RETURNS (
       REC_CODIGO DOUBLE PRECISION,
       REC_CLIENTE DOUBLE PRECISION,
       REC_DATA DATE,
       REC_DATA_LIMITE DATE,
       REC_VALOR_ALUGUEL NUMERIC(15,2),
       REC_VALOR_TAXA NUMERIC(15,2),
       REC_VALOR_MULTA_DESCONTO NUMERIC(15,2),
       VR_VALOR_LIQUIDO NUMERIC(15,2),
       VR_VALOR_BRUTO NUMERIC(15,2),
       REC_DESCRICAO_PERIODO VARCHAR(40),
       REC_NUMERO_RECIBO INTEGER,
       REC_NUMERO_BANCARIO VARCHAR(15))
  AS
  DECLARE VARIABLE VR_MULTA_DESCONTO CHAR(1);
  DECLARE VARIABLE VR_CLIENTE DOUBLE PRECISION;
  begin
     /* Procedure Text */
     SELECT CODIGO FROM get_codigo_cliente(:CLI_REFERENCIA)
     INTO :VR_CLIENTE;

     FOR SELECT REC_CODIGO,
            REC_CLIENTE,
            REC_DATA,
            REC_DATA_LIMITE,
            REC_VALOR_ALUGUEL,
            REC_MULTA_DESCONTO,
            REC_VALOR_MULTA_DESCONTO,
            REC_DESCRICAO_PERIODO,
            REC_NUMERO_RECIBO,
            REC_NUMERO_BANCARIO
     FROM RECIBO
     WHERE REC_CLIENTE =3D :VR_CLIENTE
     INTO :REC_CODIGO,
          :REC_CLIENTE,
          :REC_DATA,
          :REC_DATA_LIMITE,
          :REC_VALOR_ALUGUEL,
          :VR_MULTA_DESCONTO,
          :REC_VALOR_MULTA_DESCONTO,
          :REC_DESCRICAO_PERIODO,
          :REC_NUMERO_RECIBO,
          :REC_NUMERO_BANCARIO
     DO
     BEGIN   =20
  SUSPEND;
     END

     IF  (VR_MULTA_DESCONTO =3D 'D')
     THEN BEGIN
           VR_VALOR_BRUTO   =3D :REC_VALOR_ALUGUEL
               + :REC_VALOR_TAXA;
           VR_VALOR_LIQUIDO =3D VR_VALOR_BRUTO
               - :REC_VALOR_MULTA_DESCONTO;
     END
     ELSE BEGIN
           VR_VALOR_BRUTO   =3D :REC_VALOR_ALUGUEL
               + :REC_VALOR_TAXA
               + :REC_VALOR_MULTA_DESCONTO;
           VR_VALOR_LIQUIDO =3D VR_VALOR_BRUTO
               - :REC_VALOR_MULTA_DESCONTO;
     END
  END



  --
  Best regards

  Carlos Guzm=E1n =E1lvarez
  Vigo-Spain