topic-42917

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Help for xbrowse report bSetUp

Posted: Sat Mar 18, 2023 10:14 PM

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
>

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Help for xbrowse report bSetUp

Posted: Sat Mar 18, 2023 10:19 PM

If I change with this :

Code (fw): Select all Collapse

 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?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Help for xbrowse report bSetUp

Posted: Sun Mar 19, 2023 03:56 AM

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

Code (fw): Select all Collapse

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

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Help for xbrowse report bSetUp

Posted: Sun Mar 19, 2023 09:59 AM

cmsoft wrote:Silvio:
En el metodo Report de Xbrowse, oRep:bSkip lo sobreescribe con esto:
Code (fw): Select all Collapse
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 (fw): Select all Collapse

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

If made

Code (fw): Select all Collapse

  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 (fw): Select all Collapse

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

not run ok

I wish the pajama effect

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Help for xbrowse report bSetUp

Re: Help for xbrowse report bSetUp

Re: Help for xbrowse report bSetUp

Re: Help for xbrowse report bSetUp

Continue the discussion