Mudança em códigos de serviço - Prefeitura SP

[drsmoreira]

Boa tarde Pessoal!

    Hoje fui emitir nota da prefeitura de SP e começou com um erro List Index(0) e não ia de maneira nenhuma, depois de muitos testes, descobri que a prefeitura mudou os códigos de vários serviços.

     No ACBRNFSE não conseguia retornar o erro real da prefeitura por um pequeno problema no tratamento desse retorno que em vez de retornar o erro da prefeitura, acionava a excessão acima, fiz a alteração na rotina function TNFSeEnviarLoteRPS.TratarResposta: Boolean; no arquivo : AcBrNFSeWebServices.pas 

De :

        ProNotaBlu: begin
                      if (FProvedor in [proCTA, proSP]) or
                         ((FProvedor = ProNotaBlu) and (RetEnvLote.InfRec.InformacoesLote.QtdNotasProcessadas > 0)) then
                      begin
                        FNotasFiscais.Items.NFSe.Numero := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.Numero;
                        FNotasFiscais.Items.NFSe.CodigoVerificacao := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.CodigoVerificacao;
                        FNotasFiscais.Items.NFSe.NumeroLote := RetEnvLote.InfRec.NumeroLote;
                      end;
                    end;
      end;

Para :

        ProNotaBlu: begin
                      if (FProvedor = proCTA) or
                         ((FProvedor in [ProNotaBlu, proSP]) and (RetEnvLote.InfRec.InformacoesLote.QtdNotasProcessadas > 0)) then
                      begin
                        FNotasFiscais.Items.NFSe.Numero := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.Numero;
                        FNotasFiscais.Items.NFSe.CodigoVerificacao := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.CodigoVerificacao;
                        FNotasFiscais.Items.NFSe.NumeroLote := RetEnvLote.InfRec.NumeroLote;
                      end;
                    end;
      end;
 

 

ACBrNFSeWebServices.pas

[Italo Giurizzato Junior]

Bom dia Moreira,

Muito obrigado pela colaboração, assim que possível estarei enviando para o repositório.