Q5/ws_objects/Ew_report.pbl.src/w_rp_sale_saletask_jdgz.srw

$PBExportHeader$w_rp_sale_saletask_jdgz.srw
forward
global type w_rp_sale_saletask_jdgz from w_publ_easyq
end type
type ddlb_1 from dropdownlistbox within w_rp_sale_saletask_jdgz
end type
type ddlb_scid from uo_ddlb_scid within w_rp_sale_saletask_jdgz
end type
type ddlb_2 from dropdownlistbox within w_rp_sale_saletask_jdgz
end type
type ddlb_3 from dropdownlistbox within w_rp_sale_saletask_jdgz
end type
type ddlb_status from uo_ddlb_status within w_rp_sale_saletask_jdgz
end type
type ddlb_4 from dropdownlistbox within w_rp_sale_saletask_jdgz
end type
type tab_1 from tab within w_rp_sale_saletask_jdgz
end type
type tabpage_1 from userobject within tab_1
end type
type dw_buytask from u_dw_rbtnfilter within tabpage_1
end type
type tabpage_1 from userobject within tab_1
dw_buytask dw_buytask
end type
type tabpage_2 from userobject within tab_1
end type
type dw_inware from u_dw_rbtnfilter within tabpage_2
end type
type tabpage_2 from userobject within tab_1
dw_inware dw_inware
end type
type tabpage_3 from userobject within tab_1
end type
type dw_outware_sale from u_dw_rbtnfilter within tabpage_3
end type
type tabpage_3 from userobject within tab_1
dw_outware_sale dw_outware_sale
end type
type tab_1 from tab within w_rp_sale_saletask_jdgz
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
end type
end forward

global type w_rp_sale_saletask_jdgz from w_publ_easyq
string title = "销售订单进度跟踪表"
event ue_retrieve_mx ( )
ddlb_1 ddlb_1
ddlb_scid ddlb_scid
ddlb_2 ddlb_2
ddlb_3 ddlb_3
ddlb_status ddlb_status
ddlb_4 ddlb_4
tab_1 tab_1
end type
global w_rp_sale_saletask_jdgz w_rp_sale_saletask_jdgz

type variables
int cur_status = 0 //当前查询订单状态// -1 所有
int cur_stattype = 0
long cur_scid_arr[]

int cur_kind = -1
int cur_fhflag = -1
string ls_areaname=''
end variables

forward prototypes
public subroutine wf_hidecol ()
public subroutine wf_init_dw1 ()
end prototypes

event ue_retrieve_mx();Long ll_row
long ll_scid, ll_taskid, ll_printid

ll_row = dw_1.GetRow()


tab_1.tabpage_1.dw_buytask.setredraw(false)
tab_1.tabpage_2.dw_inware.setredraw(false)
tab_1.tabpage_3.dw_outware_sale.setredraw(false)

tab_1.tabpage_1.dw_buytask.setfilter('')
tab_1.tabpage_1.dw_buytask.filter()
tab_1.tabpage_2.dw_inware.setfilter('')
tab_1.tabpage_2.dw_inware.filter()
tab_1.tabpage_3.dw_outware_sale.setfilter('')
tab_1.tabpage_3.dw_outware_sale.filter()

IF ll_row <= 0 THEN
	tab_1.tabpage_1.dw_buytask.Reset()
	tab_1.tabpage_2.dw_inware.Reset()
	tab_1.tabpage_3.dw_outware_sale.Reset()
ELSE
	
	ll_scid = dw_1.Object.u_saletask_scid[ll_row]
	ll_taskid = dw_1.Object.u_saletask_taskid[ll_row]
	ll_printid = dw_1.Object.u_saletaskmx_printid[ll_row]
	
	tab_1.tabpage_1.dw_buytask.Retrieve(ll_scid,ll_taskid,ll_printid)
	tab_1.tabpage_2.dw_inware.Retrieve(ll_scid,ll_taskid,ll_printid)
	tab_1.tabpage_3.dw_outware_sale.Retrieve(ll_scid,ll_taskid,ll_printid)
	
END IF


tab_1.tabpage_1.dw_buytask.setredraw(true)
tab_1.tabpage_2.dw_inware.setredraw(true)
tab_1.tabpage_3.dw_outware_sale.setredraw(true)

