Que tal, buen d铆a.
Alguien ya ha pasado por esto, tengo que imprimir un c贸digo
de barras en un reporte que tengo echo con tReport
Estoy probando con la lib de Cayetano, pero no logra dar como ponerlo
alguien que me pueda echar un hilo?
Gracias de antemano.
.../...
聽 聽 聽 ACTIVATE REPORT oRpt FOR ( (oBj:cAliasImp)->num_fac = nValor1 );
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽ON STARTPAGE Change(,oRpt) ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽ON ENDPAGE FinalRpt(,oRpt,1,, (oBj:aAlias[nArCab])->num_fac)Function FinalRpt( nMt , oRpt , nTip , lRecuadro, nVal )
Local nFTop 聽 := oRpt:PhyHeight()
Local nCBy1 聽 := oRpt:PhyWidth()
Local nColCom := 0.4
Local ...
.../...
if lBarrasDoc 聽 // variable est谩tica 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 //0.9
聽 聽 聽 EAN13( nFBar, nCBar, StrZero(nVal,12), oRpt:oDevice, ,.t., nWidthBar, 0.6 ,.t., )
//EAN13( nFBar, nCBar, "BCD-005-006", oRpt:oDevice, ,.t., nWidthBar, 0.6 ,.t., )
endif
.../...
Return NilFunction ean13(nRow,nCol,cCode,oPrint,Color,lHorz,nWidth,nHeigth,;
聽 聽 聽 聽 lBanner,cFont)
聽 聽 local nLen
聽 聽 // test de parametros
聽 聽 // por implementar
聽 聽 default nHeigth := 1.5
聽 聽 default lBanner:=.f.
聽 聽 // desplazamiento...
聽 聽 if lHorz
聽 聽 聽 聽 go_code(_ean13(cCode),nRow,nCol,oPrint,lHorz,Color,nWidth,nHeigth*0.90)
聽 聽 else
聽 聽 聽 聽 nLen :=round 聽( nHeigth * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 )*0.1
聽 聽 聽 聽// 10% espacios
聽 聽 聽 聽 聽 聽 go_code(_ean13(cCode),nRow,nCol+nLen,oPrint,lHorz,Color,nWidth,nHeigth*0.90)
聽 聽 end
聽 聽 if lBanner
聽 聽 聽 聽 go_code(_ean13Bl(),nRow,nCol,oPrint,lHorz,Color,nWidth,nHeigth)
聽 聽 聽 聽 barlen13(cCode,oPrint,nRow,nCol,Color,lHorz,nWidth,nHeigth,cFont)
聽 聽 end
return nilEn tu funci贸n de EAN13 como calculas tu columna y tu rengl贸n ?
Local nWidthBar := 0.03 //0.025
Local nFBar := 560 //420
Local nCBar := 3485 //265Amigo, solucionado, ya quedo bien, lo pase a cm y lo pongo donde yo quiero
y lo mejor es que el lector si lo lee
Mil gracias.
Cristobal,
How I can insert it on Treport class ? ( rcolumn.prg)
I wish print a list of products ( code,Desc,) and his barcode.
But I not Know wich type because the final user set it on app
I use Barlib
sample :
code Desc barcode
xxxxx xxxxx xxxxxxxxxxxxxxxxxxxxxx
Silvio.Falconi wrote:Cristobal,
How I can insert it on Treport class ? ( rcolumn.prg)
I wish print a list of products ( code,Desc,) and his barcode.
But I not Know wich type because the final user set it on app
I use Barlib
sample :
code Desc barcode
xxxxx xxxxx xxxxxxxxxxxxxxxxxxxxxx
