<% ' main() Sub main() Dim KaisyaCD KaisyaCD = Request("KaisyaCD") Dim EnshuCD EnshuCD = Request("EnshuCD") If GB_EnshuCD <> "" Then EnshuCD = GB_EnshuCD End If Dim EnshuName, EnshuID, EnshuPassword Dim JidoBangoDenpyo, JidoBangoShiireUriageSyorui, JidoBangoGinkoSyorui, JidoBangoTegata, JidoBangoRyosyusyo Dim RiyoMailKubun, PrintHeaderHyoji, TutyoSyusei, MeishiKyuVersionRiyo, NatsuinRiyo Dim TozaHikidashiFurikomiKogitteHituyo, TegataSyusei Dim SyohinCheck, GenbutsuCheck, UnsohiSeikyusyoKyuVersionRiyo Dim SyohinNyusyukkoSeikousei, SyohinKaihatukaRiyo Dim Message Message = Request("Message") Dim KitakuSokoRiyo Dim EnshuKubun Dim WebCollaboRiyo Dim KouriHanbaiRiyo Dim ShiireUriageSyoruiHikae Dim FromYmd Dim ToYmd Dim Jissenbi Dim Query Dim Content If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") EnshuKubun = Content.Fields("演習区分") EnshuID = Content.Fields("演習管理者ID") EnshuPassword = Content.Fields("演習管理者パスワード") JidoBangoDenpyo = Content.Fields("自動番号伝票") JidoBangoShiireUriageSyorui = Content.Fields("自動番号仕入売上書類") JidoBangoGinkoSyorui = Content.Fields("自動番号銀行書類") JidoBangoTegata = Content.Fields("自動番号手形") JidoBangoRyosyusyo = Content.Fields("自動番号領収書") RiyoMailKubun = Content.Fields("メール利用") PrintHeaderHyoji = Content.Fields("印刷ヘッダー表示") TutyoSyusei = Content.Fields("通帳手動修正") MeishiKyuVersionRiyo = Content.Fields("名刺作成旧バージョン利用") MeishiKyuVersionRiyo = 0 '名刺作成旧バージョン利用は常にOFF（061113小野） NatsuinRiyo = Content.Fields("捺印利用") TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要") TegataSyusei = Content.Fields("手形修正") SyohinCheck = Content.Fields("商品チェック表示") GenbutsuCheck = Content.Fields("現物チェック表示") UnsohiSeikyusyoKyuVersionRiyo = Content.Fields("運送費請求書旧バージョン利用") SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用") SyohinKaihatukaRiyo = Content.Fields("商品開発課利用") KitakuSokoRiyo = Content.Fields("寄託倉庫利用") WebCollaboRiyo = Content.Fields("WebCollabo利用") KouriHanbaiRiyo = Content.Fields("小売販売有無") ShiireUriageSyoruiHikae = Content.Fields("仕入売上書類控え印刷") FromYmd = SetTimeYYYYMMDD(Content.Fields("会計開始日")) ToYmd = SetTimeYYYYMMDD(Content.Fields("会計終了日")) Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) End If Else End If If RiyoMailKubun = "" Or IsNull(RiyoMailKubun) Then RiyoMailKubun = "1" End If If Message <> "" Then Message = Message & "　" End If If Jissenbi = "" Then Message = Message & "実践日は固定されていません" End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin = 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "実践日設定", "", "", "", "", "")) ElseIf GB_Admin = 2 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "実践日設定", "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac.asp')", "実践日", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "実践日", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) If GB_Admin => 1 Then Response.Write(HttpL3_2("戻る", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("戻る", "JavaScript:history.go(-1)", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("演習コントロール", "実践日設定")) Response.Write(HttpL5(Message)) %>
<% '= HtmlFooter %> <% '西暦補完のため会計開始日・終了日が必要 Dim HtmlFooter2 HtmlFooter2 = HtmlFooter2 & "" & vbCrLf HtmlFooter2 = HtmlFooter2 & "" & vbCrLf Response.Write(HtmlFooter2) %> <% End Sub %>