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

$PBExportHeader$w_outware_pos_findmtrl.srw
forward
global type w_outware_pos_findmtrl from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_outware_pos_findmtrl
end type
type st_1 from statictext within w_outware_pos_findmtrl
end type
type st_2 from statictext within w_outware_pos_findmtrl
end type
type st_3 from statictext within w_outware_pos_findmtrl
end type
type st_4 from statictext within w_outware_pos_findmtrl
end type
type dw_1 from u_dw_rbtnfilter within w_outware_pos_findmtrl
end type
type cb_retrieve from uo_imflatbutton within w_outware_pos_findmtrl
end type
type cb_2 from uo_imflatbutton within w_outware_pos_findmtrl
end type
type sle_1 from singlelineedit within w_outware_pos_findmtrl
end type
type sle_2 from singlelineedit within w_outware_pos_findmtrl
end type
type sle_3 from singlelineedit within w_outware_pos_findmtrl
end type
type sle_4 from singlelineedit within w_outware_pos_findmtrl
end type
end forward

global type w_outware_pos_findmtrl from w_publ_base
integer width = 3351
integer height = 1928
string title = "商品查询"
boolean minbox = false
windowtype windowtype = response!
event keyup pbm_keyup
event user_key ( )
cb_1 cb_1
st_1 st_1
st_2 st_2
st_3 st_3
st_4 st_4
dw_1 dw_1
cb_retrieve cb_retrieve
cb_2 cb_2
sle_1 sle_1
sle_2 sle_2
sle_3 sle_3
sle_4 sle_4
end type
global w_outware_pos_findmtrl w_outware_pos_findmtrl

type variables
s_pos_mtrl s_rt_stru
long cur_storageid
end variables

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

event user_key();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(KeyDelete!) then
	cb_2.triggerevent(clicked!)
	return
elseif keydown(KeyUpArrow!) then
//	dw_1.scrollpriorrow()
	if dw_1.getrow()>0 then
		dw_1.scrolltorow(dw_1.getrow() - 1)
	else
		dw_1.scrolltorow(dw_1.rowcount())
	end if
	if dw_1.getrow()>0 then
		dw_1.selectrow( 0, false)
		dw_1.selectrow( dw_1.getrow(), true)
	end if
	this.triggerevent('ue_retrieve_mtl')
	return
elseif keydown(KeyDownArrow!) then
//	dw_1.scrollnextrow()
	if dw_1.getrow()>0 then
		dw_1.scrolltorow(dw_1.getrow() + 1)
	else
		dw_1.scrolltorow(1)
	end if
	if dw_1.getrow()>0 then
		dw_1.selectrow( 0, false)
		dw_1.selectrow( dw_1.getrow(), true)
	end if
	this.triggerevent('ue_retrieve_mtl')
	return
elseif keydown(KeyEscape!) then
	s_rt_stru.if_ok = 0
	close(this)
//	cb_exit.postevent(clicked!)
	return
end if
end event

on w_outware_pos_findmtrl.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.st_1=create st_1
this.st_2=create st_2
this.st_3=create st_3
this.st_4=create st_4
this.dw_1=create dw_1
this.cb_retrieve=create cb_retrieve
this.cb_2=create cb_2
this.sle_1=create sle_1
this.sle_2=create sle_2
this.sle_3=create sle_3
this.sle_4=create sle_4
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.st_1
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.st_3
this.Control[iCurrent+5]=this.st_4
this.Control[iCurrent+6]=this.dw_1
this.Control[iCurrent+7]=this.cb_retrieve
this.Control[iCurrent+8]=this.cb_2
this.Control[iCurrent+9]=this.sle_1
this.Control[iCurrent+10]=this.sle_2
this.Control[iCurrent+11]=this.sle_3
this.Control[iCurrent+12]=this.sle_4
end on

on w_outware_pos_findmtrl.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.st_1)
destroy(this.st_2)
destroy(this.st_3)
destroy(this.st_4)
destroy(this.dw_1)
destroy(this.cb_retrieve)
destroy(this.cb_2)
destroy(this.sle_1)
destroy(this.sle_2)
destroy(this.sle_3)
destroy(this.sle_4)
end on

event open;call super::open;dw_1.SetTransObject(sqlca)

sle_1.SetFocus()

s_rt_stru.if_ok = 0

cur_storageid = message.doubleparm
end event

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_findmtrl
boolean visible = false
integer y = 1724
integer taborder = 60
end type

