Q5/ws_objects/Ew_mainface.pbl.src/w_sys_init_guide_zlsz.srw

$PBExportHeader$w_sys_init_guide_zlsz.srw
forward
global type w_sys_init_guide_zlsz from w_publ_base
end type
type cb_next from uo_imflatbutton within w_sys_init_guide_zlsz
end type
type tab_1 from tab within w_sys_init_guide_zlsz
end type
type tabpage_1 from userobject within tab_1
end type
type tabpage_1 from userobject within tab_1
end type
type tabpage_2 from userobject within tab_1
end type
type tabpage_2 from userobject within tab_1
end type
type tabpage_3 from userobject within tab_1
end type
type tabpage_3 from userobject within tab_1
end type
type tabpage_4 from userobject within tab_1
end type
type tabpage_4 from userobject within tab_1
end type
type tabpage_5 from userobject within tab_1
end type
type tabpage_5 from userobject within tab_1
end type
type tabpage_6 from userobject within tab_1
end type
type tabpage_6 from userobject within tab_1
end type
type tabpage_7 from userobject within tab_1
end type
type tabpage_7 from userobject within tab_1
end type
type tabpage_8 from userobject within tab_1
end type
type tabpage_8 from userobject within tab_1
end type
type tabpage_9 from userobject within tab_1
end type
type tabpage_9 from userobject within tab_1
end type
type tabpage_10 from userobject within tab_1
end type
type tabpage_10 from userobject within tab_1
end type
type tabpage_11 from userobject within tab_1
end type
type tabpage_11 from userobject within tab_1
end type
type tab_1 from tab within w_sys_init_guide_zlsz
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_4 tabpage_4
tabpage_5 tabpage_5
tabpage_6 tabpage_6
tabpage_7 tabpage_7
tabpage_8 tabpage_8
tabpage_9 tabpage_9
tabpage_10 tabpage_10
tabpage_11 tabpage_11
end type
type dw_1 from datawindow within w_sys_init_guide_zlsz
end type
type cbx_1 from checkbox within w_sys_init_guide_zlsz
end type
type st_1 from statictext within w_sys_init_guide_zlsz
end type
type st_2 from statictext within w_sys_init_guide_zlsz
end type
type s_set_zlsz from structure within w_sys_init_guide_zlsz
end type
type s_item from structure within w_sys_init_guide_zlsz
end type
end forward

type s_set_zlsz from structure
	string		name
	s_item		item[]
end type

type s_item from structure
	string		name
	integer		num
	string		dscrp
end type

global type w_sys_init_guide_zlsz from w_publ_base
integer width = 2496
integer height = 1404
boolean titlebar = false
string title = ""
boolean controlmenu = false
boolean minbox = false
boolean border = false
windowtype windowtype = child!
long backcolor = 16777215
event ue_chk_sc ( )
event ue_chk_storage ( )
event ue_chk_mtrltype ( )
event ue_chk_cusarea ( )
cb_next cb_next
tab_1 tab_1
dw_1 dw_1
cbx_1 cbx_1
st_1 st_1
st_2 st_2
end type
global w_sys_init_guide_zlsz w_sys_init_guide_zlsz

type variables
private:
s_set_zlsz ss_set_zlsz[]
end variables

forward prototypes
public subroutine wf_init ()
public subroutine wf_bulid (string arg_str)
public subroutine wf_set (string arg_str)
public subroutine wf_insert ()
end prototypes

