** 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