end event

public subroutine wf_hidecol ();s_hide_col s_col, s_null

IF dw_1.DataObject = 'dw_rp_sale_saletask' THEN
	s_col.col_1 = 'fprice'
	s_col.col_2 = 'amt'
	s_col.col_3 = 'not_consignedqtyamt' 
	s_col.col_4 = 'u_saletaskmx_enprice'
	s_col.col_5 = 'enamt'
	s_col.col_6 = 'u_saletaskmx_dftsaleprice'
	s_col.col_8 = 'rebate'
	s_col.col_9 = 'u_saletaskmx_acprice'
	s_col.col_10 = 'ware_amt'
	s_col.col_11 = 'u_saletaskmx_ware_fprice'
	s_col.col_12 = 'u_saletask_damt'
	f_hide_col(122,dw_1,s_col)
	
	s_col = s_null
	s_col.col_1 = 'consignedenamt'
	s_col.col_2 = 'unconsignedenamt'
	s_col.col_3 = 'u_saletask_msttakeamt'
	s_col.col_4 = 'u_saletask_takedamt'
	s_col.col_5 = 'u_saletask_takeamt'
	s_col.col_6 = 'nottakeamt'
	f_hide_col(122,dw_1,s_col)
ELSEIF dw_1.DataObject = 'dw_rp_sale_saletask_hz' THEN
	s_col.col_1 = 'amt'
	s_col.col_2 = 'consignedqtyamt'
	s_col.col_3 = 'not_consignedqtyamt'
	s_col.col_4 = 'stopamt'
	f_hide_col(122,dw_1,s_col)
ELSEIF dw_1.DataObject = 'dw_rp_sale_saletask_hz_cust' THEN
	s_col.col_1 = 'amt'
	s_col.col_2 = 'consignedenamt'
	s_col.col_3 = 'unconsignedenamt'
	f_hide_col(122,dw_1,s_col)
ELSEIF dw_1.DataObject = 'dw_rp_sale_saletask_hz_assignemp' THEN
	s_col.col_1 = 'amt'
	s_col.col_2 = 'consignedqty'
	s_col.col_3 = 'not_consignedqty'
	f_hide_col(122,dw_1,s_col)
ELSEIF dw_1.DataObject = 'dw_rp_sale_saletask_hz_mtrlsectype' THEN
	s_col.col_1 = 'amt'
	s_col.col_2 = 'consignedqtyamt'
	s_col.col_3 = 'not_consignedqtyamt'
	s_col.col_4 = 'stopamt'
	f_hide_col(122,dw_1,s_col)
ELSEIF dw_1.DataObject = 'dw_rp_sale_saletask_hz_zxmtrlmode' THEN
	s_col.col_1 = 'amt'
	s_col.col_2 = 'not_consignedqtyamt'
	s_col.col_3 = 'consignedqtyamt'
	s_col.col_4 = 'stopamt'
	f_hide_col(122,dw_1,s_col)
ELSEIF dw_1.DataObject = 'dw_rp_sale_saletask_hz_bill' THEN
	s_col.col_1 = 'amt'
	s_col.col_2 = 'not_consignedqtyamt'
	s_col.col_3 = 'consignedqtyamt'
	s_col.col_4 = 'stopamt'
	f_hide_col(122,dw_1,s_col)
ELSEIF dw_1.DataObject = 'dw_rp_sale_saletask_hz_1' THEN
	s_col.col_1 = 'amt'
	f_hide_col(122,dw_1,s_col)
ELSEIF dw_1.DataObject = 'dw_rp_sale_saletask_mx' THEN
	s_col.col_1 = 'fprice'
	s_col.col_2 = 'amt'
	s_col.col_3 = 'not_consignedqtyamt'
	s_col.col_4 = 'u_saletaskmx_enprice'
	s_col.col_5 = 'enamt'
	s_col.col_6 = 'u_saletaskmx_dftsaleprice'
	s_col.col_8 = 'rebate'
	s_col.col_9 = 'u_saletaskmx_acprice'
	s_col.col_10 = 'ware_amt'
	s_col.col_11 = 'u_saletaskmx_ware_fprice'
	f_hide_col(122,dw_1,s_col)
