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

[JSantos]

Pessoal,

Há pouco mais de um mês, postei no fórum um tópico para discussão de um modelo de impressão para a CCe.

viewtopic.php?f=6&t=6253&p=32978&hilit=modelo+CCe

Acabei implementando uma solução para impressão da CCe de acordo com o modelo que proposto e, como tenho recebido alguns e-mails de amigos do fórum me perguntando sobre a solução, decidi empacotar a solução em uma classe e disponibilizar aqui para download.

O uso da classe em Delphi funciona assim:

var

CCeImp1: TCCeImp;

begin

CCeImp1 := TCCeImp.Create(nil);

CCeImp1.defineSaida(tps_PDF,'35120650983733000161550010000002171045708017-ProcEventoNFe.pdf'); // tps_PDF ou tps_Print

CCeImp1.defineLayOut(fp_Portrait); // implementado impressão retrato

CCeImp1.defineXMLNFe('F:\NFE\35120650983733000161550010000002171045708017-nfe.xml'); // XML da NFe corrigida

CCeImp1.defineXMLCCe('F:\NFE\35120650983733000161550010000002171045708017-ProcEventoNFe.xml'); // XML da CCe

CCeImp1.defineSoftHouse('MinhaSoftwareHouse');

try

CCeImp1.Execute;

except

// Tratamento

end;

CCeImp1.Free;

end;

O fonte está aí para download. Assim, aqueles que estão precisando de uma solução e ainda não implementaram, podem contar com esta ajuda.

Só lembrando que:

1- Este código fonte não tem vínculo algum com o desenvolvimento do ACBr;

2- Não existe determinação governamental para impressão da CCe e nada impede que amanhã surja alguma em formato totalmente diferente deste proposto aqui. Acredito que se um modelo for determinado em lei, o pessoal do ACBr com certeza implementará a solução.

3- O uso desta solução é por conta e risco de cada um.

Bom pessoal é isso. Se alguém achar que ajudou e quiser dar uma contribuição pode me mandar um e-mail. Não vou mentir não, tô precisando!

Abraços a todos!

VMXCCePrint.pas

[Régys Silveira]

Muito bom, valeu pena iniciativa, parabéns.

[Angelo Gomes]

Valeu pela iniciativa, fiz a impressão da CC-e no meu sistema baseado naquele layout que vc tinha postado, ficou mto bom.

[Juliomar Marchetti]

Parabéns também pela iniciativa

[FGGLUIZ]

Amigos, baseado no modelo do "jrs.santos" estou anexando em Fast Report, gostei muito do layout e então implementei.

Grande abraço.

Fábio

CCE.rar

[deoldoto]

Muito bom... parabens

[ArbSis]

Ola jr.santos parabéns pela iniciativa, mas vc disse no seu texto:

"Só lembrando que:

1- Este código fonte não tem vínculo algum com o desenvolvimento do ACBr;"

Vc não pretende doar o fonte para fazer parte do Projeto ACBr?

[bZottis_IG]

Olá, gostaria, também eu, de parabeniza-lo pelo iniciativa, mas gostaria de abusar um pouco da Boa vontade

não entendi muito bem como passar os parâmetros para a Classe.

poderia me auxiliar?

desde já agaradeço

Zottis

[JSantos]

Ola jr.santos parabéns pela iniciativa, mas vc disse no seu texto:

"Só lembrando que:

1- Este código fonte não tem vínculo algum com o desenvolvimento do ACBr;"

Vc não pretende doar o fonte para fazer parte do Projeto ACBr?

ArbSis,

Da minha parte já está doado.

Só fiz este alerta para que os usuários do projeto não fizessem qualquer cobrança de funcionamento com o pessoal do ACBr.

[juaumkiko]

Parabens....

Ficou ótimo... iremos estudar uma maneira de colocar essas units no projeto, como alternativa de impressão para a CCe.

[]´s

[JSantos]

Olá, gostaria, também eu, de parabeniza-lo pelo iniciativa, mas gostaria de abusar um pouco da Boa vontade

