Q5/ws_objects/Ew_machining.pbl.src/w_rp_mtrlware_spt.srw

$PBExportHeader$w_rp_mtrlware_spt.srw
forward
global type w_rp_mtrlware_spt from w_publ_pageretr_easyq
end type
type cbx_1 from checkbox within w_rp_mtrlware_spt
end type
type cbx_inout from checkbox within w_rp_mtrlware_spt
end type
type tab_1 from tab within w_rp_mtrlware_spt
end type
type tabpage_1 from userobject within tab_1
end type
type dw_inout from u_dw_rbtnfilter within tabpage_1
end type
type cb_iomx_retrieve from uo_imflatbutton within tabpage_1
end type
type em_4 from editmask within tabpage_1
end type
type st_6 from statictext within tabpage_1
end type
type em_3 from editmask within tabpage_1
end type
type st_7 from statictext within tabpage_1
end type
type tabpage_1 from userobject within tab_1
dw_inout dw_inout
cb_iomx_retrieve cb_iomx_retrieve
em_4 em_4
st_6 st_6
em_3 em_3
st_7 st_7
end type
type tab_1 from tab within w_rp_mtrlware_spt
tabpage_1 tabpage_1
end type
end forward

global type w_rp_mtrlware_spt from w_publ_pageretr_easyq
integer width = 4142
integer height = 3444
string title = "外协商库存表"
event ue_retrieve_inoutmx ( )
cbx_1 cbx_1
cbx_inout cbx_inout
tab_1 tab_1
end type
global w_rp_mtrlware_spt w_rp_mtrlware_spt

forward prototypes
public function integer wf_hide_col ()
end prototypes

event ue_retrieve_inoutmx();Long ll_row
Datetime ld_fdate,ld_edate
Long li_mtrlid,li_sptid
String ls_status,ls_woodcode,ls_pcode

ll_row = dw_pageretr.GetRow()

tab_1.tabpage_1.dw_inout.setredraw(false)
tab_1.tabpage_1.dw_inout.setfilter('')
tab_1.tabpage_1.dw_inout.filter()

IF ll_row <= 0 THEN
	tab_1.tabpage_1.dw_inout.Reset()

ELSE
	
	
	li_sptid = dw_pageretr.Object.ow_wfjgware_sptid[ll_row]
	li_mtrlid = dw_pageretr.Object.ow_wfjgware_mtrlid[ll_row]
	ls_status = dw_pageretr.Object.ow_wfjgware_status[ll_row]
	ls_woodcode = dw_pageretr.Object.ow_wfjgware_woodcode[ll_row]
	ls_pcode = dw_pageretr.Object.ow_wfjgware_pcode[ll_row]
	
	ld_fdate = DateTime(Date(tab_1.tabpage_1.em_3.Text),Time(0))
	ld_edate = DateTime(Date(tab_1.tabpage_1.em_4.Text),Time('23:59:59'))
	
	tab_1.tabpage_1.dw_inout.Retrieve(li_sptid,li_mtrlid,ld_fdate,ld_edate,ls_status,ls_woodcode,ls_pcode)
END IF


tab_1.tabpage_1.dw_inout.setredraw(true)

end event

public function integer wf_hide_col ();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)
f_hide_col(1448,dw_pageretr,s_col)
RETURN 1



end function

on w_rp_mtrlware_spt.create
int iCurrent
call super::create
this.cbx_1=create cbx_1
this.cbx_inout=create cbx_inout
this.tab_1=create tab_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_1
this.Control[iCurrent+2]=this.cbx_inout
this.Control[iCurrent+3]=this.tab_1
end on

on w_rp_mtrlware_spt.destroy
call super::destroy
destroy(this.cbx_1)
destroy(this.cbx_inout)
destroy(this.tab_1)
end on

event retrieve_pageretr;boolean cb_firstpage_enabled,cb_nextpage_enabled,cb_retrieveall_enabled
boolean cb_priorpage_enabled,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

dw_pageretr.retrieve(rtr_zeronoallocqty,sys_user_spttype  )
wf_hide_col()
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;tab_1.tabpage_1.dw_inout.SetTransObject (sqlca)

