Q5/ws_objects/Ew_sale_ls.pbl.src/w_outware_pos_hisbill.srw

$PBExportHeader$w_outware_pos_hisbill.srw
forward
global type w_outware_pos_hisbill from w_publ_base
end type
type st_1 from statictext within w_outware_pos_hisbill
end type
type em_1 from editmask within w_outware_pos_hisbill
end type
type st_2 from statictext within w_outware_pos_hisbill
end type
type em_2 from editmask within w_outware_pos_hisbill
end type
type dw_1 from u_dw_rbtnfilter within w_outware_pos_hisbill
end type
type cb_1 from uo_imflatbutton within w_outware_pos_hisbill
end type
type dw_2 from u_dw_rbtnfilter within w_outware_pos_hisbill
end type
type cb_retrieve from uo_imflatbutton within w_outware_pos_hisbill
end type
end forward

global type w_outware_pos_hisbill from w_publ_base
integer width = 3337
integer height = 2000
string title = "取单"
boolean minbox = false
windowtype windowtype = response!
event ue_retrieve_mx ( )
event keydown pbm_keydown
event user_key ( )
event ue_downone ( )
event ue_upone ( )
st_1 st_1
em_1 em_1
st_2 st_2
em_2 em_2
dw_1 dw_1
cb_1 cb_1
dw_2 dw_2
cb_retrieve cb_retrieve
end type
global w_outware_pos_hisbill w_outware_pos_hisbill

type variables
s_pos_hisbill s_rt_stru
long cur_scid
end variables

event ue_retrieve_mx();if dw_1.rowcount() = 0 then
	dw_2.reset()
	return
end if

long uc_row
uc_row = dw_1.getrow()
if uc_row = 0 then
	dw_2.reset()
	return
end if

long ls_scid,ls_outwareid
ls_scid = dw_1.object.scid[uc_row]
ls_outwareid = dw_1.object.outwareid[uc_row]
dw_2.retrieve(ls_scid,ls_outwareid)
end event

event keydown;this.triggerevent('user_key')
end event

event user_key();long ls_row

if (keydown(KeyEnter!) and keydown(KeyControl!)) or keydown(KeyEnd!) then
	cb_1.triggerevent(clicked!)
	return
elseif keydown(KeyEnter!) then
	cb_retrieve.triggerevent(clicked!)
	return
elseif keydown(KeyUpArrow!) then
//	if dw_1.rowcount()=0 then return
//	ls_row = dw_1.getrow()
//	if ls_row>0 then
//		ls_row = ls_row - 1
//		dw_1.scrolltorow(ls_row)
//	else
//		ls_row = dw_1.rowcount()
//		dw_1.scrolltorow(ls_row)
//	end if
////	if dw_1.getrow()>0 then
//		if ls_row = 0 then ls_row = 1
//		dw_1.selectrow( 0, false)
//		dw_1.selectrow( ls_row, true)
////	end if
//	this.triggerevent('ue_retrieve_mx')
	this.postevent('ue_upone')
	this.triggerevent('ue_retrieve_mx')
	return
elseif keydown(KeyDownArrow!) then
//	if dw_1.rowcount()=0 then return
//	ls_row = dw_1.getrow()
//	if ls_row>0 then
//		ls_row = ls_row + 1
//		dw_1.scrolltorow(ls_row)
//	else
//		ls_row = 1
//		dw_1.scrolltorow(1)
//	end if
////	if dw_1.getrow()>0 then
//		if ls_row = 0 then ls_row = 1
//		dw_1.selectrow( 0, false)
//		dw_1.selectrow( ls_row, true)
////	end if
//	this.triggerevent('ue_retrieve_mx')
	this.postevent('ue_downone')
	this.triggerevent('ue_retrieve_mx')
	return
elseif keydown(KeyEscape!) then
	cb_exit.triggerevent(clicked!)
	return
end if
end event

event ue_downone();if dw_1.rowcount() = 0 then
	return
end if
if dw_1.getrow() = 0 then
	dw_1.scrolltorow(1)
	return
else
	long child_row
	child_row = dw_1.getrow()
	if child_row <> dw_1.rowcount() then
		child_row = child_row + 1
		dw_1.scrolltorow(child_row)
		dw_1.selectrow( 0, false)
		dw_1.selectrow( dw_1.getrow(), true)
		return
	end if
end if
end event

event ue_upone();if dw_1.rowcount() = 0 then
	return
end if
if dw_1.getrow() = 0 then
	dw_1.scrolltorow(1)
	return
else
	long child_row
	child_row = dw_1.getrow()
	if child_row <> 1 then
		child_row = child_row - 1
		dw_1.scrolltorow(child_row)
		dw_1.selectrow( 0, false)
		dw_1.selectrow( child_row, true)
		return
	end if
end if
end event

event open;call super::open;EM_1.TEXT=STRING(TODAY(),'YYYY-MM-DD')
EM_2.TEXT=EM_1.TEXT

dw_1.settransobject(sqlca)
dw_2.settransobject(sqlca)

s_rt_stru.if_ok = 0
cur_scid = message.LongParM
cb_retrieve.triggerevent(clicked!)
end event

on w_outware_pos_hisbill.create
int iCurrent
call super::create
this.st_1=create st_1
this.em_1=create em_1
this.st_2=create st_2
this.em_2=create em_2
this.dw_1=create dw_1
this.cb_1=create cb_1
this.dw_2=create dw_2
this.cb_retrieve=create cb_retrieve
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_1
this.Control[iCurrent+2]=this.em_1
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.em_2
this.Control[iCurrent+5]=this.dw_1
this.Control[iCurrent+6]=this.cb_1
this.Control[iCurrent+7]=this.dw_2
this.Control[iCurrent+8]=this.cb_retrieve
end on

