Yo lo tiro en un campo OLE de un reporte y en el source le pongo:

 

lofbc.barcodeimage(ALLTRIM(STR(elcodigodebarra)))

 

y en el Control Source Type

 

Selecciono que es una expresión

 

 

 

Norberto Alvarez

Socio # 1882

 

 

De: GUFA@mug.org.ar [mailto:GUFA@mug.org.ar] En nombre de Ricardo Ruben Benitez
Enviado el: miércoles, 8 de febrero de 2017 12:14
Para: GUFA List Member
Asunto: [GUFA] codigos de barras

 

Hola, etoy intentando utilizar foxbarcode, pero me encuentro con algunos 
inconvenientes.

 

No puedo o no se como guardar el jpg que me genera en la carpeta temporal.

 

Lo probe con getfile() y con putfile() pero no logro hacerlo.

 

Dejo el código de como lo estoy trabajando

 

WITH loFbc
    .cImageType = "jpg"
    .cFontName = "Comic Sans MS"
    .cSet128 = "*"
*    .cText = ALLTRIM(THISFORM.XACODI1.VALUE)
*    .cImageFile = "d:\v\milk\barras\ocx\barrasmilk"
    .lFontBold = .T.
    .nBarcodeType = 110
    .nFontSize = 10
    .nImageHeight = 33
    .nRatio = 2
    .nResolution = 500
ENDWITH

*-- Generar la imagen 
lcImagen = loFbc.BarcodeImage(ALLTRIM(THISFORM.XACODI1.VALUE))
thisform.text3.value = lcimagen

PUTFILE("pepepepe", lcimagen, ";")

*! COPY &lcimagen to "d:\v\xx\xxx\ocx\barras.jpg"




 

 

Por favor si alguien tiene algun indicio sería de suma utilidad ya que estoy 
urgido por el tiempo de entrega.

Muchas gracias.

 

Ricardo Benitez.

 

 

rrb-calo

Responder a