if_ue_retr=true
if_ue_filter=true
if_ue_sort=true
if_ue_sentdataout=true

s_hide_col s_col_mtrlsectype
s_col_mtrlsectype.col_1 = 'u_mtrldef_mtrlsectype' 
f_hide_col(1308,dw_pageretr,s_col_mtrlsectype) 

s_hide_col s_col_zxmtrlmode
s_col_zxmtrlmode.col_1 = 'u_mtrldef_zxmtrlmode' 
f_hide_col(1309,dw_pageretr,s_col_zxmtrlmode)  

s_hide_col s_col_cost
s_col_cost.col_1 = 'ow_wfjgware_cost' 
s_col_cost.col_2 = 'ow_wfjgware_wareamt' 
f_hide_col(123,dw_pageretr,s_col_cost)
end event

event resize;call super::resize;IF cbx_inout.Checked THEN
	tab_1.Visible = TRUE
	
	dw_pageretr.Width = THIS.Width - dw_pageretr.X - 40
	dw_pageretr.Height = THIS.Height - dw_pageretr.Y - tab_1.Height - 150

	tab_1.Width = THIS.Width - tab_1.X - 40
	
	tab_1.Y = dw_pageretr.Y + dw_pageretr.Height + 10
	tab_1.X = dw_pageretr.X
	tab_1.tabpage_1.dw_inout.Height = tab_1.tabpage_1.Height - tab_1.tabpage_1.dw_inout.Y - 40
	tab_1.tabpage_1.dw_inout.Width = tab_1.tabpage_1.Width - tab_1.tabpage_1.dw_inout.X - 40
	
ELSE
	dw_pageretr.Width = THIS.Width - dw_pageretr.X - 40
	dw_pageretr.Height = THIS.Height - dw_pageretr.Y - 150
	tab_1.Visible = FALSE
END IF
end event

type cb_func from w_publ_pageretr_easyq`cb_func within w_rp_mtrlware_spt
end type

type cb_exit from w_publ_pageretr_easyq`cb_exit within w_rp_mtrlware_spt
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_spt
integer x = 352
end type

type cb_retrieveall from w_publ_pageretr_easyq`cb_retrieveall within w_rp_mtrlware_spt
boolean visible = false
integer x = 1637
integer y = 428
end type

type em_pagerowno from w_publ_pageretr_easyq`em_pagerowno within w_rp_mtrlware_spt
boolean visible = false
integer x = 1339
integer y = 428
end type

type dw_pageretr from w_publ_pageretr_easyq`dw_pageretr within w_rp_mtrlware_spt
integer y = 296
integer width = 3237
integer height = 1932
string dataobject = "dw_rp_mtrlware_spt"
end type

event dw_pageretr::rowfocuschanged;call super::rowfocuschanged;IF cbx_inout.Checked THEN
	Parent.TriggerEvent('ue_retrieve_inoutmx')
END IF
end event

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

type cb_nextpage from w_publ_pageretr_easyq`cb_nextpage within w_rp_mtrlware_spt
boolean visible = false
integer x = 2130
integer y = 428
end type

type ddlb_yl from w_publ_pageretr_easyq`ddlb_yl within w_rp_mtrlware_spt
integer x = 1554
integer y = 44
end type

type cbx_yl from w_publ_pageretr_easyq`cbx_yl within w_rp_mtrlware_spt
integer x = 1344
integer y = 44
end type

type cb_psetup from w_publ_pageretr_easyq`cb_psetup within w_rp_mtrlware_spt
end type

type cb_2 from w_publ_pageretr_easyq`cb_2 within w_rp_mtrlware_spt
end type

type cb_refresh from w_publ_pageretr_easyq`cb_refresh within w_rp_mtrlware_spt
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_spt
end type

type cb_copyself from w_publ_pageretr_easyq`cb_copyself within w_rp_mtrlware_spt
end type

type gb_2 from w_publ_pageretr_easyq`gb_2 within w_rp_mtrlware_spt
end type

type ln_bar from w_publ_pageretr_easyq`ln_bar within w_rp_mtrlware_spt
end type

type ln_bar2 from w_publ_pageretr_easyq`ln_bar2 within w_rp_mtrlware_spt
end type

type r_bar from w_publ_pageretr_easyq`r_bar within w_rp_mtrlware_spt
end type