public subroutine wf_init ();
//////////////////////////////////
ss_set_zlsz[1].Name = "部门"
ss_set_zlsz[1].Item[1].Name = "财务部"
ss_set_zlsz[1].Item[2].Name = "销售部"
ss_set_zlsz[1].Item[3].Name = "采购部"
ss_set_zlsz[1].Item[4].Name = "行政部"
ss_set_zlsz[1].Item[5].Name = "车间"
ss_set_zlsz[1].Item[6].Name = "仓库"
ss_set_zlsz[1].Item[1].num = 1
ss_set_zlsz[1].Item[2].num = 1
ss_set_zlsz[1].Item[3].num = 1
ss_set_zlsz[1].Item[4].num = 1
ss_set_zlsz[1].Item[5].num = 1
ss_set_zlsz[1].Item[6].num = 1
////////////////////////////////// //
ss_set_zlsz[2].Name = "币种"
ss_set_zlsz[2].Item[1].Name = "人民币"
ss_set_zlsz[2].Item[1].num = 1
////////////////////////////////// //
ss_set_zlsz[3].Name = "结算方式"
ss_set_zlsz[3].Item[1].Name = "现金"
ss_set_zlsz[3].Item[2].Name = "月结"
ss_set_zlsz[3].Item[3].Name = "现金"
ss_set_zlsz[3].Item[4].Name = "月结"
ss_set_zlsz[3].Item[5].Name = "现金"
ss_set_zlsz[3].Item[6].Name = "月结"
ss_set_zlsz[3].Item[1].num = 1
ss_set_zlsz[3].Item[2].num = 1
ss_set_zlsz[3].Item[3].num = 1
ss_set_zlsz[3].Item[4].num = 1
ss_set_zlsz[3].Item[5].num = 1
ss_set_zlsz[3].Item[6].num = 1
ss_set_zlsz[3].Item[1].dscrp = "应收"
ss_set_zlsz[3].Item[2].dscrp = "应收"
ss_set_zlsz[3].Item[3].dscrp = "应付"
ss_set_zlsz[3].Item[4].dscrp = "应付"
ss_set_zlsz[3].Item[5].dscrp = "出纳"
ss_set_zlsz[3].Item[6].dscrp = "出纳"
////////////////////////////////// //
ss_set_zlsz[4].Name = "仓库"
ss_set_zlsz[4].Item[1].Name = "成品仓"
ss_set_zlsz[4].Item[2].Name = "半成品仓"
ss_set_zlsz[4].Item[3].Name = "材料仓"
ss_set_zlsz[4].Item[1].num = 1
ss_set_zlsz[4].Item[2].num = 1
ss_set_zlsz[4].Item[3].num = 1
////////////////////////////////// //
ss_set_zlsz[5].Name = "供应商类别"
ss_set_zlsz[5].Item[1].Name = "采购"
ss_set_zlsz[5].Item[2].Name = "外协"
ss_set_zlsz[5].Item[1].num = 1
ss_set_zlsz[5].Item[2].num = 1
////////////////////////////////// //
ss_set_zlsz[6].Name = "分部"
ss_set_zlsz[6].Item[1].Name = "总部"
ss_set_zlsz[6].Item[1].num = 1
////////////////////////////////// //
ss_set_zlsz[7].Name = "物料类别"
ss_set_zlsz[7].Item[1].Name = "成品"
ss_set_zlsz[7].Item[2].Name = "半成品"
ss_set_zlsz[7].Item[3].Name = "材料"
ss_set_zlsz[7].Item[1].num = 1
ss_set_zlsz[7].Item[2].num = 1
ss_set_zlsz[7].Item[3].num = 1
////////////////////////////////// //
ss_set_zlsz[8].Name = "收支项目"
ss_set_zlsz[8].Item[1].Name = "默认销售收款"
ss_set_zlsz[8].Item[2].Name = "默认销售优惠"
ss_set_zlsz[8].Item[3].Name = "默认销售退货"
ss_set_zlsz[8].Item[4].Name = "默认采购外协付款"
ss_set_zlsz[8].Item[5].Name = "默认采购外协退货"
ss_set_zlsz[8].Item[1].num = 1
ss_set_zlsz[8].Item[2].num = 1
ss_set_zlsz[8].Item[3].num = 1
ss_set_zlsz[8].Item[4].num = 1
ss_set_zlsz[8].Item[5].num = 1
////////////////////////////////// //
ss_set_zlsz[9].Name = "工资项目"
ss_set_zlsz[9].Item[1].Name = "个人产品工序计件"
ss_set_zlsz[9].Item[2].Name = "个人工序计件"
ss_set_zlsz[9].Item[3].Name = "产品个人工序计件"
ss_set_zlsz[9].Item[4].Name = "借支"
ss_set_zlsz[9].Item[5].Name = "扣费"
ss_set_zlsz[9].Item[6].Name = "奖"
ss_set_zlsz[9].Item[7].Name = "考勤"
ss_set_zlsz[9].Item[8].Name = "罚"
ss_set_zlsz[9].Item[1].num = 1
ss_set_zlsz[9].Item[2].num = 1
ss_set_zlsz[9].Item[3].num = 1
ss_set_zlsz[9].Item[4].num = 1
ss_set_zlsz[9].Item[5].num = 1
ss_set_zlsz[9].Item[6].num = 1
ss_set_zlsz[9].Item[7].num = 1
ss_set_zlsz[9].Item[8].num = 1
////////////////////////////////// //
ss_set_zlsz[10].Name = "客户区域"
ss_set_zlsz[10].Item[1].Name = "国内"
ss_set_zlsz[10].Item[2].Name = "国外"
ss_set_zlsz[10].Item[1].num = 1
ss_set_zlsz[10].Item[2].num = 1
////////////////////////////////// //
ss_set_zlsz[11].Name = "客户"
ss_set_zlsz[11].Item[1].Name = "零散客户"
ss_set_zlsz[11].Item[1].num = 1
















