CLASSE PARA IMPRESSÃO - Carta de Correção Eletrônica - CCe

[chico_lopes]

Boa noite a todos eu vi as sugestões do Vanderlei (infomatte) sobre TitlePreview e wsMaximized, coloquei na classe se alguem quiser pode baixar estou disponibilizando, somente nao coloquei a opção de zoom devido a possibilidade de usuários utilizar o sistema em Netbook e haver reclamações.

caso aguem saiba como fazer a função do rave ajustar automaticamente a pagina (fit to page width que tem no preview) agradeço e posso colocar na classe.

VMXCCePrint.pas

[Leao]

Obrigado Vanderlei, deu certo.

Leão

[marcellocainelli]

Prezados,

Gostaria em primeiro lugar de parabenizar o colega Jose Roberto dos Santos pela iniciativa.

Testando pelo D2010 identifiquei alguns memory leaks no código:

- procedure TCCeImp.impBoxMemo - não destruiu o objeto Linhas;

- destructor Destroy; - faltou o override;

Inclui também alguns Try/Finally nos objetos criados para proteger o código.

Segue anexo a rotina.

Espero ter ajudado.

Marcello.

VMXCCePrint.pas

[souza.fo]

Amigos,

Realizei um pequeno ajuste para incluir a opção de cópias na procedure DefineSaida. Interessante quando o tipo de saída for tps_print.

[]´s

Fabio Souza

VMXCCePrint.pas

[jaques.rocha]

Estou postando só para Parabeniza-los pela inciativa.

Implementei no meu sistema e ficou perfeito

Obrigado

[Daniel_FC]

Bom dia.

Implementei a impressão da carta de correção, esta funcionando beleza. Parabéns pela iniciativa.

Mas estou com um problema, no windows 7 que estou testando, a impressão esta funcionando normal, mas quando baixei em um servidor windows 2008 server, a função de impressão não funciona, nem para gerar o pdf (tps_pdf) nem para imprimir direto (tps_print).

Alguém poderia me ajudar ?

Obrigado.

Daniel.

[renato.pavan]

Boa tarde,

O ACBr implementou a impressão de eventos direto pelo componente, você pode testar fazendo da seguinte forma:

  ACBrNFe1.NotasFiscais.Clear;

  ACBrNFe1.NotasFiscais.LoadFromStream(XMLNFe);

  ACBrNFe1.EventoNFe.Evento.Clear;

  ACBrNFe1.EventoNFe.LerXMLFromString(XMLCCe.DataString);

  ACBrNFe1.ImprimirEvento;

Se você passar os 2 XMLs ele emite a carta com os dados do emitente e destinatário se você passar apenas o XML da CCe ele também emite, mas somente com os dados do evento.

[]'s

[leufmt]

Boa noite pessoal.

Seguinte, de uns dias para cá não sai mais no relatório o texto da correção, já abri o xml e lá esta o texto de correção.

Alguém tem alguma ideia do que pode ser?

[Régys Silveira]

Porque não usar o próprio componente ACBr para imprimir, já tem um tempo que ele suporta a impressão da CC-e: http://www.regys.com.br/como-imprimir-um-evento-utilizando-o-acbrnfe/

[MDS]

Bom dia Regys

 

Vou começar a usar a impressão da carta de correção pelo ACBR,

Utilizei seu exemplo e deu a seguinte mensagem:

 

Campo cOrgao não informado.

[Régys Silveira]

Você configurou o componente corretamente, se não realmente vão aparecer mensagens de erro, esse erro por exemplo provavelmente ocorre porque você não leu o XML da carta ou da nota corretamente..

[MDS]

Ola Regys,

 

Estou da seguinte maneira:

 

begin
ACBrNFeDANFERaveCB1.MostrarPreview := True;

  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromString(OpenDialog1.FileName);
  end;

  OpenDialog1.Title := 'Selecione ao Evento';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);

    ACBrNFe1.ImprimirEvento;
  end;

end;

[cabelo.uni]

Pessoal, alguém já passou por isso :

 

Estou tentando imprimir uma Carta de Correção e dá este erro : "Imprimir" numa messagebox

 

