Q5/ws_objects/Ew_publ903.pbl.src/f_title_change.srf

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

forward prototypes
global function integer f_title_change (datawindow arg_dw)
end prototypes

global function integer f_title_change (datawindow arg_dw);String ls_modify_str
Int i

Long Columns

Columns = Long(arg_dw.Describe("DataWindow.Column.Count"))
FOR i = 1 To Columns
	
	ls_modify_str = arg_dw.Describe("#" + String(i) + ".name")
	ls_modify_str = Lower(ls_modify_str)
	
	IF Pos(ls_modify_str,'status') > 0 And sys_option_change_status <> ''  THEN
		IF Len(ls_modify_str) = Len('status') Or Pos(ls_modify_str,'_status') > 0 THEN
			IF Not (Pos(ls_modify_str,'u_saletask_status') > 0 Or &
				Pos(ls_modify_str,'u_buytask_status') > 0 Or &
				Pos(ls_modify_str,'u_order_ml_status') > 0 Or &
				Pos(ls_modify_str,'u_order_wfjg_status') > 0 Or &
				Pos(ls_modify_str,'u_rs_empinfo_status') > 0 ) THEN
				arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_status+"'")
			END IF
		END IF
		IF Pos(ls_modify_str,'statusflag') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_status+" 配置'")
		END IF
	END IF
	
	IF Pos(ls_modify_str,'status_mode') > 0 And sys_option_change_status <> ''  THEN
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_status+"'")
	END IF
	
	
	IF Pos(ls_modify_str,'woodcode') > 0 And sys_option_change_woodcode <> ''  THEN
		IF Len(ls_modify_str) = Len('woodcode') Or Pos(ls_modify_str,'_woodcode') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_woodcode+"'")
		END IF
		IF Pos(ls_modify_str,'woodcodeflag') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_woodcode+" 配置'")
		END IF
	END IF
	
	
	IF Pos(ls_modify_str,'pcode') > 0 And sys_option_change_pcode <> ''  THEN
		IF Len(ls_modify_str) = Len('pcode') Or Pos(ls_modify_str,'_pcode') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_pcode+"'")
		END IF
		IF Pos(ls_modify_str,'pcodeflag') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_pcode+" 配置'")
		END IF
	END IF
	
	IF Pos(ls_modify_str,'mtrlsectype') > 0 And sys_option_change_mtrlsectype <> ''  THEN
		IF Len(ls_modify_str) = Len('mtrlsectype') Or Pos(ls_modify_str,'_mtrlsectype') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_mtrlsectype+"'")
		END IF
	END IF
	
	IF Pos(ls_modify_str,'zxmtrlmode') > 0 And sys_option_change_zxmtrlmode <> ''  THEN
		IF Len(ls_modify_str) = Len('zxmtrlmode') Or Pos(ls_modify_str,'_zxmtrlmode') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_zxmtrlmode+"'")
		END IF
	END IF
	
	IF Pos(ls_modify_str,'usermtrlmode') > 0 And sys_option_change_zxmtrlmode <> ''  THEN
		IF Len(ls_modify_str) = Len('usermtrlmode') Or Pos(ls_modify_str,'_usermtrlmode') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_usermtrlmode+"'")
		END IF
	END IF
	
	IF Pos(ls_modify_str,'otheramt') > 0 And sys_option_change_otheramt <> ''  THEN
		IF Len(ls_modify_str) = Len('otheramt') Or Pos(ls_modify_str,'_otheramt') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_otheramt+"'")
		END IF
	END IF
	
	
	IF  ls_modify_str = 'u_outwaremx_mxdscrp3'  And sys_option_change_mxsdscrp3 <> ''  THEN //IF Pos(ls_modify_str,'mxdscrp3') > 0 AND sys_option_change_mxsdscrp3 <> ''  THEN
		IF Len(ls_modify_str) = Len('mxdscrp3') Or Pos(ls_modify_str,'_mxdscrp3') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_mxsdscrp3+"'")
		END IF
	END IF
	
	
	IF  ls_modify_str = 'u_outwaremx_mxdscrp4' And sys_option_change_mxsdscrp4 <> ''  THEN //IF Pos(ls_modify_str,'mxdscrp4') > 0 AND sys_option_change_mxsdscrp4 <> ''  THEN
		IF Len(ls_modify_str) = Len('mxdscrp4') Or Pos(ls_modify_str,'_mxdscrp4') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_mxsdscrp4+"'")
		END IF
	END IF
	
	
	IF Pos(ls_modify_str,'mxdscrp2') > 0  And sys_option_change_mxsdscrp2 <> ''  THEN //IF Pos(ls_modify_str,'mxdscrp2') > 0 AND sys_option_change_mxsdscrp4 <> ''  THEN
		IF Len(ls_modify_str) = Len('mxdscrp2') Or Pos(ls_modify_str,'_mxdscrp2') > 0 THEN
			arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_mxsdscrp2+"'")
		END IF
	END IF
	
	
	
	
	
	
	IF  ls_modify_str = 'u_saletaskmx_mxdscrp3'  And sys_option_saletaskmx_change_mxsdscrp3  <> ''  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_saletaskmx_change_mxsdscrp3 +"'")
		
	END IF
	
	
	IF  ls_modify_str = 'u_saletaskmx_mxdscrp4' And sys_option_saletaskmx_change_mxsdscrp4  <> ''  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_saletaskmx_change_mxsdscrp4 +"'")
		
	END IF
	
	IF  ls_modify_str = 'u_saletaskmx_mxdscrp2' And sys_option_saletaskmx_change_mxsdscrp2  <> ''  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_saletaskmx_change_mxsdscrp2 +"'")
		
	END IF
	
	IF  Pos(ls_modify_str,'mtrlengname') > 0  And sys_option_change_mtrlengname  <> '英文名称'  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_mtrlengname +"'")
		
	END IF
	
	
	IF  Pos(ls_modify_str,'barcode') > 0  And sys_option_change_barcode  <> '条形码'  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_change_barcode +"'")
		
	END IF
	
	
	
	
	
	If  (ls_modify_str = 'ow_wfjgmx_in_aft_mxdscrp2' Or  ls_modify_str = 'u_order_wfjgmx_mxdscrp2' ) And sys_option_wfjgmx_change_mxsdscrp2  <> ''  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_wfjgmx_change_mxsdscrp2 +"'")
		
	END IF
	
	If  (ls_modify_str = 'ow_wfjgmx_in_aft_mxdscrp3'  Or  ls_modify_str = 'u_order_wfjgmx_mxdscrp3' )  And sys_option_wfjgmx_change_mxsdscrp3  <> ''  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_wfjgmx_change_mxsdscrp3 +"'")
		
	END IF
	
	If  ( ls_modify_str = 'ow_wfjgmx_in_aft_mxdscrp4'  Or  ls_modify_str = 'u_order_wfjgmx_mxdscrp4' )  And sys_option_wfjgmx_change_mxsdscrp4  <> ''  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_wfjgmx_change_mxsdscrp4 +"'")
		
	END IF
	
	
	IF (  ls_modify_str = 'u_inwaremx_mxdscrp2'   or  ls_modify_str = 'u_buytaskmx_dscrp2'     ) And sys_option_buytaskmx_change_mxsdscrp2  <> ''  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_buytaskmx_change_mxsdscrp2 +"'")
		
	END IF
	
	IF ( ls_modify_str = 'u_inwaremx_mxdscrp3'  or ls_modify_str = 'u_buytaskmx_dscrp3'  )And sys_option_buytaskmx_change_mxsdscrp3 <> ''  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_buytaskmx_change_mxsdscrp3 +"'")
		
	END IF
	
	IF ( ls_modify_str = 'u_inwaremx_mxdscrp4'  or  ls_modify_str = 'u_buytaskmx_dscrp4'  )And sys_option_buytaskmx_change_mxsdscrp4 <> ''  THEN
		
		arg_dw.Modify(ls_modify_str+'_t'+ ".text='"+sys_option_buytaskmx_change_mxsdscrp4 +"'")
		
	END IF
//	
 
	
	
	
NEXT
RETURN 1







end function