Código de Barras

[JAIR RANGEL]

Olá a todos!

Gostaria de imprimir nos "Pedidos de Venda/Orçamento/Vale Troca", os respectivos números destes documentos, também em códigos de barras.
Imagino que preciso de uma função em que envio os números destes documentos, e recebe como retorno, o código de barras gerado, em formato de imagem. A qual vou imprimir no local desejado nos respectivos documentos.
Pesquisei no fórum, mas não consegui localizar alguma coisa neste sentido. Neste caso, as impressoras utilizadas serão as do tipo Laser ou Jatos de Tinta.

Será que existe alguma biblioteca, função, ou algo assim para esta finalidade?

Li sobre a LibBar50, mas não achei que me serviria.

Um abraço a todos! :*

[HASA]

)

Se estiver utilizando a Minigui extend veja esse exemplo em

C:\MiniGUI\SAMPLES\Advanced\HMG_Zebra

HASA

[JAIR RANGEL]

Olá, Hasa!

Utilizo a HMG do Roberto. E não existe nada na pasta \Samples.

Obrigado.

[HASA]

:-O

Entendo, no forum da HGM tem uma dica veja http://www.hmgforum.com/viewtopic.php?f ... lit=BARRAS espero que ajude,
T+
HASA
:)Pos

[Toledo]

Utilizo a HMG do Roberto

Se você tem a versão 3.1.4 ou superior da HMG Oficial (do Roberto), procure na pasta \SAMPLES\Controls\PRINTEAN13 ou na pasta \SAMPLES\PRINTEAN13 para versões anteriores.

Abraços,

[Claudio Soto]

Utilizo a HMG do Roberto. E não existe nada na pasta \Samples.

Hola Jair,
El ejemplo de HMG_Zebra se encuentra en la carpeta: C:\hmg.3.1.5\hfcl\Samples\HMG_Zebra
Saludos,
Claudio.

[JAIR RANGEL]

Olá, a todos!

Pessoal, atualizei a HMG para a versão 3.1.5! Os arquivos mencionados, agora, estão lá. Vou estudar a situação e depois posto aqui o que conseguir.

Obrigado Hasa!
Obrigado Toledo!
Obrigado Claudio Souto!

Um bom fim de semana a todos!

Jair Rangel :{

[JAIR RANGEL]

Olá!

Após baixar a versão da HMG 3.1.5, tive uma série de problemas ao compilar meu projeto. Muitos erros ocorreram.
Estou analisando a situação...

Jair Rangel

[Claudio Soto]

Olá!

Após baixar a versão da HMG 3.1.5, tive uma série de problemas ao compilar meu projeto. Muitos erros ocorreram.
Estou analisando a situação...

Jair Rangel

Jair
tienes que aplicar este cambio: http://www.hmgforum.com/viewtopic.php?p=28100#p28100 y luego recompilar la biblioteca (c:\hmg.3.1.5\BuildAllLib.bat)

[JAIR RANGEL]

Olá, Pessoal!

Após baixar e enfim compilar meu projeto na Hmg 3.1.5, percebi que perdi a acentuação.

Estou compilando através da IDE Unicode.
Compilei com a IDE ANSI mas não mudou nada.

Por que será que estou com problemas na acentuação?

Um forte abraço a todos!

[Jairo Maia]

Olá Jair,

Acho que é porque a codificação de seus fontes está em OEM.

Quanto a passar seus fontes para Unicode você pode tentar usando o Notepad++ e fazer a conversão, fica melhor que usando a função StrToUTF8().

Já para usar a IDE em Ansi,você pode usar o exemplo abaixo e passar seus códigos para Ansi.

Nota: Veja que o exemplo é cru, não tem nenhuma preocupação com salvar o arquivo antigo, assim, para testar se é esse o problema, sugiro você copiar seu projeto para uma nova pasta, ou claro, melhorar o exemplo.

Código: Selecionar todos

Function Main()
 Clear Screen
 aPrgs := Directory( "*.prg" )
 For x = 1 To Len( aPrgs )
  cFile := Hb_OemToAnsi( MemoRead( aPrgs[ x, 1 ] ) )
  MemoWrit( aPrgs[ x, 1 ], cFile )
 Next
Return Nil

[JAIR RANGEL]

Obrigado, Jairo!

Vou testar o código, depois informo aqui o resultado.

Um forte abraço,

JAIR RANGEL

[JAIR RANGEL]

Olá!

Resolvi o problema da seguinte forma:Eu tinha carregado e salvo os forms na IDE Unicode. Em seguida, compilei o projeto. A partir dai gerou o problema...
Então, carreguei o projeto na IDE ANSI e salvei os forms outra vez. Recompilei o projeto pela IDE e então ficou legal.
Acho que vou utilizar somente a IDE ANSI a partir de agora.

Obrigado, Jairo!

Abç,

JAIR RANGEL