Consultar NFSe por RPS

[Gabriel Souza Lopes]

Boa tarde,

Quando consulta nfse por rps, estava gravando um xml 'vazio', somente com o cabeçalho. Notei que na unit ACBrNFSeWebServices, na função ExtrairNotasRetorno,

estava sendo usada a variavel 'j' da seguinte forma : 

j := Pos('</' + Prefixo3 + 'CompNfse>', FRetListaNFSe);

e mais abaixo usa a variavel J em um for para percorrer a lista de FNotasFiscais. Porem abaixo desse for utilizava o valor de j para:

FRetNFSe := Copy(FRetListaNFSe, 1, j - 1);

logo o valor dele estava com o do for e não o declarado no começo da função. Alterei a unit, instanciando uma nova variavel para o for, deixando o 'j' exclusivo para a outra função.

Segue a unit alterada em anexo

 

Obs.: Essa mesma unit fora alterada para integração com Provedor Governa, o qual estou aguardando término de análise por parte do ACBr.

ACBrNFSeWebServices.pas