Produto:

ADVPL

Ocorrência:

Ao gerar um cód de Barras com a função COD128C está apresentando um zero a mais. Seria um erro?

Passo a passo:

Não.

A Classe Fwmsprinter tem a função COD128C para geração de cód de barras, porém o subconjunto C é utilizado para duplicar a densidade de códigos com conteúdo apenas NUMÉRICO e número PAR de dígito

Exemplo de Customização

#include 'protheus.ch'
#include 'parmtype.ch'
#Include "RPTDEF.CH"
#INCLUDE "TBICONN.CH"

user function MyCODE128C()

Local oPrinter

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "01"

oPrinter := FWMSPrinter():New('teste',6,.F.,,.T.,,,,,.F.)

oPrinter:Setup()
oPrinter:setDevice(IMP_PDF)
oPrinter:cPathPDF :="C:\"
oPrinter:Say(10,0,"Teste para Code128C")
oPrinter:Code128c(200, 10, '1234567', 50)
oPrinter:EndPage()
oPrinter:Preview()

FreeObj(oPrinter)

oPrinter := Nil
RESET ENVIRONMENT

return

Retorno da imagem.

12345607