type cb_exit from w_publ_base`cb_exit within w_outware_pos_findmtrl
integer x = 1440
integer y = 1716
integer width = 411
integer taborder = 50
string text = "退出 ESC"
end type

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

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

type cb_1 from uo_imflatbutton within w_outware_pos_findmtrl
integer x = 562
integer y = 1716
integer width = 690
integer height = 96
integer taborder = 90
boolean bringtotop = true
string text = "确定 CTRL+ENT"
end type

event ue_keyup;call super::ue_keyup;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.mtrlid = dw_1.Object.u_mtrldef_mtrlid[uc_row]
s_rt_stru.barcode = dw_1.Object.u_mtrldef_barcode[uc_row]
s_rt_stru.mtrlcode = dw_1.Object.u_mtrldef_mtrlcode[uc_row]
s_rt_stru.mtrlname = dw_1.Object.u_mtrldef_mtrlname[uc_row]
s_rt_stru.unit = dw_1.Object.u_mtrldef_unit[uc_row]
s_rt_stru.mtrlmode = dw_1.Object.u_mtrldef_mtrlmode[uc_row]
s_rt_stru.mtrltype = dw_1.Object.u_mtrltype_mtrltype[uc_row]
s_rt_stru.if_ok = 1

Close(PARENT)

end event

type st_1 from statictext within w_outware_pos_findmtrl
integer x = 23
integer y = 48
integer width = 283
integer height = 52
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 focusrectangle = false
end type

type st_2 from statictext within w_outware_pos_findmtrl
integer x = 1015
integer y = 48
integer width = 283
integer height = 52
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 focusrectangle = false
end type

type st_3 from statictext within w_outware_pos_findmtrl
integer x = 23
integer y = 144
integer width = 283
integer height = 52
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 focusrectangle = false
end type

type st_4 from statictext within w_outware_pos_findmtrl
integer x = 1015
integer y = 144
integer width = 283
integer height = 52
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 focusrectangle = false
end type

type dw_1 from u_dw_rbtnfilter within w_outware_pos_findmtrl
integer y = 240
integer width = 3305
integer height = 1444
integer taborder = 70
boolean bringtotop = true
string dataobject = "dw_outware_pos_findmtrl"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = 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
end type

event rowfocuschanged;call super::rowfocuschanged;parent.triggerevent('ue_retrieve_mtl')
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_mtl')

end event

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

type cb_retrieve from uo_imflatbutton within w_outware_pos_findmtrl
integer x = 1998
integer y = 24
integer width = 334
integer height = 96
integer taborder = 100
boolean bringtotop = true
string text = "查询 ENT"
end type

event clicked;call super::clicked;String ls_barcode,ls_mtrlcode,ls_mtrlname,ls_mtrltype
IF Trim(sle_1.Text) <> '' THEN
	IF Pos(sle_1.Text,'%') > 0 THEN
		ls_barcode = Trim(sle_1.Text)
	ELSE
		ls_barcode = '%' + Trim(sle_1.Text) + '%'
	END IF
END IF

IF Trim(sle_2.Text) <> '' THEN
	IF Pos(sle_2.Text,'%') > 0 THEN
		ls_mtrlcode = Trim(sle_2.Text)
	ELSE
		ls_mtrlcode = '%' + Trim(sle_2.Text) + '%'
	END IF
END IF

IF Trim(sle_3.Text) <> '' THEN
	IF Pos(sle_3.Text,'%') > 0 THEN
		ls_mtrlname = Trim(sle_3.Text)
	ELSE
		ls_mtrlname = '%' + Trim(sle_3.Text) + '%'
	END IF
END IF

IF Trim(sle_4.Text) <> '' THEN
	IF Pos(sle_4.Text,'%') > 0 THEN
		ls_mtrltype = Trim(sle_4.Text)
	ELSE
		ls_mtrltype = '%' + Trim(sle_4.Text) + '%'
	END IF
END IF

dw_1.Retrieve(ls_barcode,ls_mtrlcode,ls_mtrlname,ls_mtrltype,cur_storageid)

end event

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

type cb_2 from uo_imflatbutton within w_outware_pos_findmtrl
integer x = 1998
integer y = 124
integer width = 334
integer height = 96
integer taborder = 110
boolean bringtotop = true
string text = "重查 DEL"
end type

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

event clicked;call super::clicked;sle_1.text = ''
sle_2.text = ''
sle_3.text = ''
sle_4.text = ''
dw_1.reset()
end event

type sle_1 from singlelineedit within w_outware_pos_findmtrl
event keyup pbm_keyup
event keydown pbm_keydown
integer x = 306
integer y = 28
integer width = 681
integer height = 84
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event keyup;//parent.triggerevent('user_key')
end event

event keydown;parent.triggerevent('user_key')

if keydown(KeyRightArrow!) then
	if this.text = '' then
		sle_2.setfocus()
	else
		if this.position()=len(sle_1.text)+1 then
			sle_2.setfocus()
		end if
	end if
end if
end event

event modified;cb_retrieve.triggerevent(clicked!)
end event

type sle_2 from singlelineedit within w_outware_pos_findmtrl
event keyup pbm_keyup
event keydown pbm_keydown
integer x = 1298
integer y = 32
integer width = 681
integer height = 84
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event keyup;//parent.triggerevent('user_key')
end event

event keydown;parent.triggerevent('user_key')

if keydown(KeyRightArrow!) then
	if this.text = '' then
		sle_3.setfocus()
	else
		if this.position()=len(sle_2.text)+1 then
			sle_3.setfocus()
		end if
	end if
elseif keydown(KeyLeftArrow!) then
	if this.position() = 1 then
		sle_1.setfocus()
	end if
end if
end event

event modified;cb_retrieve.triggerevent(clicked!)
end event

type sle_3 from singlelineedit within w_outware_pos_findmtrl
event keyup pbm_keyup
event keydown pbm_keydown
integer x = 306
integer y = 128
integer width = 681
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event keyup;//parent.triggerevent('user_key')
end event

event keydown;parent.triggerevent('user_key')

if keydown(KeyRightArrow!) then
	if this.text = '' then
		sle_4.setfocus()
	else
		if this.position()=len(sle_3.text)+1 then
			sle_4.setfocus()
		end if
	end if
elseif keydown(KeyLeftArrow!) then
	if this.position() = 1 then
		sle_2.setfocus()
	end if
end if
end event

event modified;cb_retrieve.triggerevent(clicked!)
end event

type sle_4 from singlelineedit within w_outware_pos_findmtrl
event keyup pbm_keyup
event keydown pbm_keydown
integer x = 1298
integer y = 132
integer width = 681
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event keyup;//parent.triggerevent('user_key')
end event

event keydown;parent.triggerevent('user_key')

if keydown(KeyLeftArrow!) then
	if this.position() = 1 then
		sle_3.setfocus()
	end if
end if
end event

event modified;cb_retrieve.triggerevent(clicked!)
end event