Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

Erro ao gerar Gnre na impressao


walter faria
  • Este tópico foi criado há 1969 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Qual o tipo de gerenciador está usando? temos relatos e tópicos de colegas usando ele normalmente! tentou pesquisar?

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

Bom dia , Juliomar
estou usando : ACBrGNREGuiaRL1. , antes de postar sempre pesquiso
Eu tinha anexado a imagem do erro mas não apareceu vou tentar aqui novamente.

Observação do teste que fiz no Demo:
1-Gero gnre  e envia  (da erro ao imprimir )
2-Consulto lote recibo (da guia de resposta vem XML da guia )
3-Eu salvo como TXT a resposta que seria o XML da guia (salvo manualmente , copio para TXT e salvo no disco)
4-Clico no imprimir Guia, imprime normalmente.

***diretamente quando clico gerar e enviar da erro segue imagem .


Obrigado

Gnre.png

Link to comment
Share on other sites

  • Membros Pro
Em 18/04/2016 at 08:37, walter faria disse:

Bom dia , Juliomar
estou usando : ACBrGNREGuiaRL1. , antes de postar sempre pesquiso
Eu tinha anexado a imagem do erro mas não apareceu vou tentar aqui novamente.

Observação do teste que fiz no Demo:
1-Gero gnre  e envia  (da erro ao imprimir )
2-Consulto lote recibo (da guia de resposta vem XML da guia )
3-Eu salvo como TXT a resposta que seria o XML da guia (salvo manualmente , copio para TXT e salvo no disco)
4-Clico no imprimir Guia, imprime normalmente.

***diretamente quando clico gerar e enviar da erro segue imagem .


Obrigado

Gnre.png

Na propriedade para enviar, se você perceber pode colocar .... enviar (false), desta forma não tentar imprimir automaticamente não gerando o erro informado.

Desta forma pode imprimir manualmente depois do retorno.

Link to comment
Share on other sites

  • Membros Pro

Provavelmente relacionado ao Fortes, mas como é possível desativar a impressão na geração usando ACBrGNRE.Enviar(False), e imprimir posteriormente carregando o XML, não vejo a necessidade urgente de solução.
Por isso que eu também não tentei debugar ainda.

Conseguiu resolver dessa forma @walter faria?

Link to comment
Share on other sites

  • Membros Pro
9 horas atrás, walter faria disse:

Boa noite, desculpa a demora na resposta
Obrigado pela ajuda , após envia sem o comando de imprimir , como posso carregar XML ?
Obrigado

Bom dia Walter,

Na verdade eu errei ao citar o XML, na verdade você carrega o TXT gerado automaticamente após o recebimento do processamento e envia para impressão.

Eu faço dessa forma:

ACBrGNRE.GuiasRetorno.Clear;
ACBrGNRE.GuiasRetorno.LoadFromFile(DM_Principal.ACBrGNRE.Configuracoes.Arquivos.PathArqTXT + '\' +
                                                tbl_NFeGNRE_RepNumerica.Value + '-gnre.txt');
ACBrGNRE.GuiasRetorno.Imprimir;

A representação numérica eu salvo no meu banco após o processamento da GNRE para posterior impressão.

Espero ter ajudado.

Link to comment
Share on other sites

Bom dia,

Como contorno do erro você pode enviar a Guia passando o parâmetro imprimir como falso, após o envio você carrega a propriedade ACBrGNRE.GuiasRetorno com o retorno que obteve ao enviar a Guia e imprimir:

ACBrGNRE.Enviar(False);

ACBrGNRE.GuiasRetorno.Clear;
ACBrGNRE.GuiasRetorno.LoadFromString(ACBrGNRE.WebServices.Retorno.GNRERetorno.resultado);
ACBrGNRE.GuiasRetorno.Imprimir;

 

Esse problema ocorre porque ao passar o parâmetro como true, o componente não alimenta automaticamente o "GuiasRetorno". 

Como ele está vazio, a procedure TACBrGNREGuiaRL.ImprimirGuia(GNRE: TGNRERetorno) não chama a procedure CarregaDados para criar os campos do ClientDataSet/TBufDataSet, ocasionando o erro.

Segue o trecho do código:

      if Assigned(ACBrGNRE) then
      begin
        for i := 0 to TACBrGNRE(ACBrGNRE).GuiasRetorno.Count - 1 do
        begin
          frACBrGNREFortes.GNRE := TACBrGNRE(ACBrGNRE).GuiasRetorno.Items.GNRE;
          frACBrGNREFortes.CarregaDados;
        end;
      end

Edited by Siagri Sistemas
  • Like 1
Link to comment
Share on other sites

  • Membros Pro
3 horas atrás, walter faria disse:

Marcelo, bom dia

Como posso pegar esta representacao numerica quando envio GNRE.

Obrigado 

ACBrGNRE.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica

Faço dessa forma, para que o usuário possa imprimir novamente a guia em outro momento.

Link to comment
Share on other sites

  • Consultores

No caso esse código é de sua aplicação e não do ACBr!

mas o teu caso é que não verifica se o arquivo existe antes de mandar gravar ele no banco! o xml

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • Este tópico foi criado há 1969 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • 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.