Q5/ws_objects/Ew_price.pbl.src/w_rp_cus_price_updown.srw

$PBExportHeader$w_rp_cus_price_updown.srw
forward
global type w_rp_cus_price_updown from w_publ_easyq
end type
type cbx_1 from checkbox within w_rp_cus_price_updown
end type
type tv_1 from uo_tv_mtrltype within w_rp_cus_price_updown
end type
end forward

global type w_rp_cus_price_updown from w_publ_easyq
string title = "物料销售价格浮动表"
cbx_1 cbx_1
tv_1 tv_1
end type
global w_rp_cus_price_updown w_rp_cus_price_updown

type variables
String ls_handtype = ''
string ls_mtrltype = ''

int cur_flag = 1 //0全显示; 1有sec的显示
end variables

on w_rp_cus_price_updown.create
int iCurrent
call super::create
this.cbx_1=create cbx_1
this.tv_1=create tv_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_1
this.Control[iCurrent+2]=this.tv_1
end on

on w_rp_cus_price_updown.destroy
call super::destroy
destroy(this.cbx_1)
destroy(this.tv_1)
end on

event resize;call super::resize;tv_1.height = this.height - tv_1.y - 150
end event

type cb_func from w_publ_easyq`cb_func within w_rp_cus_price_updown
end type

type cb_exit from w_publ_easyq`cb_exit within w_rp_cus_price_updown
end type

type cb_2 from w_publ_easyq`cb_2 within w_rp_cus_price_updown
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_rp_cus_price_updown
end type

type cb_1 from w_publ_easyq`cb_1 within w_rp_cus_price_updown
end type

event cb_1::clicked;call super::clicked;Int li_option_outrep, li_option_area
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_area = 0
ELSE
	li_option_area = sys_option_cusarea
END IF

dw_1.Retrieve(ls_handtype, cur_flag, sys_areaid,li_option_area,sys_user_outrep, li_option_outrep )

//dw_1.AcceptText()
//Long ls_i,ls_j,li_mtrlid,li_sptid
//String ls_mtrlcode,ls_sptname
//String ls_lastdate
//Decimal ls_lastprice,ls_nowprice
//String ls_filterstr
//
//datastore ds_tmp
//
//ds_tmp = CREATE datastore
//ds_tmp.DataObject = 'ds_sptprice_updown'
//ds_tmp.SetTransObject(sqlca)
//
//
//Open(w_sys_wait_jdt) //初始化进度条
//w_sys_wait_jdt.Show()
//w_sys_wait_jdt.wf_accepttol(dw_1.RowCount())
//
//FOR ls_i = 1 TO dw_1.RowCount()
//	ls_lastdate = ''
//	ls_lastprice = 0.00
//	
//	li_mtrlid = dw_1.Object.u_spt_price_mtrlid[ls_i]
//	li_sptid = dw_1.Object.u_spt_price_sptid[ls_i]
//	ls_mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[ls_i]
//	ls_sptname = dw_1.Object.u_spt_name[ls_i]
//	ls_nowprice = dw_1.Object.u_spt_price_price[ls_i]
//	
//	w_sys_wait_jdt.st_msg.Text = "查询:"+ls_mtrlcode+'/'+ls_sptname
//	
//	IF ds_tmp.Retrieve(li_mtrlid,li_sptid) > 1 THEN
//		FOR ls_j = 2 TO ds_tmp.RowCount()
//			IF ls_nowprice <> ds_tmp.Object.price[ls_j] THEN
//				ls_lastdate = String(ds_tmp.Object.outdate[ls_j],'yyyy-mm-dd')
//				ls_lastprice = ds_tmp.Object.price[ls_j]
//			END IF
//		NEXT
//	END IF
//	
//	
//	dw_1.Object.date_2[ls_i] = ls_lastdate
//	dw_1.Object.u_spt_price_lastprice[ls_i] = ls_lastprice
//	
//	w_sys_wait_jdt.wf_inc(ls_i) //进度
//NEXT
//DESTROY ds_tmp
//Close(w_sys_wait_jdt)
//
//
//
//
//dw_1.SetRedraw(TRUE)
//


end event

type st_3 from w_publ_easyq`st_3 within w_rp_cus_price_updown
boolean visible = false
integer x = 23
integer y = 364
end type

type st_4 from w_publ_easyq`st_4 within w_rp_cus_price_updown
boolean visible = false
integer x = 608
integer y = 364
end type

type em_1 from w_publ_easyq`em_1 within w_rp_cus_price_updown
boolean visible = false
integer x = 224
integer y = 348
end type

type em_2 from w_publ_easyq`em_2 within w_rp_cus_price_updown
boolean visible = false
integer x = 713
integer y = 348
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_rp_cus_price_updown
integer x = 1531
integer y = 8
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_rp_cus_price_updown
integer x = 1321
integer y = 12
end type

type dw_1 from w_publ_easyq`dw_1 within w_rp_cus_price_updown
integer x = 823
integer y = 312
integer width = 2661
string dataobject = "dw_rp_cus_price_updown"
end type

type sle_mtrl from w_publ_easyq`sle_mtrl within w_rp_cus_price_updown
end type

type sle_cust from w_publ_easyq`sle_cust within w_rp_cus_price_updown
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_rp_cus_price_updown
end type

type st_cust from w_publ_easyq`st_cust within w_rp_cus_price_updown
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rp_cus_price_updown
boolean visible = true
integer x = 1321
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_rp_cus_price_updown
boolean visible = false
integer x = 1125
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_rp_cus_price_updown
boolean visible = false
end type

type pb_2 from w_publ_easyq`pb_2 within w_rp_cus_price_updown
boolean visible = false
end type

type cb_help from w_publ_easyq`cb_help within w_rp_cus_price_updown
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_rp_cus_price_updown
end type

type gb_1 from w_publ_easyq`gb_1 within w_rp_cus_price_updown
end type

type ln_bar from w_publ_easyq`ln_bar within w_rp_cus_price_updown
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_rp_cus_price_updown
end type

type r_bar from w_publ_easyq`r_bar within w_rp_cus_price_updown
end type

type ln_1 from w_publ_easyq`ln_1 within w_rp_cus_price_updown
end type

type ln_2 from w_publ_easyq`ln_2 within w_rp_cus_price_updown
end type

type ln_3 from w_publ_easyq`ln_3 within w_rp_cus_price_updown
boolean visible = false
end type

type ln_4 from w_publ_easyq`ln_4 within w_rp_cus_price_updown
boolean visible = false
end type

type cbx_1 from checkbox within w_rp_cus_price_updown
integer x = 891
integer y = 208
integer width = 521
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 checked = true
end type

event clicked;IF cbx_1.Checked THEN
	cur_flag = 1
ELSE
	cur_flag = 0
END IF

cb_1.TriggerEvent(Clicked!)



end event

type tv_1 from uo_tv_mtrltype within w_rp_cus_price_updown
integer x = 9
integer y = 312
integer width = 800
integer height = 1204
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
fontcharset fontcharset = gb2312charset!
fontfamily fontfamily = anyfont!
string facename = "宋体"
end type

event selectionchanged;call super::selectionchanged;
ls_handtype = THIS.uo_cur_info.handtype
IF ls_handtype <> '' THEN
	ls_mtrltype =  ls_handtype+'%'
ELSE
	ls_mtrltype = ""
END IF

ls_handtype = ls_handtype + '%'

cb_1.TriggerEvent(Clicked!)

end event