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

$PBExportHeader$w_credence_post_cancel.srw
forward
global type w_credence_post_cancel from w_publ_base
end type
type dw_1 from datawindow within w_credence_post_cancel
end type
type gb_2 from groupbox within w_credence_post_cancel
end type
type cb_1 from uo_imflatbutton within w_credence_post_cancel
end type
type p_1 from picture within w_credence_post_cancel
end type
type mle_1 from multilineedit within w_credence_post_cancel
end type
end forward

global type w_credence_post_cancel from w_publ_base
integer width = 2043
integer height = 1004
string title = "反登帐"
boolean minbox = false
long backcolor = 80269524
dw_1 dw_1
gb_2 gb_2
cb_1 cb_1
p_1 p_1
mle_1 mle_1
end type
global w_credence_post_cancel w_credence_post_cancel

type variables
uo_credence uo_credpost
end variables

on w_credence_post_cancel.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.gb_2=create gb_2
this.cb_1=create cb_1
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.cb_1
this.Control[iCurrent+4]=this.p_1
this.Control[iCurrent+5]=this.mle_1
end on

on w_credence_post_cancel.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.gb_2)
destroy(this.cb_1)
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_cancel
boolean visible = false
integer x = 78
integer y = 180
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_credence_post_cancel
integer x = 1614
integer y = 744
string text = "取消"
end type

type dw_1 from datawindow within w_credence_post_cancel
integer x = 585
integer y = 36
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_cancel
integer x = 613
integer y = 680
integer width = 1390
integer height = 36
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
end type

type cb_1 from uo_imflatbutton within w_credence_post_cancel
integer x = 1211
integer y = 748
integer width = 311
integer height = 96
integer taborder = 50
boolean bringtotop = true
boolean default = true
string normalpicname = "ok.bmp"
end type

event clicked;string arg_msg


if uo_credpost.cancel_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 p_1 from picture within w_credence_post_cancel
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_cancel
integer x = 613
integer y = 196
integer width = 1390
integer height = 444
integer taborder = 30
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