FiveTech Software tech support forums

I would like to group in the report but it doesn't work for me

through a combobox the user selects the index

oDbf:setorder(nGroup)
oDbf:gotop()

nGroup is a number

aGroup := {nGroup}

oBrw:Report( cTitle, , , ;
{ |oRep, oBrw| MySetUp( oRep, oBrw, oDbf ) }, aGroup )

Code: Select all  Expand view

static function MySetUp( oRep, oBrw, oDbf )
   local  cFooter  := "footer title"
   local  cTitle1  := "title row 1"
   local  cTitle2  := "title row 2"
   local cLines   := cValToChar( oBrw:nLen ) + " lines"


   DEFINE FONT oFont NAME 'tahoma' SIZE 0,-9 OF oRep:oDevice

    oRep:aFont[ 1 ]   := oFont

    oRep:nTitleUpLine := RPT_SINGLELINE
    oRep:nTitleDnLine := RPT_SINGLELINE
    oRep:nTotalLine   := RPT_SINGLELINE

    oRep:oheader := TrLine():New( {{||cTitle1},{||cTitle2} }, oRep, 0 )
    oRep:oTitle := TrLine():New( {{|| cf(date())+"- Pagina  : "+Str(oRep:nPage,3)} }, oRep, 2 )

    AEval( oRep:aColumns, { | o | o:lShadow := ! o:lShadow } )
    oRep:bskip := { || IF(oRep:nCounter % 2 =0 , oRep:lShadow :=.F.,oRep:lShadow :=.T.) }

   
      return  nil

 

I also want to eject the page and make pijama effect but not work

Code: Select all  Expand view

AEval( oRep:aColumns, { | o | o:lShadow := ! o:lShadow } )
    oRep:bskip := { || IF(oRep:nCounter % 2 =0 , oRep:lShadow :=.F.,oRep:lShadow :=.T.) }

on report give me this



it looks like it does the group but then it doesn't, it looks like it's not indexed but actually i index the odbf file but maybe not the oBrw it gets the data from


I tried to add on MySetUp() function also these lines but not work

Code: Select all  Expand view

local cAlias   := oBrw:cAlias
 IF   len(aGroup) > 0
     //group
      IF lEject
           GROUP ON "(cAlias)->"+ltrim(aGroup[nGroup]) ;
           HEADER aGroup[nGroup]+" :"+"(cAlias)->"+aGroup[nGroup] ;
           FOOTER space(40)+"Total items "+oRep:aGroups[1]:cValue+ ;
                  " ("+ltrim(str(oRep:aGroups[1]:nCounter))+")" ;
           FONT 1   EJECT
        else
           GROUP ON "(cAlias)->"+ltrim(aGroup[nGroup]) ;
           HEADER aGroup[nGroup]+" :"+"(cAlias)->"+aGroup[nGroup] ;
           FOOTER space(40)+"Total items "+oRep:aGroups[1]:cValue+ ;
                  " ("+ltrim(str(oRep:aGroups[1]:nCounter))+")" ;
           FONT 1
         Endif
   Endif
 

How resolve it ?

Any solution please?