Fórum Stored Procedure #379593

SQLTEXT -> Declarado como variavel de varchar... um tamanho que comporte 
a select
PCODSETOR, PCODGRUPO, PCODMARCA  são parametros de entrada
campo1, campo2, campo3 sao parametros de saida

no delphi voce chama... ."Select * from ProcedureName(PCODSETOR, 
PCODGRUPO, PCODMARCA)"

SQLTEXT = "select campo1,campo2,campo3 from produtos "
IF (PCODSETOR > 0) then
   SQLTEXT = SQLTEXT||" where codsetor = "||pcodsetor
else IF (PCODGRUPO > 0) then
   SQLTEXT = SQLTEXT||" where CODGRUPO= "||PCODGRUPO
else IF (PCODMARCA > 0) then
   SQLTEXT = SQLTEXT||" where CODMARCA= "||PCODMARCA

  for execute statement sqltext
       into :campo1,campo2,campo3
do
begin
   suspend;
end

CREATE PROCEDURE CONSULTACEP (
    cBai varchar(100),
    cCid varchar(200),
    cCep varchar(8) )
returns (
    Bairro varchar(100),
    Cidade varchar(200),
    Cep varchar(8))
as
declare variable SQLTEXT varchar (300);
BEGIN

   SQLTEXT =' Select B.Bairro, B.Codigo, C.Cidade, C.Codigo, C.CodBairro, C.Cep
       From adm_cad_bairro b, adm_cad_cidade c
       Where B.Codigo=C.CodBairro'