Q5/ws_objects/cw_account.pbl.src/w_credence_bala_cancel.srw

$PBExportHeader$w_credence_bala_cancel.srw
$PBExportComments$反结帐
forward
global type w_credence_bala_cancel from w_publ_base
end type
type dw_1 from datawindow within w_credence_bala_cancel
end type
type cb_1 from uo_imflatbutton within w_credence_bala_cancel
end type
type p_1 from picture within w_credence_bala_cancel
end type
type mle_2 from multilineedit within w_credence_bala_cancel
end type
type gb_2 from groupbox within w_credence_bala_cancel
end type
type cbx_del from checkbox within w_credence_bala_cancel
end type
type gb_1 from groupbox within w_credence_bala_cancel
end type
type mle_1 from multilineedit within w_credence_bala_cancel
end type
end forward

global type w_credence_bala_cancel from w_publ_base
integer width = 2117
integer height = 1396
string title = "反结帐"
boolean minbox = false
long backcolor = 80269524
dw_1 dw_1
cb_1 cb_1
p_1 p_1
mle_2 mle_2
gb_2 gb_2
cbx_del cbx_del
gb_1 gb_1
mle_1 mle_1
end type
global w_credence_bala_cancel w_credence_bala_cancel

type variables
uo_credence uo_credpost
end variables

on w_credence_bala_cancel.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_1=create cb_1
this.p_1=create p_1
this.mle_2=create mle_2
this.gb_2=create gb_2
this.cbx_del=create cbx_del
this.gb_1=create gb_1
this.mle_1=create mle_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.cb_1
this.Control[iCurrent+3]=this.p_1
this.Control[iCurrent+4]=this.mle_2
this.Control[iCurrent+5]=this.gb_2
this.Control[iCurrent+6]=this.cbx_del
this.Control[iCurrent+7]=this.gb_1
this.Control[iCurrent+8]=this.mle_1
end on

on w_credence_bala_cancel.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_1)
destroy(this.p_1)
destroy(this.mle_2)
destroy(this.gb_2)
destroy(this.cbx_del)
destroy(this.gb_1)
destroy(this.mle_1)
end on

event open;call super::open;dw_1.settransobject(sqlca)
dw_1.retrieve(sys_accsetid)
uo_credpost = create uo_credence 
end event

event close;destroy uo_credpost
end event

type cb_func from w_publ_base`cb_func within w_credence_bala_cancel
boolean visible = false
integer x = 210
integer y = 236
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_credence_bala_cancel
integer x = 1696
integer y = 1112
string text = "取消"
end type

type dw_1 from datawindow within w_credence_bala_cancel
integer x = 631
integer y = 52
integer width = 1413
integer height = 128
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_accset_curyearmon"
boolean border = false
boolean livescroll = true
end type

type cb_1 from uo_imflatbutton within w_credence_bala_cancel
integer x = 1275
integer y = 1112
integer width = 311
integer height = 96
integer taborder = 70
boolean bringtotop = true
boolean default = true
string normalpicname = "ok.bmp"
end type

event clicked;String arg_msg
Boolean if_del
Long cnt

IF cbx_del.Checked THEN
	if_del = True
ELSE
	if_del = False
END IF

cnt = 0
SELECT count(*) INTO :cnt FROM cw_credence
	WHERE accsetid = :sys_accsetid
	AND relevantbillid = :sys_curyearmon
	And Readtype = 201;
IF sqlca.SQLCode = -1 THEN
	MessageBox(publ_operator,'查询本月固定资产是否已计提折旧失败,'+sqlca.SQLErrText)
	RETURN
END IF

IF cnt > 0 THEN
	MessageBox(publ_operator,'本期固定资产已经计提过折旧,不能反结帐,如需要反结帐,请先反计提折旧将固定资产计提折旧凭证删除')
	RETURN
END IF


IF uo_credpost.cancel_balance(if_del,arg_msg,True) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF
f_setsysoplog('反结帐','月份:'+String(sys_curyearmon)+',反结帐,操作用户:'+publ_operator+',帐套:'+s_sys_accset.accsetname,arg_msg,True)

MessageBox(publ_operator,"反期末结帐成功")
f_set_accsetmessage()
Close(Parent)










end event

type p_1 from picture within w_credence_bala_cancel
integer x = 37
integer y = 40
integer width = 549
integer height = 836
boolean bringtotop = true
boolean originalsize = true
string picturename = "graphics\balance.bmp"
boolean border = true
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type mle_2 from multilineedit within w_credence_bala_cancel
integer x = 617
integer y = 192
integer width = 1417
integer height = 416
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 16777215
string text = "                                                       你可以利用~"反结帐~"工具将当前会计期间返回到已结　　　　　　　　　　　　　　　　　　　　　　　　　帐的期间。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　按~"确定~"按钮开始反结帐。"
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type gb_2 from groupbox within w_credence_bala_cancel
integer x = 37
integer y = 1040
integer width = 2043
integer height = 36
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
end type

type cbx_del from checkbox within w_credence_bala_cancel
integer x = 631
integer y = 916
integer width = 1070
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 67108864
string text = "同时将结转本期损益产生的记帐凭证删除"
end type

type gb_1 from groupbox within w_credence_bala_cancel
integer x = 594
integer y = 16
integer width = 1486
integer height = 1028
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
borderstyle borderstyle = styleraised!
end type

type mle_1 from multilineedit within w_credence_bala_cancel
integer x = 617
integer y = 616
integer width = 1417
integer height = 288
integer taborder = 60
boolean bringtotop = true
integer textsize = -14
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "楷体_GB2312"
boolean underline = true
long textcolor = 255
long backcolor = 83488739
string text = "    注意:~"反结帐~"前请先~"反计提~"固定资产累计折旧,重新登帐前再重新计提折旧！"
boolean border = false
end type