Url Para Consultarcadastro No Es

[Quality Automação]

Precisei fazer uma alteração no ACBrNFeUtil incluindo uma URL para consulta de Cadastro no ES

 

Mas não tenho permissão para o commit.

 

Como faço para solicitar esse commit?

 

Index: Fontes/ACBrNFe2/ACBrNFeUtil.pas

===================================================================

--- Fontes/ACBrNFe2/ACBrNFeUtil.pas (revision 7184)

+++ Fontes/ACBrNFe2/ACBrNFeUtil.pas (working copy)

@@ -100,6 +100,7 @@

     class function GetURLCE(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString;   //atualizado 2.0 Homologação e Produção

     class function GetURLGO(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString;   //atualizado 2.0 Homologação e Produção

     class function GetURLMT(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString;   //atualizado 2.0 Homologação e Produção

+    class function GetURLES(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNfe; AVersaoDF: TpcnVersaoDF = ve200) : WideString;

     class function GetURLMS(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString;   //atualizado 2.0 Homologação e Produção

     class function GetURLMG(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString;   //atualizado 2.0 Homologação e Produção

     class function GetURLPR(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString;   //atualizado 2.0 Homologação e Produção

@@ -928,7 +929,12 @@

          53: Result := NotaUtil.GetURLSVRS(AAmbiente,ALayOut, AModeloDF, AVersaoDF); //DF

 

 //         32: Result := NotaUtil.GetURLSVAN(AAmbiente,ALayOut, AModeloDF, AVersaoDF); //ES

-         32: Result := NotaUtil.GetURLSVRS(AAmbiente,ALayOut, AModeloDF, AVersaoDF); //ES

+         32:begin                                                                    //ES

+              if ALayOut = LayNfeCadastro then

+                Result := NotaUtil.GetURLES(AAmbiente,ALayOut,AModeloDF)

+              else

+                Result := NotaUtil.GetURLSVRS(AAmbiente,ALayOut, AModeloDF);

+            end;

 

          52: Result := NotaUtil.GetURLGO(AAmbiente,ALayOut, AModeloDF, AVersaoDF);   //GO

 //         21: Result := NotaUtil.GetURLSVAN(AAmbiente,ALayOut, AModeloDF, AVersaoDF); //MA

@@ -2631,6 +2637,17 @@

   end;

 end;

 

+class function NotaUtil.GetURLES(AAmbiente: Integer; ALayOut: TLayOut;

+  AModeloDF: TpcnModeloDF; AVersaoDF: TpcnVersaoDF): WideString;

+begin

+ if AModeloDF = moNFe then

+  begin

+    case ALayOut of

+      LayNfeCadastro       : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://app.sefaz.es.gov.br/ConsultaCadastroService/CadConsultaCadastro2.asmx,https://app.sefaz.es.gov.br/ConsultaCadastroService/CadConsultaCadastro2.asmx');

+    end;

+  end;

+end;

+

 class function NotaUtil.GetURLQRCode(const AUF : Integer; AAmbiente : TpcnTipoAmbiente;

                                      AchNFe, AcDest: String;

                                      AdhEmi: TDateTime;

 

[Italo Giurizzato Junior]

Bom dia Marcelo,

 

Post como anexo a Unit que você fez a alteração, desta forma possamos avaliar a sua alteração e disponibilizar ela a todos.

[Quality Automação]

Segue o Arquivo como Solicitado

ACBrNFeUtil.pas

ACBrNFeUtil.pas