Cross Segmentos - TOTVS Backoffice Linha Protheus - ADVPL - Impressão com o COD128C está apresentando um zero a mais.

Tempo aproximado para leitura: 00:02:00 min

Dúvida
Ao gerar um código de barras com a função COD128C está apresentando um zero a mais. Seria um erro?

Ambiente
Cross Segmentos - Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80

Solução

Não, a classe Fwmsprinter tem a função COD128C para geração de código 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

Saiba mais
FWMsPrinter