Error en FoxBarcode.

[Angel Dario Rodriguez]

Error al utilizar la propiedad nImageWidth en foxbarcode. Existe algun update que la maneje?

Gracias anticipadas.

Angel Dario Rodriguez.

[Luis Maria Guayan]

Por favor indica cual es el error y muestra un ejemplo de cual es el comportamineto que deseas lograr.

--

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Angel Dario Rodriguez]

Gracias Luis por tu amabilidad. Te adjunto un pdf con el error.

[Luis Maria Guayan]

Lo que te indica el error es que la propiedad nImageWidth no se encuentra, seguramente cuando le estas asignando algun valor, pero por lo que imagino ya que no brindas mayores detalles, es que no estas especificando bien el objeto oFBC (objeto FoxBarcode) sino otro objeto como el formulario o control (Ejemplo: ThisForm.nImageWidht = 200)

Haz el seguimiento del error y mira e informa en que línea y sentencia salta dicho error

-- 

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

- mostrar texto citado -

[Luis Maria Guayan]

Tienes el debuguer abierto (lo veo en tu imagen, pero tu envias la pantalla del formulario no el error), indica la línea y sentencia que lanza el error. Se mas específico sino debo andar adivinado tu código.

-- 

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

- mostrar texto citado -

[Angel Dario Rodriguez]

Gracias Luis por tu atencion.

Este es el codigo que utilizo, lo descargue del ejemplo que estaba en la pagina. Solo que el ejemplo original no tiene esa propiedad indicada, se la agregue porque necesito reducir el tamaño de la imagen, pues quiero necesito imprimirla en una etiqueta mas pequeña.

      loFbc = CREATEOBJECT("FoxBarcode")   

   *-- Configurar las propiedades

      WITH loFBC

          .cImageType = "PNG"

          .nBarcodeType = 151

          .nImageHeight = 100

          .nImageWidth = 200          

          .nFactor = 3

      ENDWITH   

[Luis Maria Guayan]

He probado el código que envías y no me da error. No cambiaste la clase FoxBarcode.PRG? allí está la linea con la definición de la propiedad nImageWidth

De todos modos si quieres hacer mas pequeño el código debes cambiar la propiedad .nFactor = 2  ó    .nFactor = 1

-- 

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Angel Dario Rodriguez]

En verdad no Luis, probare y te aviso. Gracias por tu atencion.

[Angel Dario Rodriguez]

parece que si esta, mira el codigo

*--------------------------------------------------------------------------------------

* FoxBarcode Class Definition

*--------------------------------------------------------------------------------------

DEFINE CLASS FoxBarcode AS CUSTOM

  *--- Internal use

  PROTECTED cPattern, nLenPattern, nTextHeight, nFontHeight, cFontStyle

  PROTECTED nBarWidth, nQuietZone

  PROTECTED nImageWidth

  PROTECTED cCheckDigit, cTextValue

  PROTECTED oGdi, oImg, oGra

  *-- Properties

  cText = "" && Text to encode

  cTextValue = "" && Value of the text ready for encoding.

  *-- Barcode symbologies

  nBarcodeType = FBC_CODE_128 && Barcode type. See "FoxBarcode Symbologies List"

  nFactor = 1 && Barcode size [1..9]

  nQuietZone = 10 && Quit zone in pixels

  nBarWidth = 0 && Bar width

  nMargin = 0 && Margin around the barcode

  *-- Only some barcode specific symbologies

  nRatio = 3 && Ratio between the narrow bar and the wide bar

  lAddCheckDigit = .T. && Calculate check digit

  cSet128 = "B" && Set Code 128

  nBearerBar = 1 && 0=None, 1=Rectangle, 2=Top and Bottom - Only ITF-14

  nBearerBarWidth = 0 && In pixels

  cSupplementalText = "" && EAN and UPC code supplemental text

  lUseAppId = .T. && Use Application Identifiers. Only EAN/UCC/GS1 128

  *-- Barcode image

  nImageHeight = 100 && in pixels

  nImageWidth = 0 && in pixels

  nRotation = 0 && Image rotation [0=0°, 1=90°, 2=180°, 3=270°]

  nResolution = 300 && Dpi

  cImageType = "JPG"  && Image type ["JPG", "GIF", "PNG", "BMP", "TIF"]

  cImageFile = "" && Image file name, if empty autogenerate file name

  *-- Human-readable text

  cHumanReadableText = "" && Human-readable text to display

  cCheckDigit = "" && Check digit in human readable

  lShowCheckDigit = .T. && Show check digit in human readable text

  lShowStartStopChars = .T. && Show start and stop characters in human readable text

  lShowHumanReadableText = .T. && Shows the human-readable text

  nAlignText = 1 && [0=Left, 1=Center, 2=Right]

  nTextHeight = 14.500  && Text height

  nFontSize = 8.500 && Real font size

  nFontHeight = 2.833  && Size according to factor

  cFontName = "Arial" && Font name

  cFontStyle = "N" && Font Style

  lFontBold = .F. && Font bold

  lFontItalic = .F. && Fon italic

  *-- Colours

  nBackColor = RGB(255,255,255) && Background color image (recommend White)

  nBarsColor = RGB(0,0,0) && Bars Colors (recommend Black)

  nFontColor = RGB(0,0,0) && Font color (recommend Black)

  *-- Internal use

  cPattern = "" && Encoded string

  nLenPattern = 0 && Encoded string Lenght

  cMsgError = "" && Error message

  cTempPath = "" && Windows temp folder + SYS(2015)

  *--- gpImage object

  oGdi = NULL && Object Gdi

  oImg = NULL && Object Image

  oGra = NULL && Object Graphic

  *------------------------------------------------------

[Luis Maria Guayan]

Ya se cual es tu problema, mira al inicio del archivo FoxBarcode.PRG que versión es, a partir de la versión 1.10 es que se puede cambiar el ancho mínimo de la imagen con la propiedad nImageWidth

En el código que enviaste tienes dicha propiedad como protegida, es por ello que no la puedes ver y/o cambiar

PROTECTED nImageWidth

Si tú no realizaste ese cambio, te aconsejo que descargues la última versión de FoxBarcode que es la v.1.12 de http://vfpx.codeplex.com/releases/view/56050  

Allí debajo está la sección Que hay de nuevo en FoxBarcode y allí veras que a partir de la versión 1.10 es que se puede configurar el ancho de la imágen

Saludos,

-- 

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Angel Dario Rodriguez]

Luis, desgargue la actualizacion y ahora me da estos errores.

[Luis Maria Guayan]

Tu SO no debe tener permisos o habilitación de FSO (File System Object)

Cambia la linea:

#IF .T. && Use FSO

por

#IF .F. && Use FSO

o mira si está habilitado o permitido FSO

Saludos,

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Angel Dario Rodriguez]

Gracias Luis.

Hice el cambio que me indicaste, pero ahora me da otros errores. Te los adjunto.

[Luis Maria Guayan]

La primera imagen no es un error, es un aviso. Para desabilitar los avisos e VFP deberias configurar SET SAFETY OFF

Si no puede borrar las imágenes, seguramente la tienes en uso como indica el mensaje.

Para evitar todo esto, configura la propiedad lDeleteTempFiles = .F. para que no intente borrar las imágenes de las carpetas temporales de Windows en el Destroy del objeto FoxBarcode

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Angel Dario Rodriguez]

Maestro Luis, funciono. Le doy todas las gracias del mundo.

Una petición mas si se puede, esto es con respecto a Foxypreviewer. Le adjunto un error que me da mayormente con Windows 10.