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来添加