Q5/ws_objects/Ew_mrp.pbl.src/w_rp_saletask_sc_card.srw

$PBExportHeader$w_rp_saletask_sc_card.srw
forward
global type w_rp_saletask_sc_card from w_publ_easyq
end type
type ddlb_1 from dropdownlistbox within w_rp_saletask_sc_card
end type
type ddlb_scid from uo_ddlb_scid within w_rp_saletask_sc_card
end type
type st_5 from statictext within w_rp_saletask_sc_card
end type
type ddlb_status from uo_ddlb_status within w_rp_saletask_sc_card
end type
end forward

global type w_rp_saletask_sc_card from w_publ_easyq
integer width = 3913
string title = "流程卡统计表"
ddlb_1 ddlb_1
ddlb_scid ddlb_scid
st_5 st_5
ddlb_status ddlb_status
end type
global w_rp_saletask_sc_card w_rp_saletask_sc_card

type variables
Int cur_status = 1
Int cur_stattype = 0
Long cur_scid_arr[]


end variables

on w_rp_saletask_sc_card.create
int iCurrent
call super::create
this.ddlb_1=create ddlb_1
this.ddlb_scid=create ddlb_scid
this.st_5=create st_5
this.ddlb_status=create ddlb_status
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_1
this.Control[iCurrent+2]=this.ddlb_scid
this.Control[iCurrent+3]=this.st_5
this.Control[iCurrent+4]=this.ddlb_status
end on

on w_rp_saletask_sc_card.destroy
call super::destroy
destroy(this.ddlb_1)
destroy(this.ddlb_scid)
destroy(this.st_5)
destroy(this.ddlb_status)
end on

event close;call super::close;//dw_1.uf_save_profile_layout()
f_SetProfileString(sys_empid, dw_1.DataObject, "cur_stattype", String(cur_stattype))


end event

event ue_before_openretrieve;call super::ue_before_openretrieve;EM_1.Text = String(Today(),'yyyy-mm')+'-01'
EM_2.Text = String(Today(),'YYYY-MM-DD')

String ls_windowname
ls_windowname = This.ClassName ( )

String ls_old_dwname,ls_new_dwname = ''
ls_old_dwname = dw_1.DataObject
ls_new_dwname = f_get_dwprint_dynamic_chname(ls_old_dwname,ls_windowname)

IF ls_new_dwname = '' THEN
	ls_new_dwname = ls_old_dwname
END IF

dw_1.DataObject = ls_new_dwname
dw_1.SetTransObject(sqlca)

dw_1.TriggerEvent("constructor")


end event

type cb_func from w_publ_easyq`cb_func within w_rp_saletask_sc_card
end type

event cb_func::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr

IF if_ue_retr THEN
	menustr = "Text=查询~tEvent=ue_retr"
END IF

IF if_ue_filter THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=高级筛选~tEvent=ue_filter"
	ELSE
		menustr = menustr + "|" + "Text=高级筛选~tEvent=ue_filter"
	END IF
END IF

IF if_ue_sort THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=排序~tEvent=ue_sort"
	ELSE
		menustr = menustr + "|" + "Text=排序~tEvent=ue_sort"
	END IF
END IF

IF menustr <> "" AND if_ue_sentdataout THEN menustr = menustr + "|" + "Text=-"

IF if_ue_sentdataout THEN
	IF Len(Trim(menustr)) = 0 THEN
		menustr = "Text=数据发送~tEvent=ue_sentdataout"
	ELSE
		menustr = menustr + "|" + "Text=数据发送~tEvent=ue_sentdataout"
	END IF
END IF

IF menustr <> "" THEN menustr = menustr + "|" + "Text=-"

IF Len(Trim(menustr)) = 0 THEN
	menustr = "Text=页面设置~tEvent=ue_psetup"
ELSE
	menustr = menustr + "|" + "Text=页面设置~tEvent=ue_psetup"
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 cb_exit from w_publ_easyq`cb_exit within w_rp_saletask_sc_card
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_saletask_sc_card
boolean bringtotop = true
end type

event cb_2::clicked;IF DW_1.RowCount() >= 1 THEN
	cbx_YL.Checked = TRUE
	cbx_YL.TriggerEvent(Clicked!)
	OpenWithParm(w_sys_printpagesetting,DW_1)
ELSE
	MessageBox('提示','数据窗口中没有任何记录，不能打印！',information!,OK!)
END IF


IF Trim(DW_1.DataObject) = '' THEN RETURN
f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_TOP",   String(DW_1.Object.DataWindow.Print.MARGIN.Top))
f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_LEFT", String(DW_1.Object.DataWindow.Print.MARGIN.Left))

f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_BOTTOM",   String(DW_1.Object.DataWindow.Print.MARGIN.BOTTOM))
f_SetProfileString (sys_empid,DW_1.DataObject, "MARGIN_RIGHT", String(DW_1.Object.DataWindow.Print.MARGIN.Right))



