Erro No Modo De Homologação 4R

[Sérgio Assunção]

Bom dia amigos.

O Italo fez a inclusão da cidade de Itanhaém/SP (4R) nos fontes do componente e deparei com um problema para enviar o lote síncrono em modo de homologação. Eis o erro:

 

Not Found (404)
'http://abrasf.sistemas4r.com.br/arecepcionarloterpssincrono.aspx?wsdl'

 

Sendo que o correto é http://itanhaem.sistemas4r.com.br/abrasf/arecepcionarloterpssincrono.aspx?wsdl

 

A alteração feita para a cidade de Tatuí esta afetando o modo homologação das outras cidades.

  case ACodCidade of
   3554003:
     begin
    	 ConfigURL.HomNomeCidade         := 'tatui';

    	 ConfigURL.HomRecepcaoLoteRPS    := '';
    	 ConfigURL.HomConsultaLoteRPS    := 'http://abrasf.sistemas4r.com.br/aconsultarloterps.aspx?wsdl';
    	 ConfigURL.HomConsultaNFSeRPS    := 'http://tatui.sistemas4r.com.br/abrasf/ahconsultarnfseporrps.aspx?wsdl';
    	 ConfigURL.HomConsultaSitLoteRPS := '';
       ConfigURL.HomConsultaNFSe       := '';
       ConfigURL.HomCancelaNFSe        := 'http://tatui.sistemas4r.com.br/abrasf/ahcancelarnfse.aspx?wsdl';
    	 ConfigURL.HomGerarNFSe          := 'http://abrasf.sistemas4r.com.br/agerarnfse.aspx?wsdl';
    	 ConfigURL.HomRecepcaoSincrono   := 'http://tatui.sistemas4r.com.br/abrasf/ahrecepcionarloterpssincrono.aspx?wsdl';
    end;
  else
    	ConfigURL.HomNomeCidade         := '';

    	ConfigURL.HomRecepcaoLoteRPS    := '';
    	ConfigURL.HomConsultaLoteRPS    := 'http://abrasf.sistemas4r.com.br/aconsultarloterps.aspx?wsdl';
    	ConfigURL.HomConsultaNFSeRPS    := 'http://abrasf.sistemas4r.com.br/aconsultarnfseporrps.aspx?wsdl';
    	ConfigURL.HomConsultaSitLoteRPS := '';
    	ConfigURL.HomConsultaNFSe       := '';
    	ConfigURL.HomCancelaNFSe        := 'http://abrasf.sistemas4r.com.br/acancelarnfse.aspx';
    	ConfigURL.HomGerarNFSe          := 'http://abrasf.sistemas4r.com.br/agerarnfse.aspx?wsdl';
    	ConfigURL.HomRecepcaoSincrono   := 'http://abrasf.sistemas4r.com.br/arecepcionarloterpssincrono.aspx?wsdl';
  end;

Acho que deve ser adotado o mesmo método usado para o modo produção:
 

  case ACodCidade of
   3127701: ConfigURL.ProNomeCidade := 'valadares';
   3500105: ConfigURL.ProNomeCidade := 'adamantina';
   3510203: ConfigURL.ProNomeCidade := 'capaobonito';
   3522109: ConfigURL.ProNomeCidade := 'itanhaem';
   3523503: ConfigURL.ProNomeCidade := 'itatinga';
   3554003: ConfigURL.ProNomeCidade := 'tatui';
  end;

 	ConfigURL.ProRecepcaoLoteRPS    := '';
 	ConfigURL.ProConsultaLoteRPS    := 'http://' + ConfigURL.ProNomeCidade + '.sistemas4r.com.br/aconsultarloterps.aspx?wsdl';
 	ConfigURL.ProConsultaNFSeRPS    := 'http://' + ConfigURL.ProNomeCidade + '.sistemas4r.com.br/abrasf/aconsultarnfseporrps.aspx?wsdl';
 	ConfigURL.ProConsultaSitLoteRPS := '';
 	ConfigURL.ProConsultaNFSe       := '';
 	ConfigURL.ProCancelaNFSe        := 'http://' + ConfigURL.ProNomeCidade + '.sistemas4r.com.br/abrasf/acancelarnfse.aspx';
  ConfigURL.ProGerarNFSe          := 'http://' + ConfigURL.ProNomeCidade + '.sistemas4r.com.br/abrasf/agerarnfse.aspx?wsdl';
 	ConfigURL.ProRecepcaoSincrono   := 'http://' + ConfigURL.ProNomeCidade + '.sistemas4r.com.br/abrasf/arecepcionarloterpssincrono.aspx?wsdl';

