FXApp/ws_objects/app_mrp.pbl.src/w_sc_workprocedure.srw

$PBExportHeader$w_sc_workprocedure.srw
forward
global type w_sc_workprocedure from w_publ_edit_index
end type
type cb_other from uo_imflatbutton within w_sc_workprocedure
end type
type ddlb_publ from dropdownlistbox within w_sc_workprocedure
end type
type st_2 from statictext within w_sc_workprocedure
end type
type cb_help from uo_imflatbutton within w_sc_workprocedure
end type
type cb_addmx from uo_imflatbutton within w_sc_workprocedure
end type
type cb_delmx from uo_imflatbutton within w_sc_workprocedure
end type
type ddlb_wrkgrpid from uo_ddlb_wrkgrpid within w_sc_workprocedure
end type
type tab_1 from tab within w_sc_workprocedure
end type
type tabpage_1 from userobject within tab_1
end type
type dw_1 from u_dw_rbtnfilter within tabpage_1
end type
type tabpage_1 from userobject within tab_1
dw_1 dw_1
end type
type tabpage_2 from userobject within tab_1
end type
type dw_2 from u_dw_rbtnfilter within tabpage_2
end type
type tabpage_2 from userobject within tab_1
dw_2 dw_2
end type
type tab_1 from tab within w_sc_workprocedure
tabpage_1 tabpage_1
tabpage_2 tabpage_2
end type
end forward

global type w_sc_workprocedure from w_publ_edit_index
integer width = 3611
integer height = 2380
string title = "工序"
event ue_pset_workpricetable ( )
event ue_pmod_taskwork_workprice ( )
event ue_help ( )
event insert_childrow ( )
event ue_deletemx ( )
event retrieve_mx ( )
cb_other cb_other
ddlb_publ ddlb_publ
st_2 st_2
cb_help cb_help
cb_addmx cb_addmx
cb_delmx cb_delmx
ddlb_wrkgrpid ddlb_wrkgrpid
tab_1 tab_1
end type
global w_sc_workprocedure w_sc_workprocedure

type variables
s_workprocedure  INS_RT_STRU

string oldcode,oldname,newcode,newname 

Boolean  if_del = False
Long ll_lastrow = 0

long cur_wrkgrpid = -1
int ins_ifch = 0

datawindow dw_mx,dw_replace
end variables

forward prototypes
public function integer wf_lock_mx ()
public function integer wf_face_change ()
end prototypes

event ue_pset_workpricetable();IF dw_edit_mode THEN
	MessageBox(publ_operator,'编辑状态下不可用')
	RETURN
END IF

