<!-- #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()
'GB_ShowPrintHeader = "1"
Dim EnshuName, HyojiJyoken
Dim Query
Dim Content
Dim ErrMsg
If Not(SessionCheck()) Then
Exit Sub
End If
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
Dim Kaishibi
Dim Syuryobi
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
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
Dim InputShiwaketyoKyuVersionRiyo
Dim SokanjyomototyoHyojyunshiki
Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
EnshuKubunmei = Content.Fields("演習区分")
InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用")
SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用")
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../binx/sj3web.css" rel="stylesheet" type="text/css">
<% If 0=1 Then %>
<% ' 損益計算書販売管理費一覧 現金入出金履歴 預金入出金履歴 入庫実績 出庫実績 %>
<% ElseIf AutoFlg = 1 And (BunsyoSyuruiCD = "LK" Or BunsyoSyuruiCD = "MA" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD") Then %>
<link href="../../binx/sj3tyoboblack11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' 商品在庫 (移動平均法) (総平均法) %>
<% ElseIf AutoFlg = 1 And (Left(BunsyoSyuruiCD, 2) = "MG" Or Left(BunsyoSyuruiCD, 2) = "MJ" Or Left(BunsyoSyuruiCD, 2) = "MK") Then %>
<link href="../../binx/sj3tyoboblackPRT09.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' 受取手形履歴 支払手形履歴 %>
<% ElseIf AutoFlg = 1 And (Left(BunsyoSyuruiCD, 2) = "MH" Or Left(BunsyoSyuruiCD, 2) = "MI") Then %>
<link href="../../binx/sj3tyoboblacks.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' 現金出納帳 仕入帳 売上帳 当座預金出納帳 売掛金元帳 買掛金元帳 %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "MA" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "ME" Or Left(BunsyoSyuruiCD, 2) = "MF" Then %>
<link href="../../binx/sj3tyobored11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' （自動） 現金出納帳 仕入帳 売上帳 商品有高帳 当座預金出納帳 売掛金元帳 買掛金元帳 受取手形記入帳 支払手形記入帳 %>
<% 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 %>
<link href="../../binx/sj3tyobored11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' 合計残高試算表 仕訳集計表 損益計算書 貸借対照表 %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "LC" Or Left(BunsyoSyuruiCD, 2) = "LB" Or Left(BunsyoSyuruiCD, 2) = "LF" Or Left(BunsyoSyuruiCD, 2) = "LE" Then %>
<link href="../../binx/sj3tyobored11.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' 総勘定元帳（残高式） %>
<% ElseIf SokanjyomototyoHyojyunshiki <> "1" And Left(BunsyoSyuruiCD, 2) = "LD" Then %>
<link href="../../binx/sj3tyoboredPRT10.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% ' 受取手形記入帳 支払手形履歴 8桁精算表 総勘定元帳 %>
<% ElseIf Left(BunsyoSyuruiCD, 2) = "MH" Or Left(BunsyoSyuruiCD, 2) = "MI" Or Left(BunsyoSyuruiCD, 2) = "LG" Or Left(BunsyoSyuruiCD, 2) = "LD" Then %>
<link href="../../binx/sj3tyoboredPRT09.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<% Else %>
<link href="../../binx/sj3tyoboreds.css" rel="stylesheet" type="text/css">
<% End If %>
<link href="../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type="text/javascript" src="../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 0;
//印刷余白指定（ミリ指定）
PrintTopMargin = 10;
PrintLeftMargin = 10;
// PrintTopMargin = 0;
// PrintLeftMargin = 0;
-->
</SCRIPT>
<body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% = PrintScriptX %>
<form OnKeyDown="FormKeyDown(this)" name="form1" method="GET" action="fm_tyohyo.asp" onSubmit="return SubmitCheck();" target="_top">
<%
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, 1, 0))
Case "BA","BB","BC","BD","BE","BF","BG","BH"
Response.Write(GinkoSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "BN","BO","BP","BQ","BR","BS","BT","BU"
Response.Write(GinkoUketsukeSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "TG","TK","TY"
Response.Write(Tegata( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "CA","CB","CC"
Response.Write(UnsoSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "CD"
Response.Write(UnsoSeikyuSyorui( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "D1", "D2"
Response.Write(DenpyoNyusyukin( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "D3", "D4"
Response.Write(DenpyoShiireUriage( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "D5"
Response.Write(DenpyoFurikae( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "LA"
If InputShiwaketyoKyuVersionRiyo = 1 Then
Response.Write(TyoboShiwakenikkityo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Else
Response.Write(TyoboShiwaketyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
End If
Case "LB"
Response.Write(TyoboShiwakeSyukeihyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "LC"
Dim FromTo
FromTo = Syuryobi
If Kaishibi <> "" Then
FromTo = Kaishibi & ";" & FromTo
End If
Response.Write(TyoboGokeiZandakaShisanhyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, FromTo, BunsyoNaiyoCD, ""))
Case "LD"
If GetEnshuParam(EnshuCD, "総勘定元帳標準式利用") = "1" Then
Response.Write(TyoboSokanjyoMototyoH( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Else
Response.Write(TyoboSokanjyoMototyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
End If
Case "LE"
Response.Write(TyoboTaisyakuTaisyohyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", BunsyoNaiyoCD))
Case "LF"
Response.Write(TyoboSonekiKeisansyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", "", BunsyoNaiyoCD))
Case "LG"
Response.Write(TyoboHachiketaSeisanhyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", BunsyoNaiyoCD, ""))
Case "LI"
Response.Write(TyoboTaisyakuTaisyohyoHokokusyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "LJ"
Response.Write(TyoboSonekiKeisansyoHokokusyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "LK"
Response.Write(TyoboSonekiKeisansyoHanbaiKanrihi(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "MA"
Response.Write(HojyoboGenkinSuitohyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1))
Case "MB"
Response.Write(HojyoboTozaYokinSuitohyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "MC", "MD"
Response.Write(HojyoboShiireUriagetyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1))
Case "ME", "MF"
Response.Write(HojyoboUrikaikakekintyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, "", AutoFlg, 1))
Case "MG", "MJ", "MK"
Response.Write(HojyoboSyohinAridakatyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1, "", "", ""))
Case "MH", "MI"
Response.Write(HojyoboUketoriShiharaiTegatatyo( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1))
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, 1))
'当座預金出納帳
Case "AB"
Response.Write(HojyoboTozaYokinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MB", BunsyoNaiyoCD, 2, 1, "", "", ""))
'売掛金元帳
Case "AC"
Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, "ME", BunsyoNaiyoCD, "", 2, 1))
'買掛金元帳
Case "AD"
Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, "MF", BunsyoNaiyoCD, "", 2, 1))
'受取手形記入帳
Case "AE"
Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, "MH", "", 2, 1))
'支払手形記入帳
Case "AF"
Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, "MI", "", 2, 1))
'売上帳
Case "AG"
Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MD", "", 2, 1))
'仕入帳
Case "AH"
Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MC", "", 2, 1))
'製造部
Case "ZS", "MU"
Response.Write(Nyusyukko( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, 1))
Case "D7"
Response.Write(DenpyoZairyoShiire( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case "D8"
Response.Write(DenpyoFurikae( EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, 0, 1))
Case Else
End Select
%>
</form>
</body>
</html>
<%
End Sub
%>