
<!-- #include file="../../include.asp" -->
<!-- #include file="../../user/bk/shiireuriage/fd_syorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/shiireuriage/fd_nyusyukko_view_main_in.asp" -->
<!-- #include file="../../user/bk/ginkomadoguchi/fb_ginkosyorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/ginko/fb_uketsukesyori_view_main_in.asp" -->
<!-- #include file="../../user/bk/tegata/fk_tegata_view_main_in.asp" -->
<!-- #include file="../../user/bk/unyusokomadoguchi/fc_syorui_view_main_in.asp" -->
<!-- #include file="../../user/bk/unso/seikyu/fu_seikyu_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_nyukinsyukin_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_shiireuriage_view_main_in.asp" -->
<!-- #include file="../../user/bk/denpyo/fk_furikae_view_main_in.asp" -->

<!-- #include file="../../user/bk/tyobo/fk_gokeizandakashisanhyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_hachiketaseisanhyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwaketyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwakenikkityo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_shiwakesyukeihyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sokanjyomototyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sokanjyomototyohyojyun_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_sonekikeisansyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/tyobo/fk_taisyakutaisyohyo_view_main_in.asp" -->

<!-- #include file="../../user/bk/hojyobo/fk_genkinsuitotyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_shiireuriagetyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_syohinaridakatyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_touzayokinsuitotyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_uketorisiharaitegatatyo_view_main_in.asp" -->
<!-- #include file="../../user/bk/hojyobo/fk_urikaikakekintyo_view_main_in.asp" -->

<!-- #include file="../../user/bk/ryosyusyo/fk_ryosyusyo_view_main_in.asp" -->

<!-- #include file="../../user/bk/jidotyobo/rm_sonekikeisansyohoukoku_main_in.asp" -->
<!-- #include file="../../user/bk/jidotyobo/rm_sonekikeisansyohoukoku_hanbaikairihi_main_in.asp" -->
<!-- #include file="../../user/bk/jidotyobo/rm_taisyakutaisyouhyohoukoku_main_in.asp" -->

<!-- #include file="../../user/bk/denpyo/fk_zairyoshiire_view_main_in.asp" -->

<%

	Dim WK_Zandaka_KanjyoCD()
	Dim WK_Zandaka_KanjyoName()
	Dim WK_Zandaka_KariKingaku()
	Dim WK_Zandaka_KashiKingaku()
	Dim WK_Zandaka_KanjyoKubun()
	Dim WK_Zandaka_TaisyakuKubun()
	Dim WK_Zandaka_SyukeiCD()
	Dim ShowCount, MaxCount
	Dim CSVOutput

'
'<!--
'################################################
'	 名称	：演習状況一覧表示
'	 作成日：2002/9/6
'	 作成者：徳田
'	 目的　：演習状況一覧表示画面を表示する。
'	 概要	：
'		<<表示>>
'	・演習状況一覧表示画面
'
'################################################
'-->
%>
<%
main()
Sub main()
	Dim EnshuName, HyojiJyoken
	Dim Query
	Dim Content
	Dim ErrMsg
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Joken
	Joken = Request("Joken")


	Dim Addr, AutoFlg
	Dim tmp
	Dim KaisyaCD, GakuseiNo, BunsyoSyuruiCD, BunsyoNaiyoCD
	Dim Param1, Param2
	Dim KaisyaSelect
	KaisyaCD = Request("KaisyaCD")
	GakuseiNo = Request("GakuseiNo")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Dim SakuseiKaisyaCD


	'サイバー会計では自社のみ表示（091015小野）※廃止
	'If KaisyaCD = "///" Or PackageMode = 1 Then
	If KaisyaCD = "///" Then
		Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("自社フラグ") = "1" Then
				KaisyaCD = Content.Fields("会社CD")
				Exit Do
			End If
			Content.MoveNext
		Loop
	End If


	AutoFlg = 0
	If InStr(BunsyoSyuruiCD, ",") > 0 then
		tmp = Split(BunsyoSyuruiCD, ",")
		BunsyoSyuruiCD = tmp(0)
		AutoFlg = tmp(1)
	End If

	If InStr(BunsyoNaiyoCD, ",") > 0 then
		tmp = Split(BunsyoNaiyoCD, ",")
		SakuseiKaisyaCD = tmp(0)
		BunsyoNaiyoCD = tmp(1)
	End If

	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If

	Param1 = Request("Param1")
	Param2 = Request("Param2")
	KaisyaSelect = KaisyaCD


	If KaisyaCD = "///" Then
		Query = "exec SPM選択可能会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			KaisyaCD = Content.Fields("選択会社CD")
		End If
	End If


	Dim EnshuKubunmei
	EnshuKubunmei = GetEnshuParam(EnshuCD, "演習区分")

	Dim PrevKaisyaCD, NextKaisyaCD, PrevGakuseiNo, NextGakuseiNo, PrevBunsyoSyuruiCD, NextBunsyoSyuruiCD, PrevBunsyoNaiyoCD, NextBunsyoNaiyoCD
	Dim PrevAutoFlg, NextAutoFlg
	Dim KaisyaMeisyo, KaisyaRyakuMeisyo, GakuseiShimei, BunsyoMeisyo
	Dim bFlg
	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		NextKaisyaCD = Content.Fields("会社CD")
	End If

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("会社CD") = KaisyaCD Then
			KaisyaMeisyo = Content.Fields("会社名称")
			KaisyaRyakuMeisyo = Content.Fields("会社略名称")
			Content.MoveNext
			If Not(Content.BOF Or Content.EOF) Then
				NextKaisyaCD = Content.Fields("会社CD")
			End If
			Exit Do
		End If
		PrevKaisyaCD = Content.Fields("会社CD")
		Content.MoveNext
	Loop

	If PrevKaisyaCD = "" Then
		If Not(Content.BOF Or Content.EOF) Then
			Content.MoveFirst
		End If
		Do While Not(Content.BOF Or Content.EOF)
			PrevKaisyaCD = Content.Fields("会社CD")
			Content.MoveNext
		Loop
	End If

	Dim RiyoDenpyoSu
	Dim SeizobuRiyo
	Dim InputShiwaketyoKyuVersionRiyo
	Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Session(HomeAlias & "EnshuMeisyo") = Content.Fields("演習名称")
		RiyoDenpyoSu = Content.Fields("利用伝票数区分")
		InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用")
		SeizobuRiyo = "" & Content.Fields("原価会計利用")
		'会計開始日・終了日をセット（合計残高試算表のFromToフォームのため）
		GB_KaikeiKaishibi = "" & Content.Fields("会計開始日")
		GB_KaikeiSyuryobi = "" & Content.Fields("会計終了日")
	end If
	EnshuMeisyo = Session(HomeAlias & "EnshuMeisyo")
	Query = "exec SPMユーザー取得 '" & GB_SystemCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Session(HomeAlias & "GakuseiShimei") = Content.Fields("氏名")
	end If
