Erro ao gerar registro 50 do Sintegra

[Juarez]

Boa tarde, estou utilizando a função

ACBr_SintegraRegistro50 para gerar o sintegra porém eu recebo uma mensagem de erro e o código de retorno é apenas 0. Tem algum lugar as regras de validação deste registro para que eu possa saber porque estes erros estão ocorrendo?

O meu código está semelhante ao abaixo:

wretorno :=

ACBr_SintegraRegistro50(

PChar(RemoveCaractesresEspeciais(TBNotaCPF_CNPJ.AsString)),

PChar(varIE),

PChar(Datetostr(TBNotaDATADOCUMENTO.AsDateTime)),

PChar(varUF),

PChar(TBNotaMODELO.AsString),

PChar(TBNotaSERIE.AsString),

PChar(TBNotaNUMERO.AsString),

PChar(TBNotaCEFOP.AsString),

PChar('T'),

PChar(FloattostrF(500{TBNotaVALORDOCUMENTO.AsFloat},ffFixed,12,2)),

PChar(FloattostrF(TBNotaVALORBASEICMS.AsFloat,ffFixed,12,2)),

PChar(FloattostrF(TBNotaVALORICMS.AsFloat, ffFixed, 12, 2)),

PChar('0'),

PChar(FloattostrF(TBNotaVALOROUTROSDADOS.AsFloat, ffFixed, 12, 2)),

PChar('17'),

PChar('N'));

if wretorno <> 1 then

raise Exception.Create('Erro ao gerar registro 50! > ' + IntToStr(wretorno));

Obrigado

[EMBarbosa]

ACBr_SintegraRegistro50 para gerar o sintegra porém eu recebo uma mensagem de erro

Mensagem de erro que diz...???

[Juarez]

Sim, apenas recebo zero como retorno, mais nada.

[Juarez]

ACBr_SintegraRegistro50 para gerar o sintegra porém eu recebo uma mensagem de erro

Mensagem de erro que diz...???

Como só recebo 0 como retorno da exceção, não sei como tratar ou em que ponto está o erro, poderia me ajudar nisso?

[]'s

[EMBarbosa]

Se você está falando da exception no seu código, você é quem está criando a exception, então você é responsável pela mensagem.

Você viu no exemplo como o ACBrSintegra funciona?