Impressão GNRe 2.00

[murilox]

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

[Juliana Tamizou]

Boa tarde.

O mesmo ocorre no demo?

Att.

[murilox]

15 horas atrás, Juliana Tamizou disse:

Boa tarde.

O mesmo ocorre no demo?

Att.

sim

[Italo Giurizzato Junior]

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.

[murilox]

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.

[Italo Giurizzato Junior]

Bom dia Murilo,

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

[murilox]

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

[Italo Giurizzato Junior]

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.

[murilox]

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.

[murilox]

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

Editado 13 Novembro, 2019 por murilox

[Italo Giurizzato Junior]

Bom tarde Murilo,

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

[murilox]

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.

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.