Tratamento de retorno da NFS-e provedor AssessorPublico

[Paulo Henrique Panico]

Prezados, bom dia!

O processo de consulta da NFS-e ( ConsultarLoteRps ), hoje existente, para o provedor AssessorPublico não contempla o processamento do retorno de erros ( INCONSISTENCIAS ).

Gostaria de compartilhar a alteração para que seja analisada e se possível incorporada na próxima versão.

AssessorPublico_exemplo_retorno.xml pnfsLerListaNFSe.pas

[Italo Giurizzato Junior]

Boa tarde Paulo,

Muito obrigado pela colaboração, vou incluir na minha lista de tarefas.

[Italo Giurizzato Junior]

Bom dia Paulo,

Já enviei para o repositório.

[Paulo Henrique Panico]

Italo, boa tarde.

Faltou ainda um tratamento na pnfsNFSeR.pas, conforme abaixo. Se puder verificar agradeço.

 

  if (Leitor.rExtrai(1, 'Rps') <> '') or (Leitor.rExtrai(1, 'RPS') <> '') or (Leitor.rExtrai(1, 'rps') <> '') or
     (Leitor.rExtrai(1, 'LoteRps') <> '') then
  begin
    case LayoutXML of
      loABRASFv1:    Result := LerRPS_ABRASF_V1;
      loABRASFv2:    Result := LerRPS_ABRASF_V2;
      loEGoverneISS: Result := False; // Falta implementar
      loEL:          Result := LerRps_EL;
      loEquiplano:   Result := LerRPS_Equiplano;
      loGoverna:     Result := LerRps_Governa;
      loInfisc:      Result := False; // Falta implementar
      loISSDSF:      Result := LerRPS_ISSDSF;
      loAgili:       Result := LerRPS_Agili;
      loSP:          Result := LerRPS_SP;
      loSMARAPD:     Result := LerNFSe_Smarapd;
      loAssessorPublico: Result := LerRPS_AssessorPublico;
      loSiat:        Result := LerRPS_Siat;
    else
      Result := False;
    end;

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Bom dia Paulo,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas.

[Italo Giurizzato Junior]

Boa tarde Paulo,

Analisando a sua contribuição com o que existe hoje no repositório, a linha que se refere ao AssessorPublico ela existe.

Notei que você esta com os fontes desatualizados.

Por favor atualize todos os fontes de todas as pastas, reinstale a suíte ACBr com o ACBrInstall_Trunk2 com a opção de apagar arquivos antigos marcada e faça novos testes.