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

$PBExportHeader$w_rp_sale_saletask.srw
forward
global type w_rp_sale_saletask from w_publ_easyq
end type
type ddlb_1 from dropdownlistbox within w_rp_sale_saletask
end type
type ddlb_scid from uo_ddlb_scid within w_rp_sale_saletask
end type
type ddlb_2 from dropdownlistbox within w_rp_sale_saletask
end type
type ddlb_3 from dropdownlistbox within w_rp_sale_saletask
end type
type ddlb_status from uo_ddlb_status within w_rp_sale_saletask
end type
type ddlb_yw from dropdownlistbox within w_rp_sale_saletask
end type
type tab_1 from tab within w_rp_sale_saletask
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
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
end type
type cb_3 from commandbutton within w_rp_sale_saletask
end type
type cbx_1 from checkbox within w_rp_sale_saletask
end type
type cbx_iffinish from checkbox within w_rp_sale_saletask
end type
end forward

global type w_rp_sale_saletask from w_publ_easyq
integer width = 5065
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_yw ddlb_yw
tab_1 tab_1
cb_3 cb_3
cbx_1 cbx_1
cbx_iffinish cbx_iffinish
end type
global w_rp_sale_saletask w_rp_sale_saletask

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=''
int cur_ifstop=0
int cur_iffinish = 0
end variables

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

event ue_retrieve_mx();IF Not tab_1.Visible THEN RETURN

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'
	s_col.col_7 = 'newprice'
	s_col.col_8 = 'enamt2'
	s_col.col_9 = 'b_enamt'
	s_col.col_10 = 'mamt'
	s_col.col_11 = 'realbookamt'
	s_col.col_12 = 'opposeamt'
	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'
	s_col.col_5 = 'realbookamt'
	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'
	s_col.col_4 = 'realbookamt'
	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'
	s_col.col_2 = 'realbookamt'
	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'
	s_col.col_12 = 'realbookamt'
	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_takeamt'
	s_col.col_5 =  'nottakeamt'
	s_col.col_6 =  'u_saletask_takedamt'
	 s_col.col_7 = 'newprice'
	s_col.col_8 = 'enamt2'
	s_col.col_9 = 'b_enamt'
	s_col.col_10 = 'mamt'
	s_col.col_11= 'opposeamt'
	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'
	s_col.col_12 = 'realbookamt'
	f_hide_col(122,dw_1,s_col)
	
	s_col = s_null
	s_col.col_1 = 'b_enamt'
	s_col.col_2 = 'mamt'
	s_col.col_3 = 'opposeamt'
	s_col.col_4 = 'stopamt'
	f_hide_col(122,dw_1,s_col)
END IF


s_col = s_null
s_col.col_1 = 'b_costamt'
f_hide_col(123,dw_1,s_col)

s_col = s_null
s_col.col_1 = 'mamt'
f_hide_col(843,dw_1,s_col)


s_col = s_null
s_col.col_1 = 'b_costamt'
f_hide_col(490,dw_1,s_col)


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.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_yw=create ddlb_yw
this.tab_1=create tab_1
this.cb_3=create cb_3
this.cbx_1=create cbx_1
this.cbx_iffinish=create cbx_iffinish
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_yw
this.Control[iCurrent+7]=this.tab_1
this.Control[iCurrent+8]=this.cb_3
this.Control[iCurrent+9]=this.cbx_1
this.Control[iCurrent+10]=this.cbx_iffinish
end on

on w_rp_sale_saletask.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_yw)
destroy(this.tab_1)
destroy(this.cb_3)
destroy(this.cbx_1)
destroy(this.cbx_iffinish)
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 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

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



IF tab_1.Visible THEN
	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
ELSE
	dw_1.Width = This.Width - dw_1.X - 40
	dw_1.Height = This.Height - dw_1.Y - 150
END IF




end event

type cb_func from w_publ_easyq`cb_func within w_rp_sale_saletask
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_sale_saletask
end type

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

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

type cb_1 from w_publ_easyq`cb_1 within w_rp_sale_saletask
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,li_option_opemp
string ls_option_opemp
IF sys_power_issuper THEN
	li_option_outrep = 0
