// ************************************************************************
//
//  Product Code  :ZKWIN04
//  Product Name  :財務会計システム
//                :
// ************************************************************************

include	PUBLIC
import	OBJECT


m1:="  伝   票   入   力"
m2:="  資   産   管   理"
m3:="  帳   票   出   力"
m4:="^-"
m5:="  初   期   入   力"
m6:="  補   助   機   能"
m7:="  期末商品棚卸高入力"
m8:="^-"
m9:="^-"
ma:="   終          了"
ret:=1
loop
	msg("財務会計システム",0)
	// ポップアップメニュー
	ret:=menu("財務会計メニュー",25,4,ret,m1,m2,m3,m4,m5,m6,m7,m8,m9,ma)
	switch(ret)
	case -1
		ret:=1
		break
	case 1
		伝票入力.main()		//サブプロシージャ呼び出し
		break
	case 2
		資産管理.main()
		break
	case 3
		帳票出力.main()
		break
	case 5
		初期入力.main()
		break
	case 6
		補助機能.main()
		break
	case 7
		期末棚卸.main()
		break
	case 10
		exitloop
		break
	endsw
endloop