Session(HomeAlias & "KaisyaRyakuMeisyo") = KaisyaRyakuMeisyo
Session(HomeAlias & "GakuseiNo") = GakuseiNo
Session(HomeAlias & "EnshuCD") = EnshuCD
Session(HomeAlias & "KaisyaCD") = KaisyaCD



	Query = "exec SPM演習選択ユーザー一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		NextGakuseiNo = Content.Fields("学生番号")
	End If

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("学生番号") = GakuseiNo Then
			GakuseiShimei = Content.Fields("氏名")
			Content.MoveNext
			If Not(Content.BOF Or Content.EOF) Then
				NextGakuseiNo = Content.Fields("学生番号")
			End If
			Exit Do
		End If
		PrevGakuseiNo = Content.Fields("学生番号")
		Content.MoveNext
	Loop

	If PrevGakuseiNo = "" Then
		If Not(Content.BOF Or Content.EOF) Then
			Content.MoveFirst
		End If
		Do While Not(Content.BOF Or Content.EOF)
			PrevGakuseiNo = Content.Fields("学生番号")
			Content.MoveNext
		Loop
	End If




	Query = "exec SPR文書種類一覧 '" & GB_SystemCD & "'"	'TC9文書種類Mから「順序」列ソートで抜き出すだけ
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		If Left(Content.Fields("文書種類CD"),1) <> "X" Then	'契約書は除外
			NextBunsyoSyuruiCD = Content.Fields("文書種類CD")
			NextAutoFlg = Content.Fields("自動フラグ")
		End If
	End If

	Do While Not(Content.BOF Or Content.EOF)
		If Left(Content.Fields("文書種類CD"),1) <> "X" Then	'契約書は除外
			If Content.Fields("文書種類CD") = BunsyoSyuruiCD And Content.Fields("自動フラグ") = AutoFlg Then
				BunsyoMeisyo = Content.Fields("文書名称")
				Content.MoveNext
				If Not(Content.BOF Or Content.EOF) And Left(Content.Fields("文書種類CD"),1) <> "X" Then	'契約書は除外
					NextBunsyoSyuruiCD = Content.Fields("文書種類CD")
					NextAutoFlg = Content.Fields("自動フラグ")
				End If
				Exit Do
			End If
			PrevBunsyoSyuruiCD = Content.Fields("文書種類CD")
			PrevAutoFlg = Content.Fields("自動フラグ")
		End If
		Content.MoveNext
	Loop

	If PrevBunsyoSyuruiCD = "" Then
		If Not(Content.BOF Or Content.EOF) Then
			Content.MoveFirst
		End If
		Do While Not(Content.BOF Or Content.EOF)
			If Left(Content.Fields("文書種類CD"),1) <> "X" Then	'契約書は除外
				PrevBunsyoSyuruiCD = Content.Fields("文書種類CD")
				PrevAutoFlg = Content.Fields("自動フラグ")
			End If
			Content.MoveNext
		Loop
	End If