ELSEIF dw_1.DataObject = 'dw_rp_sale_saletask_hz_amt' THEN
	s_col.col_1 = 'consignedenamt'
	s_col.col_2 = 'unconsignedenamt'
	s_col.col_3 = 'u_saletask_msttakeamt'
	s_col.col_4 = 'u_saletask_takedamt'
	s_col.col_5 = 'u_saletask_takeamt'
	s_col.col_6 = 'nottakeamt'
	s_col.col_7 = 'u_saletask_damt'
	s_col.col_8 = 'amt'
	s_col.col_9 = 'enamt'
	s_col.col_10 = 'not_consignedqtyamt'
	s_col.col_11 = 'ware_amt'
	f_hide_col(122,dw_1,s_col)
END IF




s_hide_col s_col_mtrlsectype
s_col_mtrlsectype.col_1 = 'u_mtrldef_mtrlsectype'
f_hide_col(1308,dw_1,s_col_mtrlsectype)

s_hide_col s_col_zxmtrlmode
s_col_zxmtrlmode.col_1 = 'u_mtrldef_zxmtrlmode'
f_hide_col(1309,dw_1,s_col_zxmtrlmode)





end subroutine

public subroutine wf_init_dw1 ();//IF sys_version = 802001 THEN //商业版
//	dw_1.DataObject = 'dw_rp_sale_saletask_b'
//ELSE //工业版
//	dw_1.DataObject = 'dw_rp_sale_saletask'
//END IF
end subroutine

on w_rp_sale_saletask_jdgz.create
int iCurrent
call super::create
this.ddlb_1=create ddlb_1
this.ddlb_scid=create ddlb_scid
this.ddlb_2=create ddlb_2
this.ddlb_3=create ddlb_3
this.ddlb_status=create ddlb_status
this.ddlb_4=create ddlb_4
this.tab_1=create tab_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.ddlb_1
this.Control[iCurrent+2]=this.ddlb_scid
this.Control[iCurrent+3]=this.ddlb_2
this.Control[iCurrent+4]=this.ddlb_3
this.Control[iCurrent+5]=this.ddlb_status
this.Control[iCurrent+6]=this.ddlb_4
this.Control[iCurrent+7]=this.tab_1
end on

on w_rp_sale_saletask_jdgz.destroy
call super::destroy
destroy(this.ddlb_1)
destroy(this.ddlb_scid)
destroy(this.ddlb_2)
destroy(this.ddlb_3)
destroy(this.ddlb_status)
destroy(this.ddlb_4)
destroy(this.tab_1)
end on

event close;call super::close;f_SetProfileString (sys_empid, this.classname(), "status", string(cur_status))
f_SetProfileString (sys_empid, this.classname(), "kind", string(cur_kind))
f_SetProfileString (sys_empid, this.classname(), "fhflag", string(cur_fhflag))

end event

event resize;ln_bar.EndX = This.Width
ln_bar2.EndX = This.Width
ln_1.EndX = This.Width
ln_2.EndX = This.Width
ln_3.EndX = This.Width
ln_4.EndX = This.Width
r_bar.Width = This.Width

dw_1.Width = This.Width - dw_1.X - 40
dw_1.Height = This.Height - dw_1.Y - tab_1.Height - 150

tab_1.X = dw_1.X
tab_1.Y = dw_1.Y + dw_1.Height + 5
tab_1.Width = dw_1.Width

tab_1.tabpage_1.dw_buytask.Width = tab_1.tabpage_1.Width - 40
tab_1.tabpage_1.dw_buytask.Height = tab_1.tabpage_1.Height - tab_1.tabpage_1.dw_buytask.Y

tab_1.tabpage_2.dw_inware.Width = tab_1.tabpage_2.Width - 40
tab_1.tabpage_2.dw_inware.Height = tab_1.tabpage_2.Height - tab_1.tabpage_2.dw_inware.Y

tab_1.tabpage_3.dw_outware_sale.Width = tab_1.tabpage_3.Width - 40
tab_1.tabpage_3.dw_outware_sale.Height = tab_1.tabpage_3.Height - tab_1.tabpage_3.dw_outware_sale.Y




end event

event ue_before_open;call super::ue_before_open;tab_1.tabpage_1.dw_buytask.settransobject(sqlca)
tab_1.tabpage_2.dw_inware.settransobject(sqlca)
tab_1.tabpage_3.dw_outware_sale.settransobject(sqlca)
end event

