Erro ao gerar Gnre na impressao

[walter faria]

Boa noite.
Ao enviar o GNRE gera e envia e quando vai imprimir da este erro , alguém poderia me dizer oque posso fazer para resolver ?
***no Demo acontece a mesma coisa !!!

Obrigado

[Juliomar Marchetti]

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

[walter faria]

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

[Marcelo Calvi Belanga]

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

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.

[Juliomar Marchetti]

Não consegui debugar ainda pra conferir o que ocorre em especifico!

[Marcelo Calvi Belanga]

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?

[walter faria]

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

[Marcelo Calvi Belanga]

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.

[walter faria]

Marcelo, bom dia

Como posso pegar esta representacao numerica quando envio GNRE.

Obrigado 

[Vanio André]

Bom dia pessoal, estou com o mesmo erro walter faria: 

Não Encontrado: RLDBBarcode3.DataFiel"CodigoBarras")

como faço para resolver este problema, sendo que eu preciso imprimir a guia assim 
que terminar de gerá-la
 

[Siagri Sistemas]

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

Editado 28 Abril, 2016 por Siagri Sistemas

[Vanio André]

@Siagri Sistemas, não existe LoadFromString no comando ACBrGNRE.GuiasRetorno.

[Siagri Sistemas]

Atualize seus fontes, a função foi adiciona na Revision 11584 em 04/04/2016 por juliomar:

 

[Vanio André]

Obg @Siagri Sistemas, comecei a pouco com ACBR (1 mês), ainda tenho muito a aprender, vou atualizar aqui.

[Marcelo Calvi Belanga]

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.

[Vanio André]

@Siagri Sistemas, após atualizar o projeto como me mostrou, começou a dar um access violation:
Acontece nessa procedure: 

qryExec.Parameters.ParamByName('xml').LoadFromFile(PastaGNRE + 'gnre' + IntToStr(GNREID)+'.xml', ftBlob);

Não consegui descobrir o pq disso ai.

[Juliomar Marchetti]

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

[Vanio André]

@Juliomar Marchetti Sim, corretamente, obg pela ajuda!