ActiveDelphi

[sindicley]

Ola a todos... Estou com um problema em um campo do tipo Blob
os dados não são gravados no campo
SCRIPT BLOB sub_type 1 segment size 80 COLLATE NONE

Gravo com uma Trigger os outros campos gravam normalmente mas este campo fica em branco segue:

AS
DECLARE VARIABLE sCampos VARCHAR(1000);
DECLARE VARIABLE sValores VARCHAR(10000);
DECLARE VARIABLE sScript VARCHAR(10000);
BEGIN
sCampos = 'CXCODIGO';
sValores = ''''|| NEW.CXCODIGO||'''';
sCampos = sCampos ||',' || 'CXEMPRESA';
sValores = sValores ||',' || '''' ||NEW.CXEMPRESA||'''';
sCampos = sCampos ||',' || 'CXDESCRICAO';
sValores = sValores ||',' || '''' ||NEW.CXDESCRICAO||'''';
sCampos = sCampos ||',' || 'CXCODFUNCIONARIO';
sValores = sValores ||',' || '''' ||NEW.CXCODFUNCIONARIO||'''';
sCampos = sCampos ||',' || 'CXSENHA';
sValores = sValores ||',' || '''' ||NEW.CXSENHA||'''';
sCampos = sCampos ||',' || 'CXDATA';
sValores = sValores ||',' || '''' ||NEW.CXDATA||'''';
sCampos = sCampos ||',' || 'CXSITUACAO';
sValores = sValores ||',' || '''' ||NEW.CXSITUACAO||'''';
sCampos = sCampos ||',' || 'CXSALDO';
sValores = sValores ||',' || '''' ||NEW.CXSALDO||'''';
sCampos = sCampos ||',' || 'CXSITUACAO_ATUAL';
sValores = sValores ||',' || '''' ||NEW.CXSITUACAO_ATUAL||'''';
sCampos = sCampos ||',' || 'CXEXPORTAR_DADOS';
sValores = sValores ||',' || '''' ||NEW.CXEXPORTAR_DADOS||'''';
sScript = 'insert into CAIXAS (' || :sCampos || ') values ('|| :sValores ||')';
INSERT INTO SCRIPTS_REP_CAIXA (CODIGO, CODCAIXA, STATUS, SCRIPT)
VALUES(GEN_ID(GEN_SCRIPTS_REP_CAIXA, 1), NEW.CXCODIGO,0, :sScript);

END

[gilsonnrodrigues]

e o erro?

[sindicley]

Então, o Erro e que não grava nada no campo blob fica limpo os dados não são gravado no campo.