ELSE
	li_option_outrep = sys_option_outrep
END IF
IF sys_power_issuper THEN
	li_option_opemp = 0
//	ls_option_opemp = publ_operator
ELSE
	li_option_opemp = sys_option_opemp_sale
	ls_option_opemp = publ_operator
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,ls_option_opemp,li_option_opemp,cur_ifstop,cur_iffinish)

end event

type st_3 from w_publ_easyq`st_3 within w_rp_sale_saletask
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
integer x = 1554
end type

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

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

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_sale_saletask
integer x = 1632
integer y = 12
end type

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

type dw_1 from w_publ_easyq`dw_1 within w_rp_sale_saletask
integer y = 304
integer width = 2967
integer height = 1004
string dataobject = "dw_rp_sale_saletask"
end type

event dw_1::doubleclicked;call super::doubleclicked;IF dw_1.DataObject = 'dw_rp_sale_saletask' &
 or dw_1.DataObject = 'dw_rp_sale_saletask_mx' 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
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_sale_saletask
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_sale_saletask
end type

type st_cust from w_publ_easyq`st_cust within w_rp_sale_saletask
end type

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

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

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

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

type cb_help from w_publ_easyq`cb_help within w_rp_sale_saletask
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_sale_saletask
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_sale_saletask
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_sale_saletask
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_sale_saletask
end type

type r_bar from w_publ_easyq`r_bar within w_rp_sale_saletask
end type

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

type ln_2 from w_publ_easyq`ln_2 within w_rp_sale_saletask
end type

type ln_3 from w_publ_easyq`ln_3 within w_rp_sale_saletask
end type

type ln_4 from w_publ_easyq`ln_4 within w_rp_sale_saletask
end type

type ddlb_1 from dropdownlistbox within w_rp_sale_saletask
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
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
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'
	tab_1.Visible = True
ELSEIF ddlb_2.Text = '明细表[不合并]' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_mx'
	tab_1.Visible = True
ELSEIF ddlb_2.Text = '汇总表[产品]' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_hz'
	tab_1.Visible = False
ELSEIF ddlb_2.Text = '汇总表[客户-产品]' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_hz_cust'
	tab_1.Visible = False
ELSEIF ddlb_2.Text = '汇总表[产品-配置]' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_hz_1'
	tab_1.Visible = False
//ELSEIF ddlb_2.Text = '来料加工进度表' THEN
//	dw_1.DataObject = 'dw_rp_sale_saletask_lljg'
//	tab_1.Visible = False
ELSEIF ddlb_2.Text = '汇总表[金额]' THEN
	dw_1.DataObject = 'dw_rp_sale_saletask_hz_amt'
	tab_1.Visible = False
END IF
Parent.TriggerEvent('resize')

wf_replacedw()

cb_1.TriggerEvent(Clicked!)



end event

type ddlb_3 from dropdownlistbox within w_rp_sale_saletask
integer x = 2665
integer y = 192
integer width = 411
integer height = 860
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
borderstyle borderstyle = stylelowered!
end type

event constructor;Long ll_kind, ll_kind_save, ll_kind_get
String ls_kindname, ls_kindname_get
Long cnt = 0
Long ll_i
String ls_space
Int li_spacenum
Boolean lb_getdft = FALSE

ll_kind_save = Long(f_ProfileString (sys_empid, Parent.ClassName(), "kind", "-1"))


This.AddItem ('[全部]')

DECLARE find_kind CURSOR FOR
	SELECT DISTINCT kind, kindname
	FROM u_saletask_kind
	Order By kind;
OPEN find_kind;

FETCH find_kind Into :ll_kind,:ls_kindname ;
DO WHILE sqlca.SQLCode = 0
	
	li_spacenum = 50 - Len(Trim(ls_kindname)) - 2 - Len(String(ll_kind))
	ls_space = Fill(' ',li_spacenum)
	
	This.AddItem (ls_kindname+ls_space+'['+String(ll_kind)+']')
	
	IF NOT lb_getdft THEN
		ll_kind_get = ll_kind
		ls_kindname_get = ls_kindname
	END IF
	
	IF ll_kind_save = ll_kind THEN
		lb_getdft = TRUE
		ll_kind_get = ll_kind
		ls_kindname_get = ls_kindname
	END IF
	
	FETCH find_kind Into :ll_kind,:ls_kindname ;
