Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Impressão De Inutilização


  • Este tópico foi criado há 1812 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 to comment
Share on other 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

Link to comment
Share on other 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

Link to comment
Share on other sites

  • 2 months later...

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 to comment
Share on other sites

  • 6 months later...
  • Consultores
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
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • 3 weeks later...
  • 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

Edited by [email protected]@
Link to comment
Share on other sites

  • Consultores

Conforme mencionei tem um inicio de código !

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

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

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • 6 months later...
  • 11 months later...
  • 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 to comment
Share on other sites

  • Este tópico foi criado há 1812 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.