Codiggo de Barras da NF-E no minigui

[Samuk.exe]

Boa Tarde amigos... Aqui estou novamente.

Queria saber se alguem ja fez ou ja viu exemplos de como fazer o codigo de barras da nota fiscal eletronica...

Abraçoss...

[Samuk.exe]

Que isso... Ninguem Desenvolveu ele ainda?

Pelo que eu andei pesquisando ele se chama Code 128-c .

Mais ainda não achei nenhuma fonte....

Alguem da um Help ai!

[HASA]

:%
Interessante, qual exatamente é a sua ideia ?
Honório

[Samuk.exe]

:%
Interessante, qual exatamente é a sua ideia ?
Honório

Ideia? eu apenas queria saber se alguem se alguem ja teve o interesse de fazer o codigo de barras.
Mais pelo que eu andei pesquisando no forum, TODO MUNDO usa um programa secundario para NF-E.
Ninguem tem interesse de fazer seu proprio programa?

E pra isso necessitaria de Code 128-c...

Que é exatamente o que eu precisava seu Honorio!

Pesquisei em varios foruns, e apenas encontro soluçoes pagas, e ainda sem o codigo, apenas o programa.
Não gosto muito de usar programas secundarios...

Intao pergunto mais uma vez, alguem tem,ja fez ou ja viu o codigo fonte dele em algum lugar?

Obrigado...

[HASA]

)
A ta, entendi que você estava desenvolvendo algo e precisava apenas da fonte 128, blz.
Honório

[HASA]

Olá tenho essas fontes, veja se ajuda,
Honório

[Toledo]

Bom, com a fonte do Honório, faça um teste com a HBPrinter.

Veja um exemplo:

Código: Selecionar todos

#include <minigui.ch>
#include <winprint.ch>

Func Main()

DEFINE WINDOW Form_1 ;
  AT 0,0 ;
  WIDTH 200 HEIGHT 100 ;
  TITLE 'Exemplo Code 128' ;
  MAIN ;
  FONT 'Arial' SIZE 10

  @ 20,45 BUTTON Button_1 ;
           CAPTION '&Imprimir Código' ;
           ACTION Imp()

END WINDOW
Form_1.Center()
Form_1.Activate()
Retu

Func Imp()
 INIT PRINTSYS
 SELECT BY DIALOG
 SET PAPERSIZE DMPAPER_LEGAL
 SET ORIENTATION PORTRAIT
 SET UNITS MM
 SELECT DEFAULT PREVIEW 
 SET PREVIEW SCALE 2.3
 DEFINE FONT "code128" NAME "Code 128" SIZE 18
 START DOC
   START PAGE
     @ 20,20 SAY '35091000126781000130550000000000140000000141' FONT "code128" TO PRINT
   END PAGE
 END DOC
Retu Nil

Abraços,

[Samuk.exe]

Obrigado HASA pelas Fontes...
E obrigado Toledo Pelo codigo.

Apenas tive de mudar "code128" por "BarCode 128 INTERAL"

pois esse é o nome da fonte que o HASA nos Passou acima...

E essa é a fonte certa né? Estou usando a bcode128_danfe.ttf

Como posso testar pra saber se é a certa para o danfe?!?

Mais Muito Obrigado A todos pela Colaboração! -:]

[HASA]

)
Não tem de que, você tem novidades,
Honório

[Samuk.exe]

Fala Hasa...
em relação a Nota Fisca eletronica.... parte de layout, tah beleza, jah jogo os dados em um xml da versao 2.0 beleza.
ainda nao fiz a assinatura atravez do certificado nem os schemas, mais vou deixar pra fazer isso depois.
quando tiver tempo, meu proximo passo sera o envio ao fisco, e a resposta.acho q vai ser a parte mais dificiu.
mais qualquer coisa reporto aqui no forum.

Mais vc nao me respondeu Hasa esse font eh realment o do DANFE?
Comparei com uns DANFE's jah impressos e percebi diferenças... O que vc acha?

abraços

[HASA]

:-O
Bem ai vc me pegou na pergunta, seguinte uma delas está renomeada como sendo fonte para Danfe mas... recebi assim (nem lembro de qem já faz tempo), agora se vc tem conhecimento me parece que Delphi 2010, nos fontes do ACBRNFe ou UniNfe, tem a parte de impressão do código de barras, quem sabe da para traduzir para Xhar + Minigui ?
:xau

[Samuk.exe]

Certo...
Vou dar uma pesquisada.
Qualquer resposta retorno aqui...
Abraços

[rochinha]

Amiguinhos,

Analisem a geração do código de barras no HarbourBoleto.

[HASA]

)
BOA IDEIA,
:{

[Samuk.exe]

Mais Rochinha..
O Harbourboleto é 128C???
Abraços