type cb_func from w_publ_easyq`cb_func within w_rp_sale_saletask_jdgz
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_sale_saletask_jdgz
end type

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

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

type cb_1 from w_publ_easyq`cb_1 within w_rp_sale_saletask_jdgz
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'))

Int li_option_outrep
IF sys_power_issuper THEN
	li_option_outrep = 0
ELSE
	li_option_outrep = sys_option_outrep
END IF

dw_1.Retrieve(cur_scid_arr, cur_status,cur_stattype,firstdate,enddate,sys_areaid,cur_kind, sys_user_outrep, li_option_outrep,cur_fhflag)

end event

type st_3 from w_publ_easyq`st_3 within w_rp_sale_saletask_jdgz
integer x = 965
integer width = 101
string text = "从:"
alignment alignment = left!
end type

type st_4 from w_publ_easyq`st_4 within w_rp_sale_saletask_jdgz
integer x = 1554
end type

type em_1 from w_publ_easyq`em_1 within w_rp_sale_saletask_jdgz
integer x = 1051
end type

type em_2 from w_publ_easyq`em_2 within w_rp_sale_saletask_jdgz
integer x = 1655
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_sale_saletask_jdgz
integer x = 1632
integer y = 8
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_sale_saletask_jdgz
integer x = 1417
integer y = 12
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_sale_saletask_jdgz
integer y = 304
integer width = 2967
integer height = 1436
string dataobject = "dw_rp_sale_saletask_jdgz"
end type

event dw_1::doubleclicked;call super::doubleclicked;IF dw_1.DataObject = 'dw_rp_sale_saletask_jdgz'  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::rowfocuschanged;call super::rowfocuschanged;
PARENT.TriggerEvent('ue_retrieve_mx')
end event

type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_sale_saletask_jdgz
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_sale_saletask_jdgz
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_sale_saletask_jdgz
end type

type st_cust from w_publ_easyq`st_cust within w_rp_sale_saletask_jdgz
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_sale_saletask_jdgz
boolean visible = true
integer x = 1417
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_rp_sale_saletask_jdgz
integer x = 1463
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_rp_sale_saletask_jdgz
integer x = 2075
end type

type pb_2 from w_publ_easyq`pb_2 within w_rp_sale_saletask_jdgz
integer x = 2185
end type

type cb_help from w_publ_easyq`cb_help within w_rp_sale_saletask_jdgz
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_sale_saletask_jdgz
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_sale_saletask_jdgz
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_sale_saletask_jdgz
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_sale_saletask_jdgz
end type

type r_bar from w_publ_easyq`r_bar within w_rp_sale_saletask_jdgz
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_sale_saletask_jdgz
integer beginy = 288
integer endy = 288
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_sale_saletask_jdgz
end type

type ln_3 from w_publ_easyq`ln_3 within w_rp_sale_saletask_jdgz
end type

type ln_4 from w_publ_easyq`ln_4 within w_rp_sale_saletask_jdgz
end type

type ddlb_1 from dropdownlistbox within w_rp_sale_saletask_jdgz
integer x = 571
integer y = 192
integer width = 379
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
end event

type ddlb_scid from uo_ddlb_scid within w_rp_sale_saletask_jdgz
integer y = 192
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 ddlb_2 from dropdownlistbox within w_rp_sale_saletask_jdgz
boolean visible = false
integer x = 2034
integer y = 36
integer width = 645
integer height = 800
integer taborder = 70
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;dw_1.uf_save_profile_layout()
IF ddlb_2.Text = '明细表' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask'
ELSEIF ddlb_2.Text = '明细表[不合并]' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_mx'
ELSEIF ddlb_2.Text = '汇总表[产品]' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_hz'
ELSEIF ddlb_2.Text = '汇总表[客户-产品]' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_hz_cust'
ELSEIF ddlb_2.Text = '汇总表[产品-配置]' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_hz_1'
ELSEIF ddlb_2.Text = '来料加工进度表' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_lljg'
ELSEIF ddlb_2.Text = '汇总表[金额]' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_hz_amt'
END IF

wf_replacedw()

cb_1.TriggerEvent(Clicked!)


end event

