Geração de Código de Barras

Objetivo

Mostrar como se faz a codificação nos programas para geração do código de barras.

Conceito

O programa utiliza as fontes do Windows para gerar a imagem do código de barras

Parametrização

• Pegar o pacote RMSFontesCodigoDeBarras.zip e instalar na(s) máquina(s) onde deseja visualizar os códigos de barras.

Segue a relação de fontes, do pacote (RMSFontesCodigoDeBarras.zip), a serem instaladas:

- BarcodeFont.ttf
- c39hrp24dhtt.ttf
- 39251.ttf
- STS2DE5A.ttf

Para Instalar basta dar dois cliques no arquivo e ao abrir clicar em instalar.

Copiar e registrar a DLL na pasta EXE do RMS (TOTVSRMSBARCODE.DLL).

Observação:
Caminho onde se encontra o projeto:

...\Retail\Componentes\TOTVSRMSBARCODE

Descrição do processo de Codificação

• Exemplo de codificação para impressão de EAN13 sem FONT.

Dim objCodBarra As Object

Set objCodBarra = CreateObject("TotvsRmsBarCode.clsEan13")
PEan.AutoRedraw = True
PEan.Cls
Call objCodBarra.BarCodeEan13("7898357417892", PEan)

Primeiro Parâmetro:
      É o NÚMERO a ser gerado a imagem do código de barras.
Segundo Parâmetro:
      É o PICTURE BOX do programa onde a imagem do código de barras deve aparecer.

• Exemplo de codificação para impressão de código de barras com FONTS.

Código      Nome da Fonte
[ BACFT ] - BARCODE FONT
[ C39HR ] - C39HRP24DHTT
[ 39251 ]  - 39251
[ 2DE5B ] - STS 2 DE 5 BFSL 330114C

Dim objCodBarra As Object

Set objBarCode = CreateObject("TotvsRmsBarCode.clsCodBarFonte")
PBarCode.AutoRedraw = True
PBarCode.Cls
Call objBarCode.GeraImagemCodigoDeBarras(PBarCode, "BCFT", 48, "17350053735252")

Primeiro Parâmetro:
     É o PICTURE BOX do programa onde a imagem do código de barras deve aparecer.
Segundo Parâmetro:
     NOME DA FONTE a ser utilizada para geração do código de barras.
Terceiro Parâmetro:
     TAMANHO DA FONTE a ser utilizada para geração do código de barras.
Quarto Parâmetro:
     É o NÚMERO a ser gerado a imagem do código de barras.