Melhorias GNRE

[Gustavo Déo da Silva]

Boa tarde...

Nos componentes de impressão Fast Report de documentos DF-e, sempre tem a propriedade ArquivoPDF, porém no GNRE não tinha...

Eu fiz as modificações e agora grava o nome do arquivo no componente para usar no momento de download (desenvolvimento WEB)...

Poderiam avaliar as alterações e colocar em produção?? 

 

Segue units em anexo...

 

Att.:

 

Gustavo Déo

ACBrGNREGuiaFR.pas ACBrGNREGuiaClass.pas

[Gustavo Déo da Silva]

Em 22/02/2020 at 18:03, Gustavo Déo da Silva disse:

Boa tarde...

Nos componentes de impressão Fast Report de documentos DF-e, sempre tem a propriedade ArquivoPDF, porém no GNRE não tinha...

Eu fiz as modificações e agora grava o nome do arquivo no componente para usar no momento de download (desenvolvimento WEB)...

Poderiam avaliar as alterações e colocar em produção?? 

 

Segue units em anexo...

 

Att.:

 

Gustavo Déo

ACBrGNREGuiaFR.pas 8 kB · 0 downloads ACBrGNREGuiaClass.pas 8 kB · 0 downloads

@Juliana Tamizou @Juliomar Marchetti

[Juliana Tamizou]

Bom dia Gustavo.

Agradecemos  pela contribuição, já está sendo adicionada para validação, assim que possível retornaremos no tópico.

Obs. Devido ao fast não ser a ferramenta utilizada pelos consultores do SAC, pode levar um pouco mais de tempo até que seja possível analisar.

Att.

[Gustavo Déo da Silva]

1 minuto atrás, Juliana Tamizou disse:

Bom dia Gustavo.

Agradecemos  pela contribuição, já está sendo adicionada para validação, assim que possível retornaremos no tópico.

Obs. Devido ao fast não ser a ferramenta utilizada pelos consultores do SAC, pode levar um pouco mais de tempo até que seja possível analisar.

Att.

Ok... Obrigado!!!

[Gustavo Déo da Silva]

Bom dia @Juliana Tamizou, @Italo Jurisato Junior, @Juliomar Marchetti

 

estou validando o GNRE, e fiz novas melhorias para a impressão...

Unit: ACBrGNREGuiasRetorno

No método LerXML, acrescentado  as informações Complementares

        if Leitor.rExtrai(Nivel, 'informacoesComplementares') <> '' then
          GNRERetorno.InfoComplementares  := Leitor.rCampo(tcStr, 'informacao');

 

No método LoadFromString

Antes...  

  if Pos('ns1:guia versao="2.00">', XMLString) > 0  then
 

Agora

  if Pos('guia versao="2.00">', XMLString) > 0  then
 

Retirado o 'ns1:', pois quando é carregado através do arquivo Guia, não há esse prefixo nas tag...

Segue em anexo para validação..

Seria de grande valia entrar em produção...

ACBrGNREGuiasRetorno.pas

[Italo Giurizzato Junior]

Bom dia Gustavo,

Muito obrigado pela colaboração, assim que possível vou analisar e estando tudo OK, vou enviar para o repositório.

[Italo Giurizzato Junior]

Bom dia Gustavo,

As suas duas contribuições acima foram aceita e enviadas para o repositório.

[Gustavo Déo da Silva]

8 horas atrás, Italo Jurisato Junior disse:

Bom dia Gustavo,

As suas duas contribuições acima foram aceita e enviadas para o repositório.

Muito obrigado Italo...

 

Abraços!!! 

[Italo Giurizzato Junior]

Obrigado por reportar.

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