Ok, gracias, lo pruebo y te comento como me fué.
Abrazo.Ricardo Benitez.
rrb-calo
De: Norberto Mario Alvarez <[email protected]>
Para: GUFA List Member <[email protected]>
Enviado: Miércoles, 8 de febrero, 2017 16:08:31
Asunto: [GUFA] codigos de barras
<!--#yiv2474700262 _filtered #yiv2474700262 {font-family:Helvetica;panose-1:2
11 6 4 2 2 2 2 2 4;} _filtered #yiv2474700262 {font-family:"Cambria
Math";panose-1:2 4 5 3 5 4 6 3 2 4;} _filtered #yiv2474700262
{font-family:Calibri;panose-1:2 15 5 2 2 2 4 3 2 4;} _filtered #yiv2474700262
{font-family:Tahoma;panose-1:2 11 6 4 3 5 4 4 2 4;} _filtered #yiv2474700262
{font-family:Verdana;panose-1:2 11 6 4 3 5 4 4 2 4;} _filtered #yiv2474700262
{font-family:"Bookman Old Style";panose-1:2 5 6 4 5 5 5 2 2 4;}#yiv2474700262
#yiv2474700262 p.yiv2474700262MsoNormal, #yiv2474700262
li.yiv2474700262MsoNormal, #yiv2474700262 div.yiv2474700262MsoNormal
{margin:0cm;margin-bottom:.0001pt;font-size:12.0pt;font-family:"Times New
Roman", "serif";}#yiv2474700262 a:link, #yiv2474700262
span.yiv2474700262MsoHyperlink
{color:blue;text-decoration:underline;}#yiv2474700262 a:visited, #yiv2474700262
span.yiv2474700262MsoHyperlinkFollowed
{color:purple;text-decoration:underline;}#yiv2474700262
p.yiv2474700262MsoAcetate, #yiv2474700262 li.yiv2474700262MsoAcetate,
#yiv2474700262 div.yiv2474700262MsoAcetate
{margin:0cm;margin-bottom:.0001pt;font-size:8.0pt;font-family:"Tahoma",
"sans-serif";}#yiv2474700262 span.yiv2474700262EstiloCorreo18
{font-family:"Calibri", "sans-serif";color:#1F497D;}#yiv2474700262
span.yiv2474700262TextodegloboCar {font-family:"Tahoma",
"sans-serif";}#yiv2474700262 .yiv2474700262MsoChpDefault {font-size:10.0pt;}
_filtered #yiv2474700262 {margin:70.85pt 3.0cm 70.85pt 3.0cm;}#yiv2474700262
div.yiv2474700262WordSection1 {}-->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
AlvarezSocio # 1882 De: [email protected] [mailto:[email protected]] 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
