Implementações Em Tacbrnfedanfeescpos

[Solivan]

Ola amigos,

 

Fiz algumas implementações no componente TACBrNFeDANFeESCPOS e gostaria de saber se tem como aproveita-las no Repositório.

 

são implementações como cabeçalho, sangria e suprimento, acho que poderá ser útil aos demais.

 

Apliquei as implementações utilizando a última revisão do componente.

 

Obrigado.

 

Solivan!

 

Link do Arquivo

Edited April 4, 2015 by Solivan

[Juliomar Marchetti]

Se possível anexe o arquivo aqui no fórum que tem um local para isso!

clique em mais opções

[Solivan]

Tentei anexar pelo fórum mas, como o arquivo *.pas possui 50 kb ele excede o limite e então recebo a mensagem abaixo;

 

"Você pode fazer o upload de 6,37K arquivos (Tamanho máximo PERMITIDO para cada arquivo: 6,37K)"

 

Mesmo compactando ele desce pra 10 kb o que ainda se torna grande para o limite de anexos do fórum.

 

Solivan

[Giquieu]

Olá, Solivan e Juliomar,

Alguém já implementou TEF com a NFCe usando ACBr? Eu implementei mas estou com problemas para imprimir o comprovante de credito e debito.

No inicio consegui contornar usando uma técnica encontrada aqui:

Que é, desativar a ESC/POS e ativar a Não Fiscal, assim, imprimiu o CDC, porém com um layout bem desagradável...

 

Então, caso alguém tenha implementado e queira compartilhar.

Mas, caso ninguém tenha implementado... Eu comecei implementar uma classe que irá imprimir Cupom Vinculado/Relatório Gerencial via ESC/POS.

A primeira coisa que fiz foi separar as propriedades de Comando da TACBrNFeDANFeESCPOS, são as variáveis que começam com "cCmd...", pra facilitar o uso em outras classes que irão usar ESC/POS como impressão.

 

Preciso de um conselho, de onde colocar essa classe, onde ativa-la? Pois atualmente instancio e realizo o controle dela na mão.

Pensei em criar uma propriedade (HabilitaImpESCPOS True/False) no ACBrECFVirtualNFCe, mas fico com duvida em relação as outras classes de ECF virtual que ja existem (Nao Fiscal, SAT).

 

 

Em anexo, deixei um CDC emitido via ESC/POS na Bematech MP-4200 TH

 

[Régys Silveira]

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]".

[Solivan]

Tentei anexar pelo fórum mas, como o arquivo *.pas possui 50 kb ele excede o limite e então recebo a mensagem abaixo;

 

"Você pode fazer o upload de 6,37K arquivos (Tamanho máximo PERMITIDO para cada arquivo: 6,37K)"

 

Mesmo compactando ele desce pra 10 kb o que ainda se torna grande para o limite de anexos do fórum.

 

Solivan

 Será que alguem poderia subir o arquivo ? Já que esse fórum pode contar com a ajuda de todos.

[Juliomar Marchetti]

Boa noite

subi sua alteração mas acredito que como deve perceber também além de contar com ajuda de todos 

nem sempre é possível do dia para a noite subir as contribuições!

agradeço a mesma e ante mão peço para que aos próximos aguarde e seja mais paciente !

[Solivan]

Obrigado Juliomar, coloquei a frase em destaque, porque há tempos atrás já tinha postado o arquivo com as alterações. Obrigado mais uma vez!

[Diogenes L A Vidotto]

A quem interessar possa.

 

ACBrNFeDANFeESCPOS.pas

 

  TACBrNFeMarcaImpressora = (iEpson, iBematech, iDaruma, iDiebold, iECF);

  cCmdAlinhadoCentroFim: AnsiString;

  property Imprimir: Boolean read FImprimir write FImprimir default True;

  function MontarDANFE(NFE: TNFe = nil): string;

  function MontarDANFEResumido(NFE: TNFe = nil): string;

 

 

ACBrNFeDANFeESCPOS.pas

[Juliomar Marchetti]

Descreve o que fez? qual as alterações pra que serve!

 

 

A quem interessar possa.

 

ACBrNFeDANFeESCPOS.pas

 

  TACBrNFeMarcaImpressora = (iEpson, iBematech, iDaruma, iDiebold, iECF);

  cCmdAlinhadoCentroFim: AnsiString;

  property Imprimir: Boolean read FImprimir write FImprimir default True;

  function MontarDANFE(NFE: TNFe = nil): string;

  function MontarDANFEResumido(NFE: TNFe = nil): string;

 

[Diogenes L A Vidotto]

Se a propriedade Imprimir = False (default true) então o retorno de 

 

    function MontarDANFE(NFE: TNFe = nil): string;

e

    function MontarDANFEResumido(NFE: TNFe = nil): string;

 

podem ser aproveitado para enviar para o ECF, conforme os pobres necessitados do link (inclusive quem voz fala):