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

$PBExportHeader$w_planprice_saletask_add.srw
forward
global type w_planprice_saletask_add from w_publ_base
end type
type em_1 from editmask within w_planprice_saletask_add
end type
type em_2 from editmask within w_planprice_saletask_add
end type
type st_1 from statictext within w_planprice_saletask_add
end type
type st_2 from statictext within w_planprice_saletask_add
end type
type st_3 from statictext within w_planprice_saletask_add
end type
type cb_ok from uo_imflatbutton within w_planprice_saletask_add
end type
end forward

global type w_planprice_saletask_add from w_publ_base
integer width = 1591
integer height = 724
string title = "增加销售订单产品"
boolean minbox = false
windowtype windowtype = response!
em_1 em_1
em_2 em_2
st_1 st_1
st_2 st_2
st_3 st_3
cb_ok cb_ok
end type
global w_planprice_saletask_add w_planprice_saletask_add

type variables
s_edit_index_tran ins_s_return
end variables

on w_planprice_saletask_add.create
int iCurrent
call super::create
this.em_1=create em_1
this.em_2=create em_2
this.st_1=create st_1
this.st_2=create st_2
this.st_3=create st_3
this.cb_ok=create cb_ok
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.em_1
this.Control[iCurrent+2]=this.em_2
this.Control[iCurrent+3]=this.st_1
this.Control[iCurrent+4]=this.st_2
this.Control[iCurrent+5]=this.st_3
this.Control[iCurrent+6]=this.cb_ok
end on

on w_planprice_saletask_add.destroy
call super::destroy
destroy(this.em_1)
destroy(this.em_2)
destroy(this.st_1)
destroy(this.st_2)
destroy(this.st_3)
destroy(this.cb_ok)
end on

event close;call super::close;closewithreturn(this,ins_s_return)
end event

event open;call super::open;
s_edit_index_tran INS_RT_STRU
INS_RT_STRU = Message.PowerObjectParm

IF IsValid(INS_RT_STRU) THEN
	
	IF INS_RT_STRU.b_long = 1 THEN
		This.Title = '增加销售订单产品'
		st_3.Text = '请设置增加到价格表的日期范围'
	ELSEIF  INS_RT_STRU.b_long = 2 THEN
		This.Title = '增加生产进仓单产品'
		st_3.Text = '请设置增加到价格表的日期范围'
	END IF
END IF



end event

type cb_func from w_publ_base`cb_func within w_planprice_saletask_add
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_planprice_saletask_add
integer x = 859
integer y = 448
integer width = 302
integer height = 100
integer picsize = 16
end type

event cb_exit::clicked;ins_s_return.b_long = 0

Close(Parent)


end event

type em_1 from editmask within w_planprice_saletask_add
integer x = 370
integer y = 208
integer width = 416
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean dropdowncalendar = true
end type

event constructor;This.Text = String(Today(),'yyyy-mm-')+'01'

end event

type em_2 from editmask within w_planprice_saletask_add
integer x = 923
integer y = 208
integer width = 416
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean dropdowncalendar = true
end type

event constructor;This.Text = String(Today(),'yyyy-mm-dd')

end event

type st_1 from statictext within w_planprice_saletask_add
integer x = 55
integer y = 224
integer width = 288
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 st_2 from statictext within w_planprice_saletask_add
integer x = 800
integer y = 224
integer width = 105
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 = center!
boolean focusrectangle = false
end type

type st_3 from statictext within w_planprice_saletask_add
integer x = 215
integer y = 72
integer width = 1111
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
string text = "请设置增加到计划成本价的日期范围"
alignment alignment = center!
boolean focusrectangle = false
end type

type cb_ok from uo_imflatbutton within w_planprice_saletask_add
integer x = 398
integer y = 448
integer taborder = 20
boolean bringtotop = true
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;DateTime ldt_sdate,ldt_edate

ldt_sdate = DateTime(Date(em_1.Text),Time(0))
ldt_edate = DateTime(Date(em_2.Text),Time('23:59:59'))

If ldt_sdate > ldt_edate Then
	MessageBox('系统提示','请设置正确的日期范围')
	Return
End If

ins_s_return.first_date = ldt_sdate
ins_s_return.end_date = ldt_edate
ins_s_return.b_long = 1

Close(Parent)



end event