Q5/ws_objects/cw_bsnobj.pbl.src/w_create_accset.srw

$PBExportHeader$w_create_accset.srw
forward
global type w_create_accset from w_publ_base
end type
type tab_step from tab within w_create_accset
end type
type tabpage_step1 from userobject within tab_step
end type
type st_2 from statictext within tabpage_step1
end type
type sle_cropname from singlelineedit within tabpage_step1
end type
type st_20 from statictext within tabpage_step1
end type
type st_21 from statictext within tabpage_step1
end type
type st_22 from statictext within tabpage_step1
end type
type st_23 from statictext within tabpage_step1
end type
type st_24 from statictext within tabpage_step1
end type
type st_25 from statictext within tabpage_step1
end type
type sle_lawperson from singlelineedit within tabpage_step1
end type
type sle_bank from singlelineedit within tabpage_step1
end type
type ddlb_cropid from dropdownlistbox within tabpage_step1
end type
type sle_accounts from singlelineedit within tabpage_step1
end type
type sle_taxnumber from singlelineedit within tabpage_step1
end type
type sle_telephone from singlelineedit within tabpage_step1
end type
type sle_address from singlelineedit within tabpage_step1
end type
type st_4 from statictext within tabpage_step1
end type
type cbx_ifnewsubid from checkbox within tabpage_step1
end type
type tabpage_step1 from userobject within tab_step
st_2 st_2
sle_cropname sle_cropname
st_20 st_20
st_21 st_21
st_22 st_22
st_23 st_23
st_24 st_24
st_25 st_25
sle_lawperson sle_lawperson
sle_bank sle_bank
ddlb_cropid ddlb_cropid
sle_accounts sle_accounts
sle_taxnumber sle_taxnumber
sle_telephone sle_telephone
sle_address sle_address
st_4 st_4
cbx_ifnewsubid cbx_ifnewsubid
end type
type tabpage_step2 from userobject within tab_step
end type
type st_100 from statictext within tabpage_step2
end type
type sle_accsetname from singlelineedit within tabpage_step2
end type
type st_3 from statictext within tabpage_step2
end type
type sle_empid from singlelineedit within tabpage_step2
end type
type sle_accsetid from singlelineedit within tabpage_step2
end type
type st_26 from statictext within tabpage_step2
end type
type cb_addcredenceword from commandbutton within tabpage_step2
end type
type cb_delcredenceword from commandbutton within tabpage_step2
end type
type dw_credenceword_index from datawindow within tabpage_step2
end type
type st_27 from statictext within tabpage_step2
end type
type sle_empname from singlelineedit within tabpage_step2
end type
type sle_pwd from singlelineedit within tabpage_step2
end type
type st_34 from statictext within tabpage_step2
end type
type tabpage_step2 from userobject within tab_step
st_100 st_100
sle_accsetname sle_accsetname
st_3 st_3
sle_empid sle_empid
sle_accsetid sle_accsetid
st_26 st_26
cb_addcredenceword cb_addcredenceword
cb_delcredenceword cb_delcredenceword
dw_credenceword_index dw_credenceword_index
st_27 st_27
sle_empname sle_empname
sle_pwd sle_pwd
st_34 st_34
end type
type tabpage_step3 from userobject within tab_step
end type
type gb_2 from groupbox within tabpage_step3
end type
type st_5 from statictext within tabpage_step3
end type
type st_6 from statictext within tabpage_step3
end type
type sle_code from singlelineedit within tabpage_step3
end type
type sle_name from singlelineedit within tabpage_step3
end type
type st_7 from statictext within tabpage_step3
end type
type st_8 from statictext within tabpage_step3
end type
type st_9 from statictext within tabpage_step3
end type
type st_10 from statictext within tabpage_step3
end type
type st_11 from statictext within tabpage_step3
end type
type tabpage_step3 from userobject within tab_step
gb_2 gb_2
st_5 st_5
st_6 st_6
sle_code sle_code
sle_name sle_name
st_7 st_7
st_8 st_8
st_9 st_9
st_10 st_10
st_11 st_11
end type
type tabpage_step4 from userobject within tab_step
end type
type gb_4 from groupbox within tabpage_step4
end type
type em_step1 from editmask within tabpage_step4
end type
type em_step2 from editmask within tabpage_step4
end type
type em_step3 from editmask within tabpage_step4
end type
type em_step4 from editmask within tabpage_step4
end type
type em_step5 from editmask within tabpage_step4
end type
type em_step6 from editmask within tabpage_step4
end type
type st_12 from statictext within tabpage_step4
end type
type st_13 from statictext within tabpage_step4
end type
type st_14 from statictext within tabpage_step4
end type
type st_15 from statictext within tabpage_step4
end type
type st_16 from statictext within tabpage_step4
end type
type st_17 from statictext within tabpage_step4
end type
type st_28 from statictext within tabpage_step4
end type
type st_29 from statictext within tabpage_step4
end type
type st_30 from statictext within tabpage_step4
end type
type st_31 from statictext within tabpage_step4
end type
type st_32 from statictext within tabpage_step4
end type
type st_33 from statictext within tabpage_step4
end type
type tabpage_step4 from userobject within tab_step
gb_4 gb_4
em_step1 em_step1
em_step2 em_step2
em_step3 em_step3
em_step4 em_step4
em_step5 em_step5
em_step6 em_step6
st_12 st_12
st_13 st_13
st_14 st_14
st_15 st_15
st_16 st_16
st_17 st_17
st_28 st_28
st_29 st_29
st_30 st_30
st_31 st_31
st_32 st_32
st_33 st_33
end type
type tabpage_step5 from userobject within tab_step
end type
type rb_auto_calendar from radiobutton within tabpage_step5
end type
type rb_manu_calendar from radiobutton within tabpage_step5
end type
type dw_calendar from datawindow within tabpage_step5
end type
type st_18 from statictext within tabpage_step5
end type
type em_startyear from editmask within tabpage_step5
end type
type st_19 from statictext within tabpage_step5
end type
type ddlb_startyearmon from dropdownlistbox within tabpage_step5
end type
type cb_1 from commandbutton within tabpage_step5
end type
type tabpage_step5 from userobject within tab_step
rb_auto_calendar rb_auto_calendar
rb_manu_calendar rb_manu_calendar
dw_calendar dw_calendar
st_18 st_18
em_startyear em_startyear
st_19 st_19
ddlb_startyearmon ddlb_startyearmon
cb_1 cb_1
end type
type tab_step from tab within w_create_accset
tabpage_step1 tabpage_step1
tabpage_step2 tabpage_step2
tabpage_step3 tabpage_step3
tabpage_step4 tabpage_step4
tabpage_step5 tabpage_step5
end type
type cb_create_accset from commandbutton within w_create_accset
end type
type st_1 from statictext within w_create_accset
end type
end forward