'	If Not(Content.BOF Or Content.EOF) Then
'		NextBunsyoSyuruiCD = Content.Fields("文書種類CD")
'		NextAutoFlg = Content.Fields("自動フラグ")
'	End If

'	Do While Not(Content.BOF Or Content.EOF) 
'		If Content.Fields("文書種類CD") = BunsyoSyuruiCD And Content.Fields("自動フラグ") = AutoFlg Then
'			BunsyoMeisyo = Content.Fields("文書名称")
'			Content.MoveNext
'			If Not(Content.BOF Or Content.EOF) Then
'				NextBunsyoSyuruiCD = Content.Fields("文書種類CD")
'				NextAutoFlg = Content.Fields("自動フラグ")
'			End If
'			Exit Do
'		End If
'		PrevBunsyoSyuruiCD = Content.Fields("文書種類CD")
'		PrevAutoFlg = Content.Fields("自動フラグ")
'		Content.MoveNext
'	Loop

'	If PrevBunsyoSyuruiCD = "" Then
'		If Not(Content.BOF Or Content.EOF) Then
'			Content.MoveFirst
'		End If
'		Do While Not(Content.BOF Or Content.EOF)
'			PrevBunsyoSyuruiCD = Content.Fields("文書種類CD")
'			PrevAutoFlg = Content.Fields("自動フラグ")
'			Content.MoveNext
'		Loop
'	End If


	Query = "exec SPR文書番号一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"

	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		NextBunsyoNaiyoCD = Content.Fields("文書内容CD")
		If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
			NextBunsyoNaiyoCD = Content.Fields("作成会社CD") & "," & NextBunsyoNaiyoCD	'小切手・約束手形・為替手形の場合は作成会社CDを付加（061124小野）
		End If
	End If

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("文書内容CD") = BunsyoNaiyoCD Then
			Content.MoveNext
			If Not(Content.BOF Or Content.EOF) Then
				NextBunsyoNaiyoCD = Content.Fields("文書内容CD")
				If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
					NextBunsyoNaiyoCD = Content.Fields("作成会社CD") & "," & NextBunsyoNaiyoCD	'小切手・約束手形・為替手形の場合は作成会社CDを付加（061124小野）
				End If
			End If
			Exit Do
		End If
		PrevBunsyoNaiyoCD = Content.Fields("文書内容CD")
		If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
			PrevBunsyoNaiyoCD = Content.Fields("作成会社CD") & "," & PrevBunsyoNaiyoCD	'小切手・約束手形・為替手形の場合は作成会社CDを付加（061124小野）
		End If
		Content.MoveNext
	Loop

	If PrevBunsyoNaiyoCD = "" Then
		If Not(Content.BOF Or Content.EOF) Then
			Content.MoveFirst
		End If
		Do While Not(Content.BOF Or Content.EOF)
			PrevBunsyoNaiyoCD = Content.Fields("文書内容CD")
			If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
				PrevBunsyoNaiyoCD = Content.Fields("作成会社CD") & "," & PrevBunsyoNaiyoCD	'小切手・約束手形・為替手形の場合は作成会社CDを付加（061124小野）
			End If
			Content.MoveNext
		Loop
	End If

	If KaisyaMeisyo = "" Then
		KaisyaMeisyo = KaisyaCD
	End If
	If KaisyaRyakuMeisyo = "" Then
		KaisyaRyakuMeisyo = KaisyaCD
	End If
	If GakuseiShimei = "" Then
		GakuseiShimei = GakuseiNo
	End If


%>


