Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

murilox

ANSWERED Impressão GNRe 2.00

Recommended Posts

Boa tarde a todos,

Estou com problema na hora de imprimir o gnre, reparei que o processo funciona corretamente na versão 1.00, e pude ver que o arquivo de retorno que será impresso está diferente na versão 2.00, está no formato xml com nampe spaces, logo esse arquivo não imprime a guia.

Coloquei em anexo os arquivos nas 2 versões.

Usando o arquivo da versão 2.00 a impressão sai em branco.

versao100-gnre.txt versao200-gnre.txt

Share this post


Link to post
Share on other sites

Boa tarde.

O mesmo ocorre no demo?

Att.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites

Bom dia Murilo,

Não conheço muito bem o GNRE, mas o pouco que sei na versão 1 é retornado um texto que é utilizado para a impressão da Guia.

Já na versão 2 é retornado um XML.

Logo é preciso fazer uma alteração para que seja identificado a versão e dependendo dela ler as informações de uma forma ou de outra para que seja possível imprimir a Guia.

Fique a vontade em colaborar com essa alteração.


Consultor SAC ACBr Italo Jurisato 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

Share this post


Link to post
Share on other sites
1 hora atrás, Italo Jurisato Junior disse:

Bom dia Murilo,

Não conheço muito bem o GNRE, mas o pouco que sei na versão 1 é retornado um texto que é utilizado para a impressão da Guia.

Já na versão 2 é retornado um XML.

Logo é preciso fazer uma alteração para que seja identificado a versão e dependendo dela ler as informações de uma forma ou de outra para que seja possível imprimir a Guia.

Fique a vontade em colaborar com essa alteração.

Imaginei que fosse isso, vou ver o que consigo fazer.

Obrigado pela atenção.

  • Like 2

Share this post


Link to post
Share on other sites
23 horas atrás, Italo Jurisato Junior disse:

Bom dia Murilo,

Favor atualizar os fontes, reinstalar a suíte ACBr e faça novos testes.

Bom dia Italo,

Fazendo alguns testes aqui, não funcionou como deveria, continua saindo em branco, mas analisei algumas partes dos fontes e vi dentro do arquivo ACBrGNREGuiasRetorno.pas na rotina LoadFromFile na linha que tem: 

if Pos('<guia versao="2.00">', XMLString) > 0  then  *** não tem o ns1: antes da literal guia, talvez seja por isso que não está lendo corretamente.

Dentro da rotina LerXML:

* acho que faltou carregar o Leitor, não existe  o comando Leitor.CarregarArquivo(caminho_do_arquivo) 

* não está usando também o ns1: nas tags.

* não está fazendo a leitura da tag contribuinteDestinatario.

* na leitura dos itensGNRE item não está lendo o documentoOrigem.

* não está lendo os campos extras, creio que deveriam sair em complemento, mas não tenho certeza.

* a formatação dos campos data está carregando duas vezes as "/"

Estou meio confuso para dar manutenção nos fontes, anexei algo que funcionou momentaneamente para o meu uso, pois uso o ACBrGNRE1.Enviar(false) e depois faço a impressão, depois que fui ver que adequei do meu jeito e não da forma que tem que ser, em todo caso estou anexando o que alterei, sei que não está como tem que ser, me confundi e estou fazendo a leitura a partir da tag resultado sem ns1: , e o que foi feito pelo Italo foi a leitura do retorno bruto..

Desde já agradeço pela ajuda.

 

ACBrGNREGuiasRetorno.pas resultado-gnre.txt completo-pro-rec-soap.xml

Share this post


Link to post
Share on other sites

Bom dia Murilo,

Muito obrigado pela colaboração, fiz algumas alterações e enviei para o repositório.

Por favor, atualize os fontes e faça novos testes.

  • Like 1

Consultor SAC ACBr Italo Jurisato 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

Share this post


Link to post
Share on other sites
48 minutos atrás, Italo Jurisato Junior disse:

Bom dia Murilo,

Muito obrigado pela colaboração, fiz algumas alterações e enviei para o repositório.

Por favor, atualize os fontes e faça novos testes.

Bom dia Italo,

Muito obrigado pela ajuda, atualizei os fontes e fiz os teste está quase tudo certo, só tem um pequeno ajuste nas datas que estão ficando com as "/" duplicadas.

Alterei no ACBrGNREGuiasRetorno.pas :

GNRERetorno.DataLimitePagamento   := ReplaceString(Leitor.rCampo(tcDat, 'dataLimitePagamento'), '/', '');

GNRERetorno.DataVencimento := ReplaceString( DateToStr(Leitor.rCampo(tcDat, 'dataVencimento')), '/', '') ;

não sei se é a forma mais elegante de se fazer, mas usei o ReplaceString para retirar as "/" e coloquei tcDat no Leitor.rCampo  e deu certo.

está em anexo como estava ficando antes.

Fora esse detalhe está tudo certo.

imagem1.PNG

imagem2.PNG

Share this post


Link to post
Share on other sites

Faltou outro detalhe, que é o documento do emitente, tem que colocar GNRERetorno.tipoDocEmitente := 2; para sair o CNPJ do emitente.

imagem3.PNG

Edited by murilox

Share this post


Link to post
Share on other sites
14 horas atrás, Italo Jurisato Junior disse:

Bom tarde Murilo,

Por favor, atualize os fontes e faça novos testes.

Bom dia Italo,

Atualizado e testado, deu tudo certo!

Muito obrigado.

  • Like 1

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...