LOOP

CLOSE find_kind;


IF ll_kind_save = -1 THEN
	THIS.Text = '[全部]'
	cur_kind = -1
ELSE
	li_spacenum = 50 - Len(Trim(ls_kindname_get)) - 2 - Len(String(ll_kind_get))
	ls_space = Fill(' ',li_spacenum)
	THIS.Text = ls_kindname_get+ls_space+'['+String(ll_kind_get)+']'
	cur_kind = ll_kind_get
END IF



end event

event selectionchanged;IF THIS.Text = '[全部]' THEN
	cur_kind = -1
ELSE
	cur_kind = Long(Mid ( THIS.Text,Pos(THIS.Text,'[') + 1,Len(THIS.Text) - Pos(THIS.Text,'[') - 1 ))
END IF

cb_1.triggerevent(clicked!)

end event

type ddlb_status from uo_ddlb_status within w_rp_sale_saletask
integer x = 2304
integer y = 192
integer width = 338
integer height = 812
integer taborder = 120
boolean bringtotop = true
string item[] = {"[全部]","待审核[0]","待二审[4]","在进行[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_yw from dropdownlistbox within w_rp_sale_saletask
integer x = 3090
integer y = 188
integer width = 343
integer height = 860
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_fhflag= -1
end choose

cb_1.triggerevent(clicked!)

end event

type tab_1 from tab within w_rp_sale_saletask
integer y = 1220
integer width = 2240
integer height = 900
integer taborder = 100
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
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

type cb_3 from commandbutton within w_rp_sale_saletask
boolean visible = false
integer x = 2770
integer y = 68
integer width = 402
integer height = 84
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "none"
end type

event clicked;//(cur_scid_arr, cur_status,cur_stattype,firstdate,enddate,sys_areaid,
//cur_kind, sys_user_outrep, li_option_outrep,cur_fhflag)
messagebox("cur_status",cur_status)
messagebox("cur_stattype",cur_stattype)
//messagebox("sys_areaid",sys_areaid)
messagebox("cur_kind",cur_kind)
//messagebox("sys_user_outrep",sys_user_outrep)
//messagebox("li_option_outrep",li_option_outrep)
messagebox("cur_fhflag",cur_fhflag)
end event

type cbx_1 from checkbox within w_rp_sale_saletask
integer x = 3447
integer y = 196
integer width = 850
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 = "不显示终止订单或明细整行终止"
end type

event clicked;IF This.checked THEN
	cur_ifstop = 1
ELSE
	cur_ifstop = 0
END IF


f_SetProfileString (sys_empid,Parent.Classname(), "cur_ifstop",String(cur_ifstop))


cb_1.TriggerEvent(Clicked!)

end event

event constructor;cur_ifstop = Long(f_ProfileString (sys_empid, Parent.Classname(), "cur_ifstop", "0"))
//This.Checked = cur_ifsc = 1
//

if cur_ifstop = 0 then
	This.Checked = false
else
	This.Checked = true
end if




end event

type cbx_iffinish from checkbox within w_rp_sale_saletask
integer x = 4334
integer y = 196
integer width = 631
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 = "不显示已完成发货明细"
end type

event clicked;IF This.checked THEN
	cur_iffinish = 1
ELSE
	cur_iffinish = 0
END IF

f_SetProfileString (sys_empid,Parent.Classname(), "cur_iffinish",String(cur_iffinish))

cb_1.TriggerEvent(Clicked!)

end event

event constructor;cur_iffinish = Long(f_ProfileString (sys_empid,Parent.Classname(), "cur_iffinish", "0"))
//This.Checked = cur_ifsc = 1
//

if cur_iffinish = 0 then
	This.Checked = false
else
	This.Checked = true
end if




end event