global type w_create_accset from w_publ_base
integer width = 2149
integer height = 1348
string title = "建帐向导"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 80269524
tab_step tab_step
cb_create_accset cb_create_accset
st_1 st_1
end type
global w_create_accset w_create_accset

type variables
s_croptype s_sys_croptype[2]
s_calendar s_sys_calendar[]
s_subject_array ins_s_subject
uo_accset uo_newaccset
datastore ds_initsubject
end variables

forward prototypes
public function integer wf_init_croptype ()
public function integer wf_init_croptype_array ()
public function integer wf_init_calendar ()
public function integer wf_lock_calendar ()
public function integer wf_get_subject (long arg_cropid, ref string arg_msg)
public function integer wf_import_subject (ref string arg_msg)
end prototypes

public function integer wf_init_croptype ();//初始化企业类型
Long i,array_int

array_int = UpperBound(s_sys_croptype[])
FOR i = 1 TO array_int
	tab_step.tabpage_step1.ddlb_cropid.AddItem('['+String(s_sys_croptype[i].croptypeid)+']'+s_sys_croptype[i].croptypename)
NEXT
tab_step.tabpage_step1.ddlb_cropid.AddItem('')
tab_step.tabpage_step1.ddlb_cropid.Text = '['+String(s_sys_croptype[1].croptypeid)+']'+s_sys_croptype[1].croptypename

RETURN 1


//croptypeid
//croptypename
//waiziflag
//deprflag
//carrypl

end function

public function integer wf_init_croptype_array ();//初始化企业类型
s_sys_croptype[1].croptypeid=1
s_sys_croptype[1].croptypename='商品流通企业'
s_sys_croptype[1].waiziflag=0
s_sys_croptype[1].deprflag=1
s_sys_croptype[1].carrypl=1

s_sys_croptype[2].croptypeid=2
s_sys_croptype[2].croptypename='工业企业'
s_sys_croptype[2].waiziflag=0
s_sys_croptype[2].deprflag=1
s_sys_croptype[2].carrypl=1

//s_sys_croptype[3].croptypeid=3
//s_sys_croptype[3].croptypename='旅游饮食服务企业'
//s_sys_croptype[3].waiziflag=0
//s_sys_croptype[3].deprflag=1
//s_sys_croptype[3].carrypl=1
//
//s_sys_croptype[4].croptypeid=4
//s_sys_croptype[4].croptypename='交通运输企业'
//s_sys_croptype[4].waiziflag=0
//s_sys_croptype[4].deprflag=1
//s_sys_croptype[4].carrypl=1
//
//s_sys_croptype[5].croptypeid=5
//s_sys_croptype[5].croptypename='房地产开发企业'
//s_sys_croptype[5].waiziflag=0
//s_sys_croptype[5].deprflag=1
//s_sys_croptype[5].carrypl=1
//
//s_sys_croptype[6].croptypeid=6
//s_sys_croptype[6].croptypename='施工企业'
//s_sys_croptype[6].waiziflag=0
//s_sys_croptype[6].deprflag=1
//s_sys_croptype[6].carrypl=1
//
//s_sys_croptype[7].croptypeid=7
//s_sys_croptype[7].croptypename='农业企业'
//s_sys_croptype[7].waiziflag=0
//s_sys_croptype[7].deprflag=1
//s_sys_croptype[7].carrypl=1
//
//s_sys_croptype[8].croptypeid=8
//s_sys_croptype[8].croptypename='行政单位'
//s_sys_croptype[8].waiziflag=0
//s_sys_croptype[8].deprflag=0
//s_sys_croptype[8].carrypl=0
//
//s_sys_croptype[9].croptypeid=9
//s_sys_croptype[9].croptypename='事业单位'
//s_sys_croptype[9].waiziflag=0
//s_sys_croptype[9].deprflag=0
//s_sys_croptype[9].carrypl=0
//
//s_sys_croptype[10].croptypeid=10
//s_sys_croptype[10].croptypename='外商投资企业'
//s_sys_croptype[10].waiziflag=1
//s_sys_croptype[10].deprflag=1
//s_sys_croptype[10].carrypl=1

return 1


//croptypeid
//croptypename
//waiziflag
//deprflag
//carrypl
end function

public function integer wf_init_calendar ();//初始化月份
long i,array_int,li_row

array_int=upperbound(s_sys_calendar[])

tab_step.tabpage_step5.dw_calendar.reset()
for i=1 to array_int
	li_row=tab_step.tabpage_step5.dw_calendar.insertrow(0)
	tab_step.tabpage_step5.dw_calendar.object.cmonth[li_row]=s_sys_calendar[i].cmonth
	tab_step.tabpage_step5.dw_calendar.object.sdate[li_row]=s_sys_calendar[i].sdate
	tab_step.tabpage_step5.dw_calendar.object.edate[li_row]=s_sys_calendar[i].edate
next

return 1


//cmonth
//sdate
//edate
end function

public function integer wf_lock_calendar ();if tab_step.tabpage_step5.rb_auto_calendar.checked then
	tab_step.tabpage_step5.dw_calendar.enabled=false
