Q5/ws_objects/Ew_publ903_bill.pbl.src/f_set_nomod.srf

$PBExportHeader$f_set_nomod.srf
global type f_set_nomod from function_object
end type

forward prototypes
global function integer f_set_nomod (string arg_dwname, ref string arg_colname[], ref string arg_msg)
end prototypes

global function integer f_set_nomod (string arg_dwname, ref string arg_colname[], ref string arg_msg);////取隐藏字段定义

Int rslt = 1
Long i,j
Boolean if_find

FOR i = 1 TO UpperBound(s_sys_uccol)
	IF arg_dwname = s_sys_uccol[i].dw_uc_name THEN
		IF s_sys_uccol[i].col01 <> '' THEN
			j++
			arg_colname[j] = s_sys_uccol[i].col01
		END IF
		
		IF s_sys_uccol[i].col02 <> '' THEN
			j++
			arg_colname[j] = s_sys_uccol[i].col02
		END IF
		
		IF s_sys_uccol[i].col03 <> '' THEN
			j++
			arg_colname[j] = s_sys_uccol[i].col03
		END IF
		
		IF s_sys_uccol[i].col04 <> '' THEN
			j++
			arg_colname[j] = s_sys_uccol[i].col04
		END IF
		
		IF s_sys_uccol[i].col05 <> '' THEN
			j++
			arg_colname[j] = s_sys_uccol[i].col05
		END IF
		
		IF s_sys_uccol[i].col06 <> '' THEN
			j++
			arg_colname[j] = s_sys_uccol[i].col06
		END IF
		
		IF s_sys_uccol[i].col07 <> '' THEN
			j++
			arg_colname[j] = s_sys_uccol[i].col07
		END IF
		
		IF s_sys_uccol[i].col08 <> '' THEN
			j++
			arg_colname[j] = s_sys_uccol[i].col08
		END IF
		
		IF s_sys_uccol[i].col09 <> '' THEN
			j++
			arg_colname[j] = s_sys_uccol[i].col09
		END IF
		
		IF s_sys_uccol[i].col10 <> '' THEN
			j++
			arg_colname[j] = s_sys_uccol[i].col10
		END IF
		
		
		if_find = TRUE
		GOTO ext
	END IF
NEXT

//IF NOT if_find THEN
//	arg_msg = '数据窗口必填字段未定义'
//	rslt = 0
//	GOTO ext
//END IF

ext:

RETURN rslt





end function