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

$PBExportHeader$w_credence_post.srw
forward
global type w_credence_post from w_publ_base
end type
type dw_1 from datawindow within w_credence_post
end type
type gb_2 from groupbox within w_credence_post
end type
type gb_1 from groupbox within w_credence_post
end type
type cb_1 from uo_imflatbutton within w_credence_post
end type
type rb_1 from radiobutton within w_credence_post
end type
type rb_2 from radiobutton within w_credence_post
end type
type p_1 from picture within w_credence_post
end type
type mle_1 from multilineedit within w_credence_post
end type
end forward

global type w_credence_post from w_publ_base
integer width = 2043
integer height = 1200
string title = "凭证登帐"
boolean minbox = false
long backcolor = 80269524
dw_1 dw_1
gb_2 gb_2
gb_1 gb_1
cb_1 cb_1
rb_1 rb_1
rb_2 rb_2
p_1 p_1
mle_1 mle_1
end type
global w_credence_post w_credence_post

type variables
uo_credence uo_credpost
end variables

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

on w_credence_post.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.gb_2)
destroy(this.gb_1)
destroy(this.cb_1)
destroy(this.rb_1)
destroy(this.rb_2)
destroy(this.p_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_post
boolean visible = false
integer x = 114
integer y = 248
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_credence_post
integer x = 1664
integer y = 952
string text = "取消"
end type

type dw_1 from datawindow within w_credence_post
integer x = 585
integer y = 240
integer width = 1413
integer height = 152
integer taborder = 20
boolean bringtotop = true
string dataobject = "dw_accset_curyearmon"
boolean border = false
boolean livescroll = true
end type

type gb_2 from groupbox within w_credence_post
integer x = 32
integer y = 884
integer width = 1961
integer height = 36
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
end type

type gb_1 from groupbox within w_credence_post
integer x = 599
integer y = 444
integer width = 1390
integer height = 428
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "凭证连续性选择"
end type

type cb_1 from uo_imflatbutton within w_credence_post
integer x = 1262
integer y = 956
integer width = 311
integer height = 96
integer taborder = 60
boolean bringtotop = true
boolean default = true
string normalpicname = "ok.bmp"
end type

event clicked;Int arg_posttype
String arg_msg

IF rb_1.Checked THEN
	arg_posttype = 1
ELSE
	arg_posttype = 2
END IF

//检查凭证号是否连续
IF uo_credpost.post_begin(arg_posttype,sys_subaccsetid,arg_msg) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF


IF uo_credpost.Post(sys_subaccsetid,arg_msg,TRUE) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF

f_setsysoplog('登帐','登帐,用户:'+publ_operator+',帐套:'+s_sys_accset.accsetname,arg_msg,TRUE)

arg_msg = '会计期间:'+String(sys_curyearmon)+'的凭证登帐成功,'+arg_msg
MessageBox(publ_operator,arg_msg)

Close(PARENT)




end event

type rb_1 from radiobutton within w_credence_post
integer x = 731
integer y = 552
integer width = 850
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 = 67108864
string text = "发现凭证号不连续时终止登帐"
boolean checked = true
end type

type rb_2 from radiobutton within w_credence_post
integer x = 731
integer y = 688
integer width = 850
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 = 67108864
string text = "允许凭证号不连续的凭证登帐"
end type

type p_1 from picture within w_credence_post
integer x = 32
integer y = 36
integer width = 539
integer height = 832
boolean bringtotop = true
boolean originalsize = true
string picturename = "graphics\post.bmp"
boolean border = true
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type mle_1 from multilineedit within w_credence_post
integer x = 599
integer y = 40
integer width = 1390
integer height = 180
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
string text = "    提示：本次登帐将把当前会计期间所有未登帐的凭证一次性地登入总分类帐户和明细分类帐户，以便于查询帐表和输出报表。"
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type