T100-----汇出EXCEL表格

例子：cxmp541

          #excel匯出功能
          ON ACTION exporttoexcel
             LET g_action_choice="exporttoexcel"
             IF cl_auth_chk_act("exporttoexcel") THEN
                #browser
                CALL g_export_node.clear()
 7 #               IF g_main_hidden = 1 THEN
                   LET g_export_node[] = base.typeInfo.create(g_detail_d)
                   LET g_export_id[]   = "s_detail1"
                   CALL cl_export_to_excel()
11 #               #非browser
12 #               ELSE
13 #                  LET g_export_node[1] = base.typeInfo.create(g_pmdt_d)
14 #                  LET g_export_id[1]   = "s_detail1"
15 #                  LET g_export_node[2] = base.typeInfo.create(g_pmdt2_d)
16 #                  LET g_export_id[2]   = "s_detail2"
17 #                  LET g_export_node[3] = base.typeInfo.create(g_pmdt3_d)
18 #                  LET g_export_id[3]   = "s_detail3"
19 #
20 #                  #add-point:ON ACTION exporttoexcel name="menu.exporttoexcel"
21 #                  LET g_export_node[4] = base.typeInfo.create(g_pmdt4_d)
22 #                  LET g_export_id[4]   = "s_detail4"
23 #
24 #                  LET g_export_node[5] = base.typeInfo.create(g_inao_d)
25 #                  LET g_export_id[5]   = "s_detail1_s_lot_s01"
26 #                  #END add-point
27 #                  CALL cl_export_to_excel_getpage()
28 #                  CALL cl_export_to_excel()
29 #               END IF
             END IF