Q5/ws_objects/Ew_ljfieb.pbl.src/w_rp_mtrlware_propel.srw

$PBExportHeader$w_rp_mtrlware_propel.srw
forward
global type w_rp_mtrlware_propel from w_publ_pageretr_easyq
end type
type cbx_1 from checkbox within w_rp_mtrlware_propel
end type 
type dw_spt from u_dw_rbtnfilter within w_rp_mtrlware_propel
end type
end forward

global type w_rp_mtrlware_propel from w_publ_pageretr_easyq
integer height = 2432
string title = "外协商库存查询"
event ue_retrieve_info ( )
cbx_1 cbx_1
dw_spt dw_spt
end type
global w_rp_mtrlware_propel w_rp_mtrlware_propel

type variables
long ins_sptid = -1
long il_scid 

integer cur_billtype_in = -1
integer cur_billtype_out = -1
end variables

event ue_retrieve_info();Long ll_row
Long ll_mtrlid

ll_row = dw_pageretr.GetRow()

IF ll_row <= 0 THEN
	ll_mtrlid = 0
ELSE
	ll_mtrlid = dw_pageretr.Object.ow_wfjgware_sptid[ll_row]
END IF

IF IsValid(w_mtrl_info) THEN
	w_mtrl_info.WindowState = Normal!
	w_mtrl_info.ins_mtrlid = ll_mtrlid
	w_mtrl_info.wf_retrieve(ll_mtrlid)
END IF


end event

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

on w_rp_mtrlware_propel.destroy
call super::destroy
destroy(this.cbx_1)
destroy(this.dw_spt)
end on

event retrieve_pageretr;boolean cb_nextpage_enabled,cb_retrieveall_enabled
boolean cb_func_enabled,cb_retrieve_enabled

cb_nextpage_enabled=cb_nextpage.enabled
cb_retrieveall_enabled=cb_retrieveall.enabled
cb_func_enabled=cb_func.enabled

cb_nextpage.enabled=false
cb_retrieveall.enabled=false
cb_func.enabled=false


SetPointer(HourGlass!)

int rtr_zeronoallocqty 
 
if cbx_1.checked then
	rtr_zeronoallocqty = -1	
else
	rtr_zeronoallocqty = 0
end if

if dw_spt.getrow() > 0 then
	ins_sptid = dw_spt.object.sptid[dw_spt.getrow()]
else
	ins_sptid = -1
end if
	

dw_pageretr.retrieve(rtr_zeronoallocqty,il_scid,ins_sptid)
if dw_pageretr.rowcount()>0 and dw_pageretr.getrow()=0 then dw_pageretr.setrow(1)
SetPointer(Arrow!)

cb_nextpage.enabled=cb_nextpage_enabled
cb_retrieveall.enabled=cb_retrieveall_enabled
cb_func.enabled=cb_func_enabled





end event

event ue_usual_query_filt;call super::ue_usual_query_filt;IF dw_edit_mode OR KeyDown(keyf4!) OR KeyDown(keyf5!) THEN	RETURN
String obj_expr = ''
IF Trim(sle_usual_query.Text) <> '' THEN
	IF Pos(Trim(sle_usual_query.Text),'%') = 0 THEN
		obj_expr = obj_expr+' (u_mtrldef_mtrlcode LIKE "%'+Trim(sle_usual_query.Text)+'%")'
		obj_expr = obj_expr+' or (u_mtrldef_mtrlname LIKE "%'+Trim(sle_usual_query.Text)+'%")'
	ELSE
		obj_expr = obj_expr+' (u_mtrldef_mtrlcode LIKE "'+Trim(sle_usual_query.Text)+'")'
		obj_expr = obj_expr+' or (u_mtrldef_mtrlcode LIKE "'+Trim(sle_usual_query.Text)+'")'
	END IF
END IF

dw_pageretr.SetFilter(obj_expr)

dw_pageretr.SetRedraw(FALSE)

dw_pageretr.Filter()
IF dw_pageretr.RowCount() >= 1 THEN
	dw_pageretr.SelectRow(0,FALSE)
	dw_pageretr.SelectRow(1,TRUE)
END IF
dw_pageretr.SetRedraw(TRUE)



end event

event open;call super::open;s_hide_col s_col
s_col.col_1 = 'ow_wfjgware_cost'
s_col.col_2 = 'ow_wfjgware_wareamt'
    
f_hide_col(121,dw_pageretr,s_col)


dw_spt.retrieve()
end event

event ue_before_open;call super::ue_before_open;if_ue_retr=true
if_ue_filter=true
if_ue_sort=true
if_ue_sentdataout=true

