MS4 Script source : GET-05-01BASICREPORTAGGREG.MS4
01 |  
02 | ** ****************************************************************************************** *
03 | ** (ms4 script) - MS4 BI PROFESSIONAL for WINDOWS & WEB-
04 | ** *******************************************************************************************
05 |  #includeSYSpathMS4BI "\zInclude\includeChart.h"
06 |  
07 | text : LCurrentDir , LcurrentDirdb    ;
08 | Getcurrentdir(LCurrentDir);
09 | Concatene  LCurrentDir,"\ms4bilangconso.db" into LcurrentDirdb;
10 | 
11 | <div  $IsVisible_lg :  /* visible only large (screen) */
12 |   DrawWindow : "Win20" , actions : $WinCustom +   $WinMinimize + $WinMaximize+ $WinClose  , position : 620,  550,540,960  TITLE : "  Window Web: MS4 script Rapid Developt" 
13 |                                       url :  UrlMs4Script  /* key word ms4script */
14 |  >;
15 |  Begin_Block_Rwd  :  margin_page  
16 |  <Rwd_Row :  1
17 |  <Rwd_Col : sm:12,md:12,lg:10 :  
18 |  
19 |             <notification : $Bts_Notif_success_Dismissable ,  " ###b Step 5  :  Aggregate Reporting  : hierarchy Win&Web ###b "> , 
20 |       >>;    
21 | ** *****************************************
22 | ** REPORT
23 | ** ***************************************** 
24 |    integer : yes :=1;
25 |     DECLARE SCHEMA_Report : lang
26 |     { TEXT    : city , CityEnglish,population; /* <--- it s possible !! */
27 |       
28 |      };
29 |   
30 | Begin_Report
31 |  
32 |  REPORTINPUT :   ConnectDB {Ms4DB}(LcurrentDirdb) use View  ("[ms4LangConsolidation]") 
33 |    REPORTFORM:AGGREGATE , TITLE : " UNICODE : by city --> Drag & Drop : Column " 
34 |    Option  :  BEGIN  EXPORTEXCEL : yes   ,pagesize:300 ,height: 500 END OPTION  
35 |             AGGREGATE  BY    :     lang.city
36 |                             
37 |             DETAIL AGGREGATE    :    
38 |           lang.city  ,                TITLE " city "  , 
39 |           lang.CityEnglish   ,        TITLE "城市"  ,
40 |           lang.population   ,         TITLE "Population"  
41 |    END_REPORT ;
42 |  
43 |  End_Block_Rwd ;
44 |       PrintswExe();
45 |  
46 |