on w_outware_pos_hisbill.destroy
call super::destroy
destroy(this.st_1)
destroy(this.em_1)
destroy(this.st_2)
destroy(this.em_2)
destroy(this.dw_1)
destroy(this.cb_1)
destroy(this.dw_2)
destroy(this.cb_retrieve)
end on

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

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

type cb_exit from w_publ_base`cb_exit within w_outware_pos_hisbill
integer x = 1787
integer y = 1732
integer width = 553
integer height = 160
integer textsize = -11
integer weight = 700
string text = "退出[ESC]"
string normalpicname = ""
end type

event cb_exit::ue_keydown;call super::ue_keydown;parent.triggerevent('user_key')
end event

event cb_exit::clicked;s_rt_stru.if_ok = 0
close(parent)
end event

type st_1 from statictext within w_outware_pos_hisbill
integer x = 91
integer y = 44
integer width = 251
integer height = 68
boolean bringtotop = true
integer textsize = -11
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "日期从"
boolean focusrectangle = false
end type

type em_1 from editmask within w_outware_pos_hisbill
event keydown pbm_keydown
integer x = 384
integer y = 24
integer width = 631
integer height = 108
integer taborder = 30
boolean bringtotop = true
integer textsize = -11
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event keydown;parent.triggerevent('user_key')
end event

type st_2 from statictext within w_outware_pos_hisbill
integer x = 1047
integer y = 44
integer width = 96
integer height = 76
boolean bringtotop = true
integer textsize = -11
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "到"
boolean focusrectangle = false
end type

type em_2 from editmask within w_outware_pos_hisbill
event keydown pbm_keydown
integer x = 1152
integer y = 24
integer width = 631
integer height = 108
integer taborder = 40
boolean bringtotop = true
integer textsize = -11
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event keydown;parent.triggerevent('user_key')
end event

type dw_1 from u_dw_rbtnfilter within w_outware_pos_hisbill
integer x = 5
integer y = 148
integer width = 3305
integer height = 892
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_outware_pos_hisbill"
boolean hscrollbar = true
boolean vscrollbar = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
boolean setcolumn_visible_use = false
boolean autosave_filter_use = false
boolean autosave_sort_use = false
boolean autosave_columnvisible_use = false
end type

event dwnkey;call super::dwnkey;parent.triggerevent('user_key')
end event

event rowfocuschanged;call super::rowfocuschanged;parent.triggerevent('ue_retrieve_mx')
if currentrow>0 then
	this.selectrow( 0, false)
	this.selectrow( currentrow, true)
end if
end event

event clicked;call super::clicked;if row > 0 then
	this.scrolltorow(row)
	this.selectrow( 0, false)
	this.selectrow( row, true)
end if
parent.triggerevent('ue_retrieve_mx')
end event

event doubleclicked;call super::doubleclicked;cb_1.triggerevent(clicked!)
end event

type cb_1 from uo_imflatbutton within w_outware_pos_hisbill
integer x = 901
integer y = 1736
integer width = 786
integer height = 152
integer taborder = 30
boolean bringtotop = true
integer textsize = -11
integer weight = 700
string text = "确定[CTRL+ENT]"
end type

event ue_keydown;call super::ue_keydown;parent.triggerevent('user_key')
end event

event clicked;call super::clicked;if dw_1.rowcount() = 0 then
	openwithparm(w_pos_msg,'没有记录可选择!')
	return
end if

long uc_row
uc_row = dw_1.getrow()
if uc_row <= 0 then
	openwithparm(w_pos_msg,'请先选择目标!')
	return
end if

s_rt_stru.scid = dw_1.object.scid[uc_row]
s_rt_stru.outwareid = dw_1.object.outwareid[uc_row]
s_rt_stru.if_ok = 1

close(parent)
end event

type dw_2 from u_dw_rbtnfilter within w_outware_pos_hisbill
integer x = 5
integer y = 1060
integer width = 3296
integer height = 644
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_outwaremx_pos_edit_hisbill"
boolean hscrollbar = true
boolean vscrollbar = true
boolean rbutton_filter_use = true
boolean titleclick_sort_use = true
boolean setcolumn_visible_use = false
boolean autosave_filter_use = false
boolean autosave_sort_use = false
boolean autosave_columnvisible_use = false
end type

event dwnkey;call super::dwnkey;parent.triggerevent('user_key')
end event

type cb_retrieve from uo_imflatbutton within w_outware_pos_hisbill
integer x = 1838
integer y = 24
integer width = 544
integer height = 108
integer taborder = 40
boolean bringtotop = true
integer textsize = -11
integer weight = 700
string text = "查询[ENT]"
string normalpicname = "refresh.BMP"
integer picsize = 16
end type

event clicked;call super::clicked;datetime ld_startdate,ld_enddate
ld_startdate = datetime(date(em_1.text),time(0))
ld_enddate = datetime(date(em_2.text),time('23:59:59'))

string ls_emp
if sys_power_issuper = true then
	ls_emp = ''
else
	ls_emp = publ_operator
end if

dw_1.retrieve(cur_scid,	ls_emp,ld_startdate,ld_enddate)
end event

event ue_keydown;call super::ue_keydown;parent.triggerevent('user_key')
end event