IF NOT f_power_ind(1096,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

Long ll_row
String ls_procode

ll_row = dw_uc.GetRow()

IF ll_row <= 0 THEN
	MessageBox(publ_operator,'请先选择工序')
	RETURN
END IF

ls_procode = dw_uc.Object.code[ll_row]


s_edit_index_tran s_tran //翻页功能窗口 传递参数使用
s_tran.if_retrieve_all = FALSE  //是否一次RETRIEVE所有行
s_tran.work_mode = 0         //0-单纯编辑模式, 1-选择模式
s_tran.arg_pkid = 0             //目标定位PKID (备用)
s_tran.arg_string_code = ''     //查询列部分内容,用于初步筛选 
s_tran.b_string = ls_procode
OpenWithParm(w_sc_workprocedure_add_all,s_tran)


end event

event ue_pmod_taskwork_workprice();IF dw_edit_mode THEN
	MessageBox(publ_operator,'编辑状态下不可用')
	RETURN
END IF

IF NOT f_power_ind(1097,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

Long ll_row
String ls_procode

ll_row = dw_uc.GetRow()

IF ll_row <= 0 THEN
	MessageBox(publ_operator,'请先选择工序')
	RETURN
END IF

ls_procode = dw_uc.Object.code[ll_row]


s_edit_index_tran s_tran //翻页功能窗口 传递参数使用
s_tran.if_retrieve_all = FALSE  //是否一次RETRIEVE所有行
s_tran.work_mode = 0         //0-单纯编辑模式, 1-选择模式
s_tran.arg_pkid = 0             //目标定位PKID (备用)
s_tran.arg_string_code = ''     //查询列部分内容,用于初步筛选 
s_tran.b_string = ls_procode
OpenWithParm(w_sc_workprocedure_add_all,s_tran)


end event

event ue_help();Int i
i = htmlhelpA(Handle(THIS), sys_help_chm, 0, THIS.Title+".htm")

end event

event insert_childrow();Long li_row


If tab_1.SelectedTab = 1 Then
	li_row = dw_mx.InsertRow(0)
	dw_mx.ScrollToRow(li_row)
	
	dw_mx.SetColumn ('ifdft')
Else
	li_row = dw_replace.InsertRow(0)
	
	dw_replace.object.opemp[li_row] = publ_operator
	dw_replace.object.opdate[li_row] = datetime(today(),now())
	
	dw_replace.ScrollToRow(li_row)
	
	dw_replace.SetColumn ('replacestr')
End If


end event

event ue_deletemx();If Not dw_edit_mode Then
	MessageBox('系统提示','非编辑状态下不可用')
	Return
End If

If MessageBox ("询问","是否确定要删除当前明细记录?",Question!,YesNo! ) = 2 Then Return

if_del = True
Long ll_i

If tab_1.SelectedTab = 1 Then
	dw_mx.SetRedraw(False)
	
	For ll_i =  dw_mx.RowCount() To 1 Step -1
		If dw_mx.IsSelected(ll_i) Then
			dw_mx.DeleteRow (ll_i)
		End If
	Next
	
	dw_mx.SetRedraw(True)
	if_del = False
	
	If dw_mx.RowCount() = 0 Then dw_mx.InsertRow(0)
	dw_mx.TriggerEvent (RowFocusChanged!)
Else
	dw_replace.SetRedraw(False)
	
	For ll_i =  dw_replace.RowCount() To 1 Step -1
		If dw_replace.IsSelected(ll_i) Then
			dw_replace.DeleteRow (ll_i)
		End If
	Next
	
	dw_replace.SetRedraw(True)
	if_del = False
	
	If dw_replace.RowCount() = 0 Then dw_replace.InsertRow(0)
	dw_replace.TriggerEvent (RowFocusChanged!)
End If





end event

event retrieve_mx();Long ll_row ,ll_proid

ll_row = dw_index.GetRow()

IF ll_row > 0 THEN
	ll_proid = dw_index.Object.proid[ll_row]
	dw_mx.SetRedraw(FALSE)
	dw_mx.Retrieve(ll_proid)
	dw_mx.SetRedraw(TRUE)
	IF dw_mx.RowCount() > 0 THEN
		dw_mx.SetRow(1)
		dw_mx.SelectRow(0,FALSE)
		dw_mx.SelectRow(1,TRUE)
		dw_mx.ScrollToRow(1)
	END IF
	
	dw_replace.SetRedraw(FALSE)
	dw_replace.Retrieve(ll_proid)
	dw_replace.SetRedraw(TRUE)
	IF dw_replace.RowCount() > 0 THEN
		dw_replace.SetRow(1)
		dw_replace.SelectRow(0,FALSE)
		dw_replace.SelectRow(1,TRUE)
		dw_replace.ScrollToRow(1)
	END IF	
ELSE
	dw_mx.Reset()
	dw_replace.Reset()
	
END IF


end event

public function integer wf_lock_mx ();INT LS_INT
long ls_row
long uc_column_int

uc_column_int = 3

IF dw_edit_mode THEN
	FOR LS_INT=1 TO uc_column_int
		dw_mx.SetTabOrder (LS_INT,LS_INT*10 )
	NEXT
	
	FOR LS_INT=1 TO uc_column_int
		dw_replace.SetTabOrder (LS_INT,LS_INT*10 )
	NEXT
ELSE	
	FOR LS_INT=1 TO uc_column_int
		dw_mx.SetTabOrder (LS_INT,0 )
	NEXT
	
	FOR LS_INT=1 TO uc_column_int
		dw_replace.SetTabOrder (LS_INT,0 )
	NEXT	
END IF

RETURN 1
end function

public function integer wf_face_change ();if dw_edit_mode then
	cb_func.enabled = false
	cb_retrieve.enabled = false
	cb_delet.enabled = false
	cb_print.enabled = false
	cb_choice.Enabled = FALSE
	sle_usual_query.Enabled = FALSE
	
	cb_edit.text = "放弃&E"
	cb_add.text = "保存&S"
	cb_edit.normalpicname = 'Undo.bmp'
	cb_add.normalpicname = 'Save.bmp'
else
	
	cb_retrieve.enabled = true
	cb_delet.enabled = true
	cb_print.enabled = true
	cb_func.enabled = true
	
	sle_usual_query.Enabled = TRUE
	IF mode = 1 THEN		
		cb_choice.Enabled = TRUE
	ELSE
		
		cb_choice.Enabled = FALSE
	END IF
	
	cb_edit.text = "修改&E"
	cb_add.text = "新建&S"	
	cb_edit.normalpicname = 'OPEN.bmp'
	cb_add.normalpicname = 'new.bmp'
end if

cb_edit.of_init_draw()
cb_add.of_init_draw()
cb_edit.of_paint()
cb_add.of_paint()
cb_edit.triggerevent('ue_textchange')
cb_add.triggerevent('ue_textchange')

this.triggerevent('refresh_interface')
wf_lock_mx()
return 1

end function

on w_sc_workprocedure.create
int iCurrent
call super::create
this.cb_other=create cb_other
this.ddlb_publ=create ddlb_publ
this.st_2=create st_2
this.cb_help=create cb_help
this.cb_addmx=create cb_addmx
this.cb_delmx=create cb_delmx
this.ddlb_wrkgrpid=create ddlb_wrkgrpid
this.tab_1=create tab_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_other
this.Control[iCurrent+2]=this.ddlb_publ
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.cb_help
this.Control[iCurrent+5]=this.cb_addmx
this.Control[iCurrent+6]=this.cb_delmx
this.Control[iCurrent+7]=this.ddlb_wrkgrpid
this.Control[iCurrent+8]=this.tab_1
end on

on w_sc_workprocedure.destroy
call super::destroy
destroy(this.cb_other)
destroy(this.ddlb_publ)
destroy(this.st_2)
destroy(this.cb_help)
destroy(this.cb_addmx)
destroy(this.cb_delmx)
destroy(this.ddlb_wrkgrpid)
destroy(this.tab_1)
end on

event ue_usual_query_retr;call super::ue_usual_query_retr;IF dw_edit_mode OR KeyDown(keyf4!) OR KeyDown(keyf5!) THEN	RETURN
String ls_querystrpart = ''
ls_newselect = Lower(ori_oldselect)
IF Trim(sle_usual_query.Text) <> '' THEN
	IF Pos(Trim(sle_usual_query.Text),'%') = 0 THEN
		ls_querystrpart = ls_querystrpart + "(code like '%"+Trim(sle_usual_query.Text)+"%'"
		ls_querystrpart = ls_querystrpart + " or name like '%"+Trim(sle_usual_query.Text)+"%')"
	ELSE
		ls_querystrpart = ls_querystrpart + "(code like '"+Trim(sle_usual_query.Text)+"'"
		ls_querystrpart = ls_querystrpart + " or name  like '"+Trim(sle_usual_query.Text)+"')"
	END IF
	
	IF Pos(ls_newselect," where ") <> 0 THEN
		ls_newselect = ls_newselect+" AND ("+ls_querystrpart+')'
	ELSE
		ls_newselect = ls_newselect+" where ("+ls_querystrpart+')'
	END IF
END IF
wf_retrieveuc(dw_uc,ls_newselect,1)
THIS.TriggerEvent('retrieve_uc') //注意必须有此句

end event

event ue_usual_query_filt;call super::ue_usual_query_filt;if dw_edit_mode or keydown(keyf4!) or keydown(keyf5!) then	return
string obj_expr=''  
if trim(sle_usual_query.text)<>'' then 
	IF POS(trim(sle_usual_query.text),'%')=0 THEN
		obj_expr=obj_expr+'( code LIKE "%'+trim(sle_usual_query.text)+'%" )'
		obj_expr=obj_expr+' or (name LIKE "%'+trim(sle_usual_query.text)+'%" )'
	ELSE
		obj_expr=obj_expr+'( code LIKE "'+trim(sle_usual_query.text)+'") '
		obj_expr=obj_expr+' or (name LIKE "'+trim(sle_usual_query.text)+'" )'
	END IF 
end if

dw_UC.setfilter(obj_expr)

dw_UC.SetRedraw(False)
dw_INDEX.SetRedraw(False)
dw_UC.filter()
if dw_index.rowcount()>=1 then
	dw_index.selectrow(0,false)
	dw_index.selectrow(1,true)
end if
dw_UC.SetRedraw(TRUE)
dw_INDEX.SetRedraw(TRUE)
end event

event close;call super::close;CLOSEWITHRETURN(THIS,INS_RT_STRU)
//<INS_RT_STRU> 窗体级子定义结构变量,用于返回
end event

event refresh_interface;call super::refresh_interface;cb_other.Enabled = NOT dw_edit_mode
ddlb_publ.Enabled = NOT dw_edit_mode

cb_addmx.Enabled = dw_edit_mode
cb_delmx.Enabled = dw_edit_mode
end event

event retrieve_uc;Boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled
Boolean cb_priorpage_enabled,cb_func_enabled,cb_retrieve_enabled

cb_firstpage_enabled = cb_firstpage.Enabled
cb_nextpage_enabled = cb_nextpage.Enabled
cb_retrieveall_enabled = cb_retrieveall.Enabled
cb_priorpage_enabled = cb_priorpage.Enabled
cb_func_enabled = cb_func.Enabled
cb_retrieve_enabled = cb_retrieve.Enabled

cb_firstpage.Enabled = FALSE
cb_nextpage.Enabled = FALSE
cb_retrieveall.Enabled = FALSE
cb_priorpage.Enabled = FALSE
cb_func.Enabled = FALSE
cb_retrieve.Enabled = FALSE

dw_UC.SetRedraw(FALSE)
dw_index.ShareDataOff()
SetPointer(HourGlass!)

Int li_ifpubl
IF ddlb_publ.Text = '全部' THEN
	li_ifpubl = -1
ELSEIF ddlb_publ.Text = '公共' THEN
	li_ifpubl = 1
ELSE
	li_ifpubl = 0
END IF



dw_UC.Retrieve(li_ifpubl,cur_wrkgrpid,ins_ifch)
SetPointer(Arrow!)
dw_UC.ShareData(dw_index)
dw_UC.SetRedraw(TRUE)


IF dw_index.RowCount() >= 1 THEN
	dw_index.SelectRow(0,FALSE)
	dw_index.SelectRow(1,TRUE)
END IF

cb_firstpage.Enabled = cb_firstpage_enabled
cb_nextpage.Enabled = cb_nextpage_enabled
cb_retrieveall.Enabled = cb_retrieveall_enabled
cb_priorpage.Enabled = cb_priorpage_enabled
cb_func.Enabled = cb_func_enabled
cb_retrieve.Enabled = cb_retrieve_enabled




end event

event user_key;call super::user_key;IF KeyDown(KeyF1!) THEN
	THIS.TriggerEvent('ue_help')
end if
end event

event open;This.TriggerEvent('ue_before_open')
wf_movetocenter()

if_ue_retr = True
if_ue_filter = True
if_ue_sort = True
if_ue_sentdataout = True

old_title = This.Title

s_edit_index_tran s_tran //传递参数使用
s_tran = Message.PowerObjectParm
If Not IsNull(s_tran) Then
	retrieve_all = s_tran.if_retrieve_all
	mode = s_tran.work_mode
	arg_pkid = s_tran.arg_pkid
	arg_string_code = s_tran.arg_string_code
	if_select_all = s_tran.if_select_all
	cur_wrkgrpid = s_tran.f_long
	
	ins_ifch = mode
	
	If cur_wrkgrpid = 0 Then cur_wrkgrpid = ddlb_wrkgrpid.uo_wrkgrpid
End If

//choose case mode
//	case 0
//		this.title = old_title+'  编辑模式  [f4-新建/保存 f5-编辑/放弃]'
//	case 1
//		this.title = old_title+'  选择模式  [f4-新建/保存 f5-编辑/放弃]'
//end choose



dw_uc.SetTransObject (sqlca)
dw_index.SetTransObject (sqlca)
dw_index.rbutton_filter_use = True //右键查询功能开关

pkcolumndbtname = wf_get_pkcolumndbtname(dw_uc) //取第一列为关键字
ori_oldselect = dw_uc.Describe("datawindow.table.select")
ls_newselect = ori_oldselect
ds_curquery = Create datastore
ds_curquery.DataObject = 'd_extr_find'
ds_curquery.SetTransObject (sqlca)

cbx_mlselect.Visible = False
cbx_allselect.Visible = False

If mode = 1 Then cb_mode_itfchg.TriggerEvent(Clicked!)
wf_editindex_lockf()

If Not retrieve_all And Trim(arg_string_code) <> '' Then
	sle_usual_query.Text = Trim(arg_string_code)
	This.TriggerEvent("ue_usual_query_retr") //修改ls_newselect,retrieve
Else
	wf_retrieveuc(dw_uc,ls_newselect,1) //retrieve
	This.TriggerEvent('retrieve_uc')
End If

If retrieve_all And Trim(arg_string_code) <> '' Then
	This.TriggerEvent("ue_usual_query_filt")
End If


If if_select_all Then
	cbx_mlselect.Visible = True
	cbx_allselect.Visible = True
Else
	cbx_mlselect.Visible = False
	cbx_allselect.Visible = False
End If

String ls_wrkGrpName_tmp,ls_wrkgrpcode_tmp,ls_wrkGrpName,ls_wrkgrpcode,ls_ddlbtext
Select u_sc_wkp.wrkGrpName,
	u_sc_wkp.wrkgrpcode
	Into :ls_wrkGrpName_tmp,
	:ls_wrkgrpcode_tmp
	From u_sc_wkp
	Where u_sc_wkp.inuse = 1
	And u_sc_wkp.wrkGrpid = :cur_wrkgrpid;
If sqlca.SQLCode = 0 Then
	
	ls_wrkGrpName = ls_wrkGrpName_tmp
	ls_wrkgrpcode = ls_wrkgrpcode_tmp
	ls_ddlbtext = f_scode_name(cur_wrkgrpid,ls_wrkgrpcode,ls_wrkGrpName)
	
	ddlb_wrkgrpid.Text = ls_ddlbtext
Else
	cur_wrkgrpid = -1
	
End If




end event

event ue_before_open;call super::ue_before_open;dw_mx = tab_1.tabpage_1.dw_1
dw_replace = tab_1.tabpage_2.dw_2

dw_mx.settransobject(sqlca)
dw_replace.settransobject(sqlca)
end event

type cb_func from w_publ_edit_index`cb_func within w_sc_workprocedure
integer x = 1403
end type

type cb_exit from w_publ_edit_index`cb_exit within w_sc_workprocedure
integer x = 2144
end type

type sle_usual_query from w_publ_edit_index`sle_usual_query within w_sc_workprocedure
integer x = 402
integer width = 754
end type

type cb_nextpage from w_publ_edit_index`cb_nextpage within w_sc_workprocedure
integer x = 3177
integer width = 165
end type

type cb_priorpage from w_publ_edit_index`cb_priorpage within w_sc_workprocedure
integer x = 3013
integer width = 165
end type

type cb_firstpage from w_publ_edit_index`cb_firstpage within w_sc_workprocedure
integer x = 2848
integer width = 165
end type

type cb_retrieveall from w_publ_edit_index`cb_retrieveall within w_sc_workprocedure
integer x = 2683
integer width = 165
end type

type em_pagerowno from w_publ_edit_index`em_pagerowno within w_sc_workprocedure
integer x = 2345
end type

type st_pagerowno from w_publ_edit_index`st_pagerowno within w_sc_workprocedure
end type

type st_1 from w_publ_edit_index`st_1 within w_sc_workprocedure
integer width = 370
long textcolor = 0
string text = "工序号|名称含"
end type

type cb_add from w_publ_edit_index`cb_add within w_sc_workprocedure
integer x = 151
end type

event cb_add::clicked;IF Not f_power_ind(33,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

Long ll_proid = 0
String errmsg = ''
String ls_pricestr
Int li_ifdft

string ls_replacestr,ls_opemp
datetime ldt_opdate

Long cnt ,ll_i,cnt_dft
cnt = 0

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	dw_mx.AcceptText()
	IF dw_uc.GetNextModified(0, Primary!) = 0 And &
		dw_mx.GetNextModified(0, Primary!) = 0 and &
		dw_replace.GetNextModified(0, Primary!) = 0 and &
		dw_mx.DeletedCount() = 0 and dw_replace.DeletedCount() = 0 THEN
		MessageBox('系统提示','没有任何修改，不可以保存!')
		RETURN
	END IF
	
	dw_uc.Object.code[dw_uc.GetRow()] = Trim(dw_uc.Object.code[dw_uc.GetRow()])
	dw_uc.Object.Name[dw_uc.GetRow()] = Trim(dw_uc.Object.Name[dw_uc.GetRow()])
	dw_uc.Object.opemp[dw_uc.GetRow()] = publ_operator
	dw_uc.Object.opdate[dw_uc.GetRow()] = datetime(today(),now())
	
	IF dw_uc.Object.code[dw_uc.GetRow()] = '' THEN
		MessageBox('系统提示','请输入工序编号!')
		dw_uc.SetFocus()
		dw_uc.SetColumn('code')
		RETURN
	END IF
	
	IF IsNull(dw_uc.Object.Name[dw_uc.GetRow()]) THEN
		MessageBox('系统提示','请输入工序名称!')
		RETURN
	END IF
	
	IF dw_uc.Object.wrkgrpid[dw_uc.GetRow()] = 0 THEN
		MessageBox('系统提示','请选择工组!')
		RETURN
	END IF
	
	FOR ll_i = 1 To dw_mx.RowCount()
		IF dw_mx.Object.ifdft[ll_i] = 1 THEN
			cnt_dft++
		END IF
	NEXT
	
	IF cnt_dft > 1 THEN
		MessageBox('系统提示','明细不能设置多个默认,请检查!')
		RETURN
	END IF
	
	IF dw_uc.Object.proid[dw_uc.GetRow()] = 0 THEN
		ll_proid = f_sys_scidentity(0,"u_sc_workprocedure","proid",errmsg,True,id_sqlca)
		
		IF ll_proid < 0 THEN
			MessageBox("系统信息",errmsg)
			RETURN
		ELSE
			dw_uc.Object.proid[dw_uc.GetRow()] = ll_proid
		END IF
	ELSE
		ll_proid = dw_uc.Object.proid[dw_uc.GetRow()]
		newcode = dw_uc.Object.code[dw_uc.GetRow()]
		newname = dw_uc.Object.Name[dw_uc.GetRow()]
		String arg_msg
		f_setsysoplog('定义资料','工序修改,原:'+oldcode+','+oldname+'->新:'+newcode+','+newname,arg_msg,False)
	END IF
	
	DELETE u_sc_workprocedure_pricestrmx
		Where proid = :ll_proid;
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK;
		MessageBox('Error','删除原有明细失败')
		RETURN
	END IF
	
	cnt = 0
	dw_mx.AcceptText()
	FOR ll_i = 1 To dw_mx.RowCount()
		ls_pricestr = dw_mx.Object.pricestr[ll_i]
		li_ifdft = dw_mx.Object.ifdft[ll_i]
		
		IF Trim(ls_pricestr) = '' THEN CONTINUE
		
		cnt++
		INSERT INTO u_sc_workprocedure_pricestrmx
			(proid,
			printid,
			ifdft,
			pricestr)
			VALUES
			(:ll_proid,
			:cnt,
			:li_ifdft,
			:ls_pricestr);
		IF sqlca.SQLCode <> 0 THEN
			ROLLBACK;
			MessageBox('Error','插入明细失败,'+sqlca.SQLErrText)
			RETURN
		END IF
	NEXT

	DELETE u_sc_workprocedure_replacemx
		Where proid = :ll_proid;
	IF sqlca.SQLCode <> 0 THEN
		ROLLBACK;
		MessageBox('Error','删除原有替代工序明细失败')
		RETURN
	END IF
	
	cnt = 0
	dw_replace.AcceptText()
	FOR ll_i = 1 To dw_replace.RowCount()
		ls_replacestr = dw_replace.Object.replacestr[ll_i]
		ls_opemp = dw_replace.Object.opemp[ll_i]
		ldt_opdate = dw_replace.Object.opdate[ll_i]
		
		IF Trim(ls_replacestr) = '' THEN CONTINUE
		
		cnt++
		INSERT INTO u_sc_workprocedure_replacemx
			(proid,
			printid,
			replacestr,
			opemp,
			opdate)
			VALUES
			(:ll_proid,
			:cnt,
			:ls_replacestr,
			:ls_opemp,
			:ldt_opdate);
		IF sqlca.SQLCode <> 0 THEN
			ROLLBACK;
			MessageBox('Error','插入替代工序明细失败,'+sqlca.SQLErrText)
			RETURN
		END IF
	NEXT

END IF

CALL Super::Clicked
IF dw_edit_mode THEN
	dw_uc.SetColumn('code')
	dw_mx.Reset()
	dw_replace.reset()
ELSE
	Parent.TriggerEvent('retrieve_mx')
END IF





end event

type cb_edit from w_publ_edit_index`cb_edit within w_sc_workprocedure
integer x = 343
end type

event cb_edit::clicked;IF NOT f_power_ind(33,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

IF DW_UC.GetRow() <= 0 THEN
	MessageBox('系统提示','请选择目标行')
	RETURN
END IF

CALL SUPER::Clicked
IF dw_edit_mode THEN
	oldcode = DW_UC.Object.code[DW_UC.GetRow()]
	oldname = DW_UC.Object.Name[DW_UC.GetRow()]
	DW_UC.SelectText(Len(String(DW_UC.Object.code[DW_UC.GetRow()]))+1,0)
ELSE
	oldcode = ''
	oldname = ''
	PARENT.TriggerEvent('retrieve_mx')
END IF

PARENT.TriggerEvent("refresh_interface")


end event

type cb_delet from w_publ_edit_index`cb_delet within w_sc_workprocedure
integer x = 535
end type

event cb_delet::clicked;IF Not f_power_ind(33,sys_msg_pow) THEN
	MessageBox(publ_operator,sys_msg_pow)
	RETURN
END IF

Long cnt = 0,ls_row,ls_id
String ls_proname
ls_row = dw_uc.GetRow()
IF ls_row = 0 THEN
	MessageBox(publ_operator,'没有删除对象！')
	RETURN
END IF

ls_id = dw_uc.Object.proid[ls_row]
ls_proname = dw_uc.Object.code[ls_row]

IF MessageBox ("if","是否确定要删除当前记录["+ls_proname+"]?(选择确定后记录将不可恢复)",question!,yesno! ) = 2 THEN
	RETURN
END IF



SELECT count(*)   as cnt
	INTO :cnt
	FROM u_sc_workprice
	Where u_sc_workprice.proid = :ls_id   ;
	
IF sqlca.SQLCode <> 0 THEN
	MessageBox(publ_operator,'查询工序['+ls_proname+']是否使用操作失败!>>'+sqlca.SQLErrText)
	RETURN
END IF

IF cnt > 0 THEN
	MessageBox(publ_operator,'工序['+ls_proname+']已经使用，不可以删除!')
	RETURN
END IF



DELETE u_sc_workprocedure_pricestrmx
	Where proid = :ls_id;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('Error','删除明细失败')
	RETURN
END IF

DELETE u_sc_workprocedure_replacemx
	Where proid = :ls_id;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('Error','删除替代工序明细失败')
	RETURN
END IF

DELETE u_sc_workprocedure_replacemx
	Where proid = :ls_id;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('Error','删除替代工序明细失败')
	RETURN
END IF

DELETE u_sc_workprocedure
	Where proid = :ls_id;
IF sqlca.SQLCode <> 0 THEN
	ROLLBACK;
	MessageBox('Error','删除工序失败')
	RETURN
END IF


//IF dw_uc.Update() = -1 THEN
//	ROLLBACK;
//	MessageBox ("no","删除记录操作失败!",exclamation!,ok!)
//ELSE
COMMIT;

Long ll_proid
String arg_msg
String ls_code, ls_name
ll_proid = dw_uc.Object.proid[ls_row]
ls_code = dw_uc.Object.code[ls_row]
ls_name = dw_uc.Object.Name[ls_row]

f_setsysoplog('定义资料','工序删除,工序ID:'+String(ll_proid)+',工序编号名称:'+ls_code+','+ls_name,arg_msg,True)
//END IF

dw_uc.SetRedraw (False)
dw_uc.DeleteRow (ls_row)
dw_uc.TriggerEvent (RowFocusChanged!)

dw_uc.SetRedraw (True)
wf_index_uc()





end event

type cb_choice from w_publ_edit_index`cb_choice within w_sc_workprocedure
integer x = 1842
end type

event cb_choice::clicked;call super::clicked;Long ROW,ls_i,chC = 0
String ls_pricestr
Long ll_proid
ROW = dw_index.GetRow()
IF ROW <= 0 THEN
	MessageBox('系统提示','请先选择目标行!',StopSign!)
	RETURN
END IF

FOR ls_i = 1 To dw_index.RowCount()
	IF dw_index.IsSelected(ls_i) THEN
		chC++
		INS_RT_STRU.wrkproid[chC] = dw_index.Object.proid[ls_i]
		INS_RT_STRU.wrkprocode[chC] = dw_index.Object.code[ls_i]
		INS_RT_STRU.wrkproname[chC] = dw_index.Object.Name[ls_i]
		INS_RT_STRU.worklevel[chC] = dw_index.Object.u_sc_workprocedure_worklevel[ls_i]
		INS_RT_STRU.techlevel[chC] = dw_index.Object.u_sc_workprocedure_techlevel[ls_i]
		INS_RT_STRU.workhour[chC] = dw_index.Object.u_sc_workprocedure_workhour[ls_i]
		INS_RT_STRU.workprice[chC] = dw_index.Object.workprice[ls_i]
		INS_RT_STRU.wrkGrid[chC] = dw_index.Object.wrkgrpid[ls_i]
		INS_RT_STRU.ifgroup[chC] = dw_index.Object.wrkgrpid[ls_i]
		INS_RT_STRU.ifreplace[chC] = dw_index.Object.u_sc_workprocedure_ifreplace[ls_i]
		INS_RT_STRU.worktype[chC] = dw_index.Object.u_sc_workprocedure_worktype[ls_i]
		INS_RT_STRU.hourpay[chC] = dw_index.Object.hourpay[ls_i]
		
		INS_RT_STRU.rpcode[chC] = dw_index.Object.u_sc_workprocedure_rpcode[ls_i]

		INS_RT_STRU.ifdftpg[chC] = dw_index.Object.u_sc_workprocedure_ifdftpg[ls_i]
		INS_RT_STRU.ifdftjj[chC] = dw_index.Object.u_sc_workprocedure_ifdftjj[ls_i]
		
		INS_RT_STRU.jdtype[chC] = dw_index.Object.u_sc_workgroup_jdtype[ls_i]
		
		ll_proid = dw_index.Object.proid[ls_i]
		
		SELECT top 1 pricestr
			INTO :ls_pricestr
			FROM u_sc_workprocedure_pricestrmx
			WHERE proid = :ll_proid
			And ifdft = 1;
		IF sqlca.SQLCode <> 0 THEN ls_pricestr = ''

		INS_RT_STRU.pricestr[chC] = ls_pricestr
		
	END IF
NEXT
IF chC = 0 THEN
	MessageBox('系统提示','请至少选择一个目标行!',StopSign!)
	RETURN
END IF

Close(Parent)



end event

type cb_cancel from w_publ_edit_index`cb_cancel within w_sc_workprocedure
integer x = 539
integer y = 608
end type

type cbx_mlselect from w_publ_edit_index`cbx_mlselect within w_sc_workprocedure
integer x = 2871
end type

type cbx_allselect from w_publ_edit_index`cbx_allselect within w_sc_workprocedure
integer x = 3104
end type

type cb_mode_itfchg_b from w_publ_edit_index`cb_mode_itfchg_b within w_sc_workprocedure
end type

type cb_mode_itfchg from w_publ_edit_index`cb_mode_itfchg within w_sc_workprocedure
integer x = 1746
end type

type gb_1 from w_publ_edit_index`gb_1 within w_sc_workprocedure
end type

type dw_uc from w_publ_edit_index`dw_uc within w_sc_workprocedure
integer x = 2011
integer width = 1568
integer height = 1232
string dataobject = "dw_sc_workprocedure_edit"
end type

event dw_uc::itemchanged;call super::itemchanged;String ls_worktype
Decimal ld_hourpay

IF row > 0 THEN
	IF dwo.Name = 'u_sc_workprocedure_worktype' THEN
		This.AcceptText()
		ls_worktype = This.Object.u_sc_workprocedure_worktype[row]
		
		SELECT hourpay
			INTO :ld_hourpay
			FROM u_worktype
			Where worktype  = :ls_worktype;
		IF sqlca.SQLCode <> 0 THEN
			ld_hourpay = 0
		END IF
		
		This.Object.hourpay[row] = ld_hourpay
	END IF
	
END IF

end event

type cb_retrieve from w_publ_edit_index`cb_retrieve within w_sc_workprocedure
integer x = 0
end type

type cb_print from w_publ_edit_index`cb_print within w_sc_workprocedure
integer x = 1554
end type

event cb_print::clicked;call super::clicked;S_print_MSG LS_PRMSG

LS_PRMSG.obj_dwNAME='dw_sc_rp_workprocedure'
//LS_PRMSG.SHARE_DW=DW_UC
LS_PRMSG.TAG_TEXT='工序列表'
LS_PRMSG.SETUP_FLAG=0
LS_PRMSG.PAGECH_FLAG=1

LS_PRMSG.retr_pram_falg = -1

Openwithparm(w_publ_preview,LS_PRMSG)

end event

type ln_bar from w_publ_edit_index`ln_bar within w_sc_workprocedure
end type

type ln_bar2 from w_publ_edit_index`ln_bar2 within w_sc_workprocedure
end type

type r_bar from w_publ_edit_index`r_bar within w_sc_workprocedure
integer x = 3232
end type

type ln_1 from w_publ_edit_index`ln_1 within w_sc_workprocedure
end type

type ln_2 from w_publ_edit_index`ln_2 within w_sc_workprocedure
end type

type dw_index from w_publ_edit_index`dw_index within w_sc_workprocedure
integer width = 2002
integer height = 1996
string dataobject = "dw_sc_workprocedure_index"
end type

event dw_index::rowfocuschanged;call super::rowfocuschanged;IF NOT dw_edit_mode THEN
	PARENT.TriggerEvent('retrieve_mx')
END IF

end event

type cb_other from uo_imflatbutton within w_sc_workprocedure
integer x = 686
integer width = 279
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "其它功能"
string normalpicname = "update.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF NOT dw_edit_mode THEN
	menustr = "Text=批量修改工价表工序单价~tEvent=ue_pset_workpricetable"
	menustr = menustr + "|" + "Text=-"
	menustr = menustr + "|" + "Text=批量修改计件单工序单价~tEvent=ue_pmod_taskwork_workprice"
END IF

IF Len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF





end event

type ddlb_publ from dropdownlistbox within w_sc_workprocedure
integer x = 1339
integer y = 192
integer width = 549
integer height = 452
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "全部"
boolean sorted = false
string item[] = {"非公共","公共","全部"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;parent.triggerevent('retrieve_uc')
end event

type st_2 from statictext within w_sc_workprocedure
integer x = 1184
integer y = 204
integer width = 151
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
string text = "类型"
alignment alignment = center!
boolean focusrectangle = false
end type

type cb_help from uo_imflatbutton within w_sc_workprocedure
integer x = 1993
integer width = 151
integer height = 164
integer taborder = 120
boolean bringtotop = true
string text = "帮助"
string normalpicname = "help.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;PARENT.TriggerEvent('ue_help')

end event

type cb_addmx from uo_imflatbutton within w_sc_workprocedure
integer x = 965
integer width = 219
integer height = 164
integer taborder = 50
boolean bringtotop = true
boolean enabled = false
string text = "增明细"
string normalpicname = "mx1.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('insert_childrow')
end event

type cb_delmx from uo_imflatbutton within w_sc_workprocedure
integer x = 1184
integer width = 219
integer height = 164
integer taborder = 60
boolean bringtotop = true
boolean enabled = false
string text = "删明细"
string normalpicname = "mx2.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_deletemx')
end event

type ddlb_wrkgrpid from uo_ddlb_wrkgrpid within w_sc_workprocedure
integer x = 1902
integer y = 192
integer width = 443
integer height = 820
integer taborder = 30
boolean bringtotop = true
boolean sorted = false
end type

event constructor;call super::constructor;cur_wrkgrpid = this.uo_wrkgrpid
end event

event selectionchanged;call super::selectionchanged;cur_wrkgrpid = this.uo_wrkgrpid
cb_retrieve.triggerevent(clicked!)
end event

type tab_1 from tab within w_sc_workprocedure
integer x = 2002
integer y = 1532
integer width = 1568
integer height = 756
integer taborder = 170
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_2 tabpage_2
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.tabpage_2=create tabpage_2
this.Control[]={this.tabpage_1,&
this.tabpage_2}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
end on

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 1531
integer height = 644
long backcolor = 134217739
string text = "单价公式明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_1 dw_1
end type

on tabpage_1.create
this.dw_1=create dw_1
this.Control[]={this.dw_1}
end on

on tabpage_1.destroy
destroy(this.dw_1)
end on

type dw_1 from u_dw_rbtnfilter within tabpage_1
integer width = 1531
integer height = 640
integer taborder = 20
string dataobject = "dw_sc_workprocedure_pricestrmx_edit"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event doubleclicked;call super::doubleclicked;IF Not dw_edit_mode THEN RETURN

dw_mx.AcceptText()

String ls_pricestr
Long ll_row
s_edit_index_tran s_tran_str

ll_row = dw_mx.GetRow()

IF ll_row <= 0 THEN RETURN

ls_pricestr = dw_mx.Object.pricestr[ll_row]

s_tran_str.b_long = 0 // 0-工价,1-数量
s_tran_str.b_string = ls_pricestr

OpenWithParm(w_mtrl_workpricestr_compute_edit,s_tran_str)

ls_pricestr = Message.StringParm

dw_mx.Object.pricestr[ll_row] = ls_pricestr

dw_mx.AcceptText()

end event

event rowfocuschanged;call super::rowfocuschanged;Long ll_i
IF NOT dw_edit_mode THEN
	IF currentrow <= 0 THEN RETURN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
ELSE
	IF if_del THEN RETURN
	IF KeyDown(keycontrol!) THEN
		IF NOT THIS.IsSelected(currentrow) THEN
			THIS.SelectRow(currentrow,TRUE)
			if_changeselect = FALSE
		ELSE
			if_changeselect = TRUE
		END IF
	ELSEIF KeyDown(keyshift!) THEN //按下SHIFT键
		IF ll_lastrow = 0 THEN //上次没选中任何行
			THIS.SelectRow(currentrow,TRUE)
			ll_lastrow = currentrow //ll_lastrow为实例变量，记录上次单击的行
		ELSE
			THIS.SelectRow(0,FALSE) //全都不选中
			IF currentrow > ll_lastrow THEN
				FOR ll_i = ll_lastrow TO currentrow
					THIS.SelectRow(ll_i,TRUE)
				NEXT
			ELSE
				FOR ll_i = ll_lastrow TO currentrow STEP -1
					THIS.SelectRow(ll_i,TRUE)
				NEXT
			END IF
		END IF
		
	ELSE
		THIS.SelectRow(0,FALSE)
		THIS.SelectRow(currentrow,TRUE)
		ll_lastrow = currentrow
	END IF
END IF
end event

event dwnkey;call super::dwnkey;If Not dw_edit_mode Then Return

If KeyDown(keydownarrow!) Then
	If This.GetRow() = This.RowCount() Then
		Parent.GetParent().GetParent().TriggerEvent("insert_childrow")
	End If
End If

end event

type tabpage_2 from userobject within tab_1
boolean visible = false
integer x = 18
integer y = 96
integer width = 1531
integer height = 644
long backcolor = 134217739
string text = "替代工序明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_2 dw_2
end type

on tabpage_2.create
this.dw_2=create dw_2
this.Control[]={this.dw_2}
end on

on tabpage_2.destroy
destroy(this.dw_2)
end on

type dw_2 from u_dw_rbtnfilter within tabpage_2
integer y = 48
integer width = 1531
integer height = 596
integer taborder = 20
string dataobject = "dw_sc_workprocedure_replacemx_edit"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event rowfocuschanged;call super::rowfocuschanged;Long ll_i
IF NOT dw_edit_mode THEN
	IF currentrow <= 0 THEN RETURN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
ELSE
	IF if_del THEN RETURN
	IF KeyDown(keycontrol!) THEN
		IF NOT THIS.IsSelected(currentrow) THEN
			THIS.SelectRow(currentrow,TRUE)
			if_changeselect = FALSE
		ELSE
			if_changeselect = TRUE
		END IF
	ELSEIF KeyDown(keyshift!) THEN //按下SHIFT键
		IF ll_lastrow = 0 THEN //上次没选中任何行
			THIS.SelectRow(currentrow,TRUE)
			ll_lastrow = currentrow //ll_lastrow为实例变量，记录上次单击的行
		ELSE
			THIS.SelectRow(0,FALSE) //全都不选中
			IF currentrow > ll_lastrow THEN
				FOR ll_i = ll_lastrow TO currentrow
					THIS.SelectRow(ll_i,TRUE)
				NEXT
			ELSE
				FOR ll_i = ll_lastrow TO currentrow STEP -1
					THIS.SelectRow(ll_i,TRUE)
				NEXT
			END IF
		END IF
		
	ELSE
		THIS.SelectRow(0,FALSE)
		THIS.SelectRow(currentrow,TRUE)
		ll_lastrow = currentrow
	END IF
END IF
end event

event dwnkey;call super::dwnkey;If Not dw_edit_mode Then Return

If KeyDown(keydownarrow!) Then
	If This.GetRow() = This.RowCount() Then
		Parent.GetParent().GetParent().TriggerEvent("insert_childrow")
	End If
Else
	If This.GetColumnName( ) = 'replacestr' And This.GetRow() = This.RowCount() and Key = KeyEnter! Then
		Parent.GetParent().GetParent().TriggerEvent("insert_childrow")
		Return 1
	End If
End If


end event