end subroutine

public subroutine wf_bulid (string arg_str);dw_1.Reset()
Integer i,ll_row,arg_i

FOR i = 1 To UpperBound(ss_set_zlsz)
	IF Trim(ss_set_zlsz[i].Name) = Trim(arg_str) THEN
		arg_i = i
		EXIT
	END IF
NEXT

FOR i = 1 To UpperBound(ss_set_zlsz[arg_i].Item)
	ll_row = dw_1.InsertRow(0)
	dw_1.Object.Name[ll_row] = ss_set_zlsz[arg_i].Item[i].Name
	dw_1.Object.num[ll_row] = ss_set_zlsz[arg_i].Item[i].num
	dw_1.Object.dsrcp[ll_row] = ss_set_zlsz[arg_i].Item[i].dscrp
NEXT




//CHOOSE CASE arg_i
//	CASE 1
//	CASE 2
//	CASE 3
//	CASE 4
//	CASE 5
//	CASE 6
//	CASE 7
//	CASE 8
//	CASE 9
//	CASE 10
//END CHOOSE




end subroutine

public subroutine wf_set (string arg_str);dw_1.AcceptText()
Integer i,ll_row,arg_i

FOR i = 1 To UpperBound(ss_set_zlsz)
	IF Trim(ss_set_zlsz[i].Name) = Trim(arg_str) THEN
		arg_i = i
		EXIT
	END IF
NEXT



FOR i = 1 To dw_1.rowcount()
	if dw_1.object.num[i]=0 then
		ss_set_zlsz[arg_i].item[i].num=0
	end if

NEXT
end subroutine

public subroutine wf_insert ();String createsql_string = ''
IF cbx_1.Checked = True THEN
	DELETE From cw_department;
	DELETE From cw_currency;
	DELETE From cw_banktype;
	DELETE From u_storage;
	DELETE From u_spttype;
	DELETE From u_scdef;
	DELETE From u_mtrltype;
	DELETE From u_itemdef;
	DELETE From u_gz_wageitem;
	DELETE From u_Cusarea;
	DELETE From U_cust;
	COMMIT;
END IF