dw_spt.settransobject(sqlca)


end event

event resize;call super::resize;dw_spt.Height = THIS.Height - dw_spt.Y - 150

end event

type cb_func from w_publ_pageretr_easyq`cb_func within w_rp_mtrlware_propel
end type

type cb_exit from w_publ_pageretr_easyq`cb_exit within w_rp_mtrlware_propel
integer picsize = 16
toolbaralignment pic_align = alignattop!
end type

type sle_usual_query from w_publ_pageretr_easyq`sle_usual_query within w_rp_mtrlware_propel
integer x = 347
end type

type cb_retrieveall from w_publ_pageretr_easyq`cb_retrieveall within w_rp_mtrlware_propel
boolean visible = false
integer x = 517
integer y = 460
end type

type em_pagerowno from w_publ_pageretr_easyq`em_pagerowno within w_rp_mtrlware_propel
boolean visible = false
integer x = 219
integer y = 460
end type

type dw_pageretr from w_publ_pageretr_easyq`dw_pageretr within w_rp_mtrlware_propel
integer x = 1010
integer width = 2254
integer height = 824
string dataobject = "dw_mtrlware_propel_index"
end type

event dw_pageretr::constructor;call super::constructor;if_mdf_title = FALSE
end event

type st_1 from w_publ_pageretr_easyq`st_1 within w_rp_mtrlware_propel
integer width = 343
string text = "编码/名称含:"
end type

type cb_nextpage from w_publ_pageretr_easyq`cb_nextpage within w_rp_mtrlware_propel
boolean visible = false
integer x = 1893
end type

type ddlb_yl from w_publ_pageretr_easyq`ddlb_yl within w_rp_mtrlware_propel
integer x = 1550
integer y = 32
end type

type cbx_yl from w_publ_pageretr_easyq`cbx_yl within w_rp_mtrlware_propel
integer x = 1344
integer y = 32
end type

type cb_psetup from w_publ_pageretr_easyq`cb_psetup within w_rp_mtrlware_propel
end type

type cb_2 from w_publ_pageretr_easyq`cb_2 within w_rp_mtrlware_propel
end type

type cb_refresh from w_publ_pageretr_easyq`cb_refresh within w_rp_mtrlware_propel
end type

event cb_refresh::clicked;call super::clicked;PARENT.TriggerEvent('retrieve_pageretr')
end event

type cb_help from w_publ_pageretr_easyq`cb_help within w_rp_mtrlware_propel
end type

type cb_copyself from w_publ_pageretr_easyq`cb_copyself within w_rp_mtrlware_propel
end type

type gb_2 from w_publ_pageretr_easyq`gb_2 within w_rp_mtrlware_propel
integer width = 3237
integer height = 148
end type

type ln_bar from w_publ_pageretr_easyq`ln_bar within w_rp_mtrlware_propel
end type

type ln_bar2 from w_publ_pageretr_easyq`ln_bar2 within w_rp_mtrlware_propel
end type

type r_bar from w_publ_pageretr_easyq`r_bar within w_rp_mtrlware_propel
end type

type ln_1 from w_publ_pageretr_easyq`ln_1 within w_rp_mtrlware_propel
end type

type ln_2 from w_publ_pageretr_easyq`ln_2 within w_rp_mtrlware_propel
end type

type cbx_1 from checkbox within w_rp_mtrlware_propel
integer x = 869
integer y = 192
integer width = 439
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "显示 0 库存"
end type

event clicked;int if_zeromtrlware
if this.checked then
	if_zeromtrlware=1
else
	if_zeromtrlware=0
end if

f_SetProfileString (sys_empid,dw_pageretr.DATAOBJECT, "if_zeromtrlware", string(if_zeromtrlware))



parent.triggerevent("retrieve_pageretr")
end event

event constructor;int if_zeromtrlware
if_zeromtrlware=integer(f_ProfileString (sys_empid,dw_pageretr.DATAOBJECT, "if_zeromtrlware", '0'))
if if_zeromtrlware	=0 then
	this.checked=false
else
	this.checked=true
end if

end event

type dw_spt from u_dw_rbtnfilter within w_rp_mtrlware_propel
integer y = 300
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_mtrlware_propel_spt_list"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event clicked;call super::clicked;if row > 0 then
	this.setrow(row)
	this.selectrow(0, false)
	this.selectrow(row, true)
end if
end event

event rowfocuschanged;call super::rowfocuschanged;if currentrow > 0 then
	this.setrow(currentrow)
	this.selectrow(0, false)
	this.selectrow(currentrow, true)
	
	
	PARENT.TriggerEvent('retrieve_pageretr')
end if


end event