Ir para conteúdo
  • Cadastre-se

dev botao

Impressão De Inutilização


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

Recommended Posts

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;
 



 

Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde,

 

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 2 meses depois ...

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? 

Link para o comentário
Compartilhar em outros sites

  • 6 meses depois ...
  • Moderadores
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!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • Moderadores

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 por Gr@c@
Link para o comentário
Compartilhar em outros sites

  • 6 meses depois ...
  • 11 meses depois ...
  • Moderadores
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.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.