Ir para conteúdo
  • Cadastre-se

dev botao

ACBrGNRE na Trunk2


dantemartins
  • Este tópico foi criado há 2933 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Moderadores

Boa tarde!

eu mexi nos componentes não deu tempo ainda de mexer no exemplo!

lembre-se este exemplo é do trunk e não foi adequado ainda para o trunk2!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

Boa noite, consegui encontrar o problema que gerava o erro URL não definida para TGnreRecepcao, era o arquivo de configuração, esta assim 

GnreLoteRecepcao=https://www.testegnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao

e ficou assim

GnreRecepcao=https://www.testegnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao 

desta forma não da a mensagem de erro, porém da a seguinte mensagem ao tentar enviar, 

---------------------------
Debugger Exception Notification
---------------------------
Project FusionERP.exe raised exception class EACBrHTTPReqResp with message 'Erro: Requisição não enviada.
12045 - A autoridade de certificação não é válida ou está incorreta'.
---------------------------
Break   Continue   Help   
---------------------------
 

Parece que não está carregando o certificado, alguém já passou por isso com algum outro tipo de documento, nfe, nfse ou cte?

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde a todos,

Que tal "debugar" e tentar descobrir os problemas e sugerir soluções?

Por que só nós temos que fritar os miolos para sanar todos os problemas?

Não seria muito mais fácil e rápido se todos que necessitam do tal componente, regaçasse as mangas?

  • Curtir 3
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Boa tarde Italo... sou novo aqui no ACBR... pelo menos tentando ajudar... na verdade... vcs ai são tão feras... que a maioria se acha bem fraco para opinar... achando que sempre vamos falar o óbvio e besteiras.... mas foi muito bom esse seu último post... para vermos que é um componente free.. onde vcs se empenham pra caramba... mas precisam de nossa ajuda e não só cobranças.... pelo menos pra mim foi muito bom...

Bom... vamos ao componente....

Instalei ele.... e ao tentar fazer qualquer coisa vi que não estavam carregando as URLs..  ai em outro Tópico vi que necessitava adicionar o arquivo INI com as URL na parta do sistema e chamá-lo na propriedade GNRE.Configuracoes.Arquivos.IniServicos.... ai quando vamos enviar percebi que a função GNRE.Enviar(); não estava gerando o XML então antes dessa função tive que chamar a função.. GNRE.Guias.GerarGNRE;   bom ai começou a dar erros HTTP 500 .. bom depois disso fui ver se conseguia consultar sobre as UF... chamei a funcao GNRE.WebServices.ConsultaUF.Executar; e vi que a forma como se procura a URL no arquivo INI esta diferente de como esta carregado o arquivo INI... ai deixei meu arquivo INI assim..:

 

[GNRE_PE_P]
GnreRecepcao=https://www.gnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao
GnreResultadoLote=https://www.gnre.pe.gov.br/gnreWS/services/GnreResultadoLote
GnreConsultaConfigUF_1.00=https://www.gnre.pe.gov.br/gnreWS/services/GnreConfigUF

[GNRE_PE_H]
GnreRecepcao=https://www.testegnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao
GnreResultadoLote=https://www.testegnre.pe.gov.br/gnreWS/services/GnreResultadoLote
GnreConsultaConfigUF_1.00=https://www.testegnre.pe.gov.br/gnreWS/services/GnreConfigUF

testei as  URLs e vi que estavam carregando corretamente...

Depois disso fui debugando o software e vi que uma das procedures DefinirURL não estava implementada... e essa procedure TGNREConsultaUF.DefinirURL; que fica na classe TAcbrGnreWebServices estava passando a propriedade FPLayout errada... arrumei... mas mesmo assim....

