Campo Cod_Sit Do Registro C100.

[Ezequiel]

Boa tarde!

Não entendi porque está sendo somado + 1 nessa parte do código: 

                             Result := FormatFloat('00', Integer( AValue ) + 1 ); 

na função :

                           function CodSitToStr(AValue: TACBrCodSit): string;

da unit  "ACBrEPBlocos".

No caso  passo o código da situação 00 para "Documento regular" e quando passa por essa parte do código está sendo pego o valor que estou passando 00 e somando +1  ficando 01, que no caso já não é mais "Documento regular" e sim "Documento regular extemporâneo", com isso acaba sendo escriturado o registro com o código da situação errada.

 

[Isaque Pinheiro]

Vou analisar, assim que terminar te retorno.

[Isaque Pinheiro]

Corrigido e já disponível para baixar.

[Ezequiel]

Obrigado pelo prevê retorno Isaque Pinheiro.