Hi,

I'm trying to create a stored procedure from a delphi application and I'm
getting this error:

*invalid request BLR at offset 218
undefined message number

*This is my stored procedure's code:*
*


CREATE PROCEDURE UPDATE_FATURA
AS
DECLARE VARIABLE EMPRESA CHAR(38);
DECLARE VARIABLE USUARIO CHAR(38);
DECLARE CONTA_PADRAO CHAR(38);
DECLARE VARIABLE CATEGORIA_PADRAO CHAR(38);
DECLARE VARIABLE PAGANTE_ID CHAR(38);
DECLARE VARIABLE VENDA_ID CHAR(38);
DECLARE VARIABLE DATA_VENDA DATE;
DECLARE VARIABLE VALOR NUMERIC(15,2);
DECLARE VARIABLE LOJA_ID CHAR(38);
DECLARE VARIABLE VENDEDOR_ID CHAR(38);
DECLARE VARIABLE FINANCEIRO_ID CHAR(38);
BEGIN
SELECT FIRST 1 ID FROM LOJA INTO EMPRESA;
SELECT FIRST 1 ID FROM USUARIOS WHERE LOJA_ID = :EMPRESA AND NIVEL_ACESSO
= 'A' INTO USUARIO;
SELECT VALOR FROM PARAM WHERE NOME = 'ContaPadrao' AND LOJA = :EMPRESA
INTO CONTA_PADRAO;
SELECT VALOR FROM PARAM WHERE NOME = 'CategoriaFinanceiroPadrao' AND LOJA
= :EMPRESA INTO CATEGORIA_PADRAO;

FOR SELECT ID, FINANCEIRO_ID, LOJA_ID, VENDEDOR_ID, PAGANTE_ID,
DATA_VENDA, (TOTAL_PRODUTOS + TOTAL_TAXAS + TAXA_SERVICO - DESCONTO) VALOR
FROM VENDAS WHERE FINANCEIRO_ID IS NOT NULL
INTO VENDA_ID, FINANCEIRO_ID, LOJA_ID, VENDEDOR_ID, PAGANTE_ID,
DATA_VENDA, VALOR DO
BEGIN
INSERT INTO FINANCEIRO (ID, LOJA_ID, CATEGORIA_ID, PESSOA_ID, CONTA_ID,
VENDA_ID, MOVIMENTO, DESCRICAO, VENCIMENTO, VALOR, DESCONTO, ACRESCIMO,
CADASTRADO_EM, CANCELADO, FORMA_PAGAMENTO, FATURA_ID) VALUES
(SUBSTRING(:VENDA_ID FROM 1 FOR 16) || SUBSTRING(:FINANCEIRO_ID FROM
17), :LOJA_ID, :CATEGORIA_PADRAO, :PAGANTE_ID, :CONTA_PADRAO, :VENDA_ID,
'C', 'Faturar', :DATA_VENDA, :VALOR, 0, 0, CURRENT_TIMESTAMP ,'O', 'FA',
:FINANCEIRO_ID);
END
END



I trying googling for this error, but got no clues at all.

Any Ideas?

Thanx.


[Non-text portions of this message have been removed]