Help for xbrowse report bSetUp

[Silvio.Falconi]

I have to use a particular bsetup for my printouts

when I compile it does not accept the line that I put in bold how can I fix it?

bSetUp := < |oRep, Brw, n |
bImage := {|oRep| oRep:SayBitmap(0.5, 7, cLogo)}
bStart := {|oRep| 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 := bImage
oRep:CellView()
oRep:Shadow()
return nil
endif
return 2
>

[Silvio.Falconi]

If I change with this :

Code: Select all  Expand view

bSetUp   := < |oRep, Brw, n |
   bImage := {|oRep| oRep:SayBitmap(0.5, 7, cLogo)}
   bStart := {|oRep| oRep:bStartPage := bImage}
   bInit := {|| oBrw:oDbf:GoTop()}
   
   if n == 2
            oRep:SetShdColor( nRgb(219,229,241) )
            AEval( oRep:aColumns, { |o| o:lshadow:=.t.   } )

       oRep:bInit := bInit
       oRep:bStartPage := bImage

       oRep:bSkip := {|oRep|  IF(oRep:nCounter % 2 =1 , oRep:lShadow :=.f.,oRep:lShadow :=.t.) }
   
       oRep:Shadow(1)
      return nil
      endif
      return 2
      >

I have this result



any solution?

[cmsoft]

Silvio:
En el metodo Report de Xbrowse, oRep:bSkip lo sobreescribe con esto:

Code: Select all  Expand view

if Len( ::aSelected ) > If( ::lMultiSelect, 1, 0 )
       Eval( ::bBookMark, ::aSelected[ 1 ] )
       nRows        := Len( ::aSelected )
       nSel         := 1
       oRep:bSkip   := { || nSel++, Eval( oBrw:bBookMark, oBrw:aSelected[ min( nSel, nRows ) ] ) }
   else
      Eval( ::bGoTop, Self )
      nRows           := Eval( ::bKeyCount )
      oRep:bSkip   := { |n| lEof := ( 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

[Silvio.Falconi]

Silvio:
En el metodo Report de Xbrowse, oRep:bSkip lo sobreescribe con esto:

Code: Select all  Expand view

if Len( ::aSelected ) > If( ::lMultiSelect, 1, 0 )
       Eval( ::bBookMark, ::aSelected[ 1 ] )
       nRows        := Len( ::aSelected )
       nSel         := 1
       oRep:bSkip   := { || nSel++, Eval( oBrw:bBookMark, oBrw:aSelected[ min( nSel, nRows ) ] ) }
   else
      Eval( ::bGoTop, Self )
      nRows           := Eval( ::bKeyCount )
      oRep:bSkip   := { |n| lEof := ( 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 := aColumns
Endif

oBrw:Report( cTitle, .t., .t.,bSetUp , , , aColsReport )


and the report behaves the same check both selected and unselected columns, selected and unselected rows
the problem is in the printing of the pajama effect which gives an error



give me error not fund ncounter

Code: Select all  Expand view

AEval( oRep:aColumns, { |o,oRep| IF(oRep:nCounter % 2 =1 , o:lshadow:=.t.,o:lshadow:=.f.)  } )

If made

Code: Select all  Expand view

 AEval( oRep:aColumns, { |o| o:lshadow:=.t.   } )
oRep:Shadow(1)
 

select some rows



select some cols



it print all with shadow




I tried also with

Code: Select all  Expand view

AEval( oRep:aColumns, { |o| o:lShadow := ! o:lShadow   } )

not run ok

I wish the pajama effect