<html>
<% If 0=1 Then %>
<% '                           損益計算書報告書             受取手形履歴             支払手形履歴 %>
<% ElseIf AutoFlg = 1 And (BunsyoSyuruiCD = "LJ" Or BunsyoSyuruiCD = "MH" Or BunsyoSyuruiCD = "MI") Then %>
<% = HtmlHeader("sj3tyoboblack") %>
<% '                   損益計算書販売管理費一覧           現金入出金履歴                          商品在庫                      (移動平均法)                        (総平均法)                    預金入出金履歴                          入庫実績                          出庫実績 %>
<% ElseIf AutoFlg = 1 And (BunsyoSyuruiCD = "LK" Or BunsyoSyuruiCD = "MA" Or Left(BunsyoSyuruiCD, 2) = "MG" Or Left(BunsyoSyuruiCD, 2) = "MJ" Or Left(BunsyoSyuruiCD, 2) = "MK" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD") Then %>
<% = HtmlHeader("sj3tyoboblack11") %>
<% '                         現金出納帳                            仕入帳                            売上帳                        商品有高帳                    当座預金出納帳                        売掛金元帳                        買掛金元帳 %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "MA" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD" Or Left(BunsyoSyuruiCD, 2) = "MG" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "ME" Or Left(BunsyoSyuruiCD, 2) = "MF" Then %>
<% = HtmlHeader("sj3tyobored11") %>
<% '             （自動）    現金出納帳                            仕入帳                            売上帳                        商品有高帳                    当座預金出納帳                        売掛金元帳                        買掛金元帳                    受取手形記入帳                    支払手形記入帳 %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "AA" Or Left(BunsyoSyuruiCD, 2) = "AH" Or Left(BunsyoSyuruiCD, 2) = "AG" Or Left(BunsyoSyuruiCD, 2) = "AI" Or Left(BunsyoSyuruiCD, 2) = "AB" Or Left(BunsyoSyuruiCD, 2) = "AC" Or Left(BunsyoSyuruiCD, 2) = "AD" Or Left(BunsyoSyuruiCD, 2) = "AE" Or Left(BunsyoSyuruiCD, 2) = "AF" Then %>
<% = HtmlHeader("sj3tyobored11") %>
<% '                     合計残高試算表                         8桁精算表                        仕訳集計表                            仕訳帳                        総勘定元帳                        損益計算書                        貸借対照表 %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "LC" Or Left(BunsyoSyuruiCD, 2) = "LG" Or Left(BunsyoSyuruiCD, 2) = "LB" Or Left(BunsyoSyuruiCD, 2) = "LA" Or Left(BunsyoSyuruiCD, 2) = "LD" Or Left(BunsyoSyuruiCD, 2) = "LF" Or Left(BunsyoSyuruiCD, 2) = "LE" Then %>
<% = HtmlHeader("sj3tyobored11") %>
<% ' %>
<% Else %>
<% = HtmlHeader("sj3tyobored") %>
<% End If %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	name="form1" method="GET" action="fm_tyohyo.asp" onSubmit="return SubmitCheck();" target="_top" autocomplete="off">
<input type="hidden" name="HyojiJyoken" value="<% = HyojiJyoken %>">
<input type="hidden" name="Joken" value="<% = Joken %>">
<input type="hidden" name="EnshuChange" value="">

<%
	Response.Write(HtmlDesign(10))

	Response.Write(HttpL1(4))


	If GB_Admin = 2 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "書類一覧", "", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "書類一覧", "", "" , "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))

'	Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	If PackageMode = 1 And EnshuKubunmei = "P" Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "&nbsp;作成書類集計一覧&nbsp;", "tblbtn('fm_tyohyo_ichiran.asp?EnshuCD=" & EnshuCD & "&GakuseiNo=" & GakuseiNo & "&KaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&Joken=" & Joken & "')", "&nbsp;帳票一括印刷&nbsp;", "tblbtn('fm_print_ikkatsu.asp');", "", "", "", ""))
	Else
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "&nbsp;作成書類集計一覧&nbsp;", "tblbtn('fm_tyohyo_ichiran.asp?EnshuCD=" & EnshuCD & "&GakuseiNo=" & GakuseiNo & "&KaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&Joken=" & Joken & "')", "&nbsp;帳票一括印刷&nbsp;", "tblbtn('fm_print_ikkatsu.asp');", "送信メール一覧", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "')", "", ""))
	End If

	Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4("書類一覧", ""))

	Response.Write(HttpL5(ErrMsg))

%>
<%
	If EnshuCD <> "" And KaisyaCD <> "" And GakuseiNo <> "" And BunsyoSyuruiCD <> "" Then	'印刷ボタン表示を条件分岐（061214小野）
		If BunsyoSyuruiCD = "LA" Or BunsyoSyuruiCD = "LC" Or BunsyoSyuruiCD = "LG" Or BunsyoSyuruiCD = "LE" Or BunsyoSyuruiCD = "LF" Or BunsyoSyuruiCD = "MA" Or BunsyoSyuruiCD = "MC" Or BunsyoSyuruiCD = "MD" Or BunsyoSyuruiCD = "MH" Or BunsyoSyuruiCD = "MI" Or BunsyoSyuruiCD = "LI" Or BunsyoSyuruiCD = "LJ" Or BunsyoSyuruiCD = "LK" Or BunsyoSyuruiCD = "AA" Or BunsyoSyuruiCD = "AB" Or BunsyoSyuruiCD = "AC" Or BunsyoSyuruiCD = "AD" Or BunsyoSyuruiCD = "AE" Or BunsyoSyuruiCD = "AF" Or BunsyoSyuruiCD = "AG" Or BunsyoSyuruiCD = "AH" Or BunsyoSyuruiCD = "AI" Or BunsyoNaiyoCD <> "" Then
%>
<div id="L3_1" style="position:absolute; visibility: hidden; left: 0px; top: 0px;">
<table width="70" border="0" cellpadding="0" cellspacing="0" background="/<% = HomeAlias %>/images/mwbtn_02_1.gif">
	<tr>
		<td nowrap height="30" align="center" class="tbtn2" onClick="SubmitFlg=0;PrintoutReal();" onMouseOver="if(SubmitFlg!=0){this.focus();}">印刷</td>
	</tr>
</table>
<%
		End If
	End If
%>

</div>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">

