FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Report collapsible
Posts: 38
Joined: Fri Apr 22, 2016 10:19 PM
Report collapsible
Posted: Fri Oct 20, 2017 08:16 PM

Dear community,

is it possible to create a report, that is collapsible?


 REPORT oReport TITLE " ",cTITLE, dtoc(anfang) + "  -  " + dtoc(ende)  LEFT ;
        FONT   oFont1,oFont2,oFont3 ;
        PEN oPen1;
        HEADER Setup():LizenzNehmer()," ", ALLTRIM("Erstellt: " + dtoc(date())+ " - "+time()) RIGHT;
        FOOTER  ("Page: ")+str(oReport:nPage,3) ;
        CENTERED ;
        PREVIEW

     COLUMN TITLE "RG-Nr"                           DATA  ktosumme->DATUM        FONT 2 SIZE(8)

     COLUMN TITLE "Konto"                                     DATA  ktosumme->konto        FONT 1 SIZE(6)
     COLUMN TITLE "Bezeichnung" ,"Warengruppen"               DATA  ktosumme->bezeichnun          SIZE(20)

     COLUMN TITLE "Umsatzsteuer","frei"                       DATA  IIF( ktosumme->mwst=nMwst0,ktosumme->betragohne ,"" )  ;
        TOTAL SIZE(8)   PICTURE "999,999,999.99"


     COLUMN TITLE "Bemessungs-","grundlage", STR(nMwst1)+"%"  DATA  IIF( ktosumme->mwst=nMwst1,ktosumme->betragohne ,"" )   ;
        TOTAL SIZE(8)  PICTURE "999,999,999.99"

     COLUMN TITLE "MWST " + ALLTRIM(STR(nMwst1))+" %"         DATA  IIF(ktosumme->mwst1!=0,ktosumme->mwst1  ,"" ) ;
        TOTAL SIZE(8)     PICTURE "999,999,999.99"


     COLUMN TITLE "Bemessungs-","grundlage",STR(nMwst2) + "%"   DATA  IIF( ktosumme->mwst=nMwst2,ktosumme->betragohne ,"" ) ;
        TOTAL SIZE(8)   PICTURE "999,999,999.99"
     COLUMN TITLE "MWSt " + ALLTRIM(STR(nMwst2))+" %"          DATA  IIF(ktosumme->mwst2!=0, ktosumme->mwst2 ,"" ) TOTAL SIZE(9)               PICTURE "999,999,999.99"

     //----------------------------------------------------------------------------//
     COLUMN TITLE "##Bemessungs-","grundlage",STR(nMWST3)+"%"   DATA  IIF( ktosumme->mwst=nMWST3,ktosumme->betragohne ,"" ) ;
        TOTAL SIZE(8)   PICTURE "999,999,999.99"
     COLUMN TITLE "##MWSt " + ALLTRIM(STR(nMWST3))+" %"          DATA  IIF(ktosumme->mwst3!=0, ktosumme->mwst3 ,"" ) TOTAL SIZE(9)               PICTURE "999,999,999.99"
     //----------------------------------------------------------------------------//



     COLUMN TITLE "Summe", "inkl. MWSt","(Rechnungsjournal)"  DATA  ktosumme->betraginkl   TOTAL SIZE(12)         PICTURE "999,999,999.99"

             GROUP ON ktosumme->Datum   FOOTER "Summe" FONT 2

  END REPORT

This is the an example for a report and I would like to have the option to see only the line "GROUP ON ktosumme->Datum FOOTER "Summe" FONT 2" by selecting -/+

Is this possible?

Thank you for your answer.
Kind regards
Iris

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Report collapsible
Posted: Sat Oct 21, 2017 08:29 AM

Set oReport:lSummary := .t. or .f. before calling ACTIVATE REPORT

Regards



G. N. Rao.

Hyderabad, India
Posts: 38
Joined: Fri Apr 22, 2016 10:19 PM
Re: Report collapsible
Posted: Sat Oct 21, 2017 07:03 PM

Dear Mr. Rao,

Thank you very much. I will try this as soon as possible (today my PC in the Office broke down...).

Kind regards
Iris

Continue the discussion