Estou tendo problemas ao gerar o arquivo do Bloco X - Redução Z.
O valor do GT está bem alto no meu ECF (R$ 4.533.781.611,57) e isso faz o arquivo da Redução Z gerar um valor "negativo" (0000000-1888372219).
Pesquisando no código-fonte, encontrei esse trecho:
FGerador.wCampo(tcStr, '', 'VendaBrutaDiaria', 1, 14, 1, IntToStrZero(TruncFix(VendaBrutaDiaria*100),14));
FGerador.wCampo(tcStr, '', 'GT', 1, 18, 1, IntToStrZero(TruncFix(GT*100), 18));
Utilizo Delphi 2005 e esse trecho está causando o erro da transformação do valor (R$ 4.533.781.611,57) num valor negativo (0000000-1888372219).
Apenas alterei para o trecho abaixo e funcionou:
FGerador.wCampo(tcStr, '', 'VendaBrutaDiaria', 1, 14, 1, VendaBrutaDiaria);
FGerador.wCampo(tcStr, '', 'GT', 1, 18, 1, GT);
Segue o código-fonte para análise.
ACBrBlocoX_ReducaoZ.pasC:\Users\Leandro\Documents\Priori\Fontes\Projetos\ACBr\Fontes\ACBrDFe\ACBrBlocoX\ACBrBlocoX_ReducaoZ.pas