Att,

 

Sérgio

[Italo Giurizzato Junior]

Bom dia Sérgio,

 

Como não tenho condições de realizar testes, por favor, os faça para mim, corrige o que for preciso e post como anexo a unit corrigida, para que eu possa disponibilizar no SVN para todos.

[Juliomar Marchetti]

Bom dia

Gostaria de contribuir com o Sergio com o código abaixo!

uma forma mais limpa para tratar a string!

 

espero ter contribuído!

[Sérgio Assunção]

Fiz uns ajustes aqui e já estou conseguindo realizar os testes (homologação). Aproveitei também a dica do Juliomar.

 

Em anexo a unit alterada.

 

Att,

 

Sérgio

ACBrProvedor4R.pas

ACBrProvedor4R.pas

[Sérgio Assunção]

Segui a mesma identação conforme o padrão adotado no código.

 

Creio que ainda dê pra "enxugar" um pouco a function TProvedor4R.GetLinkNFSe(ACodMunicipio, ANumeroNFSe: Integer; no final da unit.

 

Vou fazer e testar.

 

Att,

 

Sérgio

 

ACBrProvedor4R.pas

[Italo Giurizzato Junior]

Boa tarde Sérgio,

 

Favor atualizar os fontes e testar.

 

Enxuguei mais um pouco a function: GetLinkNFSe.

[Sérgio Assunção]

Blz Italo ... já atualizei e vou continuar os testes.

 

Incluí a cidade de Itanhaem/SP no demo (em anexo). Se puder subir a alteração, eu ja volto a manter a minha pasta toda "verdinha" aqui.

 

Valeu.

 

Sérgio

Frm_Demo_ACBrNFSe.rar

[Italo Giurizzato Junior]

Sérgio,

 

Já esta disponível, muito obrigado.

[Sérgio Assunção]

Boa noite Italo.

Fiz algumas correções na unit e estou mantendo apenas os métodos válidos para o provedor 4R.

São eles: 

  ConfigURL.ProRecepcaoLoteRPS    := '';
  ConfigURL.ProConsultaLoteRPS    := '';
  ConfigURL.ProConsultaNFSeRPS    := Format('http://%s.sistemas4r.com.br/abrasf/aconsultarnfseporrps.aspx?wsdl',[ConfigURL.ProNomeCidade]);
  ConfigURL.ProConsultaSitLoteRPS := '';
  ConfigURL.ProConsultaNFSe       := '';
  ConfigURL.ProCancelaNFSe        := Format('http://%s.sistemas4r.com.br/abrasf/acancelarnfse.aspx?wsdl',[ConfigURL.ProNomeCidade]);
  ConfigURL.ProGerarNFSe          := '';
  ConfigURL.ProRecepcaoSincrono   := Format('http://%s.sistemas4r.com.br/abrasf/arecepcionarloterpssincrono.aspx?wsdl',[ConfigURL.ProNomeCidade]);

  ConfigURL.HomRecepcaoLoteRPS    := '';
  ConfigURL.HomConsultaLoteRPS    := '';
  ConfigURL.HomConsultaNFSeRPS    := Format('http://%s.sistemas4r.com.br/abrasf/ahconsultarnfseporrps.aspx?wsdl',[ConfigURL.HomNomeCidade]);
  ConfigURL.HomConsultaSitLoteRPS := '';
  ConfigURL.HomConsultaNFSe       := '';
  ConfigURL.HomCancelaNFSe        := Format('http://%s.sistemas4r.com.br/abrasf/ahcancelarnfse.aspx?wsdl',[ConfigURL.HomNomeCidade]);
  ConfigURL.HomGerarNFSe          := '';
  ConfigURL.HomRecepcaoSincrono   := Format('http://%s.sistemas4r.com.br/abrasf/ahrecepcionarloterpssincrono.aspx?wsdl',[ConfigURL.HomNomeCidade]);

Sérgio

ACBrProvedor4R.pas

[Italo Giurizzato Junior]

Bom dia Sérgio,

 

Muito obrigado pela colaboração, já enviei para o repositório.