Prezados, bom dia!
Após a atualização dos fontes do ACBR, foi verificado que o código não não está conseguindo realizar a contagem das linhas do arquivo.
Essa prefeitura embora seja automática, ainda possui a montagem do arquivo TXT e na codificação, temos a montagem de alguns registros:
GerarRegistroTipo1
GerarRegistroTipo2
GerarRegistroTipo3
GerarRegistroTipo9
Atualmente o código está conseguindo efetuar a contagem de linhas quando não temos a apresentação dos registros do tipo 3 que são os valores retidos.
Percebi isso no trecho abaixo que se encontra na unidade ISSBarueri.Provider no método GerarMsgDadosEmitir
Registro9 := '9' +
PadRight(IntToStr(TACBrNFSeX(FAOwner).NotasFiscais.Count + 2), 7, ' ') +
PadLeft(FloatToStr(ValorServicos * 100), 15, '0') +
PadLeft(FloatToStr(ValorTotalRetencoes * 100), 15, '0') + CRLF;
Params.Xml := Registro1 + Params.Xml + Registro9;
A contagem de linhas está sendo feita pela quantidade de notas e não mais por linhas como era feita antes da atualização do fonte.
Com isso, a prefeitura está retornando erro abaixo:
Mensagem de resposta do webservice da prefeitura. Numero de linhas não confere com numero de linhas do tipo 1,2,3 e 9 enviadas no arquivo.
Tentei verificar uma forma de realizar a contagem das linhas de outra forma, mas ainda não consegui efetuar o ajuste.
Poderiam me dá uma ajuda nesse caso?