end event

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_saletask_sc_card
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_saletask_sc_card
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;datetime firstdate,enddate
firstdate = DATEtime(date(EM_1.TEXT),time(0))
enddate = datetime(date(EM_2.TEXT),time('23:59:59'))
dw_1.Retrieve(cur_scid_arr,cur_status,cur_stattype,firstdate,enddate)

end event

type st_3 from w_publ_easyq`st_3 within w_rp_saletask_sc_card
integer x = 1765
integer y = 200
integer width = 215
alignment alignment = left!
end type

type st_4 from w_publ_easyq`st_4 within w_rp_saletask_sc_card
integer x = 2478
integer y = 200
end type

type em_1 from w_publ_easyq`em_1 within w_rp_saletask_sc_card
integer x = 1975
integer y = 184
end type

type em_2 from w_publ_easyq`em_2 within w_rp_saletask_sc_card
integer x = 2578
integer y = 184
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_saletask_sc_card
integer x = 1527
integer y = 12
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_saletask_sc_card
integer x = 1289
integer y = 16
integer width = 238
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_saletask_sc_card
integer y = 292
integer width = 2967
integer height = 1724
string dataobject = "dw_rp_saletask_sc_card"
end type

event dw_1::doubleclicked;call super::doubleclicked;IF not dw_edit_mode THEN
	IF row > 0 THEN
		String ls_code
		Long ll_scid
		
		ll_scid = THIS.Object.u_saletask_scid[row]
		ls_code = THIS.Object.u_saletask_taskcode[row]
		
		f_open_win(ll_scid,ls_code)		
	END IF
END IF

end event

event dw_1::clicked;call super::clicked;this.setrow(row)
THIS.SelectRow(0,FALSE)
THIS.SelectRow(row,TRUE)

end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_saletask_sc_card
integer x = 1943
integer y = 1252
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_saletask_sc_card
integer x = 402
integer y = 1000
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_saletask_sc_card
integer x = 1253
integer y = 1156
end type

type st_cust from w_publ_easyq`st_cust within w_rp_saletask_sc_card
integer x = 1435
integer y = 1088
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_saletask_sc_card
integer x = 1289
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_rp_saletask_sc_card
integer x = 2386
integer y = 184
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_rp_saletask_sc_card
integer x = 2999
integer y = 184
end type

type pb_2 from w_publ_easyq`pb_2 within w_rp_saletask_sc_card
integer x = 3109
integer y = 184
end type

type cb_help from w_publ_easyq`cb_help within w_rp_saletask_sc_card
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_saletask_sc_card
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_saletask_sc_card
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_saletask_sc_card
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_saletask_sc_card
end type

type r_bar from w_publ_easyq`r_bar within w_rp_saletask_sc_card
integer x = 3799
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_saletask_sc_card
integer beginy = 284
integer endy = 284
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_saletask_sc_card
integer beginy = 288
integer endy = 288
end type

type ln_3 from w_publ_easyq`ln_3 within w_rp_saletask_sc_card
integer beginy = 300
integer endy = 300
end type

type ln_4 from w_publ_easyq`ln_4 within w_rp_saletask_sc_card
integer beginy = 304
integer endy = 304
end type

type ddlb_1 from dropdownlistbox within w_rp_saletask_sc_card
integer x = 1339
integer y = 188
integer width = 407
integer height = 300
integer taborder = 110
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;if this.text = '按订货日期' then
	cur_stattype = 0
else
	cur_stattype = 1
end if

cb_1.triggerevent(clicked!)
end event

event constructor;cur_stattype = Long(f_ProfileString(sys_empid,  dw_1.DataObject, "cur_stattype", "0"))

CHOOSE CASE cur_stattype
	CASE 0
		this.Text = "按订货日期"
	CASE 1
		this.Text = "按交货日期"
END CHOOSE

end event

type ddlb_scid from uo_ddlb_scid within w_rp_saletask_sc_card
integer y = 188
integer width = 549
integer height = 620
integer taborder = 90
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_scid_arr = THIS.uo_scid_arr
end event

event selectionchanged;call super::selectionchanged;cur_scid_arr = THIS.uo_scid_arr
cb_1.triggerevent(clicked!)
end event

type st_5 from statictext within w_rp_saletask_sc_card
integer x = 585
integer y = 204
integer width = 343
integer height = 48
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 = "销售订单状态"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_status from uo_ddlb_status within w_rp_saletask_sc_card
integer x = 942
integer y = 188
integer width = 389
integer taborder = 100
boolean bringtotop = true
string item[] = {"[全部]","待审核[0]","待二审[4]","在进行[1]","已暂停[2]","已终止[3]","已完成[5]","手动完成[6]"}
integer uo_status = 1
integer dft_index = 4
end type

event selectionchanged;call super::selectionchanged;cb_1.TriggerEvent(Clicked!)
end event

event uof_getvalue;call super::uof_getvalue;cur_status = this.uo_status
end event