não entendi muito bem como passar os parâmetros para a Classe.

poderia me auxiliar?

Zottis,

Você já baixou a unit e adicionou ao projeto? Qual é exatamente sua dificuldade?

Seguindo o exemplo do tópico deve funcionar. Você vai precisar ao menos um arquivo XML de uma NFe e um arquivo XML de uma CCe.

Tente montar um exemplo e poste aqui se tiver alguma dificuldade.

Abraço!

[jpsleao]

Boa tarde meu amigo!!!

Parabéns!!!

Ficou show de bola!!!

D++++

[deoldoto]

Boa tarde.

gostaria de saber se o componente mostra aquela tela de configuração de Impressora.

e parabéns pela iniciativa, ficou muito bom!

[chico_lopes]

Parabéns ficou muito bom, fiz umas mudanças para poder aparecer o preview caso aguem queira

quando definir a saida utilize o tps_preview

CCeImp1.defineSaida(tps_preview,'c:\35120650983733000161550010000002171045708017-ProcEventoNFe.pdf'); // tps_PDF ou tps_Print ou tps_preview

VMXCCePrint.pas

[GlauberLima]

Bom Dia, quero agradecer "jrs.santos e chico_lopes" a impressão show de bola.

[rodrigorodrigues]

Alguém tem a classe para imprimir a CCe com o FastReport?

[Kiko Fernandes]

Amigos, baseado no modelo do "jrs.santos" estou anexando em Fast Report, gostei muito do layout e então implementei.

Leia na página anterior aonde o colega Fábio anexou um arquivo.

Veja se atende o que vc deseja.

[rodrigorodrigues]

POis eh, eu baixei o arquivo, tudo bem, só não achei a classe que passa os parâmetros para o arquivo do Fast, achei que passa para o Rave, a página anterior que eu baixei foi o arquivo de relatório .fr3, não achei a classe para usar o arquivo .fr3

[FGGLUIZ]

POis eh, eu baixei o arquivo, tudo bem, só não achei a classe que passa os parâmetros para o arquivo do Fast, achei que passa para o Rave, a página anterior que eu baixei foi o arquivo de relatório .fr3, não achei a classe para usar o arquivo .fr3

Rodrigo, no arquivo .FR3 não tem classe, somente o relatório, você deve passar os parametros do seu sistema através de frxDB* do próprio FastReport para alimentar os campos frx*View, veja o relatório que você vai entender.

Fábio

[rodrigorodrigues]

Olá Fábio, entendi, obrigado.

[infomatte]

Boa Noite...

Parabéns mesmo ao Jrs.Santos e Chico_Lopes...

Só uma pergunta ao Chico_Lopes ou a quem possa me responder... Usando o Preview, a janela do mesmo não abre Maximizada, não tenho tanta experiência assim com classes, poderias me passar o parâmetro para a mesma já abrir maximizada???

Já estou implementando a Impressão em meus (2) aplicativos...

VANDERLEI MATTE

INFOMATTE Sistemas e Consultoria

[renato.pavan]

Bom dia Amigo,

No constructor da classe inclua a seguinte linha:

SystemPreview.FormState := wsMaximized;

[]'s

[infomatte]

Bom dia Amigo,

No constructor da classe inclua a seguinte linha:

SystemPreview.FormState := wsMaximized;

[]'s

Valeu Renato.... 100%...

[Leao]

Olá, exatamente onde informar:

SystemPreview.FormState := wsMaximized;

Obrigado,

Leão

[infomatte]

Boa Noite Leão...

Antes de mais nada, para funcionar, vc precisa informar "Forms" em Uses, no Inicio do código da Classe...

Depois, depois é só incluir a Linha que o Renato postou, logo abaixo de "SystemPrinter.Units := unMM;"...

no meu código ainda implementes as seguintes linhas:

SystemPreview.ZoomFactor:=120; // Define o tamanho do Zoom com que a Janela Abre...

TitlePreview:='Visualizar CARTA CORREÇÃO ELETRÔNICA'; // Coloca Título na Janela de visualização...