type ddlb_3 from dropdownlistbox within w_rp_sale_saletask_jdgz
integer x = 2665
integer y = 192
integer width = 411
integer height = 856
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
boolean vscrollbar = true
string item[] = {"[全部]","备货生产[0]","销售订单[1]"}
borderstyle borderstyle = stylelowered!
end type

event constructor;cur_kind=long(f_ProfileString (sys_empid, parent.classname(), "kind", "-1"))

choose case cur_kind
	case -1
		this.text="[全部]"
	case 0
		this.text="备货生产[0]"
	case 1
		this.text="销售订单[1]"
	case else
		this.text="[全部]"
end choose


end event

event selectionchanged;choose case index
	case 1
		cur_kind = -1
	case 2 //备货生成
		cur_kind=0
	case 3 //销售订单
		cur_kind=1
	case else
		cur_kind= -1
end choose

cb_1.triggerevent(clicked!)

end event

type ddlb_status from uo_ddlb_status within w_rp_sale_saletask_jdgz
integer x = 2304
integer y = 192
integer width = 338
integer taborder = 120
boolean bringtotop = true
string item[] = {"[全部]","待审核[0]","在进行[1]","已暂停[2]","已终止[3]","已完成[5]","手动完成[6]"}
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

type ddlb_4 from dropdownlistbox within w_rp_sale_saletask_jdgz
integer x = 3090
integer y = 188
integer width = 306
integer height = 856
integer taborder = 130
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
boolean vscrollbar = true
string item[] = {"[全部]","已发货[0]","未发货[1]"}
borderstyle borderstyle = stylelowered!
end type

event constructor;cur_fhflag=long(f_ProfileString (sys_empid, parent.classname(), "fhflag", "-1"))

choose case cur_fhflag
	case -1
		this.text="[全部]"
	case 0
		this.text="已发货[0]"
	case 1
		this.text="未发货[1]"
	case else
		this.text="[全部]"
end choose


end event

event selectionchanged;choose case index
	case 1
		cur_fhflag = -1
	case 2 //已发货
		cur_fhflag=0
	case 3 //未发货
		cur_fhflag=1
	case else
		cur_kind= -1
end choose

cb_1.triggerevent(clicked!)

end event

type tab_1 from tab within w_rp_sale_saletask_jdgz
integer y = 1220
integer width = 2240
integer height = 900
integer taborder = 90
boolean bringtotop = true
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
tabpage_3 tabpage_3
end type

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

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

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2203
integer height = 788
long backcolor = 134217739
string text = "采购订单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_buytask dw_buytask
end type

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

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

type dw_buytask from u_dw_rbtnfilter within tabpage_1
integer height = 780
integer taborder = 30
string dataobject = "dw_rp_sale_saletask_jdgz_buytask"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row >  0 THEN
	This.SelectRow(row, False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = This.Object.u_buytask_scid[row]
	ls_code = This.Object.u_buytask_taskcode[row]
	
	f_open_win(ll_scid,ls_code)
END IF

end event

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2203
integer height = 788
long backcolor = 134217739
string text = "进仓单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inware dw_inware
end type

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

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

type dw_inware from u_dw_rbtnfilter within tabpage_2
integer height = 780
string dataobject = "dw_rp_sale_saletask_jdgz_inware"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row >  0 THEN
	This.SelectRow(row, False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = This.Object.u_inware_scid[row]
	ls_code = This.Object.u_inware_inwarecode[row]
	
	f_open_win(ll_scid,ls_code)
END IF

end event

type tabpage_3 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2203
integer height = 788
long backcolor = 134217739
string text = "发货单"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_outware_sale dw_outware_sale
end type

on tabpage_3.create
this.dw_outware_sale=create dw_outware_sale
this.Control[]={this.dw_outware_sale}
end on

on tabpage_3.destroy
destroy(this.dw_outware_sale)
end on

type dw_outware_sale from u_dw_rbtnfilter within tabpage_3
integer height = 780
string dataobject = "dw_rp_sale_saletask_jdgz_outware_sale"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;IF row >  0 THEN
	This.SelectRow(row, False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code
	Long ll_scid
	
	ll_scid = This.Object.u_outware_scid[row]
	ls_code = This.Object.code[row]
	
	f_open_win(ll_scid,ls_code)
END IF

end event