Use Barlib on Treport

[Silvio.Falconi]

How we can use Barlib function on a Report ? ( Treport class) ?

[Enrico Maria Giordano]

Just use

Code: Select all  Expand view

OF oRpt:oDevice

instead of

Code: Select all  Expand view

OF oPrn

in the barlib commands.

EMG

[Silvio.Falconi]

I not Understood
Can you make a minimal sample Please ?

I mean to modify satdata method of Pdreport.prg and Insert ( as the parameter IMAGE or GRAPHICS) the parameters BARCODE to print barcode on line on each record
sample :
----------------------------------------------------------------
cod. descr barcode
------------------------------------------------------------------
oo1 product1 |||||||||||

[Enrico Maria Giordano]

Use something like this:

Code: Select all  Expand view

@ nRow, nCol EAN13 cCod;
             OF oRpt:oDevice;
             WIDTH 0.035;
             SIZE 0.8;
             BANNER

EMG

[Silvio.Falconi]

Sorry I have a report command with columns where I must use that line you wrote

sample :

#include "FiveWin.ch"
#include "report.ch"

STATIC oReport

Function Rep06()

USE articoli NEW VIA "DBFCDX"

REPORT oReport TITLE "*** My First Report ***" ;
CAPTION "The Firm - Salary Report" ;
PREVIEW

COLUMN TITLE "cod" DATA Test->cod
COLUMN TITLE "desc" DATA Test->desc
COLUMN TITLE "Barcode" DATA ??????????


END REPORT

ACTIVATE REPORT oReport

CLOSE TEST

RETURN NIL




I mean to modify METHOD SayData(nRow, nCol, nLine) CLASS TRColumn and insert BARCODE parameter

[Enrico Maria Giordano]

Use the following values for nRow and nCol (or something similar):

Code: Select all  Expand view

nRow = oRpt:nRow - oRpt:nStdLineHeight + oRpt:nStdLineHeight / 2
nCol = oRpt:oDevice:nHorzRes() / 5

EMG

[Silvio.Falconi]

Sorry
I have

Code: Select all  Expand view

#xcommand COLUMN [ <oRptCol> ] ;
                [ TITLE <bTitle, ...> ] ;
                [ AT <nCol> ] ;
                [ DATA <bData, ...> ] ;
                [ SIZE <nSize> ] ;
                [ <pict: PICT, PICTURE> <cPicture, ...> ] ;
                [ FONT <uFont> ] ;
                [ [ <lCum: CUMULATIVE> ] <total: TOTAL> [ FOR <bTotalExpr> ]  ] ;
                [ <ColFmt:LEFT,CENTER,CENTERED,RIGHT> ] ;
                [ <lShadow:SHADOW> ] ;
                [ <lGrid:GRID> [ <nPen> ] ] ;
                [ <memo: MEMO, MULTILINE> ] ;
                [<img:IMAGE> [ IMGDATA <bimg> ] [HEIGHT <h> [<imgpix:PIXEL>] ] [ ALPHALEVEL <nAlpha>] ] ;
                [ [<styl:LINE,BAR>] CHARTDATA <chdata> [HEIGHT <h2> [<chtpix:PIXEL>] ] ;
                [ MAXVAL <chtmax>] [COLOR <clr,...>] ] ;
                [ <valign:TOP,VCENTER,BOTTOM> ] ;
        => ;
         [ <oRptCol> := ] RptAddColumn( {<{bTitle}>}, <nCol> ,;
                {<{bData}>}, <nSize>, {<cPicture>} ,;
                <{uFont}>, <.total.>, <{bTotalExpr}> ,;
                [UPPER(<(ColFmt)>)], <.lShadow.>, <.lGrid.>, <nPen>, <.memo.>, ;
                <.img.>, [<{bimg}>], [<h>], <.imgpix.>, [<nAlpha>], <.lCum.>, ;
                [<chdata>], [<h2>], <.chtpix.>, [<chtmax>], {<clr>}, [Upper(<(styl)>)], ;
                [ Upper( <(valign)> ) ] )

I wish add BARCODE STYLE EAN13 ( FOR A SAMPLE) ON FUNCTION RptAddColumn OF PDREPORT.PRG
lBarcode .t. or .f.
BarcStyle from 1 to 17 ( ean,code_3_9 ecc.)

[Enrico Maria Giordano]

You can't use COLUMN command to print barcodes. You have to use barlib commands instead, as I've tried to explain. You can freely mixed COLUMN and barlib commands.

EMG

[Silvio.Falconi]

Please I explain you

If I use this command ( for a sample : )

COLUMN TITLE "Tipo" DATA "" SIZE 5 IMAGE IMGDATA aLabBitmap[IIF(MV->APTIPO="E",1,2) ] HEIGHT 1.2 ALPHALEVEL 128

I can print on column an Image with height and alpha style as you can see here



I wish print a barcode instead of Image on column

[Enrico Maria Giordano]

I already gave you all the infos you need.

EMG