//////////////////////////////// //"部门"
IF ss_set_zlsz[1].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_department] ([accsetid], [departmentid], [departmentname], [deptcode], [handtype], [sonflag], [parentid]) VALUES (0, 11, N'财务部', N'01', N'财务部>>', 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[1].Item[2].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_department] ([accsetid], [departmentid], [departmentname], [deptcode], [handtype], [sonflag], [parentid]) VALUES (0, 12, N'销售部', N'02', N'销售部>>', 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[1].Item[3].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_department] ([accsetid], [departmentid], [departmentname], [deptcode], [handtype], [sonflag], [parentid]) VALUES (0, 13, N'采购部', N'03', N'采购部>>', 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[1].Item[4].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_department] ([accsetid], [departmentid], [departmentname], [deptcode], [handtype], [sonflag], [parentid]) VALUES (0, 14, N'行政部', N'04', N'行政部>>', 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[1].Item[5].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_department] ([accsetid], [departmentid], [departmentname], [deptcode], [handtype], [sonflag], [parentid]) VALUES (0, 15, N'车间', N'05', N'车间>>', 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[1].Item[6].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_department] ([accsetid], [departmentid], [departmentname], [deptcode], [handtype], [sonflag], [parentid]) VALUES (0, 16, N'仓库', N'06', N'仓库>>', 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
////////////////////////////////// // "币种"


IF ss_set_zlsz[2].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_currency] ([accsetid], [moneyid], [code], [name], [rate], [native]) VALUES (0, 11, N'RMB ', N'人民币', CAST(1.00000 AS Decimal(18, 5)), 1)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
////////////////////////////////// //"结算方式"
IF ss_set_zlsz[3].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_banktype] ([accsetid], [banktypeid], [banktype], [banktypename], [btype], [accountsid], [inuse], [ifconfirm]) VALUES (0, 11, 0, N'月结', 0, 0, 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[3].Item[2].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_banktype] ([accsetid], [banktypeid], [banktype], [banktypename], [btype], [accountsid], [inuse], [ifconfirm]) VALUES (0, 12, 0, N'现金', 0, 0, 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[3].Item[3].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_banktype] ([accsetid], [banktypeid], [banktype], [banktypename], [btype], [accountsid], [inuse], [ifconfirm]) VALUES (0, 13, 1, N'现金', 0, 0, 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[3].Item[4].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_banktype] ([accsetid], [banktypeid], [banktype], [banktypename], [btype], [accountsid], [inuse], [ifconfirm]) VALUES (0, 14, 1, N'月结', 0, 0, 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[3].Item[5].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_banktype] ([accsetid], [banktypeid], [banktype], [banktypename], [btype], [accountsid], [inuse], [ifconfirm]) VALUES (0, 15, 2, N'现金', 0, 0, 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[3].Item[6].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [cw_banktype] ([accsetid], [banktypeid], [banktype], [banktypename], [btype], [accountsid], [inuse], [ifconfirm]) VALUES (0, 16, 2, N'月结', 0, 0, 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF



////////////////////////////////// //"仓库"

IF ss_set_zlsz[4].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_storage] ([storageid], [storagename], [rep], [tele], [Mtrlprp], [stattype], [sys_changetime], [scid], [inuse], [noallocflag], [balctype], [if_plancode], [lsflag], [inwaretype], [ifbalc]) VALUES (11, N'成品仓', N'', N'', 0, N'', CAST(0x0000A22000BA917C AS DateTime), 0, 1, 0, 0, 0, 0, 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[4].Item[2].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_storage] ([storageid], [storagename], [rep], [tele], [Mtrlprp], [stattype], [sys_changetime], [scid], [inuse], [noallocflag], [balctype], [if_plancode], [lsflag], [inwaretype], [ifbalc]) VALUES (12, N'半成品仓', N'', N'', 2, N'', CAST(0x0000A22000BAA636 AS DateTime), 0, 1, 0, 0, 0, 0, 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[4].Item[3].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_storage] ([storageid], [storagename], [rep], [tele], [Mtrlprp], [stattype], [sys_changetime], [scid], [inuse], [noallocflag], [balctype], [if_plancode], [lsflag], [inwaretype], [ifbalc]) VALUES (13, N'材料仓', N'', N'', 1, N'', CAST(0x0000A22000BAB66B AS DateTime), 0, 1, 0, 0, 0, 0, 1, 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF

////////////////////////////////// //"供应商类别"
IF ss_set_zlsz[5].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_spttype] ([spttypeid], [spttypename], [inuse], [opemp], [opdate], [modemp], [moddate]) VALUES (11, N'采购', 1, N'超级用户', CAST(0x0000A22000BC1F07 AS DateTime), N'', NULL)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[5].Item[2].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_spttype] ([spttypeid], [spttypename], [inuse], [opemp], [opdate], [modemp], [moddate]) VALUES (12, N'外协', 1, N'超级用户', CAST(0x0000A22000BC2BC5 AS DateTime), N'', NULL)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF

////////////////////////////////// // "分部"

IF ss_set_zlsz[6].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_scdef] ([ScID], [scname], [sccode], [Ffpsw], [mffpsw], [sys_changetime], [accsetid]) VALUES (0, N'总部', N'', N'', N'', CAST(0x0000943001743475 AS DateTime), 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
////////////////////////////////// //"物料类别"

IF ss_set_zlsz[7].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_mtrltype] ([mtrltypeid], [mtrltype], [handtype], [sonflag], [parentid], [mtrlprp], [typecode], [typecodestr], [nodeid]) VALUES (11, N'成品', N'成品>>', 1, 0, 0, N'A ', N'', 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[7].Item[2].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_mtrltype] ([mtrltypeid], [mtrltype], [handtype], [sonflag], [parentid], [mtrlprp], [typecode], [typecodestr], [nodeid]) VALUES (12, N'半成品', N'半成品>>', 1, 0, 0, N'B ', N'', 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[7].Item[3].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_mtrltype] ([mtrltypeid], [mtrltype], [handtype], [sonflag], [parentid], [mtrlprp], [typecode], [typecodestr], [nodeid]) VALUES (13, N'材料', N'材料>>', 1, 0, 0, N'C ', N'', 0)"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF

////////////////////////////////// //"收支项目"

