Q5/ws_objects/Ew_sale.pbl.src/w_mod_outdate.srw

$PBExportHeader$w_mod_outdate.srw
forward
global type w_mod_outdate from window
end type
type st_1 from statictext within w_mod_outdate
end type
type em_1 from editmask within w_mod_outdate
end type
type cb_2 from commandbutton within w_mod_outdate
end type
type cb_1 from commandbutton within w_mod_outdate
end type
end forward

global type w_mod_outdate from window
integer width = 1284
integer height = 493
boolean titlebar = true
string title = "批修改销售时间"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
st_1 st_1
em_1 em_1
cb_2 cb_2
cb_1 cb_1
end type
global w_mod_outdate w_mod_outdate

type variables
s_edit_index_tran s_tran 

end variables

on w_mod_outdate.create
this.st_1=create st_1
this.em_1=create em_1
this.cb_2=create cb_2
this.cb_1=create cb_1
this.Control[]={this.st_1,&
this.em_1,&
this.cb_2,&
this.cb_1}
end on

on w_mod_outdate.destroy
destroy(this.st_1)
destroy(this.em_1)
destroy(this.cb_2)
destroy(this.cb_1)
end on

event open;//s_tran = Message.PowerObjectParm

em_1.text = string(today())
end event

event close;CLOSEWITHRETURN(THIS,s_tran)
end event

type st_1 from statictext within w_mod_outdate
integer x = 84
integer y = 138
integer width = 413
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "销售时间"
alignment alignment = center!
boolean focusrectangle = false
end type

type em_1 from editmask within w_mod_outdate
integer x = 556
integer y = 118
integer width = 505
integer height = 86
integer taborder = 10
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 spin = true
end type

type cb_2 from commandbutton within w_mod_outdate
integer x = 655
integer y = 266
integer width = 350
integer height = 90
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;close(parent)
end event

type cb_1 from commandbutton within w_mod_outdate
integer x = 263
integer y = 266
integer width = 350
integer height = 90
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确认"
end type

event clicked;s_tran.b_datetime = datetime(em_1.text)
s_tran.b_long = 1
close(parent)
end event