Site Testes Gnre

[aocampioni]

Pessoal,

 

Boa noite. Por favor, poderiam atualizar a função geturl em acbrgnreutil.pas onde o site de testes mudou de https://www.gnre-h.pe.gov.brpara https://www.testegnre.pe.gov.br ? Toda vez que atualizo tenho que fazer essa alteração.

 

Antiga:

class function GNREUtil.GetURL(const AAmbiente: Integer;  ALayOut: TLayOut): WideString;
begin
  case ALayOut of
    LayGNRERecepcao:          Result := DFeUtil.SeSenao(AAmbiente = 1, 'https://www.gnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao?wsdl'   , 'https://www.gnre-h.pe.gov.br/gnreWS/services/GnreLoteRecepcao?wsdl');
    LayGNRERetRecepcao:       Result := DFeUtil.SeSenao(AAmbiente = 1, 'https://www.gnre.pe.gov.br/gnreWS/services/GnreResultadoLote?wsdl'  , 'https://www.gnre-h.pe.gov.br/gnreWS/services/GnreResultadoLote?wsdl');
    LayGNREConsultaConfigUF:  Result := DFeUtil.SeSenao(AAmbiente = 1, 'https://www.gnre.pe.gov.br/gnreWS/services/GnreConfigUF?wsdl'       , 'https://www.gnre-h.pe.gov.br/gnreWS/services/GnreConfigUF?wsdl');
  end;
end;

Nova:

class function GNREUtil.GetURL(const AAmbiente: Integer;  ALayOut: TLayOut): WideString;
begin
  case ALayOut of
    LayGNRERecepcao:          Result := DFeUtil.SeSenao(AAmbiente = 1, 'https://www.gnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao?wsdl'   , 'https://www.testegnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao?wsdl');
    LayGNRERetRecepcao:       Result := DFeUtil.SeSenao(AAmbiente = 1, 'https://www.gnre.pe.gov.br/gnreWS/services/GnreResultadoLote?wsdl'  , 'https://www.testegnre.pe.gov.br/gnreWS/services/GnreResultadoLote?wsdl');
    LayGNREConsultaConfigUF:  Result := DFeUtil.SeSenao(AAmbiente = 1, 'https://www.gnre.pe.gov.br/gnreWS/services/GnreConfigUF?wsdl'       , 'https://www.testegnre.pe.gov.br/gnreWS/services/GnreConfigUF?wsdl');
  end;
end;

Agradecido,

 

Até mais,

 

[Juliomar Marchetti]

Boa noite

já está no svn

Obrigado pela colaboração!