IF ss_set_zlsz[8].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_itemdef] ([itemid], [itemcode], [itemname], [itemtype], [itemsectype], [itemflag], [dscrp], [isuse], [sys_changetime], [dfttype], [subid]) VALUES (11, N'01', N'默认销售收款', N'销售', N'', 1, N'', 1, CAST(0x0000A22000C225C3 AS DateTime), 1, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[8].Item[2].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_itemdef] ([itemid], [itemcode], [itemname], [itemtype], [itemsectype], [itemflag], [dscrp], [isuse], [sys_changetime], [dfttype], [subid]) VALUES (12, N'02', N'默认销售优惠', N'销售', N'', 1, N'', 1, CAST(0x0000A22000C24A20 AS DateTime), 3, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[8].Item[3].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_itemdef] ([itemid], [itemcode], [itemname], [itemtype], [itemsectype], [itemflag], [dscrp], [isuse], [sys_changetime], [dfttype], [subid]) VALUES (13, N'03', N'默认销售退货', N'销售', N'', -1, N'', 1, CAST(0x0000A22000C2A953 AS DateTime), 4, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[8].Item[4].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_itemdef] ([itemid], [itemcode], [itemname], [itemtype], [itemsectype], [itemflag], [dscrp], [isuse], [sys_changetime], [dfttype], [subid]) VALUES (14, N'04', N'默认采购外协付款', N'采购外协', N'', -1, N'', 1, CAST(0x0000A22000C2D8BF AS DateTime), 2, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[8].Item[5].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_itemdef] ([itemid], [itemcode], [itemname], [itemtype], [itemsectype], [itemflag], [dscrp], [isuse], [sys_changetime], [dfttype], [subid]) VALUES (15, N'05', N'默认采购外协退货', N'采购外协', N'', 1, N'', 1, CAST(0x0000A22000C2F93B AS DateTime), 5, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF


////////////////////////////////// //"工资项目"

IF ss_set_zlsz[9].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_gz_wageitem] ([wageid], [Wagename], [wagetype], [wagemode], [useflag], [dscrp]) VALUES (11, N'个人产品工序计件', 1, 12, 1, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[9].Item[2].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_gz_wageitem] ([wageid], [Wagename], [wagetype], [wagemode], [useflag], [dscrp]) VALUES (12, N'个人工序计件', 1, 14, 1, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[9].Item[3].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_gz_wageitem] ([wageid], [Wagename], [wagetype], [wagemode], [useflag], [dscrp]) VALUES (13, N'产品个人工序计件', 1, 15, 1, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[9].Item[4].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_gz_wageitem] ([wageid], [Wagename], [wagetype], [wagemode], [useflag], [dscrp]) VALUES (14, N'借支', -1, 21, 1, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[9].Item[5].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_gz_wageitem] ([wageid], [Wagename], [wagetype], [wagemode], [useflag], [dscrp]) VALUES (15, N'扣费', -1, 22, 1, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[9].Item[6].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_gz_wageitem] ([wageid], [Wagename], [wagetype], [wagemode], [useflag], [dscrp]) VALUES (16, N'奖', 1, 23, 1, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[9].Item[7].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_gz_wageitem] ([wageid], [Wagename], [wagetype], [wagemode], [useflag], [dscrp]) VALUES (20, N'考勤', 1, 24, 1, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF ss_set_zlsz[9].Item[8].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_gz_wageitem] ([wageid], [Wagename], [wagetype], [wagemode], [useflag], [dscrp]) VALUES (18, N'罚', -1, 23, 1, N'')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF


////////////////////////////////// //"客户区域"

IF  ss_set_zlsz[10].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_Cusarea] ([CusareaID], [Cusareaname], [areaname], [sonflag], [parentid], [sys_changetime], [typecode], [typecodestr]) VALUES (11, N'国内', N'国内>>', 1, 0, CAST(0x0000A22000BBD7ED AS DateTime), N'01 ', N'01')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF
IF  ss_set_zlsz[10].Item[2].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [u_Cusarea] ([CusareaID], [Cusareaname], [areaname], [sonflag], [parentid], [sys_changetime], [typecode], [typecodestr]) VALUES (12, N'国外', N'国外>>', 1, 0, CAST(0x0000A22000BBE10B AS DateTime), N'02 ', N'02')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF

////////////////////////////////// // "客户"

IF ss_set_zlsz[11].Item[1].num = 1 THEN
	createsql_string = ''
	createsql_string = "INSERT [U_cust] ([cusid], [Cuscode], [Name]) VALUES (11, N'001', N'零散客户')"
	EXECUTE Immediate :createsql_string;
	COMMIT;
END IF


















end subroutine

on w_sys_init_guide_zlsz.create
int iCurrent
call super::create
this.cb_next=create cb_next
this.tab_1=create tab_1
this.dw_1=create dw_1
this.cbx_1=create cbx_1
this.st_1=create st_1
this.st_2=create st_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_next
this.Control[iCurrent+2]=this.tab_1
this.Control[iCurrent+3]=this.dw_1
this.Control[iCurrent+4]=this.cbx_1
this.Control[iCurrent+5]=this.st_1
this.Control[iCurrent+6]=this.st_2
end on

on w_sys_init_guide_zlsz.destroy
call super::destroy
destroy(this.cb_next)
destroy(this.tab_1)
destroy(this.dw_1)
destroy(this.cbx_1)
destroy(this.st_1)
destroy(this.st_2)
end on

event open;call super::open;This.TriggerEvent('ue_chk_sc')
This.TriggerEvent('ue_chk_storage')
This.TriggerEvent('ue_chk_mtrltype')
This.TriggerEvent('ue_chk_cusarea')
dw_1.SetTransObject (sqlca)
dw_1.Modify('Name.width = 800')
dw_1.Modify('dsrcp.width = 800')

