[firebase-br] SP - Onder será que Errei

[eder paz]

Só postei por que estou apanhando muito, aposto que a resposta ta na minha
cara + não estou conseguindo enchergar,
que puder me dar uma luz nesta SP ... agradeço muito

mando rodar e me o seguinte erro

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 1, char 103.
where.
--------------------------------------------------------------------------
CREATE PROCEDURE P_PRODPDV (
    WLOJA INTEGER,
    WCODBARRAS VARCHAR(20),
    WCODVENDA VARCHAR(20),
    WQTDE NUMERIC(15,2))
AS
DECLARE VARIABLE TBARRAS VARCHAR(15);
DECLARE VARIABLE TDESCRICAO VARCHAR(50);
DECLARE VARIABLE TPRECOVENDA NUMERIC(18,2);
DECLARE VARIABLE TDESCONTO NUMERIC(3,2);
DECLARE VARIABLE TAPLICAR CHAR(1) CHARACTER SET ISO8859_1;
DECLARE VARIABLE TPRECOPRO NUMERIC(18,2);
begin
execute statement
'Select first 1 CODBARRAS,DESCRICAO,PRECOVENDA,DESCONTO'||:wloja||
             ',APLICAR'||:wloja||',PRECOPROMOCIONAL'||:wloja||
'from t_familiadados where codbarras =' ||:wcodbarras

into :tbarras,:tdescricao,:tprecovenda,:tdesconto,:taplicar,:tprecopro;

  if (:taplicar is null) then taplicar = 'F';
  if (:taplicar = 'F') then tdesconto = 0.00;
insert into t_produtost

(barras,descricao,valor,aplicar,precopro,quantidade,codvenda,desconto,descpro)
      values
(:tbarras,:tdescricao,:tprecovenda,:taplicar,:tprecopro,:wqtde,:wcodvenda,:tdesconto,:tdesconto);
exit;
end
-------------------------------------------------------------------------------

Eder Paz

[]'s