Q5/ws_objects/Ew_money.pbl.src/w_iteminput.srw

$PBExportHeader$w_iteminput.srw
forward
global type w_iteminput from w_publ_easyq
end type
type cb_add from uo_imflatbutton within w_iteminput
end type
type cb_mod from uo_imflatbutton within w_iteminput
end type
type cb_del from uo_imflatbutton within w_iteminput
end type
type ddlb_1 from dropdownlistbox within w_iteminput
end type
type st_1 from statictext within w_iteminput
end type
type ddlb_scid from uo_ddlb_scid within w_iteminput
end type
type st_5 from statictext within w_iteminput
end type
type dw_item from u_dw_rbtnfilter within w_iteminput
end type
end forward

global type w_iteminput from w_publ_easyq
string title = "收入支出帐"
event user_key ( )
event ue_f8 ( )
cb_add cb_add
cb_mod cb_mod
cb_del cb_del
ddlb_1 ddlb_1
st_1 st_1
ddlb_scid ddlb_scid
st_5 st_5
dw_item dw_item
end type
global w_iteminput w_iteminput

type variables
long ins_moneyid
long cur_scid_arr[]
end variables

event user_key();if keydown(keyf1!) then this.triggerevent("ue_help")
end event

on w_iteminput.create
int iCurrent
call super::create
this.cb_add=create cb_add
this.cb_mod=create cb_mod
this.cb_del=create cb_del
this.ddlb_1=create ddlb_1
this.st_1=create st_1
this.ddlb_scid=create ddlb_scid
this.st_5=create st_5
this.dw_item=create dw_item
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_add
this.Control[iCurrent+2]=this.cb_mod
this.Control[iCurrent+3]=this.cb_del
this.Control[iCurrent+4]=this.ddlb_1
this.Control[iCurrent+5]=this.st_1
this.Control[iCurrent+6]=this.ddlb_scid
this.Control[iCurrent+7]=this.st_5
this.Control[iCurrent+8]=this.dw_item
end on

on w_iteminput.destroy
call super::destroy
destroy(this.cb_add)
destroy(this.cb_mod)
destroy(this.cb_del)
destroy(this.ddlb_1)
destroy(this.st_1)
destroy(this.ddlb_scid)
destroy(this.st_5)
destroy(this.dw_item)
end on

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

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

event resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
ln_1.endx = this.width
ln_2.endx = this.width
ln_3.endx = this.width
ln_4.endx = this.width
r_bar.width = this.width

dw_item.height=this.height - dw_1.y - 150
dw_1.width=this.width - dw_1.x - 40
dw_1.height=this.height - dw_1.y - 150
end event

event ue_before_open;call super::ue_before_open;dw_item.SetTransObject (sqlca)
end event

event ue_before_openretrieve;call super::ue_before_openretrieve;dw_item.retrieve()
EM_1.TEXT=string(today(),'yyyy-mm')+'-01'
EM_2.TEXT=STRING(TODAY(),'YYYY-MM-DD')
end event

type cb_func from w_publ_easyq`cb_func within w_iteminput
end type

type cb_exit from w_publ_easyq`cb_exit within w_iteminput
integer x = 1417
end type

type cb_2 from w_publ_easyq`cb_2 within w_iteminput
integer x = 1115
integer taborder = 120
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_iteminput
integer x = 859
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_iteminput
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;DateTime firstdate,enddate
Long itemid
IF dw_item.GetRow() = 0 THEN RETURN
firstdate = DateTime(Date(em_1.Text),Time(0))
enddate = DateTime(Date(em_2.Text),Time('23:59:59'))


itemid = dw_item.Object.itemid[dw_item.GetRow()]
dw_1.Retrieve(cur_scid_arr,ins_moneyid,firstdate,enddate,itemid)
dw_1.Object.dt_ar.Text = "日期范围: "+String(Date(firstdate))+" 到 "+em_2.Text

end event

type st_3 from w_publ_easyq`st_3 within w_iteminput
integer x = 1463
end type