wf_init()
dw_1.Modify("num_t.text  ='选'")
dw_1.Modify("name_t.text  ='分部'")
dw_1.Modify("dsrcp_t.text  ='备注'")
wf_bulid("分部")

//tab_1.y=this.y
//
end event

event close;//f_set_sysmessage()
end event

type cb_func from w_publ_base`cb_func within w_sys_init_guide_zlsz
boolean visible = false
integer x = 1646
integer y = 1604
integer width = 357
integer height = 96
string text = "<上一步(&B)"
string normalpicname = ""
integer picsize = 0
toolbaralignment pic_align = alignatleft!
boolean border = true
end type

event cb_func::clicked;//if dw_1.update()<>1 then 
//	messagebox('提示','系统用户信息修改失败,请重试!', Information!, OK! )
//	rollback;
//else
//	messagebox('提示','系统用户信息修改成功!', Information!, OK! )
//	commit;
//	f_set_sysmessage()
//end if
end event

type cb_exit from w_publ_base`cb_exit within w_sys_init_guide_zlsz
boolean visible = false
integer x = 2359
integer y = 1604
integer width = 357
integer taborder = 30
string text = "取消(&C)"
string normalpicname = ""
end type

type cb_next from uo_imflatbutton within w_sys_init_guide_zlsz
boolean visible = false
integer x = 2002
integer y = 1604
integer width = 357
integer height = 96
integer taborder = 30
boolean bringtotop = true
string text = "下一步>(&N)"
end type

type tab_1 from tab within w_sys_init_guide_zlsz
integer width = 2176
integer height = 188
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean multiline = true
boolean raggedright = true
boolean focusonbuttondown = true
boolean boldselectedtext = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_4 tabpage_4
tabpage_5 tabpage_5
tabpage_6 tabpage_6
tabpage_7 tabpage_7
tabpage_8 tabpage_8
tabpage_9 tabpage_9
tabpage_10 tabpage_10
tabpage_11 tabpage_11
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.tabpage_2=create tabpage_2
this.tabpage_3=create tabpage_3
this.tabpage_4=create tabpage_4
this.tabpage_5=create tabpage_5
this.tabpage_6=create tabpage_6
this.tabpage_7=create tabpage_7
this.tabpage_8=create tabpage_8
this.tabpage_9=create tabpage_9
this.tabpage_10=create tabpage_10
this.tabpage_11=create tabpage_11
this.Control[]={this.tabpage_1,&
this.tabpage_2,&
this.tabpage_3,&
this.tabpage_4,&
this.tabpage_5,&
this.tabpage_6,&
this.tabpage_7,&
this.tabpage_8,&
this.tabpage_9,&
this.tabpage_10,&
this.tabpage_11}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
destroy(this.tabpage_3)
destroy(this.tabpage_4)
destroy(this.tabpage_5)
destroy(this.tabpage_6)
destroy(this.tabpage_7)
destroy(this.tabpage_8)
destroy(this.tabpage_9)
destroy(this.tabpage_10)
destroy(this.tabpage_11)
end on

event clicked;IF tab_1.SelectedTab = 1 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='分部'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("分部")
	st_2.text="区分企业内部独立核算的各部分,如分公司,分厂,分店"
ELSEIF tab_1.SelectedTab = 2 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='币种'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("币种")
	st_2.text="如：人民币,美金"
ELSEIF tab_1.SelectedTab = 3 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='部门'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("部门")
	st_2.text="如：财务部,销售部,采购部,生产部"
ELSEIF tab_1.SelectedTab = 4 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='仓库'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("仓库")
	st_2.text="如：成品仓,原料仓,半成品仓"
ELSEIF tab_1.SelectedTab = 5 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='物料类别'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("物料类别")
	st_2.text="如：成品,原料"