na linha da procedure do AcbrNfe abaixo :

 

procedure TACBrNFeDANFEClass.ErroAbstract(NomeProcedure: String);

begin

  raise EACBrNFeException.Create( NomeProcedure ) ;

end;

 

Eu estou usando assim :

 

var

   v_arquivo_cce : TXMLDocument;

begin

   ACBrNFe1.NotasFiscais.Clear;

   ACBrNFe1.NotasFiscais.LoadFromFile(l_nome_arquivo_nfe);

   ACBrNFe1.EventoNFe.Evento.Clear;

   v_arquivo_cce := TXMLDocument.Create(Self);

   v_arquivo_cce.LoadFromFile(l_nome_arquivo_cce);

   ACBrNFe1.EventoNFe.LerXMLFromString(v_arquivo_cce.XML.Text);

   ACBrNFe1.ImprimirEvento;

end;

 

Dá erro na linha ACBrNFe1.ImprimirEvento;

 

Muito Obrigado !

[Kiko Fernandes]

O modelo de DANFE está setado para RaveCB?

[Régys Silveira]

Complementando o que o Kiko disse, hoje somente o RaveCB e Fast report possuem impressão de CC-e.

 

Outra coisa não precisa criar um xml document para carregar no componente, basta carregar direto do arquivo  com loadfromfile.

begin
   ACBrNFe1.NotasFiscais.Clear;
   ACBrNFe1.NotasFiscais.LoadFromFile(l_nome_arquivo_nfe);

   ACBrNFe1.EventoNFe.Evento.Clear;
   ACBrNFe1.EventoNFe.LodFromFile(l_nome_arquivo_cce);

   ACBrNFe1.ImprimirEvento;
end;

[Mark Apollo]

O Fortes também possui Impressão de CCe.  Acho que o único que não tem é o QuickReport.

[flexsistemas]

Olá a Todos,

 

Não estou conseguindo fazer a impressão do CC-e depois que passei do RAD2007 para o XE4. Vejam a mensagem de erro que está aparecendo:

 

[edudidu]

Olá Amigos .. estou com uma dúvida.. bom implementamos aqui a Impressão do comprovante da CCe utilizando FastReport.. estamos com dúvida em relação a impressão da condição de Uso .. pelo que vi o componente pega a o conteúdo da TAG xCondUso esse conteúdo que é jogado no layout sem acentos.. então o departamento da qualidade que realiza o teste das versões me questionou sobre a falta dos acentos nas condições de uso .. a primeira pergunta é necessário mesmo os acentos ou no layout tem que seguir o conteúdo do xml de retorno ?  desde já agradeço. 

[andradeaf]

Boa noite amigos..

Utilizo delphi 7 e, segundo eu li netste tópico, so imprime a cce com Fr ou RaveCB, o delphi 7 so tem o rave, da pra imprimir direto do componente??

Utilizando a unit  VMXCCePrint eu até visualizo a cce mas quando mando imprimir, simplesmente não vai nada para impressora..

Alguem pode me ajudar?

[Régys Silveira]

Por favor verifique o Demo do ACBrNFe, a impressão da CC-e já foi implementada no componente a um bom tempo.

[andradeaf]

Obrigado Regys

Eu atualizei meus fontes mas me esqueci de verificar os exemplos..

Valeu a dica..

[Pauloa1]

Olá!

 

 

Existe algo para imprimir o evento da carta e do cancelamento, semelhante ao  acbfdanfe.exe ?

 

Paulo

[Djean Carlos Duarte]

bom dia, 

 

existe esta classe implementada para CTe?

 

grato, 

Djean Carlos

[Italo Giurizzato Junior]

Bom dia Djean,

 

A Carta de Correção Eletrônica para o CT-e, só é valida para a versão 2.00 do CT-e.

 

Altere o arquivo ACBr.inc para que o componente ACBrCTe seja compilado na versão 2.00

 

Abra o programa exemplo, nele você tem opções de como imprimir e enviar por e-mail, não só a CC-e como o Cancelamento por Evento.

[Djean Carlos Duarte]

Bom dia Italo, 

 

Estou fazendo daquela forma, como no exemplo, porem esta me retornando o seguinte erro: