Erro no Registro D700 campo IND_EMIT

[ddsilva]

Olá,

O campo IND_EMIT do Registro D700 está ficando com o valor incorreto.
Pois estamos passando fixamento o valor para ser "1: Terceiros", conforme linha abaixo:

IND_EMIT := edTerceiros;

 

Porém o arquivo gerado está ficando com o valor 2

Percebemos que isso ocorre devido a utlização da função IndEmitToStr no arquivo 
\Fontes\ACBrTXT\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBloco_D_Class.pas
na linha 2053, ficando da seguinte forma:

LFill(IndEmitToStr(wRegD700.IND_EMIT), 0)

 

Mas a função sempre acrescenta + 1 no valor:

function IndEmitToStr(AValue: TACBrIndEmit): string;
begin
   Result := IntToStr( Integer( AValue ) + 1 );
end;

[Renato Rubinho]

Bom dia

Tem algum sugestão de correção?

Anexe o fonte para análise.

[Joao Pedro Pereira]

Boa tarde.

Acredito que simplesmente parar de utilizar a função já resolva o problema

ACBrEFDBloco_D_Class.pas

[Renato Rubinho]

Boa tarde,

Obrigado pela contribuição.

Criada TK-5159 para análise.

[EMBarbosa]

Em 01/03/2024 at 13:51, Joao Pedro Pereira disse:

Boa tarde.

Acredito que simplesmente parar de utilizar a função já resolva o problema

ACBrEFDBloco_D_Class.pas

Muito obrigado pela contribuição.

Mas achamos melhor corrigir a função. Pelo visto, ela não era usada no código do ACBr em outros lugares e estava incorreta já faz um tempo.

@ddsilva,

Subi as alterações para o SVN na Revisão  32926.
Pelo que vi está tudo certo.

Pedimos a todos o favor de atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado a todos pelo relato e sugestões de correção.