ELSEIF tab_1.SelectedTab = 6 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='客户区域'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("客户区域")
	st_2.text="如：广东,北京,上海"
ELSEIF tab_1.SelectedTab = 7 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='结算方式'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("结算方式")
	st_2.text="如：现金,银行转账"
ELSEIF tab_1.SelectedTab = 8 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='收支项目'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("收支项目")
	st_2.text="如：销售收款,销售退货款"
ELSEIF tab_1.SelectedTab = 9 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='工资项目'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("工资项目")
	st_2.text="如：基本工资,奖金"
ELSEIF tab_1.SelectedTab = 10 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='供应商类别'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("供应商类别")
	st_2.text="如：采购,外协"
ELSEIF tab_1.SelectedTab = 11 THEN
	dw_1.Modify("num_t.text  ='选'")
	dw_1.Modify("name_t.text  ='客户'")
	dw_1.Modify("dsrcp_t.text  ='备注'")
	wf_bulid("客户")
	st_2.text=""
END IF



end event

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "分部"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "币种"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type tabpage_3 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "部门"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type tabpage_4 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "仓库"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type tabpage_5 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "物料类别"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type tabpage_6 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "客户区域"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type tabpage_7 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "结算方式"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type tabpage_8 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "收支项目"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type tabpage_9 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "工资项目"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type tabpage_10 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "供应商类别"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type tabpage_11 from userobject within tab_1
integer x = 18
integer y = 176
integer width = 2139
integer height = -4
long backcolor = 16777215
string text = "客户"
long tabtextcolor = 33554432
long tabbackcolor = 16777215
long picturemaskcolor = 536870912
end type

type dw_1 from datawindow within w_sys_init_guide_zlsz
integer x = 5
integer y = 196
integer width = 2181
integer height = 1060
integer taborder = 30
boolean bringtotop = true
string title = "none"
string dataobject = "dw_sys_zlsz"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event losefocus;IF tab_1.SelectedTab = 1 THEN

	wf_set("分部")
ELSEIF tab_1.SelectedTab = 2 THEN

	wf_set("币种")
ELSEIF tab_1.SelectedTab = 3 THEN
	
	wf_set("部门")
ELSEIF tab_1.SelectedTab = 4 THEN

	wf_set("仓库")
ELSEIF tab_1.SelectedTab = 5 THEN

	wf_set("物料类别")
ELSEIF tab_1.SelectedTab = 6 THEN

	wf_set("客户区域")
ELSEIF tab_1.SelectedTab = 7 THEN

	wf_set("结算方式")
ELSEIF tab_1.SelectedTab = 8 THEN
	
	wf_set("收支项目")
ELSEIF tab_1.SelectedTab = 9 THEN

	wf_set("工资项目")
ELSEIF tab_1.SelectedTab = 10 THEN

	wf_set("供应商类别")
ELSEIF tab_1.SelectedTab = 11 THEN

	wf_set("客户")
END IF



end event

type cbx_1 from checkbox within w_sys_init_guide_zlsz
integer x = 9
integer y = 1264
integer width = 608
integer height = 92
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217746
long backcolor = 134217742
string text = "清空相关数据库表"
end type

event clicked;IF publ_userid <> "super" THEN
	MessageBox("提示","没有权限，请使用super用户")
	cbx_1.Checked = False
	RETURN
END IF

IF cbx_1.Checked = True THEN
	MessageBox("提示","危险！！！选择该项会删除所有基础数据")
END IF


end event

type st_1 from statictext within w_sys_init_guide_zlsz
integer x = 649
integer y = 1292
integer width = 178
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217746
long backcolor = 134217742
string text = "描述："
boolean focusrectangle = false
end type

type st_2 from statictext within w_sys_init_guide_zlsz
integer x = 837
integer y = 1292
integer width = 1335
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217746
long backcolor = 134217742
boolean focusrectangle = false
end type