elseif tab_step.tabpage_step5.rb_manu_calendar.checked then
	tab_step.tabpage_step5.dw_calendar.enabled=true
end if
return 1
end function

public function integer wf_get_subject (long arg_cropid, ref string arg_msg);Long rslt = 1,itmxt = 0,i

IF NOT tab_step.tabpage_step1.cbx_ifnewsubid.Checked THEN
	IF arg_cropid <= 0 THEN
		arg_msg = '企来所属行业错误'
		rslt = 0
		GOTO ext
	END IF
END IF

ds_initsubject.SetFilter('croptypeid = '+ String(arg_cropid))
ds_initsubject.Filter( )

IF ds_initsubject.RowCount() > 0 THEN
	FOR i = 1 TO ds_initsubject.RowCount()
		itmxt++
		ins_s_subject.croptypeid[itmxt] = ds_initsubject.Object.croptypeid[i]
		ins_s_subject.subid[itmxt] = ds_initsubject.Object.subid[i]
		ins_s_subject.Name[itmxt] = ds_initsubject.Object.Name[i]
		ins_s_subject.dcflag[itmxt] = ds_initsubject.Object.dcflag[i]
		ins_s_subject.detailflag[itmxt] = ds_initsubject.Object.detailflag[i]
		ins_s_subject.hswb[itmxt] = ds_initsubject.Object.hswb[i]
		ins_s_subject.moneyid[itmxt] = ds_initsubject.Object.moneyid[i]
		ins_s_subject.hsqty[itmxt] = ds_initsubject.Object.hsqty[i]
		ins_s_subject.unit[itmxt] = ds_initsubject.Object.unit[i]
		ins_s_subject.hsdept[itmxt] = ds_initsubject.Object.hsdept[i]
		ins_s_subject.hsemp[itmxt] = ds_initsubject.Object.hsemp[i]
		ins_s_subject.hsitem[itmxt] = ds_initsubject.Object.hsitem[i]
		ins_s_subject.hstrader[itmxt] = ds_initsubject.Object.hstrader[i]
		ins_s_subject.attrflag[itmxt] = ds_initsubject.Object.attrflag[i]
		ins_s_subject.specialcode[itmxt] = ds_initsubject.Object.specialcode[i]
		ins_s_subject.relevantid[itmxt] = ds_initsubject.Object.relevantid[i]
		IF IsNull(ds_initsubject.Object.relevantid[i] )THEN
		MessageBox("","")
	END IF
NEXT
END IF

ext:
RETURN rslt





end function

public function integer wf_import_subject (ref string arg_msg);String ls_filename

ds_initsubject = CREATE datastore
ds_initsubject.DataObject = "d_subjectdata_import"
ds_initsubject.SetTransObject(sqlca)

ls_filename = sys_cur_path +'initdata.dbf'
IF NOT FileExists ( ls_filename ) THEN
	arg_msg = '初始化科目失败,没有找到科目文件'
	RETURN 0
END IF

IF ds_initsubject.ImportFile ( ls_filename ) <= 0 THEN
	arg_msg = '初始化科目失败,导入科目数据失败或文件中没有相应企业的科目'
	RETURN 0
END IF

RETURN 1

end function

on w_create_accset.create
int iCurrent
call super::create
this.tab_step=create tab_step
this.cb_create_accset=create cb_create_accset
this.st_1=create st_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.tab_step
this.Control[iCurrent+2]=this.cb_create_accset
this.Control[iCurrent+3]=this.st_1
end on

on w_create_accset.destroy
call super::destroy
destroy(this.tab_step)
destroy(this.cb_create_accset)
destroy(this.st_1)
end on

event open;call super::open;String arg_msg = ''
Long ins_accsetid
ins_accsetid = f_sys_scidentity(0,"cw_accset","accsetid",arg_msg,TRUE,id_sqlca)
IF ins_accsetid <= 0 THEN
	ROLLBACK;
	MessageBox(publ_operator, arg_msg)
	CLOSE(THIS)
END IF

IF wf_import_subject(arg_msg) = 0 THEN
	MessageBox(publ_operator, arg_msg)
	CLOSE(THIS)
END IF
//tabpage_step1
wf_init_croptype_array()
wf_init_croptype()
//tabpage_step2
Long li_row
tab_step.tabpage_step2.sle_accsetid.Text = String(ins_accsetid)
tab_step.tabpage_step2.dw_credenceword_index.SetTransObject(sqlca)
//tabpage_step5
Long arg_year
arg_year = Long(tab_step.tabpage_step5.em_startyear.Text)
f_init_calendar_array(arg_year,s_sys_calendar[])
wf_init_calendar()
wf_lock_calendar()

//
uo_newaccset = CREATE uo_accset







end event

event close;destroy uo_accset

end event

