Imprimir un Codigo de barras en TReport (Solucionado)

[VitalJavier]

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.

[cnavarro]

Yo llamo a una function en el ENDPAGE del ACTIVATE REPORT en la que ejecuto la funcion EAN13

Code: Select all  Expand view

.../...
      ACTIVATE REPORT oRpt FOR ( (oBj:cAliasImp)->num_fac = nValor1 );
                           ON STARTPAGE Change(,oRpt) ;
                           ON ENDPAGE FinalRpt(,oRpt,1,, (oBj:aAlias[nArCab])->num_fac)

 

Code: Select all  Expand view

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 Nil

 

No se si es la misma version que tu tienes (mi Prg se llama Barlib.prg)

Code: Select all  Expand view

Function 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 nil


 

[VitalJavier]

En tu función de EAN13 como calculas tu columna y tu renglón ?

[cnavarro]

Prueba y error
En mi caso

Code: Select all  Expand view

Local nWidthBar := 0.03 //0.025
Local nFBar   :=  560    //420
Local nCBar   := 3485    //265

 

[VitalJavier]

Amigo, 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.

[Silvio.Falconi]

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

[cnavarro]

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, No I've never needed
But to do testing: define your column as ( try with file not exist )

viewtopic.php?f=3&t=21145&p=112918&hilit=report+bitmap#p112918

and define your height of data the column

Try with ON ENDLINE/ ON STARLINE for print your codebar

I have not tried it