ACBrGNRE na Trunk2

[Décio Neto]

Entaum eu tenho implementado no meu software apenas fu ino exemeplo pra confirmar, ele estoura o acces  ACBrGNRE1.GuiasRetorno.Clear alias e na classe Guias Retorno

pois qualquer metodo ele ja da o acess.

 

Obrigado

[Fernando Rodrigo]

tambem não achei o problema, estou definindo antes de enviar, e esta retornando o mesmo erro

 

  ACBrGNRE1.Configuracoes.Arquivos.IniServicos := 'ACBrGNREServicos.ini';
  ACBrGNRE1.Enviar;
 

[Cesar Balbinott]

Fernando Rodrigo, você está migrando do trunk pro trunk 2 ou já estava usando no trunk2 a GNRE?

 

[Fernando Rodrigo]

estou usando ja o truck2

[Fernando Rodrigo]

estou usando ja o truck2

[Juliomar Marchetti]

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!

[Cesar Balbinott]

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?

[Tiago.DX]

Está ocorrendo o seguinte erro ao tentar enviar: URL não definida para: TGNRERecepcao

Estou testando no Trunk2

[Italo Giurizzato Junior]

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?

[Lucas Argenton Ramos]

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...

 

 

[Italo Giurizzato Junior]

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.

[Leandro_Silva]

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 ?

 

                     

 

                  

 

 

[Leandro_Silva]

Boa tarde, ja vi esse erro acontecer por causa do ambiente, tenta transmitir em produção pra ve se da esse mesmo erro.

[Cesar Balbinott]

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.

 

[Leandro_Silva]

Value novidades vamos postar aqui ate deixa redondo, depois mandamos o fontes pros admin validar.

[Leandro_Silva]

cheguei no problema da versao...

Versao de dados nao suportada..

 

[Cesar Balbinott]

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.

[Leandro_Silva]

Voce chegou a na parte onde gera o arquivo apenas assim:

<?xml version="1.0" encoding="UTF-8"?><TLote_GNRE xmlns="http://www.gnre.pe.gov.br"><guias></guias></TLote_GNRE>

?

[Cesar Balbinott]

Como está o teu código para enviar?

[Leandro_Silva]

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...

[Cesar Balbinott]

o meu esta assim 

ACBrGNRE1.Guias.GerarGNRE;
ACBrGNRE1.enviar;

 

antes de enviar eu passo o comando GerarGNRE.

Editado 17 Fevereiro, 2016 por Cesar Balbinott

[Leandro_Silva]

Cesar muda ai:

de

  vGuias := vGuias + FGuias.Items.XML;

pra 

vGuias := vGuias + FGuias.Items.GerarXML;

<ns1:descricao>Lote recebido com Sucesso</ns1:descricao>

vamos que vamos....

[Cesar Balbinott]

O meu está funcionando, só estou com problema para imprimir, ainda não está gerando o TXT, mas já consigo enviar o lote e consultar tambem, vem com status 402 lote processado com sucesso.

 

Você conseguiu imprimir?

Editado 17 Fevereiro, 2016 por Cesar Balbinott

[Leandro_Silva]

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 ?
     

[Cesar Balbinott]

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