Contagem de linhas arquivo TXT prefeitura de Barueri.

[Drodrigues]

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?