$PBExportHeader$f_hide_col.srf global type f_hide_col from function_object end type forward prototypes global function integer f_hide_col (long arg_power_ind, datawindow arg_dw, s_hide_col arg_s_hide_col) end prototypes global function integer f_hide_col (long arg_power_ind, datawindow arg_dw, s_hide_col arg_s_hide_col);String ls_modify String ls_col[] Long ll_cnt, i IF f_power_ind(arg_power_ind) And Not sys_power_issuper THEN IF arg_s_hide_col.col_1 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_1 + '_t ~n ' + arg_s_hide_col.col_1 + '.visible=0 ~n ' IF arg_s_hide_col.col_2 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_2 + '_t ~n ' + arg_s_hide_col.col_2 + '.visible=0 ~n ' IF arg_s_hide_col.col_3 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_3 + '_t ~n ' + arg_s_hide_col.col_3 + '.visible=0 ~n ' IF arg_s_hide_col.col_4 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_4 + '_t ~n ' + arg_s_hide_col.col_4 + '.visible=0 ~n ' IF arg_s_hide_col.col_5 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_5 + '_t ~n ' + arg_s_hide_col.col_5 + '.visible=0 ~n ' IF arg_s_hide_col.col_6 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_6 + '_t ~n ' + arg_s_hide_col.col_6 + '.visible=0 ~n ' IF arg_s_hide_col.col_7 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_7 + '_t ~n ' + arg_s_hide_col.col_7 + '.visible=0 ~n ' IF arg_s_hide_col.col_8 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_8 + '_t ~n ' + arg_s_hide_col.col_8 + '.visible=0 ~n ' IF arg_s_hide_col.col_9 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_9 + '_t ~n ' + arg_s_hide_col.col_9 + '.visible=0 ~n ' IF arg_s_hide_col.col_10 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_10 + '_t ~n ' + arg_s_hide_col.col_10 + '.visible=0 ~n ' IF arg_s_hide_col.col_11 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_11 + '_t ~n ' + arg_s_hide_col.col_11 + '.visible=0 ~n ' IF arg_s_hide_col.col_12 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_12 + '_t ~n ' + arg_s_hide_col.col_12 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) // messagebox('',ls_modify) END IF IF f_power_ind(arg_power_ind) And Not sys_power_issuper THEN ls_modify='' IF arg_s_hide_col.col_1 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_1 + '_t ~n ' + arg_s_hide_col.col_1 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_2 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_2 + '_t ~n ' + arg_s_hide_col.col_2 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_3 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_3 + '_t ~n ' + arg_s_hide_col.col_3 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_4 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_4 + '_t ~n ' + arg_s_hide_col.col_4 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_5 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_5 + '_t ~n ' + arg_s_hide_col.col_5 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_6 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_6 + '_t ~n ' + arg_s_hide_col.col_6 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_7 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_7 + '_t ~n ' + arg_s_hide_col.col_7 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_8 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_8 + '_t ~n ' + arg_s_hide_col.col_8 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_9 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_9 + '_t ~n ' + arg_s_hide_col.col_9 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_10 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_10 + '_t ~n ' + arg_s_hide_col.col_10 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_11 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_11 + '_t ~n ' + arg_s_hide_col.col_11 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) ls_modify='' IF arg_s_hide_col.col_12 <> '' THEN ls_modify = ls_modify + "destroy " + arg_s_hide_col.col_12 + '_t ~n ' + arg_s_hide_col.col_12 + '.visible=0 ~n ' IF ls_modify <> '' THEN arg_dw.Modify(ls_modify) // messagebox('',ls_modify) END IF //IF f_power_ind(arg_power_ind) And Not sys_power_issuper THEN // IF arg_s_hide_col.col_1 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_1 // END IF // IF arg_s_hide_col.col_2 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_2 // END IF // IF arg_s_hide_col.col_3 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_3 // END IF // IF arg_s_hide_col.col_4 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_4 // END IF // IF arg_s_hide_col.col_5 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_5 // END IF // IF arg_s_hide_col.col_6 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_6 // END IF // IF arg_s_hide_col.col_7 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_7 // END IF // IF arg_s_hide_col.col_8 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_8 // END IF // IF arg_s_hide_col.col_9 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_9 // END IF // IF arg_s_hide_col.col_10 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_10 // END IF // IF arg_s_hide_col.col_11 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_11 // END IF // IF arg_s_hide_col.col_12 <> '' THEN // ll_cnt++ // ls_col[ll_cnt] = arg_s_hide_col.col_12 // END IF // // FOR i = 1 To ll_cnt // ls_modify = "destroy " + ls_col[i] + '_t ~n ' + ls_col[i] + '.visible=0 ~n ' // arg_dw.Modify(ls_modify) // NEXT //END IF RETURN 1 end function