FoxPro/Visual FoxPro - NO LEE EL CODIGO DE BARRAS DESPUES DE DIGITALIZARLO

**	CREA LA IMAGEN PARA EL CODIGO DE BARRAS

TRY

	loFbc	= CREATEOBJECT('FoxBarcode')

	CATCH

ENDTRY

IF VARTYPE(loFbc) = 'O'

	WITH loFbc

		.cImageType	= 'PNG'

		.cTempPath	= PUBLI_DirTemp

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

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

		.nImageHeight	= 72

		.nImageWidth	= 300

		.nResolution	= 1200			&& RESOLUCION

		.nAlignBarcode	= 1			&& ALINEAMIENTO CENTRAL

		lxArclicbr_img	= .BarcodeImage(Codigo_de_Barras, Nombre_del_Archivo_PNG, '', Tipo_de_Codigo)

	ENDWITH

	RELEASE loFbc

ENDIF