Q5/ws_objects/cw_asset.pbl.src/w_assetdef_ch.srw

$PBExportHeader$w_assetdef_ch.srw
forward
global type w_assetdef_ch from w_pageretr_ch
end type
type cbx_1 from checkbox within w_assetdef_ch
end type
end forward

global type w_assetdef_ch from w_pageretr_ch
integer width = 3602
integer height = 2192
string title = "固定资产选择"
cbx_1 cbx_1
end type
global w_assetdef_ch w_assetdef_ch

type variables
s_assetcard_array INS_RT_STRU
boolean  if_changeselect=true
int if_mlselect=0
end variables

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

on w_assetdef_ch.destroy
call super::destroy
destroy(this.cbx_1)
end on

event ue_usual_query_retr;call super::ue_usual_query_retr;string ls_querystrpart=''
ls_newselect=lower(ori_oldselect)
if trim(sle_usual_query.text)<>'' then
	if pos(trim(sle_usual_query.text),'%')=0 then
		ls_querystrpart="(cw_assetcard.assetcardcode like '%"+trim(sle_usual_query.text)+"%')"
	else
		ls_querystrpart="(cw_assetcard.assetcardcode like '"+trim(sle_usual_query.text)+"')"
	end if

	if Pos(ls_newselect," where ") <> 0 then
	   ls_newselect=ls_newselect+" AND ("+ls_querystrpart+')'
	else
		ls_newselect=ls_newselect+" where ("+ls_querystrpart+')'
	end if
end if
//wf_retrieveuc(1)    //注意必须有此句

end event

event retrieve_pageretr;boolean cb_nextpage_enabled,cb_retrieveall_enabled
boolean cb_retrieve_enabled

cb_nextpage_enabled=cb_nextpage.enabled
cb_retrieveall_enabled=cb_retrieveall.enabled

cb_nextpage.enabled=false
cb_retrieveall.enabled=false


SetPointer(HourGlass!) 
dw_pageretr.retrieve(sys_accsetid)
SetPointer(Arrow!)

cb_nextpage.enabled=cb_nextpage_enabled
cb_retrieveall.enabled=cb_retrieveall_enabled

end event

event ue_before_open;dw_pageretr.settransobject(sqlca)

//1.类别
datawindowchild childdw_assetypeid
dw_pageretr.getchild("assetypeid",childdw_assetypeid)

childdw_assetypeid.SetTransObject (sqlca)
childdw_assetypeid.retrieve(sys_accsetid)
if childdw_assetypeid.rowcount()<=0 then
	childdw_assetypeid.insertrow(0)
end if

//2.部门
datawindowchild childdw_deptid
dw_pageretr.getchild("deptid",childdw_deptid)

childdw_deptid.SetTransObject (sqlca)
childdw_deptid.retrieve(sys_accsetid)
if childdw_deptid.rowcount()<=0 then
	childdw_deptid.insertrow(0)
end if

//3.增减方式
datawindowchild childdw_incrdecrid
dw_pageretr.getchild("incrdecrid",childdw_incrdecrid)

childdw_incrdecrid.SetTransObject (sqlca)
childdw_incrdecrid.retrieve(sys_accsetid)
if childdw_incrdecrid.rowcount()<=0 then
	childdw_incrdecrid.insertrow(0)
end if

//4.使用状况
datawindowchild childdw_usedtypeid
dw_pageretr.getchild("usedtypeid",childdw_usedtypeid)

childdw_usedtypeid.SetTransObject (sqlca)
childdw_usedtypeid.retrieve(sys_accsetid)
if childdw_usedtypeid.rowcount()<=0 then
	childdw_usedtypeid.insertrow(0)
end if



end event

event open;call super::open;INS_RT_STRU.assetcardid[1] = 0


end event

event close;call super::close;CLOSEWITHRETURN(THIS,ins_rt_stru)
end event