<table width="690" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td align="center" valign="top" height="45">
			<TABLE WIDTH="670" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
				<TR ALIGN="CENTER">
					<TD HEIGHT="25" valign="middle"><nobr>対象演習名</nobr></TD>
				<% If EnshuKubunmei = "P" Then %>
					<TD HEIGHT="25" valign="middle">
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = PrevGakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">←</a>
						　生徒　
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = NextGakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">→</a>
					</TD>
				<% End If %>
					<TD HEIGHT="25" valign="middle">
					<% If 0=1 And PackageMode = 1 Then 'サイバー会計では自社のみ表示（091015小野）※廃止 %>
						　会社名　
					<% Else %>
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = PrevKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">←</a>
						　会社名　
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = NextKaisyaCD %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = BunsyoNaiyoCD %>');">→</a>
					<% End If %>
					</TD>
					<TD HEIGHT="25" valign="middle">
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = PrevBunsyoSyuruiCD %>,<% = PrevAutoFlg %>');">←</a>
						　文書名　
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = NextBunsyoSyuruiCD %>,<% = NextAutoFlg %>');">→</a>
					</TD>
					<TD HEIGHT="25" valign="middle">
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = PrevBunsyoNaiyoCD %>');">←</a>
						　内容　
						<a href="#" onClick="tblbtn('fm_tyohyo.asp?EnshuCD=<% = EnshuCD %>&GakuseiNo=<% = GakuseiNo %>&KaisyaCD=<% = KaisyaSelect %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>,<% = AutoFlg %>&BunsyoNaiyoCD=<% = NextBunsyoNaiyoCD %>');">→</a>
					</TD>

				</TR>
				<TR ALIGN="CENTER">
					<TD height="20" valign="middle">
						<% If GB_Admin = 2 Then %>
							<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
							<nobr>&nbsp;<% = EnshuMeisyo %>&nbsp;</nobr>
						<% Else %>
							<select size="1" name="EnshuCD" class="tbox4_w" style="width:300px;" onChange="form1.EnshuChange.value='1';SetSyokaiList(0);">
							<option value="">＜＜ 対象演習を選択して下さい ＞＞</option>
						<%
							Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4"
							Set Content = OpenQuery(Query)

								Do While Not(Content.BOF Or Content.EOF)
									If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA") Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then
																		'工業簿記演習は5以上で表示
									If "" & Content.Fields("演習CD") <> "SYS00006" Or MajorVersion >= 5 Then
										Response.Write("<option value=""" & Content.Fields("演習CD") & """")
										If Content.Fields("演習CD") = EnshuCD Then
											Response.Write(" selected")
										End If
										Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf)
									End If
									End If
									Content.MoveNext
								Loop
							%>
						</select>
					<% End If %>
					</TD>
<% If EnshuKubunmei = "P" Then %>
					<TD height="20" valign="middle">
						<select size="1" name="GakuseiNo" class="tbox4_w" style="width:130px;" onChange="SetSyokaiList(0);">
							<option value="">選択して下さい</option>
							<%
'								Query = "exec SPM演習選択ユーザー一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
								'参加したことのあるユーザーを表示する（100907小野）
								Query = "exec SPM演習会社履歴 '" & GB_SystemCD & "', '" & EnshuCD & "', 1"	'ソート区分指定
								Set Content = OpenQuery(Query)
								Do While Not(Content.BOF Or Content.EOF)
										Response.Write("<option value=""" & Content.Fields("学生番号") & """")
										If Content.Fields("学生番号") = GakuseiNo Then
																				Response.Write(" selected")
										End If
										Response.Write(">" & Content.Fields("氏名") & "</option>" & vbCrLf)
									Content.MoveNext
								Loop
							%>
						</select>
					</TD>
<% End If %>
					<TD height="20" valign="middle">
						<select size="1" name="KaisyaCD" class="tbox4_w" style="width:107px;" onChange="SetSyokaiList(0);">
							<option value="">選択して下さい</option>
							<%
								Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GakuseiNo & "'"
								Set Content = OpenQuery(Query)
								Do While Not(Content.BOF Or Content.EOF)
									'サイバー会計では自社のみ表示（091015小野）※廃止
									'If PackageMode <> 1 Or (PackageMode = 1 And "" & Content.Fields("自社フラグ") = "1") Then
										Response.Write("<option value=""" & Content.Fields("会社CD") & """")
										If Content.Fields("会社CD") = KaisyaSelect Then
											Response.Write(" selected")
										End If
										Response.Write(">" & Content.Fields("会社略名称") & "</option>" & vbCrLf)
									'End If
									Content.MoveNext
								Loop
							%>
						</select>
					</TD>
					<TD height="20" valign="middle">
						<select size="1" name="BunsyoSyuruiCD" class="tbox4_w" style="width:177px;" onChange="SetSyokaiList(1);">
							<option value="">選択して下さい</option>
							<%
								Query = "exec SPR文書種類一覧 '" & GB_SystemCD & "'"
								Set Content = OpenQuery(Query)
								Do While Not(Content.BOF Or Content.EOF)
									'不要になったものを除外      製造部振替伝票
									If Content.Fields("文書種類CD") = "D8" Then
									'メジャーバージョンでの除外判定                        '残高証明依頼書                         '残高証明書
									ElseIf MajorVersion < 5 And (Content.Fields("文書種類CD") = "BH" Or Content.Fields("文書種類CD") = "BU") Then
									'利用伝票数での伝票除外条件
									ElseIf (RiyoDenpyoSu < 3 And (Content.Fields("文書種類CD") = "D1" Or Content.Fields("文書種類CD") = "D2")) Or (RiyoDenpyoSu < 5 And (Content.Fields("文書種類CD") = "D3" Or Content.Fields("文書種類CD") = "D4")) Or (RiyoDenpyoSu < 1 And Content.Fields("文書種類CD") = "D5") Then
									'サイバー会計モードでの仕訳帳トグル（手動仕訳帳が自動扱いになるので表示非表示の切替のみでOK。自動仕訳帳は手動仕訳帳の逆条件）
									ElseIf PackageMode = "1" And ((RiyoDenpyoSu > 0 And Content.Fields("文書種類CD") = "LA" And Content.Fields("自動フラグ") = "0") Or (RiyoDenpyoSu < 1 And Content.Fields("文書種類CD") = "LA" And Content.Fields("自動フラグ") = "1")) Then
									'サイバー会計モードでの機能除外条件
									ElseIf PackageMode = "1" And (Left(Content.Fields("文書種類CD"), 1) = "B" Or Left(Content.Fields("文書種類CD"), 1) = "C" Or Left(Content.Fields("文書種類CD"), 1) = "K" Or Left(Content.Fields("文書種類CD"), 1) = "S" Or Left(Content.Fields("文書種類CD"), 1) = "T" Or Left(Content.Fields("文書種類CD"), 1) = "R" Or Left(Content.Fields("文書名称"), 2) = "商品" Or Right(Content.Fields("文書名称"), 2) = "履歴" Or Right(Content.Fields("文書名称"), 2) = "実績") Then
									'製造部非利用時の除外条件
									ElseIf SeizobuRiyo <> "1" And (Content.Fields("文書種類CD") = "ZS" Or Content.Fields("文書種類CD") = "MU" Or Content.Fields("文書種類CD") = "D7" Or Content.Fields("文書種類CD") = "D8") Then
									Else
										If Content.Fields("文書種類CD") <> "CA" And Left(Content.Fields("文書種類CD"),1) <> "X" Then	'契約書は除外
											Response.Write("<option value=""" & Content.Fields("文書種類CD") & "," & Content.Fields("自動フラグ") & """")
											If Content.Fields("文書種類CD") = BunsyoSyuruiCD And Content.Fields("自動フラグ") = AutoFlg Then
												Addr = Content.Fields("アドレス")
												AutoFlg = Content.Fields("自動フラグ")
												Response.Write(" selected")
											End If
											BunsyoMeisyo = Content.Fields("文書名称") 
											Response.Write(">" & BunsyoMeisyo & "</option>" & vbCrLf)
										End If
									End If
									Content.MoveNext
								Loop
							%>
						</select>
					</TD>
					<TD height="20" valign="middle">
						<select size="1" name="BunsyoNaiyoCD" class="tbox4_w" style="width:200px;" onChange="SetSyokaiList(0);">
							<% If BunsyoSyuruiCD = "LC" And AutoFlg = "1" Then %>
							<option value="">決算整理前</option>
							<option value="1"<% If BunsyoNaiyoCD = "1" Then %> selected<% End If %>>決算整理後</option>
							<option value="2"<% If BunsyoNaiyoCD = "2" Then %> selected<% End If %>>決算振替後</option>
							<% ElseIf (BunsyoSyuruiCD = "LE" Or BunsyoSyuruiCD = "LF" Or BunsyoSyuruiCD = "LG") And AutoFlg = "1" Then %>
							<option value="">決算整理まで</option>
							<option value="1"<% If BunsyoNaiyoCD = "1" Then %> selected<% End If %>>決算振替後</option>
							<% ElseIf (BunsyoSyuruiCD = "AB" Or BunsyoSyuruiCD = "AC" Or BunsyoSyuruiCD = "AD") Then %>
							<option value="">選択して下さい</option>
							<%
								Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'"
								Set Content = OpenQuery(Query)
								Do While Not(Content.BOF Or Content.EOF)
									'サイバー会計モードでは全会社を表示
									If PackageMode = 1 Or ((BunsyoSyuruiCD = "AB" And Content.Fields("業種CD") = "B") Or (BunsyoSyuruiCD <> "AB" And Content.Fields("業種CD") <> "B")) Then
										Response.Write("<option value=""" & Content.Fields("会社CD") & """")
										If Content.Fields("会社CD") = BunsyoNaiyoCD Then
											Response.Write(" selected")
										End If
										Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
									End If
									Content.MoveNext
								Loop
							%>
							<% Else %>
							<option value="">選択して下さい</option>
							<% End If %>
							<%
								Query = "exec SPR文書番号一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & AutoFlg & "', '" & GakuseiNo & "'"
								Set Content = OpenQuery(Query)
								Do While Not(Content.BOF Or Content.EOF)
									Response.Write("<option value=""" & Content.Fields("作成会社CD") & "," & Content.Fields("文書内容CD") & """")
									If BunsyoSyuruiCD = "TY" Or BunsyoSyuruiCD = "TK" Or BunsyoSyuruiCD = "TG" Then
										If Content.Fields("文書内容CD") = BunsyoNaiyoCD Then	'小切手・約束手形・為替手形の場合は作成会社CDが異なってもselectedさせる（061124小野）
											Response.Write(" selected")
										End If
									Else
										If Content.Fields("作成会社CD") = SakuseiKaisyaCD AND Content.Fields("文書内容CD") = BunsyoNaiyoCD Then
											Response.Write(" selected")
										End If
									End If
									Response.Write(">")
									If Content.Fields("作成会社名称") <> "" Then
										Response.Write(Content.Fields("作成会社名称"))
										Response.Write(",")
									End If
									Response.Write(Content.Fields("文書内容名称") & "</option>" & vbCrLf)
									Content.MoveNext
								Loop
							%>
						</select>
					</TD>
				</TR>
			</table>
		</td>
	</tr>

<%
	Dim Kaishibi
	Dim Syuryobi
	Kaishibi = Request("Kaishibi")
	Syuryobi = Request("Syuryobi")
	If Kaishibi = "" Then
		Kaishibi = GB_KaikeiKaishibi
	End If
	If Syuryobi = "" Then
		Syuryobi = GB_KaikeiSyuryobi
	End If
 	'合計残高試算表・損益計算書のためのFromTo指定
	If BunsyoSyuruiCD = "LC" Or BunsyoSyuruiCD = "LF" Then %>
	<tr>
		<td height="30" align="center">
			<TABLE BORDER="0" CELLSPACING="0" style="border:1px solid #000000">
				<TR>
					<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="tx1416">
							<tr>
								<td>

									<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
										<tr>
											<td>
												<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
													<tr>
														<td>&nbsp;集計日：</td>
														<td><input type="text" name="Kaishibi" size="12" value="<% = Kaishibi %>" onBlur="SetDate(this, 1, true)" class="tbox4"> ～ <input type="text" name="Syuryobi" size="12" value="<% = Syuryobi %>" onBlur="SetDate(this, 1, true)" class="tbox4"></td>
													</tr>
												</table>
											</td>
											<td width="1">&nbsp;</td>
											<td>
												<TABLE onClick="SetSyokaiList(0);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="80">
													<TR>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
														<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="60">更新</TD>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
													</TR>
												</TABLE>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>

					</td>
				</tr>
			</table>
		</td>
	</tr>
<%
 	'八桁精算表・貸借対照表のためのTo指定
	ElseIf BunsyoSyuruiCD = "LG" Or BunsyoSyuruiCD = "LE" Then
%>
	<tr>
		<td height="30" align="center">
			<TABLE BORDER="0" CELLSPACING="0" style="border:1px solid #000000">
				<TR>
					<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="tx1416">
							<tr>
								<td>

									<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
										<tr>
											<td>
												<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
													<tr>
														<td>&nbsp;日付：</td>
														<td><input type="text" name="Syuryobi" size="12" value="<% = Syuryobi %>" onBlur="SetDate(this, 1, true)" class="tbox4"></td>
													</tr>
												</table>
											</td>
											<td width="1">&nbsp;</td>
											<td>
												<TABLE onClick="SetSyokaiList(0);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="80">
													<TR>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
														<TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" WIDTH="60">更新</TD>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
													</TR>
												</TABLE>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>

					</td>
				</tr>
			</table>
		</td>
	</tr>
	<input type="hidden" name="Kaishibi" value="<% = Kaishibi %>">
<% Else %>
	<input type="hidden" name="Kaishibi" value="<% = Kaishibi %>">
	<input type="hidden" name="Syuryobi" value="<% = Syuryobi %>">
<% End If %>

	<tr>
		<td align="center"><% 



'Response.Write("◆" & BunsyoSyuruiCD & "<br>")

			Select Case BunsyoSyuruiCD
				Case "KI", "KM", "KC", "KU", "KB", "KN", "KX", "KO", "KY", "KW", "KV", "KP"
					Response.Write(ShiireUriageSyorui(              EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0, 0))
				Case "BA","BB","BC","BD","BE","BF","BG","BH"
					Response.Write(GinkoSyorui(                     EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "BN","BO","BP","BQ","BR","BS","BT","BU"
					Response.Write(GinkoUketsukeSyorui(             EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "TG","TK","TY"
					Response.Write(Tegata(                          EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "CA","CB","CC"
					Response.Write(UnsoSyorui(                      EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "CD"
					Response.Write(UnsoSeikyuSyorui(                EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "D1", "D2"
					Response.Write(DenpyoNyusyukin(                 EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "D3", "D4"
					Response.Write(DenpyoShiireUriage(              EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "D5"
					Response.Write(DenpyoFurikae(                   EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "LA"
					If InputShiwaketyoKyuVersionRiyo = 1 Then
						Response.Write(TyoboShiwakenikkityo(            EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
					Else
						Response.Write(TyoboShiwaketyo(            EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
					End If
				Case "LB"
					Response.Write(TyoboShiwakeSyukeihyo(           EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "LC"
					Dim FromTo
					FromTo = Syuryobi
					If Kaishibi <> "" Then
						FromTo = Kaishibi & ";" & FromTo
					End If
																																							'決算フラグ
					Response.Write(TyoboGokeiZandakaShisanhyo(      EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, FromTo, BunsyoNaiyoCD, ""))
				Case "LD"
					If GetEnshuParam(EnshuCD, "総勘定元帳標準式利用") = "1" Then
						Response.Write(TyoboSokanjyoMototyoH(          EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
					Else
						Response.Write(TyoboSokanjyoMototyo(           EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
					End If
				Case "LE"																																'To			'決算フラグ
					Response.Write(TyoboTaisyakuTaisyohyo(           EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", Syuryobi, BunsyoNaiyoCD))
				Case "LF"																															'From		'To			'決算フラグ
					Response.Write(TyoboSonekiKeisansyo(             EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, Kaishibi, Syuryobi, "", BunsyoNaiyoCD))
				Case "LG"																															'To			'決算フラグ
					Response.Write(TyoboHachiketaSeisanhyo(          EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, Syuryobi, BunsyoNaiyoCD, ""))
				Case "LI"
					Response.Write(TyoboTaisyakuTaisyohyoHokokusyo(  EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "LJ"
					Response.Write(TyoboSonekiKeisansyoHokokusyo(    EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "LK"
					Response.Write(TyoboSonekiKeisansyoHanbaiKanrihi(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "MA"
					Response.Write(HojyoboGenkinSuitohyo(            EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
				Case "MB"
					Response.Write(HojyoboTozaYokinSuitohyo(         EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "MC", "MD"
					Response.Write(HojyoboShiireUriagetyo(           EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
				Case "ME", "MF"
					Response.Write(HojyoboUrikaikakekintyo(          EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, "", AutoFlg, 0))
				Case "MG", "MJ", "MK"
					Response.Write(HojyoboSyohinAridakatyo(          EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0, "", "", ""))
				Case "MH", "MI"
					Response.Write(HojyoboUketoriShiharaiTegatatyo(  EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
				Case "RA"
					Response.Write(Ryosyusyo(                        EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "SC", "SS", "SU", "SX", "SY"
					Response.Write(Nyusyukko(                        EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))

	'現金出納帳
	Case "AA"
		Response.Write(HojyoboGenkinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MA", "", 2, 0))
	'当座預金出納帳
	Case "AB"
		Response.Write(HojyoboTozaYokinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MB", BunsyoNaiyoCD, 2, 0, "", "", ""))
	'売掛金元帳
	Case "AC"
		Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, "ME", BunsyoNaiyoCD, "", 2, 0))
	'買掛金元帳
	Case "AD"
		Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, "MF", BunsyoNaiyoCD, "", 2, 0))
	'受取手形記入帳
	Case "AE"
		Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, "MH", "", 2, 0))
	'支払手形記入帳
	Case "AF"
		Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, "MI", "", 2, 0))
	'売上帳
	Case "AG"
		Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MD", "", 2, 0))
	'仕入帳
	Case "AH"
		Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MC", "", 2, 0))
	'商品有高帳
	Case "AI"

				'製造部
				Case "ZS", "MU"
					Response.Write(Nyusyukko(                        EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 0))
				Case "D7"
					Response.Write(DenpyoZairyoShiire(               EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))
				Case "D8"
					Response.Write(DenpyoFurikae(                    EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 0))

				Case Else
				End Select


		 %>
		</td>
	</tr>

</table>
</div>
</form>
<SCRIPT LANGUAGE="JavaScript">
	function SetSyokaiList(iFlg) {
		if (iFlg == 1) {
			form1.BunsyoNaiyoCD.value = "";
		}
		if (form1.EnshuCD.value == "") {
			alert("対象演習コードを選択して下さい");
			return false;
		}
		SubmitReal(form1);
		return false;
	}
</script>
</body>
<SCRIPT LANGUAGE="JavaScript">

function GetKaikeiKaishibi(){return '<% = GB_KaikeiKaishibi %>';}

function GetKaikeiSyuryobi(){return '<% = GB_KaikeiSyuryobi %>';}

</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
	Init();
</SCRIPT>
</html>
<%
End Sub
%>