erro ao imprimir inutilizacao

[gss200610]

tenho uma tela de gerenciamento de nfe, onde reimprimo: cancelamento, cce, inutlizacao, autorizacao, carregando o xml do BD firebird

esta dando access violation sempre quando reimprimo um NFE AUTORIZADA e quando vou reimprimir uma inutilizacao acontece o erro.

sempre nessa sequencia.( primeiro reimprimo a nfe normal( OK), ai clico no botao reimprimir inutilizacao( SELECIONO UM REGISTRO INUTILIZADO NO GRID) ) 

 

segue abaixo codigo dos dois procedimentos.

reimprimir inutilizacao:

      dm.DANFEFRPris.FastFileInutilizacao := VarPub.PathReport + 'INUTILIZACAO.FR3';
      DM.NFePris.InutNFe.LerXMLFromString(QConsNfeXML_INUTILIZADO.AsString);
      dm.NFePris.ImprimirInutilizacao; -> acontece arqui o erro
      dm.NFePris.ImprimirInutilizacaoPDF;

reimprimir autorizada normal:
 

      dm.NFePris.NotasFiscais.LoadFromString(QConsNfeXML_AUTORIZADO.AsWideString);
      dm.NFePris.NotasFiscais.Items[0].ImprimirPDF;
      dm.NFePris.NotasFiscais.Items[0].Imprimir;
 

 

[Italo Giurizzato Junior]

Bom dia,

Para imprimir a Inutilização de numeração o XML a ser lido tem que ser o: *-ProcInutNFe.xml no seu caso o conteúdo dele.

Não pode ser a solicitação de Inutilização que é o *-ped-inu.xml e nem a resposta da SEFAZ que é o *-inu.xml.

[gss200610]

entao como faço pra imprimir o xml carregando de minha tabela? por que nao estou imprimindo direto de solicitacao webservices.

[Italo Giurizzato Junior]

Boa tarde,

Ao salvar no banco de dados, você precisa salvar o resultado do processamento e não o retorno, ou seja, o conteúdo da propriedade: ACBrNFe.WebServices.Inutilizacao.XML_ProcInutNFe
 

 

[gss200610]

ParamByName('XML').AsAnsiString := DM.NFePris.WebServices.Inutilizacao.XML_ProcInutNFe;

obrservei e ja gravor corretamente, pra possivel reimpressao do comprovante.

mais como descrevir o erro só acontece se antes de eu reimprimir uma inutilizacao, eu executar qualquer reimpressao do acbr.

[Italo Giurizzato Junior]

Verifica se no XML de processamento de inutilização contem cedilha ou vogal acentuada.

Se sim, pode ser que o problema seja esse.

[gss200610]

procedure TACBrNFeFRClass.CarregaDadosInutilizacao;
begin
   CarregaParametros;

 

    if Assigned(FNFe) then
    begin
      if DANFEClassOwner.ExibirResumoCanhoto then
      begin
         if EstaVazio(DANFEClassOwner.ExibirResumoCanhoto_Texto) then
          FieldByName('ResumoCanhoto').AsString := ACBrStr('Emissão: ' )+ FormatDateBr(FNFe.Ide.DEmi) + '  Dest/Reme: ' + FNFe.Dest.XNome + '  Valor Total: ' + FormatFloatBr(FNFe.Total.ICMSTot.VNF)
        else
          FieldByName('ResumoCanhoto').AsString := DANFEClassOwner.ExibirResumoCanhoto_Texto;
      end;

      if (FNFe.Ide.TpAmb = taHomologacao) then -> NESSA LINHA AQUI O ERRO
 

 

 

pra acontecer o erro, voce tem carregar uma nota no acbr chamar o imprimir, depois fazer o acbr.notasfiscais.clear, e apos isso carregar o xml de inutilizacao usando o metodo loadfromString ai vai acontecer.

Editado 2 Setembro, 2016 por gss200610

[Italo Giurizzato Junior]

Tente carregar somente o XML da inutilização  e imprimir, sem antes carregar e imprimir o DANFE da NF-e.

[gss200610]

pense comigo, voce tem uma tela onde tem dois botoes, um reimprimir danfe, e outro reimprimir inutilizacao, como vou fazer nesse caso. o usuario vai ter de 

sair do sistema toda vez que ele reimprimir um danfe primeiro. porque ele pode querer reimprimir o danfe da nota numero 100 e depois querer o comprovante 

da nota de numero 500, esse é o problema. ele tem as duas opcoes, nao que eu reimprima primeiro o danfe( como reimprimir danfe de inutilizacao, nao existe ).

o usuario tem as duas opcoes, mais se ele primeiro reimprimir um danfe , e depois clicar no botao de reimprimir inutilizacao, ai dar o erro, pq o componente acbr 

no codigo que postei acima, esta sempre entre no if assign , sendo que fiz o clear antes. o objeto fica preso no componente. só saindo do programa e entrando pra poder conseguir. fica inviável.

 

uma vez que limpei as notas carregadas no acbrnfe.notasfiscais.clear , como ele mostra na depuracao que o objeto FIde ainda existe. sendo esse o problema, pq ai verifica tipo de ambiente, e outras propriedades que estao inacessiveis. 

Editado 2 Setembro, 2016 por gss200610

[Italo Giurizzato Junior]

Me diz uma coisa, o fragmento de código que você postou é da sua aplicação ou do componente?

Se é do componente, qual é a unit?

[gss200610]

do ACBR. 

unit ACBrNFeDANFEFRDM;

 

procedure TACBrNFeFRClass.CarregaParametros;

foi onde debugando acontece o access  violation

[Italo Giurizzato Junior]

Como não tenho conhecimentos suficientes sobre o Fast Report não sou a pessoa mais indicada em lhe ajudar.

[Milton Lima]

gss200610, conseguiu resolver?

to com o mesmo problema