Q5/ws_objects/Ew_define.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 st_2 from statictext within w_sc_workprocedure
end type
type ddlb_publ from dropdownlistbox within w_sc_workprocedure
end type
type cbx_ineffect from checkbox within w_sc_workprocedure
end type
end forward

global type w_sc_workprocedure from w_publ_edit_index
integer width = 2930
integer height = 1768
string title = "工序"
boolean minbox = true
windowtype windowtype = popup!
st_2 st_2
ddlb_publ ddlb_publ
cbx_ineffect cbx_ineffect
end type
global w_sc_workprocedure w_sc_workprocedure

type variables
s_workprocedure  INS_RT_STRU

//====================================================================
// Declare Instance Variables
// Reason: 
//--------------------------------------------------------------------
// Modified By: yyx		Date: 2003.10.30
//--------------------------------------------------------------------
//日志参数
//====================================================================
string oldcode,oldname,newcode,newname 
long  ins_ineffect = 1
end variables

on w_sc_workprocedure.create
int iCurrent
call super::create
this.st_2=create st_2
this.ddlb_publ=create ddlb_publ
this.cbx_ineffect=create cbx_ineffect
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_2
this.Control[iCurrent+2]=this.ddlb_publ
this.Control[iCurrent+3]=this.cbx_ineffect
end on

on w_sc_workprocedure.destroy
call super::destroy
destroy(this.st_2)
destroy(this.ddlb_publ)
destroy(this.cbx_ineffect)
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="(code like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="(code 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)+'%" )'
	else
		obj_expr=obj_expr+'( code 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 retrieve_uc;Boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled
Boolean cb_priorpage_enabled,cb_func_enabled,cb_retrieve_enabled
Boolean cbx_ineffect_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
cbx_ineffect_Enabled = cbx_ineffect.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
cbx_ineffect.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,ins_ineffect)
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
cbx_ineffect.Enabled = cbx_ineffect_Enabled



end event

type cb_func from w_publ_edit_index`cb_func within w_sc_workprocedure
end type

type cb_exit from w_publ_edit_index`cb_exit within w_sc_workprocedure
end type

type sle_usual_query from w_publ_edit_index`sle_usual_query within w_sc_workprocedure
end type

type cb_nextpage from w_publ_edit_index`cb_nextpage within w_sc_workprocedure
integer x = 2258
end type

type cb_priorpage from w_publ_edit_index`cb_priorpage within w_sc_workprocedure
integer x = 2112
end type

type cb_firstpage from w_publ_edit_index`cb_firstpage within w_sc_workprocedure
integer x = 1966
end type

type cb_retrieveall from w_publ_edit_index`cb_retrieveall within w_sc_workprocedure
integer x = 1819
end type

type em_pagerowno from w_publ_edit_index`em_pagerowno within w_sc_workprocedure
integer x = 1513
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
end type

type cb_add from w_publ_edit_index`cb_add within w_sc_workprocedure
end type

event cb_add::clicked;IF NOT f_power_ind(1014) THEN
	MessageBox('提示','你没有使用权限！', Information!, OK! )
	RETURN
END IF

Long ll_proid = 0
String errmsg = ''

IF dw_edit_mode THEN
	dw_uc.AcceptText()
	IF dw_uc.GetNextModified(0, Primary!) = 0 THEN
		MessageBox('提示','没有任何修改，不可以保存!', Information!, OK! )
		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
	
	IF dw_uc.Object.code[dw_uc.GetRow()] = '' THEN
		MessageBox('提示','请输入工序编号!', Information!, OK! )
		dw_uc.SetFocus()
		dw_uc.SetColumn('code')
		RETURN
	END IF
	
	IF IsNull(dw_uc.Object.Name[dw_uc.GetRow()]) THEN
		dw_uc.SetColumn('Name')
		MessageBox('提示','请输入工序名称!', Information!, OK! )
		RETURN
	END IF
	
	IF dw_uc.Object.wrkgrpid[dw_uc.GetRow()] = 0 THEN
		dw_uc.SetColumn('wrkgrpid')
		MessageBox('提示','请输入工组!', Information!, OK! )
		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,sqlca)
		
		IF ll_proid < 0 THEN
			MessageBox("提示",errmsg, Information!, OK! )
			RETURN
		ELSE
			dw_uc.Object.proid[dw_uc.GetRow()] = ll_proid
		END IF
	ELSE
		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
END IF

CALL SUPER::Clicked
IF dw_edit_mode THEN
	dw_uc.SetColumn('code')
END IF


end event

type cb_edit from w_publ_edit_index`cb_edit within w_sc_workprocedure
end type