com todas essas minhas mudanças.... quando tento consultar ou enviar... os erros Erro Interno 10091 e HTTP 500 persistem... e como disse.... foi ai que minha limitação parou.. :(  ... Mas... estou passando o que ocorreu aqui... e depois desse seu post... sempre que ocorrer algum erro... mesmo naum ajudando em nada... vou postar aqui... pois vc tem razão... não podemos querer muito se não compartilharmos erros e acertos... obrigado a toda equipe do ACBR...

 

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde Lucas,

Eu também tenho as minhas limitações.

Vamos combinar: todos os fontes que por ventura você fizer uma alteração e com ela os seus testes progrediram, por favor anexe aqui no fórum com uma breve explicação do problema e o que foi feito no fonte para resolve-lo.

Assim podemos analisar e estando tudo OK vamos disponibilizar no repositório para que os demais colegas possam ter os fones com mais um problema resolvido.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Boa tarde, a todos, estou usando o fonte que esta no svn agora, vou começa postar aqui oque tiver que arrumar

e os erros que to vendo caso alguém ja tenha passado e quiser se manifestar agradeço.

1) erro  Acesso violado na linha ACBrGNRE1.GuiasRetorno.Clear;

  Correção: classe: ACBrGNRE2

                   metodo: constructor TACBrGNRE.Create(AOwner: TComponent);
                   solução: Adicionar a linha (FGuiasRetorno := TGuiasRetorno.Create(Self, nil);  // ++)

                   metodo: destructor TACBrGNRE.Destroy;

                   adicionar linha: FGuiasRetorno.Free;

 

depois de mecher no ini de configurações : 

[GNRE_PE_P]
GnreRecepcao=https://www.gnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao

[GNRE_PE_H]
GnreRecepcao=https://www.testegnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao

 

cheguei nesse erro em anexo.: 

 

Alguem passou por isso ?

 

                     

 

                  

 

 

Erro.PNG

Link para o comentário
Compartilhar em outros sites

Leandro_Silva também estou tentando gerar a GNRE procure no ACBRDFeWebService pelo código 

function TDFeWebService.GetUrlWsd: String;
begin
  Result := FPDFeOwner.GetNameSpaceURI+'/wsdl/';
end;

e substitua por 

function TDFeWebService.GetUrlWsd: String;
begin
  Result := FPDFeOwner.GetNameSpaceURI+'/webservice/';
end;

eu estou tentando enviar a GNRE ainda não testei se vai dar problema na emissão das notas esta alteração mas creio que sim hehehe, o meu objetivo é fazer funcionar a GNRE pra passar para o pessoal mais entendido e ver oque pode ser melhorado.

Depois que você alterar isso provavelmente vai dar erro na tag versaoDados, deve tá mandando com 0.00 ai eu passei um valor fixo 1.00 só para teste mesmo pois não encontrei de onde carregaria essa informação, se tiver mais algum problema manda ai pois eu tive mais alguns depois disso, e se não tiver mais problemas manda a solução hehehe.

 

Link para o comentário
Compartilhar em outros sites

Opa Leandro acho que vamos postar em um tópico só pois esse é outro, mas a solução que encontrei para o problema é a seguinte 

function TGNREWebService.GerarVersaoDadosSoap: String;
begin
  { Sobrescrever apenas se necessário }

  {if EstaVazio(FPVersaoServico) then
    FPVersaoServico := TACBrGNRE(FPDFeOwner).LerVersaoDeParams(FPLayout);

  Result := '<versaoDados>' + FPVersaoServico + '</versaoDados>'; }

  Result := '<versaoDados>1.00</versaoDados>';
end;

comentei o código que estava e fixei nesta linha Result := '<versaoDados>1.00</versaoDados>'; a versao.

Link para o comentário
Compartilhar em outros sites

Problema esta aqui: ACBrGNREWebServices

 

procedure TGNRERecepcao.DefinirDadosMsg;
var
  i: Integer;
  vGuias: WideString;
begin
  vGuias := '';
  for i := 0 to FGuias.Count - 1 do
    vGuias := vGuias + FGuias.Items.XML;                                                                        --------------------------> retonar vazio

  FPDadosMsg := '<TLote_GNRE xmlns="http://www.gnre.pe.gov.br">' +
                '<guias>' + vGuias + '</guias>' +
               '</TLote_GNRE>';

  if Length(FPDadosMsg) > (300 * 1024) then
    GerarException(ACBrStr('Tamanho do XML de Dados superior a 300 Kbytes. Tamanho atual: ' +
      IntToStr(trunc(Length(FPDadosMsg) / 1024)) + ' Kbytes'));
end;

 

ja ja descubro o furo..

Cesar nao intendi sua pergunta...

Link para o comentário
Compartilhar em outros sites

estou quase chegando la...

ja ja posto aqui

 

function TDFeWebService.Executar: Boolean;

Adicionei :"Result := True;" apos a chamada do metodo  SalvarResposta

---------------------------
Aviso
---------------------------
Erro ao transmitir GNRE! URL não definida para: TGNRERetRecepcao
---------------------------
OK   
---------------------------

 

Arquivo ini esta errado ?
     

Link para o comentário
Compartilhar em outros sites

Sim, 

 

;;;;;;;;;;;;;; ENDERECOS DA GNRE ;;;;;;;;;;;;;;;;

[GNRE_PE_P]
GnreRecepcao=https://www.gnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao
GNRERetRecepcao=https://www.gnre.pe.gov.br/gnreWS/services/GnreResultadoLote
GnreConsultaConfigUF_1.00=https://www.gnre.pe.gov.br/gnreWS/services/GnreConfigUF

[GNRE_PE_H]
GnreRecepcao=https://www.testegnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao
GNRERetRecepcao=https://www.testegnre.pe.gov.br/gnreWS/services/GnreResultadoLote
GnreConsultaConfigUF_1.00=https://www.testegnre.pe.gov.br/gnreWS/services/GnreConfigUF

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2933 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.