type ln_1 from w_publ_pageretr_easyq`ln_1 within w_rp_mtrlware_spt
end type

type ln_2 from w_publ_pageretr_easyq`ln_2 within w_rp_mtrlware_spt
end type

type cbx_1 from checkbox within w_rp_mtrlware_spt
integer x = 891
integer y = 200
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))



cb_refresh.triggerevent(clicked!)
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 cbx_inout from checkbox within w_rp_mtrlware_spt
integer x = 1408
integer y = 200
integer width = 439
integer height = 76
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 = "显示明细"
end type

event clicked;Int if_inout
IF This.Checked THEN
	if_inout = 1
ELSE
	if_inout = 0
END IF

f_SetProfileString (sys_empid,PARENT.Classname(), "if_inout", String(if_inout))
Parent.TriggerEvent(Resize!)
Parent.TriggerEvent("ue_retrieve_inoutmx")


end event

event constructor;Int if_inout
if_inout = Integer(f_ProfileString (sys_empid,PARENT.Classname(), "if_inout", '0'))
IF if_inout	 = 0 THEN
	This.Checked = False
ELSE
	This.Checked = True
END IF

end event

type tab_1 from tab within w_rp_mtrlware_spt
integer y = 2248
integer width = 2304
integer height = 1056
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 134217739
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_1 tabpage_1
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.Control[]={this.tabpage_1}
end on

on tab_1.destroy
destroy(this.tabpage_1)
end on

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 2267
integer height = 944
long backcolor = 134217739
string text = "进出明细"
long tabtextcolor = 33554432
long tabbackcolor = 134217739
long picturemaskcolor = 536870912
dw_inout dw_inout
cb_iomx_retrieve cb_iomx_retrieve
em_4 em_4
st_6 st_6
em_3 em_3
st_7 st_7
end type

on tabpage_1.create
this.dw_inout=create dw_inout
this.cb_iomx_retrieve=create cb_iomx_retrieve
this.em_4=create em_4
this.st_6=create st_6
this.em_3=create em_3
this.st_7=create st_7
this.Control[]={this.dw_inout,&
this.cb_iomx_retrieve,&
this.em_4,&
this.st_6,&
this.em_3,&
this.st_7}
end on

on tabpage_1.destroy
destroy(this.dw_inout)
destroy(this.cb_iomx_retrieve)
destroy(this.em_4)
destroy(this.st_6)
destroy(this.em_3)
destroy(this.st_7)
end on

type dw_inout from u_dw_rbtnfilter within tabpage_1
integer y = 88
integer taborder = 40
string dataobject = "dw_rp_mtrlware_spt_inoutmx"
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.SelectRow(0, False)
	This.SetRow(row)
	This.SelectRow(row,True)
END IF


end event

event doubleclicked;call super::doubleclicked;IF row > 0 THEN
	String ls_code,ls_relcode
	Long ll_scid
	Int li_thflag,li_billtype
	
	ll_scid = This.Object.scid[row]
	ls_code = This.Object.code[row]
	f_open_win(ll_scid,ls_code)
END IF


end event

type cb_iomx_retrieve from uo_imflatbutton within tabpage_1
integer x = 1134
integer width = 215
integer height = 84
integer taborder = 100
string text = "刷新"
integer picsize = 16
end type

event clicked;call super::clicked;getparentwindow().triggerevent("ue_retrieve_inoutmx")
end event

type em_4 from editmask within tabpage_1
integer x = 704
integer width = 402
integer height = 84
integer taborder = 100
integer textsize = -9
integer weight = 400
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 constructor;this.Text = String(Today(),'YYYY-MM-DD')
end event

type st_6 from statictext within tabpage_1
integer x = 631
integer y = 16
integer width = 73
integer height = 48
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 em_3 from editmask within tabpage_1
integer x = 224
integer width = 402
integer height = 84
integer taborder = 100
integer textsize = -9
integer weight = 400
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 constructor;this.Text = String(Today(),'YYYY-MM')+'-01'
end event

type st_7 from statictext within tabpage_1
integer x = 9
integer y = 16
integer width = 219
integer height = 48
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