Código de barra Daruma FS 800i

[Luiz Fernando]

Bom dia.

Não estou conseguindo gerar o código de barra na ECF Daruma FS 800i, o comando é aceito, não gera erro, porém não imprime o código de barra.

Gostaria de saber se alguém conseguiu gerar o código de barra nesse modelo de ECF?

 

Segue log do processo.

-- 20/11 10:52:56:497 AbreRelatorioGerencial
-- 20/11 10:52:56:498                 TX -> [SOH][7][FF][NUL][STX][NUL]1|[194]
-- 20/11 10:52:56:507                 RX <- [ACK]
-- 20/11 10:52:56:508          Status TX -> [ENQ][NUL]
-- 20/11 10:52:56:513                 RX <- [WAK][16][SOH][NUL][NUL][NUL] (1)
-- 20/11 10:52:56:564          Status TX -> [ENQ][NUL]
-- 20/11 10:52:56:569                 RX <- [WAK][16][SOH][NUL][NUL][NUL] (2)
-- 20/11 10:52:56:620          Status TX -> [ENQ][NUL]
-- 20/11 10:52:56:626             Resposta: SEQ:7 CMD:12 EXT:0 CAT:0 RET:[SOH][NUL][NUL]@ TBR:41 BRS:"196|20112015095345||DR101500000000000300|" CHK:211
-- 20/11 10:52:56:727     RX <- [SOH][7][FF][NUL][NUL][SOH][NUL][NUL]@)[NUL]196|20112015095345||DR101500000000000300|[211]
-- 20/11 10:52:59:368 LinhaRelatorioGerencial( "<ean13>7898007821826</ean13>", 0 )
-- 20/11 10:52:59:378                 TX -> [SOH][BS][TAB][NUL][23][NUL][ESC]b0138001789800782182[NUL]|[250]
-- 20/11 10:52:59:383                 RX <- [ACK]
-- 20/11 10:52:59:383          Status TX -> [ENQ][NUL]
-- 20/11 10:52:59:389                 RX <- [WAK][16][SOH][NUL][NUL][NUL] (1)
-- 20/11 10:52:59:439          Status TX -> [ENQ][NUL]
-- 20/11 10:52:59:445                 RX <- [WAK][16][SOH][NUL][NUL][NUL] (2)
-- 20/11 10:52:59:496          Status TX -> [ENQ][NUL]
-- 20/11 10:52:59:501             Resposta: SEQ:8 CMD:9 EXT:0 CAT:0 RET:[SOH][NUL][NUL]@ TBR:0 BRS:"" CHK:82
-- 20/11 10:52:59:602     RX <- [SOH][BS][TAB][NUL][NUL][SOH][NUL][NUL]@[NUL][NUL]R
-- 20/11 10:52:59:602 FechaRelatorio
-- 20/11 10:52:59:604                 TX -> [SOH][TAB][LF][NUL][STX][NUL]1|[194]
-- 20/11 10:52:59:609                 RX <- [ACK]
-- 20/11 10:52:59:610          Status TX -> [ENQ][NUL]
-- 20/11 10:52:59:616                 RX <- [WAK][16][SOH][NUL][NUL][NUL] (1)
-- 20/11 10:52:59:666          Status TX -> [ENQ][NUL]
-- 20/11 10:52:59:671                 RX <- [WAK][16][SOH][NUL][NUL][NUL] (2)
-- 20/11 10:52:59:722          Status TX -> [ENQ][NUL]
-- 20/11 10:52:59:728                 RX <- [WAK][16][SOH][NUL][NUL][NUL] (3)
-- 20/11 10:52:59:778          Status TX -> [ENQ][NUL]
-- 20/11 10:52:59:783                 RX <- [WAK][16][SOH][NUL][NUL][NUL] (4)
-- 20/11 10:52:59:833          Status TX -> [ENQ][NUL]
-- 20/11 10:52:59:839             Resposta: SEQ:9 CMD:10 EXT:0 CAT:0 RET:[SOH][NUL][NUL]@ TBR:20 BRS:"196|20112015095348||" CHK:69
-- 20/11 10:52:59:940     RX <- [SOH][TAB][LF][NUL][NUL][SOH][NUL][NUL]@[20][NUL]196|20112015095348||E

[Daniel Simoes]

Não foi implementado...

[Luiz Fernando]

Ok, muito obrigado, vou continuar efetuando meus testes.

[jefferson01]

Luiz Fernando, você conseguiu implementar essa rotina?

[Luiz Fernando]

Na verdade, até consegui fazer imprimir o ean13, porém não tive tempo de testar corretamente, pois a impressora era do meu cliente e tive que devolver.

Se tiver a ECF e quiser dar sequência nos testes, segue string que funcionou.