type cb_func from w_publ_base`cb_func within w_create_accset
boolean visible = false
integer x = 987
integer y = 1108
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_create_accset
integer x = 1728
integer y = 1104
end type

event cb_exit::clicked;closewithreturn(parent,0)
end event

type tab_step from tab within w_create_accset
integer x = 41
integer y = 24
integer width = 2043
integer height = 1052
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
boolean raggedright = true
integer selectedtab = 1
tabpage_step1 tabpage_step1
tabpage_step2 tabpage_step2
tabpage_step3 tabpage_step3
tabpage_step4 tabpage_step4
tabpage_step5 tabpage_step5
end type

on tab_step.create
this.tabpage_step1=create tabpage_step1
this.tabpage_step2=create tabpage_step2
this.tabpage_step3=create tabpage_step3
this.tabpage_step4=create tabpage_step4
this.tabpage_step5=create tabpage_step5
this.Control[]={this.tabpage_step1,&
this.tabpage_step2,&
this.tabpage_step3,&
this.tabpage_step4,&
this.tabpage_step5}
end on

on tab_step.destroy
destroy(this.tabpage_step1)
destroy(this.tabpage_step2)
destroy(this.tabpage_step3)
destroy(this.tabpage_step4)
destroy(this.tabpage_step5)
end on

type tabpage_step1 from userobject within tab_step
integer x = 18
integer y = 96
integer width = 2007
integer height = 940
long backcolor = 80269524
string text = "1：企业信息"
long tabtextcolor = 33554432
long tabbackcolor = 80269524
long picturemaskcolor = 536870912
st_2 st_2
sle_cropname sle_cropname
st_20 st_20
st_21 st_21
st_22 st_22
st_23 st_23
st_24 st_24
st_25 st_25
sle_lawperson sle_lawperson
sle_bank sle_bank
ddlb_cropid ddlb_cropid
sle_accounts sle_accounts
sle_taxnumber sle_taxnumber
sle_telephone sle_telephone
sle_address sle_address
st_4 st_4
cbx_ifnewsubid cbx_ifnewsubid
end type

on tabpage_step1.create
this.st_2=create st_2
this.sle_cropname=create sle_cropname
this.st_20=create st_20
this.st_21=create st_21
this.st_22=create st_22
this.st_23=create st_23
this.st_24=create st_24
this.st_25=create st_25
this.sle_lawperson=create sle_lawperson
this.sle_bank=create sle_bank
this.ddlb_cropid=create ddlb_cropid
this.sle_accounts=create sle_accounts
this.sle_taxnumber=create sle_taxnumber
this.sle_telephone=create sle_telephone
this.sle_address=create sle_address
this.st_4=create st_4
this.cbx_ifnewsubid=create cbx_ifnewsubid
this.Control[]={this.st_2,&
this.sle_cropname,&
this.st_20,&
this.st_21,&
this.st_22,&
this.st_23,&
this.st_24,&
this.st_25,&
this.sle_lawperson,&
this.sle_bank,&
this.ddlb_cropid,&
this.sle_accounts,&
this.sle_taxnumber,&
this.sle_telephone,&
this.sle_address,&
this.st_4,&
this.cbx_ifnewsubid}
end on

on tabpage_step1.destroy
destroy(this.st_2)
destroy(this.sle_cropname)
destroy(this.st_20)
destroy(this.st_21)
destroy(this.st_22)
destroy(this.st_23)
destroy(this.st_24)
destroy(this.st_25)
destroy(this.sle_lawperson)
destroy(this.sle_bank)
destroy(this.ddlb_cropid)
destroy(this.sle_accounts)
destroy(this.sle_taxnumber)
destroy(this.sle_telephone)
destroy(this.sle_address)
destroy(this.st_4)
destroy(this.cbx_ifnewsubid)
end on

type st_2 from statictext within tabpage_step1
integer x = 18
integer y = 40
integer width = 329
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "企业名称："
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_cropname from singlelineedit within tabpage_step1
integer x = 352
integer y = 16
integer width = 1586
integer height = 92
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type st_20 from statictext within tabpage_step1
integer x = 18
integer y = 156
integer width = 329
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "法    人："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_21 from statictext within tabpage_step1
integer x = 18
integer y = 272
integer width = 329
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "银    行："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_22 from statictext within tabpage_step1
integer x = 18
integer y = 388
integer width = 329
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "银行帐号："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_23 from statictext within tabpage_step1
integer x = 18
integer y = 504
integer width = 329
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "税    号："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_24 from statictext within tabpage_step1
integer x = 18
integer y = 620
integer width = 329
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "电    话："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_25 from statictext within tabpage_step1
integer x = 18
integer y = 736
integer width = 329
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "地    址："
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_lawperson from singlelineedit within tabpage_step1
integer x = 352
integer y = 132
integer width = 681
integer height = 92
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_bank from singlelineedit within tabpage_step1
integer x = 352
integer y = 248
integer width = 686
integer height = 92
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type ddlb_cropid from dropdownlistbox within tabpage_step1
integer x = 347
integer y = 828
integer width = 1006
integer height = 688
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

type sle_accounts from singlelineedit within tabpage_step1
integer x = 352
integer y = 364
integer width = 1586
integer height = 92
integer taborder = 100
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_taxnumber from singlelineedit within tabpage_step1
integer x = 352
integer y = 480
integer width = 1586
integer height = 92
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_telephone from singlelineedit within tabpage_step1
integer x = 352
integer y = 596
integer width = 1586
integer height = 92
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_address from singlelineedit within tabpage_step1
integer x = 352
integer y = 712
integer width = 1586
integer height = 92
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type st_4 from statictext within tabpage_step1
integer x = 18
integer y = 844
integer width = 329
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "所属行业："
alignment alignment = right!
boolean focusrectangle = false
end type

type cbx_ifnewsubid from checkbox within tabpage_step1
integer x = 1371
integer y = 828
integer width = 576
integer height = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "使用新会计准则科目"
end type

event clicked;ddlb_cropid.Enabled = NOT THIS.Checked

IF THIS.Checked THEN
	tab_step.tabpage_step1.ddlb_cropid.SelectItem(3)
	tab_step.tabpage_step4.em_step1.Text = '4'
	tab_step.tabpage_step4.em_step6.Text = '2'
ELSE
	tab_step.tabpage_step4.em_step1.Text = '3'
	tab_step.tabpage_step4.em_step6.Text = '3'
END IF





end event

type tabpage_step2 from userobject within tab_step
integer x = 18
integer y = 96
integer width = 2007
integer height = 940
long backcolor = 80269524
string text = "2：帐套参数"
long tabtextcolor = 33554432
long tabbackcolor = 80269524
long picturemaskcolor = 536870912
st_100 st_100
sle_accsetname sle_accsetname
st_3 st_3
sle_empid sle_empid
sle_accsetid sle_accsetid
st_26 st_26
cb_addcredenceword cb_addcredenceword
cb_delcredenceword cb_delcredenceword
dw_credenceword_index dw_credenceword_index
st_27 st_27
sle_empname sle_empname
sle_pwd sle_pwd
st_34 st_34
end type

on tabpage_step2.create
this.st_100=create st_100
this.sle_accsetname=create sle_accsetname
this.st_3=create st_3
this.sle_empid=create sle_empid
this.sle_accsetid=create sle_accsetid
this.st_26=create st_26
this.cb_addcredenceword=create cb_addcredenceword
this.cb_delcredenceword=create cb_delcredenceword
this.dw_credenceword_index=create dw_credenceword_index
this.st_27=create st_27
this.sle_empname=create sle_empname
this.sle_pwd=create sle_pwd
this.st_34=create st_34
this.Control[]={this.st_100,&
this.sle_accsetname,&
this.st_3,&
this.sle_empid,&
this.sle_accsetid,&
this.st_26,&
this.cb_addcredenceword,&
this.cb_delcredenceword,&
this.dw_credenceword_index,&
this.st_27,&
this.sle_empname,&
this.sle_pwd,&
this.st_34}
end on

on tabpage_step2.destroy
destroy(this.st_100)
destroy(this.sle_accsetname)
destroy(this.st_3)
destroy(this.sle_empid)
destroy(this.sle_accsetid)
destroy(this.st_26)
destroy(this.cb_addcredenceword)
destroy(this.cb_delcredenceword)
destroy(this.dw_credenceword_index)
destroy(this.st_27)
destroy(this.sle_empname)
destroy(this.sle_pwd)
destroy(this.st_34)
end on

type st_100 from statictext within tabpage_step2
integer x = 59
integer y = 200
integer width = 329
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "帐套代号："
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_accsetname from singlelineedit within tabpage_step2
integer x = 389
integer y = 180
integer width = 466
integer height = 92
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type st_3 from statictext within tabpage_step2
integer x = 9
integer y = 328
integer width = 379
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "管理员代号："
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_empid from singlelineedit within tabpage_step2
integer x = 389
integer y = 308
integer width = 466
integer height = 92
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "super"
boolean autohscroll = false
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type sle_accsetid from singlelineedit within tabpage_step2
integer x = 389
integer y = 56
integer width = 247
integer height = 92
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type st_26 from statictext within tabpage_step2
integer x = 151
integer y = 68
integer width = 233
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 67108864
boolean enabled = false
string text = "帐套ID："
alignment alignment = right!
boolean focusrectangle = false
end type

type cb_addcredenceword from commandbutton within tabpage_step2
integer x = 1595
integer y = 56
integer width = 274
integer height = 96
integer taborder = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "增加"
end type

event clicked;dw_credenceword_index.insertrow(0)
end event

type cb_delcredenceword from commandbutton within tabpage_step2
integer x = 1595
integer y = 152
integer width = 274
integer height = 96
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "删除"
end type

event clicked;long li_row 
li_row=dw_credenceword_index.getrow()
if li_row=0 then
	messagebox(publ_operator,'没有可删除凭证字')
	return
end if

dw_credenceword_index.deleterow(li_row)
end event

type dw_credenceword_index from datawindow within tabpage_step2
integer x = 992
integer y = 52
integer width = 594
integer height = 880
integer taborder = 130
boolean bringtotop = true
string dataobject = "dw_credenceword_index"
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

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

type st_27 from statictext within tabpage_step2
integer x = 46
integer y = 584
integer width = 343
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "管理员名称："
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_empname from singlelineedit within tabpage_step2
integer x = 389
integer y = 564
integer width = 466
integer height = 92
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "帐管员"
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_pwd from singlelineedit within tabpage_step2
integer x = 389
integer y = 436
integer width = 466
integer height = 92
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "super"
boolean autohscroll = false
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_34 from statictext within tabpage_step2
integer x = 46
integer y = 456
integer width = 343
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "管理员密码："
alignment alignment = right!
boolean focusrectangle = false
end type

type tabpage_step3 from userobject within tab_step
integer x = 18
integer y = 96
integer width = 2007
integer height = 940
long backcolor = 80269524
string text = "3：本位币"
long tabtextcolor = 33554432
long tabbackcolor = 80269524
long picturemaskcolor = 536870912
gb_2 gb_2
st_5 st_5
st_6 st_6
sle_code sle_code
sle_name sle_name
st_7 st_7
st_8 st_8
st_9 st_9
st_10 st_10
st_11 st_11
end type

on tabpage_step3.create
this.gb_2=create gb_2
this.st_5=create st_5
this.st_6=create st_6
this.sle_code=create sle_code
this.sle_name=create sle_name
this.st_7=create st_7
this.st_8=create st_8
this.st_9=create st_9
this.st_10=create st_10
this.st_11=create st_11
this.Control[]={this.gb_2,&
this.st_5,&
this.st_6,&
this.sle_code,&
this.sle_name,&
this.st_7,&
this.st_8,&
this.st_9,&
this.st_10,&
this.st_11}
end on

on tabpage_step3.destroy
destroy(this.gb_2)
destroy(this.st_5)
destroy(this.st_6)
destroy(this.sle_code)
destroy(this.sle_name)
destroy(this.st_7)
destroy(this.st_8)
destroy(this.st_9)
destroy(this.st_10)
destroy(this.st_11)
end on

type gb_2 from groupbox within tabpage_step3
integer x = 224
integer y = 284
integer width = 1349
integer height = 496
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
end type

type st_5 from statictext within tabpage_step3
integer x = 233
integer y = 160
integer width = 288
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "货币符号："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_6 from statictext within tabpage_step3
integer x = 846
integer y = 156
integer width = 288
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "货币名称："
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_code from singlelineedit within tabpage_step3
integer x = 517
integer y = 140
integer width = 306
integer height = 92
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "RMB"
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_name from singlelineedit within tabpage_step3
integer x = 1129
integer y = 140
integer width = 416
integer height = 92
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "人民币"
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type st_7 from statictext within tabpage_step3
integer x = 1623
integer y = 324
integer width = 1157
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
boolean enabled = false
boolean focusrectangle = false
end type

type st_8 from statictext within tabpage_step3
integer x = 329
integer y = 424
integer width = 1157
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "大多数企业一般以人民币为记帐本位币，但"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_9 from statictext within tabpage_step3
integer x = 329
integer y = 500
integer width = 1157
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "对于外币业务较多的企业，也可以以某一种外币"
boolean focusrectangle = false
end type

type st_10 from statictext within tabpage_step3
integer x = 329
integer y = 576
integer width = 1157
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "作为记帐本位币。企业的记帐本位币一经确定，"
boolean focusrectangle = false
end type

type st_11 from statictext within tabpage_step3
integer x = 329
integer y = 652
integer width = 1157
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "就不可以随意变更。"
boolean focusrectangle = false
end type

type tabpage_step4 from userobject within tab_step
integer x = 18
integer y = 96
integer width = 2007
integer height = 940
long backcolor = 80269524
string text = "4：科目长度"
long tabtextcolor = 33554432
long tabbackcolor = 80269524
long picturemaskcolor = 536870912
gb_4 gb_4
em_step1 em_step1
em_step2 em_step2
em_step3 em_step3
em_step4 em_step4
em_step5 em_step5
em_step6 em_step6
st_12 st_12
st_13 st_13
st_14 st_14
st_15 st_15
st_16 st_16
st_17 st_17
st_28 st_28
st_29 st_29
st_30 st_30
st_31 st_31
st_32 st_32
st_33 st_33
end type

on tabpage_step4.create
this.gb_4=create gb_4
this.em_step1=create em_step1
this.em_step2=create em_step2
this.em_step3=create em_step3
this.em_step4=create em_step4
this.em_step5=create em_step5
this.em_step6=create em_step6
this.st_12=create st_12
this.st_13=create st_13
this.st_14=create st_14
this.st_15=create st_15
this.st_16=create st_16
this.st_17=create st_17
this.st_28=create st_28
this.st_29=create st_29
this.st_30=create st_30
this.st_31=create st_31
this.st_32=create st_32
this.st_33=create st_33
this.Control[]={this.gb_4,&
this.em_step1,&
this.em_step2,&
this.em_step3,&
this.em_step4,&
this.em_step5,&
this.em_step6,&
this.st_12,&
this.st_13,&
this.st_14,&
this.st_15,&
this.st_16,&
this.st_17,&
this.st_28,&
this.st_29,&
this.st_30,&
this.st_31,&
this.st_32,&
this.st_33}
end on

on tabpage_step4.destroy
destroy(this.gb_4)
destroy(this.em_step1)
destroy(this.em_step2)
destroy(this.em_step3)
destroy(this.em_step4)
destroy(this.em_step5)
destroy(this.em_step6)
destroy(this.st_12)
destroy(this.st_13)
destroy(this.st_14)
destroy(this.st_15)
destroy(this.st_16)
destroy(this.st_17)
destroy(this.st_28)
destroy(this.st_29)
destroy(this.st_30)
destroy(this.st_31)
destroy(this.st_32)
destroy(this.st_33)
end on

type gb_4 from groupbox within tabpage_step4
integer x = 965
integer y = 92
integer width = 773
integer height = 724
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
end type

type em_step1 from editmask within tabpage_step4
integer x = 507
integer y = 132
integer width = 224
integer height = 84
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
string text = "3"
alignment alignment = right!
boolean displayonly = true
borderstyle borderstyle = stylelowered!
string mask = "0"
boolean spin = true
string minmax = "1~~6"
end type

type em_step2 from editmask within tabpage_step4
integer x = 507
integer y = 244
integer width = 224
integer height = 84
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "3"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "0"
boolean spin = true
string minmax = "1~~6"
end type

type em_step3 from editmask within tabpage_step4
integer x = 507
integer y = 356
integer width = 224
integer height = 84
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "3"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "0"
boolean spin = true
string minmax = "1~~6"
end type

type em_step4 from editmask within tabpage_step4
integer x = 507
integer y = 468
integer width = 224
integer height = 84
integer taborder = 100
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "3"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "0"
boolean spin = true
string minmax = "1~~6"
end type

type em_step5 from editmask within tabpage_step4
integer x = 507
integer y = 580
integer width = 224
integer height = 84
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "3"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "0"
boolean spin = true
string minmax = "1~~6"
end type

type em_step6 from editmask within tabpage_step4
integer x = 507
integer y = 692
integer width = 224
integer height = 84
integer taborder = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "3"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "0"
boolean spin = true
string minmax = "1~~6"
end type

type st_12 from statictext within tabpage_step4
integer x = 210
integer y = 144
integer width = 288
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "一级长度："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_13 from statictext within tabpage_step4
integer x = 210
integer y = 256
integer width = 288
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "二级长度："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_14 from statictext within tabpage_step4
integer x = 210
integer y = 368
integer width = 288
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "三级长度："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_15 from statictext within tabpage_step4
integer x = 210
integer y = 480
integer width = 288
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "四级长度："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_16 from statictext within tabpage_step4
integer x = 210
integer y = 592
integer width = 288
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "五级长度："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_17 from statictext within tabpage_step4
integer x = 210
integer y = 704
integer width = 288
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "六级长度："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_28 from statictext within tabpage_step4
integer x = 1024
integer y = 180
integer width = 658
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "本系统提供最多六级的"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_29 from statictext within tabpage_step4
integer x = 1024
integer y = 276
integer width = 658
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "会计科目，第一级科目由系"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_30 from statictext within tabpage_step4
integer x = 1024
integer y = 372
integer width = 658
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "统根据企来类别定义，其它"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_31 from statictext within tabpage_step4
integer x = 1024
integer y = 468
integer width = 658
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "各级科目由用户根据企业实"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_32 from statictext within tabpage_step4
integer x = 1024
integer y = 564
integer width = 658
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "际情况来定义长度，科目编"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_33 from statictext within tabpage_step4
integer x = 1024
integer y = 660
integer width = 658
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "码总长度不能超过18位。"
boolean focusrectangle = false
end type

type tabpage_step5 from userobject within tab_step
integer x = 18
integer y = 96
integer width = 2007
integer height = 940
long backcolor = 80269524
string text = "5：会计月历"
long tabtextcolor = 33554432
long tabbackcolor = 80269524
long picturemaskcolor = 536870912
rb_auto_calendar rb_auto_calendar
rb_manu_calendar rb_manu_calendar
dw_calendar dw_calendar
st_18 st_18
em_startyear em_startyear
st_19 st_19
ddlb_startyearmon ddlb_startyearmon
cb_1 cb_1
end type

on tabpage_step5.create
this.rb_auto_calendar=create rb_auto_calendar
this.rb_manu_calendar=create rb_manu_calendar
this.dw_calendar=create dw_calendar
this.st_18=create st_18
this.em_startyear=create em_startyear
this.st_19=create st_19
this.ddlb_startyearmon=create ddlb_startyearmon
this.cb_1=create cb_1
this.Control[]={this.rb_auto_calendar,&
this.rb_manu_calendar,&
this.dw_calendar,&
this.st_18,&
this.em_startyear,&
this.st_19,&
this.ddlb_startyearmon,&
this.cb_1}
end on

on tabpage_step5.destroy
destroy(this.rb_auto_calendar)
destroy(this.rb_manu_calendar)
destroy(this.dw_calendar)
destroy(this.st_18)
destroy(this.em_startyear)
destroy(this.st_19)
destroy(this.ddlb_startyearmon)
destroy(this.cb_1)
end on

type rb_auto_calendar from radiobutton within tabpage_step5
integer x = 398
integer y = 108
integer width = 302
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

event clicked;wf_lock_calendar()
end event

type rb_manu_calendar from radiobutton within tabpage_step5
integer x = 398
integer y = 220
integer width = 302
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

event clicked;wf_lock_calendar()
end event

type dw_calendar from datawindow within tabpage_step5
integer x = 955
integer y = 8
integer width = 1024
integer height = 924
integer taborder = 130
boolean bringtotop = true
string dataobject = "dw_sys_calendar_index"
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event rowfocuschanged;IF currentrow > 0 THEN
	THIS.SelectRow(0,FALSE)
	THIS.SelectRow(currentrow,TRUE)
END IF

end event

type st_18 from statictext within tabpage_step5
integer x = 411
integer y = 432
integer width = 288
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "启用年度："
alignment alignment = right!
boolean focusrectangle = false
end type

type em_startyear from editmask within tabpage_step5
integer x = 421
integer y = 500
integer width = 279
integer height = 84
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "0000"
boolean spin = true
end type

event constructor;this.text=string(year(today()))
end event

event modified;f_init_calendar_array(long(this.text),s_sys_calendar[])
wf_init_calendar()
wf_lock_calendar()
end event

type st_19 from statictext within tabpage_step5
integer x = 411
integer y = 656
integer width = 288
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "启用期间："
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_startyearmon from dropdownlistbox within tabpage_step5
integer x = 421
integer y = 720
integer width = 279
integer height = 740
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
boolean sorted = false
boolean vscrollbar = true
string item[] = {"1","2","3","4","5","6","7","8","9","10","11","12"}
borderstyle borderstyle = stylelowered!
end type

type cb_1 from commandbutton within tabpage_step5
integer x = 704
integer y = 500
integer width = 59
integer height = 84
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
end type

event clicked;long arg_year
arg_year = long(tab_step.tabpage_step5.em_startyear.text)
f_init_calendar_array(arg_year,s_sys_calendar[])

wf_init_calendar()
wf_lock_calendar()
end event

type cb_create_accset from commandbutton within w_create_accset
integer x = 1367
integer y = 1104
integer width = 325
integer height = 96
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "创建帐套"
end type

event clicked;//1.校验信息
//2.建帐套
//3.根据行业类型建立相应科目
//4.建子帐
//5.建凭证字
//6.建本位币
//7.建月份
//8.建超级用户


Long arg_accsetid,arg_cropid,arg_subaccsetid[],arg_startyear,arg_startyearmon
String arg_accsetname,arg_cropname,arg_LawPerson,arg_Bank,arg_Accounts,arg_TaxNumber
String arg_Telephone,arg_Address,arg_Dscrp[],arg_Credenceword[]
String arg_Empid,arg_empname,arg_code,arg_name,ls_cropid
Int arg_Step1,arg_Step2,arg_Step3,arg_Step4,arg_Step5,arg_Step6
DateTime arg_sdate,arg_edate
s_calendar ls_s_calendar[12]
Long itmxt_Credenceword,i,cnt_credenceword
Int arg_ifnewsubid
String arg_msg = ''

//tabpage_step1
arg_cropname = Trim(tab_step.tabpage_step1.sle_cropname.Text)
arg_LawPerson = Trim(tab_step.tabpage_step1.sle_LawPerson.Text)
arg_Bank = Trim(tab_step.tabpage_step1.sle_Bank.Text)
arg_Accounts = Trim(tab_step.tabpage_step1.sle_Accounts.Text)
arg_TaxNumber = Trim(tab_step.tabpage_step1.sle_TaxNumber.Text)
arg_Telephone = Trim(tab_step.tabpage_step1.sle_Telephone.Text)
arg_Address = Trim(tab_step.tabpage_step1.sle_Address.Text)
ls_cropid = Trim(tab_step.tabpage_step1.ddlb_cropid.Text)
IF tab_step.tabpage_step1.cbx_ifnewsubid.Checked THEN
	arg_cropid = 0
	arg_ifnewsubid = 1
ELSE
	arg_cropid = Long( Mid ( ls_cropid,Pos(ls_cropid,'[') + 1,Pos(ls_cropid,']') - Pos(ls_cropid,'[') - 1 ))
	arg_ifnewsubid = 0
END IF

//tabpage_step2
arg_accsetid = Long(Trim(tab_step.tabpage_step2.sle_accsetid.Text))
arg_accsetname = Trim(tab_step.tabpage_step2.sle_accsetname.Text)
arg_Empid = Trim(tab_step.tabpage_step2.sle_Empid.Text)
arg_empname = Trim(tab_step.tabpage_step2.sle_empname.Text)

tab_step.tabpage_step2.dw_credenceword_index.AcceptText()
cnt_credenceword = tab_step.tabpage_step2.dw_credenceword_index.RowCount()

IF cnt_credenceword > 0 THEN
	FOR i = 1 TO cnt_credenceword
		itmxt_Credenceword++
		arg_Credenceword[itmxt_Credenceword] = Trim(tab_step.tabpage_step2.dw_credenceword_index.Object.credenceword[i])
	NEXT
END IF

//tabpage_step3
arg_code = Trim(tab_step.tabpage_step3.sle_code.Text)
arg_name = Trim(tab_step.tabpage_step3.sle_name.Text)

//tabpage_step4
arg_Step1 = Long(Trim(tab_step.tabpage_step4.em_step1.Text))
arg_Step2 = Long(Trim(tab_step.tabpage_step4.em_step2.Text))
arg_Step3 = Long(Trim(tab_step.tabpage_step4.em_step3.Text))
arg_Step4 = Long(Trim(tab_step.tabpage_step4.em_step4.Text))
arg_Step5 = Long(Trim(tab_step.tabpage_step4.em_step5.Text))
arg_Step6 = Long(Trim(tab_step.tabpage_step4.em_step6.Text))

//tabpage_step5
arg_startyear = Long(Trim(tab_step.tabpage_step5.em_startyear.Text))
arg_startyearmon = Long(Trim(tab_step.tabpage_step5.ddlb_startyearmon.Text))
tab_step.tabpage_step5.dw_calendar.AcceptText()
FOR i = 1 TO tab_step.tabpage_step5.dw_calendar.RowCount()
	ls_s_calendar[i].cmonth = tab_step.tabpage_step5.dw_calendar.Object.cmonth[i]
	ls_s_calendar[i].sdate = tab_step.tabpage_step5.dw_calendar.Object.sdate[i]
	ls_s_calendar[i].edate = tab_step.tabpage_step5.dw_calendar.Object.edate[i]
NEXT

//1.校验信息
//tabpage_step1
IF arg_cropname = '' THEN
	MessageBox(publ_operator,'请输入企业名称')
	RETURN
END IF

IF arg_ifnewsubid = 0 THEN
	IF arg_cropid <= 0 THEN
		MessageBox(publ_operator,'请输入所属行业')
		RETURN
	END IF
END IF

//tabpage_step2
IF arg_accsetid <= 0 THEN
	MessageBox(publ_operator,'请输入帐套ID')
	RETURN
END IF

IF arg_accsetname = '' THEN
	MessageBox(publ_operator,'请输入帐套代号')
	RETURN
END IF

IF itmxt_Credenceword > 0 THEN
	FOR i = 1 TO itmxt_Credenceword
		IF arg_Credenceword[i] = '' THEN
			MessageBox(publ_operator,'请输入凭证字')
			RETURN
		END IF
	NEXT
END IF
//tabpage_step3
IF arg_code = '' THEN
	MessageBox(publ_operator,'请输入本位币代号')
	RETURN
END IF

IF arg_name = '' THEN
	MessageBox(publ_operator,'请输入本位币名称')
	RETURN
END IF

IF arg_Step1 + arg_Step2 + arg_Step3 + arg_Step4 + arg_Step5 + arg_Step6 > 18 THEN
	MessageBox(publ_operator,'科目级长超过18位')
	RETURN
END IF

//取科目
IF wf_get_subject(arg_cropid,arg_msg) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF

///////////////////////////////////////
uo_newaccset.accsetid = arg_accsetid
uo_newaccset.accsetname = arg_accsetname
uo_newaccset.cropname = arg_cropname
uo_newaccset.cropid = arg_cropid
uo_newaccset.startyear = arg_startyear
uo_newaccset.startyearmon = arg_startyearmon
uo_newaccset.Step1 = arg_Step1
uo_newaccset.Step2 = arg_Step2
uo_newaccset.Step3 = arg_Step3
uo_newaccset.Step4 = arg_Step4
uo_newaccset.Step5 = arg_Step5
uo_newaccset.Step6 = arg_Step6
uo_newaccset.LawPerson = arg_LawPerson
uo_newaccset.Bank = arg_Bank
uo_newaccset.Accounts = arg_Accounts
uo_newaccset.TaxNumber = arg_TaxNumber
uo_newaccset.Telephone = arg_Telephone
uo_newaccset.Address = arg_Address
uo_newaccset.ifnewsubid = arg_ifnewsubid

IF uo_newaccset.accset_newbegin(arg_msg) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF

////2.建帐套
IF uo_newaccset.accset(1,arg_msg,FALSE) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF

////3.根据行业类型建立相应科目
IF uo_newaccset.subject_arrray(ins_s_subject,arg_msg,FALSE) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF

////5.建凭证字
IF uo_newaccset.credenceword(itmxt_Credenceword,arg_Credenceword[],arg_msg,FALSE) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF

////6.建本位币
IF uo_newaccset.new_currency(arg_code,arg_name,1,1,arg_msg,FALSE) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF
//7.建月份
IF uo_newaccset.new_calendar(ls_s_calendar[],arg_msg,FALSE) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF

//9.建报表
IF uo_newaccset.new_reports(arg_msg,FALSE) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF

//10.建现金流量项目
uo_flow uo_flow_create
uo_flow_create = CREATE uo_flow
IF uo_flow_create.uof_create_flow(arg_accsetid,arg_msg,FALSE) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF
DESTROY uo_flow_create

COMMIT;

sys_accsetid = arg_accsetid
CloseWithReturn(PARENT,1)











end event

type st_1 from statictext within w_create_accset
integer x = 64
integer y = 1128
integer width = 617
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 67108864
string text = "注：蓝色项目为必填项目"
alignment alignment = right!
boolean focusrectangle = false
end type