Jump to content

dev botao

Impressão GNRe 2.00


murilox
Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 1796 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

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

Link to comment
Share on other sites

  • Administradores

Boa tarde.

O mesmo ocorre no demo?

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

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


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Consultores

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 Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
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
Link to comment
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

Link to comment
Share on other sites

  • Consultores

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 Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
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

Link to comment
Share on other sites

  • Este tópico foi criado há 1796 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.