ESSBASE——重新整理以前的report脚本代码

//
<PAGE(ZCLX,SWJG,DJHY)
110 24400000001 FIX_011

 <COLUMN(SJ)
 <ICHILDREN 2004
<SYM
{ WIDTH 20 }

<ROW(Accounts)

{ RENAME "申报入库额" } SJRKSE
{ RENAME "实际入库额" } DQSJYNRKSE
{ RENAME "入库率" } RKL

//( RENAME "时间" } SJ

 !

//
<PAGE(SJ,YSJC,DJHY)
2004-01-01  10 671

 <COLUMN(Accounts)
 SJRKSE DQSJYNRKSE RKL

{ WIDTH 20 }
{ RENAME "申报入库额" } SJRKSE
{ RENEME "实际入库额" } DQSJYNRKSE
{ RENAME "入库率" } RKL

<ROW(SWJG)
<OUTMBRALT
{ OUTALTNAMES }
<CHILD 244017300

{ SKIP UNDERSCORECHAR " " }
    !

//
<PAGE(YSJC,SJ)

 <COLUMN(Accounts)
 <ICHILDREN Accounts

{ WIDTH 20 }

<ROW(DJHY)
<OUTMBRALT
{ RENAMES "谷物及其他作物的种植" } FIX_011
{ RENAMES "蔬菜,园艺作物的种植" } FIX_012
{ RENAMES "水果,坚果,饮料和香料作物的种植" } FIX_013
{ RENAMES "中药材的种植" } FIX_014

    !

//写Report脚本，查询2004年、机构维第二层每个机构的三个指标，要求将指标数值显示完整
<PAGE(SJ)
"2004"

<COLUMN(ACCOUNTS)
<CHILDREN ACCOUNTS
{ RENAME "申报入库额" } SJRKSE
{ RENAME "实际入库额" } DQSJYNRKSE
{ RENAME "入库率" } RKL

<SYM
{ WIDTH 15 }

<ROW(SWJG,SJ)
LEV2,SWJG
"20041" "20042" "20043" "20044"

    !

{ SKIP 5 }

//chengpu
<PAGE (SJ)
"2004"
<SYM
          <COLUMN (SJ,ACCOUNTS)
          <CHILDREN "2004"
          <CHILDREN ACCOUNTS
          { WIDTH 20 }
<ROW (SWJG)
LEV2,SWJG
    !

// 显示2004年，各机构的指标。
// 显示格式  页：YSJC，ZCLX，DJHY，ACCOUNTS
//    列：SWJG，ACCOUNTS
//    行：SJ
{ STARTHEADING
  SUPPAGEHEADING
//  TEXT 2 "*DATETIME" C "Annual Report" 65 "*PAGESTRING" SKIP
  TEXT 2 "City: " 12 "*PAGEHDR 1"
  TEXT 2 "Account: " 12 "*PAGEHDR 2" SKIP
  ENDHEADING }     //页头信息

<PAGE(YSJC,ZCLX,DJHY,ACCOUNTS)
{ OUTALTNAMES }
<OUTMBRALT
"10"
"110"
"FIX_011"

<COLUMN(SWJG,ACCOUNTS)
{ OUTALTNAMES }
<OUTMBRALT
//"244010000" "24400000001" "24400000002" "24400000003"
LEV2,SWJG
<CHILDREN ACCOUNTS
{ BEFORE "$" }
{ ORDER 3 1 2 }  //改变输出顺序

{WIDTH 15}
{NAMEWIDTH 5}  //控制行宽

<ROW(SJ)
{ OUTALTNAMES }
<OUTMBRALT
<CHILDREN 2004
//<IDESCENDANT 2004 //显示所有子孙。

{ SKIP 2 "Prepared by: " 18 "*USERNAME" }
{ TEXT 2 "Server Version: " 18 "*ARBOR" }
{ TEXT 2 "Application: " 18 "*APPNAME" }
{ TEXT 2 "Database: " 18 "*DBNAME" }   //页尾信息

//<ATTRIBUTE dycy jgzd

        !
{ SKIP 10 }

        !

{ STARTHEADING
  SUPPAGEHEADING
//  TEXT 2 "*DATETIME" C "Annual Report" 65 "*PAGESTRING" SKIP
  TEXT 2 "City: " 12 "*PAGEHDR 1"
  TEXT 2 "Account: " 12 "*PAGEHDR 2" SKIP
  ENDHEADING }     //页头信息

