T100多页签汇出excel

ON ACTION exporttoexcel
            LET g_action_choice="exporttoexcel"
            IF cl_auth_chk_act("exporttoexcel") THEN
               #(ver:62) ---start---
               #因應匯出excel規則調整，需同時符合新舊做法
               LET lb_get_type = cl_get_exporttoexcel_type()
               #add-point:ON ACTION exporttoexcel name="ui_dialog.exporttoexcel_type_change"

               #END add-point
               DISPLAY "lb_get_type:",lb_get_type
 
               CASE
                  WHEN lb_get_type = "poi"   #使用poi樣板
                     #browser
                     CALL g_export_node.clear()
                     IF g_main_hidden = 1 THEN
                        LET l_arr_len = g_browser.getLength()
                        LET g_export_tabname[1] = "s_browse"
                        LET g_export_tag[1] = rec_arr_type.create(l_arr_len)
                        FOR l_arr_cnt = 1 TO l_arr_len
                           LET g_export_tag[1][l_arr_cnt] = g_browser[l_arr_cnt]
                        END FOR
 
                        #add-point:ON ACTION exporttoexcel name="menu.exporttoexcel_browser_poi"
                        
                        #END add-point
                        CALL cl_export_poi()
                        #add-point:ON ACTION exporttoexcel name="menu.exporttoexcel_browser_after_poi"

                        #END add-point
                     #非browser
                     ELSE
                        LET l_arr_len = g_xcck_d.getLength()
                        LET g_export_tag[1] = rec_arr_type.create(l_arr_len)
                        LET g_export_tabname[1] = "s_detail1"
                        FOR l_arr_cnt = 1 TO l_arr_len
                           LET g_export_tag[1][l_arr_cnt] = g_xcck_d[l_arr_cnt]
                        END FOR
 
 
                        #add-point:ON ACTION exporttoexcel name="menu.exporttoexcel_poi"
                        LET l_arr_len = g_xcck2_d.getLength()
                        LET g_export_tag[2] = rec_arr_type.create(l_arr_len)
                        LET g_export_tabname[2] = "s_detail2"
                        FOR l_arr_cnt = 1 TO l_arr_len
                           LET g_export_tag[2][l_arr_cnt] = g_xcck2_d[l_arr_cnt]
                        END FOR
                        #END add-point
                        CALL cl_export_to_excel_getpage()
                        CALL cl_export_poi()
                        #add-point:ON ACTION exporttoexcel name="menu.exporttoexcel_after_poi"

                        #END add-point
                     END IF

ON ACTION exporttoexcel
LET g_action_choice=”exporttoexcel”
IF cl_auth_chk_act(“exporttoexcel”) THEN
#(ver:62) —start—
#因應匯出excel規則調整，需同時符合新舊做法
LET lb_get_type = cl_get_exporttoexcel_type()
#add-point:ON ACTION exporttoexcel name=”ui_dialog.exporttoexcel_type_change”

#END add-point
DISPLAY “lb_get_type:”,lb_get_type

CASE
WHEN lb_get_type = “poi”   #使用poi樣板
#browser
CALL g_export_node.clear()
IF g_main_hidden = 1 THEN
LET l_arr_len = g_browser.getLength()
LET g_export_tabname[1] = “s_browse”
LET g_export_tag[1] = rec_arr_type.create(l_arr_len)
FOR l_arr_cnt = 1 TO l_arr_len
LET g_export_tag[1][l_arr_cnt] = g_browser[l_arr_cnt]
END FOR

#add-point:ON ACTION exporttoexcel name=”menu.exporttoexcel_browser_poi”

#END add-point
CALL cl_export_poi()
#add-point:ON ACTION exporttoexcel name=”menu.exporttoexcel_browser_after_poi”

#END add-point
#非browser
ELSE
LET l_arr_len = g_xcck_d.getLength()
LET g_export_tag[1] = rec_arr_type.create(l_arr_len)
LET g_export_tabname[1] = “s_detail1″
FOR l_arr_cnt = 1 TO l_arr_len
LET g_export_tag[1][l_arr_cnt] = g_xcck_d[l_arr_cnt]
END FOR

#add-point:ON ACTION exporttoexcel name=”menu.exporttoexcel_poi”
LET l_arr_len = g_xcck2_d.getLength()
LET g_export_tag[2] = rec_arr_type.create(l_arr_len)
LET g_export_tabname[2] = “s_detail2″
FOR l_arr_cnt = 1 TO l_arr_len
LET g_export_tag[2][l_arr_cnt] = g_xcck2_d[l_arr_cnt]
END FOR
#END add-point
CALL cl_export_to_excel_getpage()
CALL cl_export_poi()
#add-point:ON ACTION exporttoexcel name=”menu.exporttoexcel_after_poi”

#END add-point
END IF

#s_detail2就是第二个页签，多个页签相同参照s_detail2来添加

转载请注明：赫非域 » T100多页签汇出excel