Q5/ws_objects/Ew_bsnobj.pbl.src/f_hide_col.srf

$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