Impressão De Inutilização

[desenvolvedor2]

Olá amigos, bom dia!

Após ter alguns tópicos sobre a inutilização comecei a desenvolver o meu código que está funcionando porém não consigo imprimir a inutilização, após a linha "dtm.NFe.ImprimirInutilizacao;" o componente levanta uma exceção.

Alguém que já tenha a impressão implementada poderia me ajudar com relação ao meu código?

Segue código abaixo:

 

 

 sRetorno := TStringList.Create;

  try

    dtm.NFe.NotasFiscais.Clear;

    dtm.NFe.WebServices.Inutilizacao.CNPJ          := sCNPJEmit;

    dtm.NFe.WebServices.Inutilizacao.Modelo        := iModelo;

    dtm.NFe.WebServices.Inutilizacao.Serie         := iSerie;

    dtm.NFe.WebServices.Inutilizacao.Ano           := strtoint(sAno);

    dtm.NFe.WebServices.Inutilizacao.NumeroInicial := iNotaInicio;

    dtm.NFe.WebServices.Inutilizacao.NumeroFinal   := iNotaFim;

    dtm.NFe.WebServices.Inutilizacao.Justificativa := strNFJust;

    dtm.NFe.WebServices.Inutilizacao.Executar;

 

    if dtm.NFe.WebServices.Inutilizacao.cStat = 102 then

    begin

      Result := True;

      sNomeArquivo := dtm.NFe.Configuracoes.Arquivos.GetPathInu(dtm.cdsEmpresaCNPJ.AsString)+'\'+copy(dtm.NFe.WebServices.Inutilizacao.ID,3,41)+'-procInutNFe.xml';

      if FileExists(sNomeArquivo) then

      begin

        dtm.NFe.InutNFe.LerXML(sNomeArquivo);

        dtm.NFe.ImprimirInutilizacao;

        dtm.NFe.ImprimirInutilizacaoPDF;

      end;

    end

    else

      Result := False;

  except

    Result := False;

  end;

 

 

[Italo Giurizzato Junior]

Boa tarde,

 

Qual componente de impressão do DANFE você esta utilizando?

 

Pode ser que para este Report não foi implementado a impressão da Inutilização.

[desenvolvedor2]

Olá Ítalo, boa tarde!

O componente de impressão que uso é o DANFeESCPOS, porém já tentei usar o DANFERave e tenho a mesma mensagem de erro.
Saberia me dizer para qual report essa impressão foi implementada?

 

[Italo Giurizzato Junior]

Boa tarde,

 

Eu implementei em Quick Report e se não me falha a memória foi implementado em Fast ou Fortes Report.

[desenvolvedor2]

Olá Ítalo, Boa tarde!

Consegui imprimir com o componente DANFERaveCB.

Obrigado pelo retorno!

[ias_info]

Boa tarde,

Desculpa reabrir o post, mas estou tendo dificuldades ao imprimir o comprovante da Inutilização com o componente DANFERaveCB(ACBrNFe1.ImprimirInutilizacao). Até abre o Preview com a página, mas os campos não são populados com os dados da inutilização(Ano,Modelo,NumeroInicial,NumeroFinal).

 

Alguém saberia o que pode esta acontecendo? 

[LAS-Sistemas]

Bom dia,

Fortes imprime inutilização?

[Juliomar Marchetti]

38 minutos atrás, LAS-Sistemas disse:

Bom dia,

Fortes imprime inutilização?

Tem um inicio de código  mas não lhe garanto! caso queira mexer e finalizar ..a vontade!

[Gr@c@]

Não estou conseguindo imprimir inutilização no Trunk2.

Em debug dá um Access Violation neste bloco

        with RLPDFFilter1.DocumentInfo do
        begin
          Title := ACBrStr('Inutilização - Nota fiscal nº ' +
                                      FormatFloat('000,000,000', FNFe.Ide.nNF));
          KeyWords := ACBrStr('Número:' + FormatFloat('000,000,000', FNFe.Ide.nNF) +
                      '; Data de emissão: ' + FormatDateTime('dd/mm/yyyy', FNFe.Ide.dEmi) +
                      '; Destinatário: ' + FNFe.Dest.xNome +
                      '; CNPJ: ' + FNFe.Dest.CNPJCPF );
        end;

seguido de: Source File not found RLReport.pas

Os demais relatórios (NFe, CCe) estão OK.

Em anexo o arquivo de inutilização homologado

31158649309500014855003000000001000000001-inu.xml

31158649309500014855003000000001000000001-procInutNFe.xml

Editado 10 Dezembro, 2015 por Gr@c@

[Juliomar Marchetti]

Conforme mencionei tem um inicio de código !

onde deve ser acabado ! se quiser finalizar a implementação!

[Pauloa1]

Olá!

Ao enviar o comando 

NFe.ImprimirInutilizacao(cArqXMLInutilizacao,[cImpressora],[nNumCopias],[bMostrarPreview])

O relatório fica minimizado, só abre se clicar acima do ícone do acbrmonitor.

Paulo

[bitfacil.es]

Alguma novidade sobre a impressao da inutilizacao via FastReport??

[BigWings]

46 minutos atrás, bitfacil.es disse:

Alguma novidade sobre a impressao da inutilizacao via FastReport??

Veja no demo.

[bitfacil.es]

O demo tambem nao funciona

Eu tirei o trecho do demo para meu codigo!

[BigWings]

5 minutos atrás, bitfacil.es disse:

O demo tambem nao funciona

Eu tirei o trecho do demo para meu codigo!

Testei agora no demo e está funcionando. Abra um novo tópico, já que este é bem antigo, e detalhe melhor o seu problema.