type cb_func from w_pageretr_ch`cb_func within w_assetdef_ch
boolean visible = false
integer x = 1957
boolean enabled = false
end type

type cb_exit from w_pageretr_ch`cb_exit within w_assetdef_ch
integer x = 302
end type

type sle_usual_query from w_pageretr_ch`sle_usual_query within w_assetdef_ch
integer x = 238
end type

type cb_retrieveall from w_pageretr_ch`cb_retrieveall within w_assetdef_ch
integer x = 754
end type

type em_pagerowno from w_pageretr_ch`em_pagerowno within w_assetdef_ch
integer x = 453
end type

type dw_pageretr from w_pageretr_ch`dw_pageretr within w_assetdef_ch
integer width = 3584
integer height = 1796
string dataobject = "dw_assetdef_ch"
end type

event dw_pageretr::clicked;call super::clicked;if row>0 then
	this.setrow(row)	
	if if_mlselect=1 then
		if if_changeselect then
			this.selectrow(row,not this.IsSelected(row))
		else
			if_changeselect=true
		end if
	else
		this.selectrow(0,false)
		this.selectrow(row,true)
	end if
end if



end event

event dw_pageretr::doubleclicked;cb_choice.triggerevent(clicked!)
end event

event dw_pageretr::rowfocuschanged;if if_mlselect=1 then
	if currentrow <=0 then return
	if keydown(keycontrol!) then 
		if this.isselected(currentrow) then
			this.selectrow(currentrow,false)
			if_changeselect=false
		else
			if_changeselect=true
		end if
	else
		if not this.isselected(currentrow) then
			this.selectrow(currentrow,true)
			if_changeselect=false
		else
			if_changeselect=true
		end if
	end if
else
	if dw_edit_mode then return
	if currentrow <=0 then return
	this.selectrow(0,false)
	this.selectrow(currentrow,true)
end if

end event

type st_1 from w_pageretr_ch`st_1 within w_assetdef_ch
integer width = 229
string text = "编号含:"
end type

type cb_nextpage from w_pageretr_ch`cb_nextpage within w_assetdef_ch
integer x = 905
end type

type cb_choice from w_pageretr_ch`cb_choice within w_assetdef_ch
integer x = 151
end type

event cb_choice::clicked;call super::clicked;Long ROW,ls_i = 0,chC = 0


ROW = dw_pageretr.GetRow()
IF ROW <= 0 THEN
	MessageBox('系统提示','请先选择目标行!',StopSign!)
	RETURN
END IF
      
FOR ls_i = 1 TO dw_pageretr.RowCount()
	IF dw_pageretr.IsSelected(ls_i) THEN
		chC++
		INS_RT_STRU.assetcardid[chC] = dw_pageretr.Object.assetcardid[ls_i]
		INS_RT_STRU.assetcardcode[chC] = dw_pageretr.Object.assetcardcode[ls_i]
		INS_RT_STRU.assetcardname[chC] = dw_pageretr.Object.assetcardname[ls_i]
	END IF
NEXT
IF chC = 0 THEN
	MessageBox('系统提示','请至少选择一个目标行!',StopSign!)
	RETURN
END IF


CLOSE(PARENT)

end event

type cb_refresh from w_pageretr_ch`cb_refresh within w_assetdef_ch
end type

type ln_bar from w_pageretr_ch`ln_bar within w_assetdef_ch
end type

type ln_bar2 from w_pageretr_ch`ln_bar2 within w_assetdef_ch
end type

type r_bar from w_pageretr_ch`r_bar within w_assetdef_ch
end type

type ln_1 from w_pageretr_ch`ln_1 within w_assetdef_ch
end type

type ln_2 from w_pageretr_ch`ln_2 within w_assetdef_ch
end type

type cbx_1 from checkbox within w_assetdef_ch
integer x = 786
integer y = 188
integer width = 247
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;if this.checked then
	if_mlselect=1
else
	if_mlselect=0
end if

SetProfileString (sys_inifilename,dw_pageretr.DATAOBJECT, "if_mlselect", string(if_mlselect))

end event