FiveTech Software tech support forums

... 999,999,999.99" SHADOW    oRep:oShdBrush  := TBrush():New(,nRgb(219,229,241))   oRep:bStartLine := { || oRep:lShadow := (oRep:nCounter % 2 != 0)  }    // oReport:bSkip := {|| ( oRs:SKIP(), IF(oRep:nCounter % 2 = 0, oRep:lShadow := .F., oRep:lShadow ...

... on the right bSetUp := < |oRep, Brw, n | if n == 2 oRep:bSkip := {|| (IF(!oDbf:Eof(),oDbf:Skip(),nil),; IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.))} return nil endif return 2 > oBrw:Report("List", nil, nil, bSetup) these lines give me error source\Pcomuni.prg(349) ...

... := ( Eval( oBrw:bSkip, n ) != n ) }   endif  Por eso es que la linea oRep:bSkip := {|oRep| IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.) } No tiene efecto the bskip it make right because I made If empty(aColumns) aColsReport:= oBrw:aCols else aColsReport ...

... oBrw:bSkip, n ) != n ) }   endif  Por eso es que la linea oRep:bSkip := {|oRep| IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.) } No tiene efecto

... oRep:bStartPage := bImage} bInit := {|| oBrw:oDbf:GoTop()} bSkip := {|| (IF(!oBrw:oDbf:Eof(),oBrw:oDbf:Skip(),nil),IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.))} if n == 2 oRep:oShdBrush := TBrush():New(,nRgb(219,229,241)) oRep:bInit := bInit oRep:bSkip := bSkip oRep:bStartPage ...

how to simulate the pajama effect in oReport printing?

I allready tried this

ACTIVATE REPORT oReport ON STARTLINE AEval( oReport:aColumns, { | o | o:lShadow := ! o:lShadow } )

but not run

I mean one line yes and one no, not all rows

Muchas gracias estimado Antonio

ACTIVATE REPORT oReport ON STARTLINE AEval( oReport:aColumns, { | o | o:lShadow := ! o:lShadow } )
y cómo se aplica para el PRINT

Code: Select all  Expand view

 PRINT oPrn NAME "DETALLE DE MOVIMIENTOS" PREVIEW
 

Gracias por la ayuda

Tienes que usar la claúsula SHADOW en cada columna donde lo vayas a usar y:

ACTIVATE REPORT oReport ON STARTLINE AEval( oReport:aColumns, { | o | o:lShadow := ! o:lShadow } )

Corrected

ACTIVATE REPORT ::oReport WHILE !::oPrenota:eof() ;
ON STARTLINE ::oReport:aColumns[ 3 ]:lShadow:= ! Empty( ::oPrenota:DATAPAYED )

Silvio,

Try it this way:

COLUMN oCol TITLE "CLIENTE " DATA ::oPrenota:GUEST SHADOW

ACTIVATE REPORT ... ON STARTLINE oCol:lShadow := ! Empty( ::oPrenota:datapayed )

... command RptAddColumn( {bTitulo(::aTitulos,i)},,{bCampo(::aCampos,i)},::aWidth[i],{bPicture(::aPicture,i)},{||1},::aTotal[i],,upper(::aAlign[i]),::lshadow,::lGrid,) the function bCampo(::aCampos,i) function bCampo( aCampos, nFor ) return (fieldWBlock(aCampos[nFor],SELECT() )) why not return the ...

Try with parameters nOffY and nOffX

MessageToast( nType, cText, cBmp, nWidth, nHeight, oWnd, nClrPane, nClrPane2, ;
nClrText, nLev, nTime, lUp, bRet, lLeftP, lAlert, lShadow, ;
nOffY, nOffX, nFont )

... in: METHOD NewToast( nType, cText, cBmp, nWidth, nHeight, oWnd, nClrPane, nClrPane2, ; nClrText, nLev, nTime, lUp, bRet, lLeftP, lAlert, lShadow, ; nOffY, nOffX, nFont ) CLASS TToast - Modified to allow include alert message in parent dialog o window ( oWnd parameter ) - Others aesthetic ...

... ; GRADIENT TEXTALIGN 1 COLORTEXT CLR_RED SHADOW you must try with all parameters lGradient := false or true lBorder:= false or true lShadow:= false or true for default is good noshadow and nogradient Please use this release I add your modifies !!! Tgroupex.ch #xcommand @ <nTop>, ...

... ::nLblAtcol Labels for column :nLblHSep Horizontal separation ::nLblVSep Vertical separation ::lGrid if there is Grid ::nPenGrid Pen for grid ::lShadow shadow labels or we can create a file as INI with some template of labels as 7022=3,5|6,4|3|2|2|2 for the command to create labels we can use ...