FoxPro/Visual FoxPro - Impresion de codigo de barra erronea

*** strto128a

LPARAMETER tcString

LOCAL lcStart, lcStop, lcRet, lcCheck, ;

      lnLong, lnI, lnCheckSum, lnAsc

lcStart = CHR(103 + 32)

lcStop = CHR(106 + 32)

lnCheckSum = ASC(lcStart) - 32

lcRet = tcString

lnLong = LEN(lcRet)

FOR lnI = 1 TO lnLong

	lnAsc = ASC(SUBS(lcRet,lnI,1)) - 32

    IF NOT BETWEEN(lnAsc, 0, 64)

    	lcRet = STUFF(lcRet,lnI,1,CHR(32))

        lnAsc = ASC(SUBS(lcRet,lnI,1)) - 32

	ENDIF

    lnCheckSum = lnCheckSum + (lnAsc * lnI)

ENDFOR

lcCheck = CHR(MOD(lnCheckSum,103) + 32)

lcRet = lcStart + lcRet + lcCheck + lcStop

*--- Esto es para cambiar los espacios y caracteres invalidos

lcRet = STRTRAN(lcRet, CHR(32), CHR(232))

lcRet = STRTRAN(lcRet, CHR(127), CHR(192))

*---

RETURN lcRet

TRY

	loFbc	= CREATEOBJECT('FoxBarcode')

	CATCH

ENDTRY

IF VARTYPE(loFbc) == 'O'

	WITH loFbc

		.cImageType	= 'PNG'

		.cTempPath	= 'C:\TMP\'

		.lShowStartStopChars	= .F.	&& NO MUESTRA CARACTERES DE INICIO Y FINAL

		.lAddCheckDigit	= .F.			&& NO CALCULA DIGITO DE CONTROL

		.nImageHeight	= 72

		.nImageWidth	= 270

		.nResolution	= 1200			&& RESOLUCION

		.nAlignBarcode	= 1				&& ALINEAMIENTO CENTRAL

		lxImagen	= .BarcodeImage(CODIGO_BARRAS, '', '', TIPO_CODIGO)

	ENDWITH

	RELEASE loFbc

ENDIF