[firebase-br] duvida em procedure

emerson carrard emersoncarrard em yahoo.com.br
Ter Mar 29 12:19:20 -03 2005


Bom dia pessoal
tenho a seguinte procedure: 
CREATE PROCEDURE CRIATABELA (
    IEMPRESA INTEGER)
AS
declare variable VSQL VARCHAR(300);
declare variable RVENDEDOR VARCHAR(30);
declare variable VSQLAUX VARCHAR(200);
declare variable cont integer;
declare variable cont2 integer;
begin
cont2=1;
VSQL= 'CREATE TABLE RELRESUMO(';
SELECT count(V.vendedor) FROM vendedor V
  WHERE V.status='ATIVO' AND
  V.perccomissaolubrificante IS NOT NULL
  into :cont;
FOR
  SELECT V.vendedor FROM vendedor V
  WHERE V.status='ATIVO' AND
  V.perccomissaolubrificante IS NOT NULL
  INTO :RVENDEDOR
  DO
  BEGIN
    if (cont<>cont2) then
    begin
    VSQLAUX=:RVENDEDOR||' '|| 'VARCHAR(50),';
    VSQL = VSQL ||VSQLAUX;
    end
    else
    begin
    VSQLAUX=:RVENDEDOR||' '|| 'VARCHAR(50)';
    VSQL = VSQL ||VSQLAUX;
    end
    cont2=cont2+1;
  END
 VSQL=VSQL||');';

execute statement VSQL;
end
 
ela tem a funcao de criar uma tabela usando sql dinamico ja depurei e verifiquei o comando sql que ela gera ta ok porem ao colocar a linha do execute statement ocorre um erro de parsing error no ib expert como faço pra executar o comando sql que montei?
uso fb 1.5.2
 
 

		
---------------------------------
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!


Mais detalhes sobre a lista de discussão lista