event cb_edit::clicked;if DW_UC.GETROW() = 0  then return
if not f_power_ind(1014) then
	messagebox(publ_operator,'你没有使用权限！')
	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=''
end if

parent.triggerevent("refresh_interface")

end event

type cb_delet from w_publ_edit_index`cb_delet within w_sc_workprocedure
end type

event cb_delet::clicked;if not f_power_ind(1014) then
	messagebox('提示','你没有使用权限！', Information!, OK! )
	return
end if

long cnt = 0,ls_row,ls_id
string ls_proname
ls_row = dw_uc.getrow()
if ls_row = 0 then
	messagebox('提示','没有删除对象！', Information!, OK! )
	return
end if

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

if messagebox ("询问","是否确定要删除当前记录["+ls_proname+"]?(选择确定后记录将不可恢复)",question!,yesno! ) = 2 then
	return
end if

select count(*)
	into :cnt
	from u_sc_abnormitymx
	where u_sc_abnormitymx.proid = :ls_id   ;
	
if sqlca.sqlcode <> 0 then
	messagebox('提示','查询工序['+ls_proname+']是否使用操作失败!>>'+sqlca.sqlerrtext, Information!, OK! )
	return
end if

if cnt > 0 then
	messagebox('提示','工序['+ls_proname+']已经用于计件单，不可以删除!', Information!, OK! )
	return
end if

dw_uc.setredraw (false)
dw_uc.deleterow (ls_row)
dw_uc.triggerevent (rowfocuschanged!)

if dw_uc.update() = -1 then
	rollback;
	messagebox ("提示","删除记录操作失败!", Information!, OK! )
else
	commit;
end if
dw_uc.setredraw (true)
wf_index_uc()

end event

type cb_choice from w_publ_edit_index`cb_choice within w_sc_workprocedure
end type

event cb_choice::clicked;call super::clicked;Long ROW,ls_i,chC = 0
ROW = dw_index.GetRow()
IF ROW <= 0 THEN
	MessageBox('提示','请先选择目标行!', Information!, OK! )
	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]
	END IF	
NEXT
IF chC = 0 THEN
	MessageBox('提示','请至少选择一个目标行!', Information!, OK! )
	RETURN
END IF

CLOSE(PARENT)

end event

type cb_cancel from w_publ_edit_index`cb_cancel within w_sc_workprocedure
end type

type cbx_mlselect from w_publ_edit_index`cbx_mlselect within w_sc_workprocedure
end type

type cbx_allselect from w_publ_edit_index`cbx_allselect within w_sc_workprocedure
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
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 = 1326
integer width = 1568
string dataobject = "dw_sc_workprocedure_edit"
end type

type cb_retrieve from w_publ_edit_index`cb_retrieve within w_sc_workprocedure
end type

type cb_print from w_publ_edit_index`cb_print within w_sc_workprocedure
end type

event cb_print::clicked;//if not f_power_ind(983) then
//	messagebox(publ_operator,'你没有使用权限！')
//	return
//end if
//
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 = 17
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
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 = 1326
string dataobject = "dw_sc_workprocedure_index"
end type

type cb_help from w_publ_edit_index`cb_help within w_sc_workprocedure
end type

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

type ddlb_publ from dropdownlistbox within w_sc_workprocedure
integer x = 850
integer y = 184
integer width = 480
integer height = 300
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 = "全部"
string item[] = {"非公共","公共","全部"}
borderstyle borderstyle = stylelowered!
end type

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

type cbx_ineffect from checkbox within w_sc_workprocedure
integer x = 2153
integer y = 204
integer width = 466
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "只显示有效工序"
boolean checked = true
end type

event constructor;THIS.backcolor = parent.backcolor
end event

event clicked;if dw_edit_mode  then RETURN

IF THIS.checked = TRUE THEN
	 //THIS.checked  = FALSE
	 ins_ineffect = 1
ELSE
	//THIS.checked  = TRUE
	ins_ineffect = -1
END IF


parent.triggerevent('retrieve_uc')
end event