<PAGE(YSJC,ZCLX,DJHY,ACCOUNTS)
{ OUTALTNAMES }
<OUTMBRALT
"10"
"110"
"FIX_011"

<COLUMN(SWJG,ACCOUNTS)
{ OUTALTNAMES }
<OUTMBRALT
//"244010000" "24400000001" "24400000002" "24400000003"
LEV2,SWJG
<CHILDREN ACCOUNTS
{ BEFORE "$" }
{ ORDER 3 1 2 }  //改变输出顺序

{WIDTH 15}
{NAMEWIDTH 5}  //控制行宽

<ROW(SJ)
{ OUTALTNAMES }
<OUTMBRALT
<CHILDREN 2004
//<IDESCENDANT 2004 //显示所有子孙。

{ SKIP 2 "Prepared by: " 18 "*USERNAME" }
{ TEXT 2 "Server Version: " 18 "*ARBOR" }
{ TEXT 2 "Application: " 18 "*APPNAME" }
{ TEXT 2 "Database: " 18 "*DBNAME" }   //页尾信息
        !

// 显示2004年，第二层机构的指标。
// 显示格式  页：YSJC，ZCLX，DJHY，ACCOUNTS
//    列：SWJG
//    行：SJ，ACCOUNTS

{ STARTHEADING
 SUPPAGEHEADING
 //TEXT 2 "*DATETIME" C "Annual Report" 65 "*PAGESTRING" SKIP  // 使用后,数据部分显示不时间维成员了.
 TEXT 2 "City: " 12 "*PAGEHDR 1"
 TEXT 2 "Account: " 12 "*PAGEHRE 2" SKIP
 ENDHEADING }

<PAGE(YSJC,ZCLX,DJHY,ACCOUNTS)
{ OUTALTNAMES }
<OUTMBRALT
"10" "110" "FIX_011"

<COLUMN(SWJG)
{ OUTALTNAMES }
<OUTMBRALT
"244010000" "24400000001" "24400000002" "24400000003"
//LEV2,SWJG

{ WIDTH 15 }
{ NAMEWIDTH 5}

<ROW(SJ,ACCOUNTS)
{ OUTALTNAMES }
<OUTMBRALT
<CHILDREN 2004   // 选择成员的子成员,而不包括自身
//<ICHILDREN 2004   // 选择成员的子成员,并包括自身
//<DESCENDANTS 2004  // 选择成员的所有子成员,而不包括自身
//<IDESCENDANTS 2004  // 选择成员的所有子成员,并包括自身
//<CHILDREN ACCOUNTS
//<ORDERBY ("SJ",@DATACOL(1) ASC)  // 按照SJ的第1列的升序或降序排
{ BEFORE "$" }

{ SKIP 2 "Prepared by:" 18 "*USERNAME" }
{ TEXT 2 "Server Version:" 18 "*ARBOR" }
{ TEXT 2 "Application:" 18 "*APPNAME" }
{ TEXT 2 "Database:" 18 "*DBNAME" }

 !

{ SKIP 10 }

 !

{ STARTHEADING
 SUPPAGEHEADING
 //TEXT 2 "*DATETIME" C "Annual Report" 65 "*PAGESTRING" SKIP  // 使用后,数据部分显示不时间维成员了.
 TEXT 2 "City: " 12 "*PAGEHDR 1"
 TEXT 2 "Account: " 12 "*PAGEHRE 2" SKIP
 ENDHEADING }

<PAGE(YSJC,ZCLX,DJHY,ACCOUNTS)
{ OUTALTNAMES }
<OUTMBRALT
"10" "110" "FIX_011"

<COLUMN(SWJG)
{ OUTALTNAMES }
<OUTMBRALT
"244010000" "24400000001" "24400000002" "24400000003"
//LEV2,SWJG

{ WIDTH 15 }
{ NAMEWIDTH 5}

<ROW(SJ,ACCOUNTS)
//<SORTMBRNAMES  // 按字母顺序选择
{ OUTALTNAMES }
<OUTMBRALT
<CHILDREN 2004
<CHILDREN ACCOUNTS
//<ORDERBY ("SJ",@DATACOL(1) ASC)  // 按照SJ的第1列的升序或降序排
{ ACALE 2 }
{ BEFORE "$" }

{ SKIP 2 "Prepared by:" 18 "*USERNAME" }
{ TEXT 2 "Server Version:" 18 "*ARBOR" }
{ TEXT 2 "Application:" 18 "*APPNAME" }
{ TEXT 2 "Database:" 18 "*DBNAME" }

 !