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

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

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

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:00 AM
  Subject: Re: [Firebird-net-provider] =
FirebirdSql.Data.INGDS.GDSException


  Hello:

  Try this:

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

  suspend;
       end
  end





  --
  Best regards

  Carlos Guzm=E1n =C1lvarez
  Vigo-Spain