[firebase-br] Erro em procedure

[Nilton Souza]

Olá Eder,

Ele está informando que o tipo de dados informado para iNRLANCTO (integer)
não é compatível com o que está sendo retornado pelo for-select.

O tipo de dados do campo NRLANCTO na tabela BAIXA é INTEGER tb ?

[]'s
Nilton Souza

----- Original Message -----
From: "Eder Ribeiro" <ederonline em pop.com.br>
To: <lista em firebase.com.br>
Sent: Monday, January 31, 2005 9:56 AM
Subject: [firebase-br] Erro em procedure


Bom dia pessoal,

    Estou com o sguinte problema:
    Criei uma procedure q apenas dá select utilizando alguns parametros e
retorna o
resultado em alguns campos.
    Qdo eu dou o create ela funciona normalmente o problema é na hora de dar
um
select nela.
    O erro que aparece é: "Variable type (position 3) in EXECUTE STATEMENT
'select
BAIXA.DATAPAGTO,
BAIXA.VALOR, BAIXA.NRLANCT' INTO does not match returned column type.


A procedure está logo abaixo.
/*
============================================================================
==*/
create procedure SP_CONTASPAGAS (dDTINICIAL date,
                                   dDTFINAL date,
                                   iCODFORN integer,
                                   sCAMPOORDEM varchar(30)
                                  )
returns (dDATAPAGTO date, nVALOR numeric(8,2), iNRLANCTO integer,
         dEMISSAO date, dVENCIMENTO date, sRAZAOFORN varchar(50),
         iCODFORNEC integer)
as
declare variable sTEXTOSQL varchar(500);
begin
  sTEXTOSQL = 'select BAIXA.DATAPAGTO, BAIXA.VALOR, BAIXA.NRLANCTO,
CPAGAR.EMISSAO,
CPAGAR.VENCIMENTO, FORNECEDOR.RAZAO, CPAGAR.CODFORN
               from CPAGAR
               inner join BAIXA      on CPAGAR.NRLANCTO = BAIXA.NRLANCTO
               inner join FORNECEDOR on CPAGAR.CODFORN  = FORNECEDOR.CODFORN
               where BAIXA.DATAPAGTO is not null ';

  if (:dDTINICIAL is not null) then
    sTEXTOSQL = sTEXTOSQL || ' and (BAIXA.DATAPAGTO between
'''||:dDTINICIAL||'''
and '''||:dDTFINAL||''') ';

  if (:iCODFORN <> 0) then
    sTEXTOSQL = sTEXTOSQL || ' and (CPAGAR.CODFORN = '''||:iCODFORN||''') ';

  sTEXTOSQL = sTEXTOSQL || 'order by '||:sCAMPOORDEM;

  for execute statement sTEXTOSQL into :dDATAPAGTO, :nVALOR, :iNRLANCTO,
:dEMISSAO,
                                :dVENCIMENTO, :sRAZAOFORN, :iCODFORNEC do
    suspend;
end

/* =====================================================================*/


Eder Ribeiro

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br