<!-- #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()", " 作成書類集計一覧 ", "tblbtn('fm_tyohyo_ichiran.asp?EnshuCD=" & EnshuCD & "&GakuseiNo=" & GakuseiNo & "&KaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&Joken=" & Joken & "')", " 帳票一括印刷 ", "tblbtn('fm_print_ikkatsu.asp');", "", "", "", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", " 作成書類集計一覧 ", "tblbtn('fm_tyohyo_ichiran.asp?EnshuCD=" & EnshuCD & "&GakuseiNo=" & GakuseiNo & "&KaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&Joken=" & Joken & "')", " 帳票一括印刷 ", "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> <% = EnshuMeisyo %> </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> 集計日:</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"> </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> 日付:</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"> </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 %>