type st_4 from w_publ_easyq`st_4 within w_iteminput
integer x = 2181
integer y = 204
end type

type em_1 from w_publ_easyq`em_1 within w_iteminput
integer x = 1664
integer y = 196
integer taborder = 140
end type

type em_2 from w_publ_easyq`em_2 within w_iteminput
integer x = 2290
integer y = 196
integer taborder = 150
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_iteminput
integer x = 1865
integer y = 56
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_iteminput
integer x = 1659
integer y = 56
end type

type dw_1 from w_publ_easyq`dw_1 within w_iteminput
event dw_key pbm_dwnkey
integer x = 1001
integer y = 304
integer width = 1952
integer height = 1068
string dataobject = "dw_iteminput"
end type

event dw_1::rowfocuschanged;if currentrow<=0 then return
this.selectrow(0,false)
this.scrolltorow(currentrow)
this.selectrow(currentrow,true)
end event

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

type sle_mtrl from w_publ_easyq`sle_mtrl within w_iteminput
end type

type sle_cust from w_publ_easyq`sle_cust within w_iteminput
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_iteminput
end type

type st_cust from w_publ_easyq`st_cust within w_iteminput
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_iteminput
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_iteminput
integer x = 2075
integer y = 184
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_iteminput
integer x = 2702
integer y = 184
end type

type pb_2 from w_publ_easyq`pb_2 within w_iteminput
integer x = 2811
integer y = 184
end type

type cb_help from w_publ_easyq`cb_help within w_iteminput
integer x = 1266
end type

event cb_help::clicked;call super::clicked;parent.triggerevent("ue_help")
end event

type cb_copyself from w_publ_easyq`cb_copyself within w_iteminput
end type

type gb_1 from w_publ_easyq`gb_1 within w_iteminput
end type

type ln_bar from w_publ_easyq`ln_bar within w_iteminput
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_iteminput
end type

type r_bar from w_publ_easyq`r_bar within w_iteminput
end type

type ln_1 from w_publ_easyq`ln_1 within w_iteminput
end type

type ln_2 from w_publ_easyq`ln_2 within w_iteminput
end type

type ln_3 from w_publ_easyq`ln_3 within w_iteminput
end type

