Informação de NFSe vindo trocada no envio de lote

[Endrigo Rodrigues]

Ítalo, resolvi postar em um tópico separado para que todos possam acompanhar.

Notei algo estranho em meu sistema, tenho o seguinte procedimento, envio lotes de 20 notas cada, pois tenho que enviar quase 1000 notas por mês. E observei que o retorno que pego do número e do protocolo da NFSe e salvo no meu registro vieram trocadas para as minhas notas enviadas.

Simplificando, os códigos relevantes ao meu processo são estes:

        if Enviar(IdRps, False) then

        begin

            . . .

            sProtocolo := WebServices.ConsLote.Protocolo;


            for x := 0 to NotasFiscais.Count - 1 do

            begin

              if Trim(NotasFiscais.Items[x].NFSe.Numero) <> EmptyStr then

              begin

                tbTabela1.First;

                tbTabela1.Locate('NUMNOTA', StrToInt(Trim(NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero)), []);

                tbTabela1.Edit;

                tbTabela1DATA.AsDateTime := Date;

                tbTabela1NFSE_ENVIADA.AsString := '1';

                tbTabela1NFSE_RPS.AsString := IntToStr(IdRps);

                tbTabela1NFSE_RPS_PROTOCOLO.AsString := Trim(sProtocolo);

                tbTabela1NFSE_STATUS.AsInteger := 9;

                tbTabela1NFSE_NUMERO.AsString := Trim(NotasFiscais.Items[x].NFSe.Numero);

                tbTabela1NFSE_CODIGO_VERIF.AsString := Trim(NotasFiscais.Items[x].NFSe.CodigoVerificacao);

                if FileExists(Configuracoes.Arquivos.GetPathNFSe + '\' + Trim(NotasFiscais.Items[x].NFSe.Numero) + '-nfse.xml') then

                  tbTabela1NFSE_XML.LoadFromFile(Configuracoes.Arquivos.GetPathNFSe + '\' + Trim(NotasFiscais.Items[x].NFSe.Numero) + '-nfse.xml');

                if FileExists(DANFSe.PathPDF + '\' + Trim(NotasFiscais.Items[x].NFSe.Numero) + '.pdf') then

                  tbTabela1NFSE_PDF.LoadFromFile(DANFSe.PathPDF + '\' + Trim(NotasFiscais.Items[x].NFSe.Numero) + '.pdf');

                tbTabela1.Post;

              end;

            end;

            tbTabela1.ApplyUpdates(-1);

            tbTabela1.First;

          end;

        end;

O meu sistema só possui o número do RPS antes de enviar o lote de NFSe, portanto, para atualizar o lote de notas enviadas preciso de procurar o RPS no meu banco de dados para atualizar as outras informações (número da NFSe, código de verificação, protocolo e o XML). Porém quando mando procurar o RPS que está em NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero, não condiz com as outras informações.

Um exemplo que acabei de fazer agora, enviei um lote com 3 notas (RPS 25907, 25908 e 25909).

Os retornos no componente foram trocados, veja abaixo:

Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25907 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004214, sendo que o correto deveria ser 201200000004216.

Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25908 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004216, sendo que o correto deveria ser 201200000004214.

Para o NotasFiscais.Items[x].NFSe.IdentificacaoRps.Numero = 25909 obtive NotasFiscais.Items[x].NFSe.Numero = 201200000004215, está correto.

Mas já fiz um teste onde as três vieram trocadas.

[Italo Giurizzato Junior]

Bom dia Endrigo,

Realizei uma alteração no dia 19/07/2012, você atualizou os fontes, testou e mesmo assim o problema persiste?

[Endrigo Rodrigues]

Bom dia Endrigo,

Realizei uma alteração no dia 19/07/2012, você atualizou os fontes, testou e mesmo assim o problema persiste?

Italo, vou atualizar e fazer os testes, aí te falo aí.

[Endrigo Rodrigues]

Deu tudo certo Ítalo. Parabéns.

[netsolutions]

Vocês sabem me dizer se este sistema funciona com os das prefeituras ou é só o Federal??

igual o da NFe ???

grato!