ESC+'b'+#01+Chr(StrToInt(Largura))+chr(StrToInt(Altura))+STX+LeftStr(ACodigo, 12)+cBarraFim+ACodigo

Como falei, não consegui efetuar os testes dos outros códigos, pode ser que algo esteja errado. 

[Luiz Fernando]

Esqueci de comentar, consegui essa base, utilizando o programa de teste da daruma com a dll, ativando o modo Auditoria no DarumaFrameWork.xml, no bloco referente a ECF.

[jefferson01]

Estou na mesma situação, não tenho ECF para realizar testes.

[Daniel Simoes]

Estou implementando o Cod.Barras nos modelos EscECF... Estou inciando com a Epson, depois analiso a Bematech

Daruma eu não tenho... então dependerá de outra pessoa... Acho que o @Régys Silveira, pode ajudar

[jefferson01]

Show.. obrigado!

[jefferson01]

Daniel, boa tarde!

Não sei se aqui é o melhor lugar para informar isso, mais vamos lá. Vi que você liberou a implementação de código de barras para a impressora Bematech do convenio 09/09, fiz um teste utilizando o ECFTeste e o emulador da MP-4200 e não funcionou.

[Daniel Simoes]

é o esperado... uma vez que o Emulador não demonstra a impressão de Cod.barras

[jefferson01]

Ok. Obrigado!

[Ryan molina]

Boa tarde pessoal,

Ressuscitando este tópico, já foi implementado para a fs800i a impressão de código de barras?

Tenho o equipamento físico apenas da MP 4200 e da EPSON T900F para teste, ambas estão funcionando certinho.

Abraço

 

[Daniel Simoes]

Acredito que sim...

Mas eu também não tenho um ECF desses para testes 

[Ryan molina]

Será que o @Régys Silveira ou o @Luiz Fernando conseguem confirmar pra nós se já está implementada essa impressão?

Agradeço

[Luiz Fernando]

Também não possuo essa impressora, não tenho como confirmar se esta funcionando ou não.

[Régys Silveira]

Em 13/04/2016 at 14:24, Ryan molina disse:

Será que o @Régys Silveira ou o @Luiz Fernando conseguem confirmar pra nós se já está implementada essa impressão?

Agradeço

Vou fazer uns testes mas lembro que estava ok.

[Ivan de Souza]

Pessoal, estou com uma Bematech MP-4200 TH em mãos pra testar. Estou usando o seguinte comando:

 

    cAltura  := #29 + #104 + #100;            {Altura do código de barras}
    cLargura := #29 + #119 + #3;              {Largura do código de barras}
    cPosicao := #29 + #72  + #2;              {Posição do código de barras numeros}
    cFonte   := #29 + #102 + #0;              {Fonte - Tamanho }

    cMargem  := #29 + #107 + #132 + #55 {Coluna a ser impressa} + #0;  {Margem}

    cTipo    := #29 + #107 + #73  + #28;      {Cod 128 - tipo código barras}

    cConfig := cAltura + cLargura + cPosicao + cFonte +
               cMargem + cPosicao + cTipo; {Configuração - Configuração do código de barras}

    cCodigo := objSVM_NUMERO.Text;      {Recebe código numérico}
    cBuffer := cConfig + cCodigo + #0;  {Variável completa}

//    ACBrPosPrinter1.Imprimir(cBuffer, True); -- Assim não estava imprimindo nada

  ACBrPosPrinter1.Imprimir(#27 + 'b' + #01 + cLargura + cAltura + cCodigo + cPosicao + cTipo, True); -- Desse jeito só imprime o código numérico.

Qual a sequência correta para impressão do código de barras?

 

Obrigado!

[Daniel Simoes]

Você está reinventando a roda 

Estude o demo PosPrinterTeste, veja as Tags de Cod.Barras

[Ivan de Souza]

Daniel,

Sou do tempo do Clipper em que tudo se fazia na "unha". Quis aproveitar códigos que eu tinha, mas analisando o Demo indicado, tudo se resolveu! Esse ainda é um vício que eu tenho que eliminar! Obrigado pela dica!

[Ryan molina]

Bom dia @Régys Silveira, conseguiu um tempinho pra testar esse tópico?

Abraço

[Eduardo Merico]

Boa tarde Pessoal,

Também estou com o mesmo problema. @Régys Silveira, conseguiu ver algo?

 

 

 

[Régys Silveira]

Vou fazer os testes de códigos de barra neste fim de semana sem falta, até segunda, já dou um parecer.

[Ryan molina]

Bom dia @Régys Silveira,

Chegou a ver essa questão?

[Eduardo Merico]

Boa tarde @Régys Silveira,

conseguisse descobrir algo sobre este problema? Não conseguimos resolver ainda.

Se alguém tiver alguma dica...

Obrigado.