type ln_4 from w_publ_easyq`ln_4 within w_iteminput
end type

type cb_add from uo_imflatbutton within w_iteminput
integer x = 302
integer width = 192
integer height = 164
integer taborder = 90
boolean bringtotop = true
string text = "新增&A"
string normalpicname = "new.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(140) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

if ddlb_scid.uo_scid = -1 then
	MessageBox('提示','请先选择分部！',information!,ok!)
	RETURN
END IF


s_edit_index_tran s_tran
s_tran.b_long = 1 //新建
s_tran.c_long = 0
s_tran.d_long = 0
s_tran.e_long = ddlb_scid.uo_scid

IF dw_1.GetRow() > 0 THEN
	s_tran.b_string = dw_1.Object.u_iteminput_dscrp[dw_1.GetRow()]
ELSE
	s_tran.b_string = ''
END IF

OpenWithParm(w_iteminput_mod,s_tran)

end event

type cb_mod from uo_imflatbutton within w_iteminput
integer x = 494
integer width = 192
integer height = 164
integer taborder = 100
boolean bringtotop = true
string text = "修改&E"
string normalpicname = "open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF NOT f_power_ind(140) THEN
	MessageBox('提示','你没有使用权限！',information!,ok!)
	RETURN
END IF

Long li_row

li_row = dw_1.GetRow()
IF li_row <= 0 THEN
	MessageBox('提示','请选择要修改的记录',information!,ok!)
	RETURN
END IF

IF dw_1.Object.u_iteminput_buildtype[li_row] = 1 THEN
	MessageBox('提示','自动建立的收入支出帐明细,不能修改',information!,ok!)
	RETURN
END IF

s_edit_index_tran s_tran
s_tran.b_long = 2 //新建
s_tran.c_long = dw_1.Object.u_iteminput_itemid[li_row]
s_tran.d_long = dw_1.Object.u_iteminput_dateint[li_row]
OpenWithParm(w_iteminput_mod,s_tran)

end event

type cb_del from uo_imflatbutton within w_iteminput
integer x = 686
integer width = 174
integer height = 164
integer taborder = 90
boolean bringtotop = true
string text = "删除"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;if not f_power_ind(140) then
	messagebox('提示','你没有使用权限！',information!,ok!)
	return
end if

long ls_itemid,ls_dateint
uo_iteminput uo_item
string arg_msg


IF dw_1.GETROW()<=0 THEN 
	MESSAGEBOX('提示','没有操作目标记录!',information!,ok!)
	RETURN
END IF

uo_item = create uo_iteminput

ls_itemid=dw_1.OBJECT.u_iteminput_itemid[dw_1.GETROW()]
ls_dateint=dw_1.OBJECT.u_iteminput_dateint[dw_1.GETROW()]

if uo_item.del_iteminput(ls_itemid,ls_dateint,0,arg_msg,true) = 0 then
	messagebox('错误',arg_msg,stopsign!,ok!)
	return
end if
destroy uo_item
messagebox('提示','删除成功',information!,ok!)
dw_1.DeleteRow (0)



end event

type ddlb_1 from dropdownlistbox within w_iteminput
integer x = 827
integer y = 196
integer width = 594
integer height = 1624
integer taborder = 160
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
borderstyle borderstyle = stylelowered!
end type

event constructor;Long ll_moneyid,i
String ls_name
DECLARE   getmx  CURSOR  FOR
	SELECT moneyid,Name FROM cw_currency Order By moneyid  ;
OPEN getmx;

DO WHILE sqlca.SQLCode = 0
	FETCH getmx INTO :ll_moneyid,:ls_name ;
	IF sqlca.SQLCode <> 0 THEN EXIT
	THIS.AddItem(ls_name+Fill(' ',50)+'['+String(ll_moneyid)+']')
	i++
	if i=1 then 
		this.text=ls_name+Fill(' ',50)+'['+String(ll_moneyid)+']'
		ins_moneyid=ll_moneyid
	end if
LOOP

CLOSE getmx;


end event

event selectionchanged; ins_moneyid=Long(Mid ( THIS.Text,Pos(THIS.Text,'[') + 1,Len(THIS.Text) - Pos(THIS.Text,'[') - 1 ))
 cb_1.triggerevent(clicked!)
end event

type st_1 from statictext within w_iteminput
integer x = 649
integer y = 208
integer width = 142
integer height = 48
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 = "币种"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_scid from uo_ddlb_scid within w_iteminput
integer x = 151
integer y = 196
integer width = 480
integer height = 620
integer taborder = 140
boolean bringtotop = true
end type

event constructor;call super::constructor;cur_scid_arr = THIS.uo_scid_arr
end event

event selectionchanged;call super::selectionchanged;
cur_scid_arr = THIS.uo_scid_arr
cb_1.triggerevent(clicked!)
end event

type st_5 from statictext within w_iteminput
integer x = 14
integer y = 208
integer width = 128
integer height = 48
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 = "分部"
alignment alignment = right!
boolean focusrectangle = false
end type

type dw_item from u_dw_rbtnfilter within w_iteminput
integer y = 304
integer width = 997
integer height = 1068
integer taborder = 20
string dataobject = "dw_itemdef_list"
boolean hscrollbar = true
boolean vscrollbar = true
end type

event rowfocuschanged;call super::rowfocuschanged;if currentrow<=0 then return
this.selectrow(0,false)
this.scrolltorow(currentrow)
this.selectrow(currentrow,true)
cb_1.triggerevent(clicked!)
end event