<!-- #include file="../../include.asp" --> <% '<!-- '################################################ ' 名称 :演習設定 ' 作成日 :2009/11/0 ' 作成者 :小野 ' 概要 : '############################################### '--> main() Sub main() If Not(SessionCheck()) Then Exit Sub 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 ErrMsg Dim KitakuSokoRiyo Dim EnshuKubun Dim WebCollaboRiyo Dim KouriHanbaiRiyo Dim ExchangeRateRiyo Dim GenkaKaikeiRiyo Dim ShiireUriageJyuHasshin Dim ShiireUriageSyoruiHikae Dim SoufuzumiTegataHyoji Dim SoufuzumiKogitteHyoji Dim SouhuzumiRyoshushoHyoji Dim Jissenbi Dim MasterEnshu Dim InputShiwaketyoKyuVersionRiyo Dim JitsuinRiyo Dim UkeshoKakunin Dim SenpoHitsuyo Dim ShukkoUkeshoHitsuyo Dim AiteShukkoHitsuyo Dim JishaZaikoHitsuyo Dim KichoCheck Dim DenpyoKubun Dim HyojunTankaHyoji Dim CheckLink Dim KishusetteiRiyo Dim KurikoshiEnshuCD Dim KurikoshiEnshuMei Dim Query Dim Content EnshuCD = Request("EnshuCD") 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("名刺作成旧バージョン利用") InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用") NatsuinRiyo = Content.Fields("捺印利用") TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要") TegataSyusei = Content.Fields("手形修正") KichoCheck = "" & 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("小売販売有無") ExchangeRateRiyo = Content.Fields("為替レート利用") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") ShiireUriageJyuHasshin = Content.Fields("仕入売上書類受発信利用") ShiireUriageSyoruiHikae = Content.Fields("仕入売上書類控え印刷") SoufuzumiTegataHyoji = Content.Fields("送付済み手形表示様式") SoufuzumiKogitteHyoji = Content.Fields("送付済み小切手表示様式") SouhuzumiRyoshushoHyoji = Content.Fields("送付済み領収書表示様式") Jissenbi = "" & Content.Fields("実践日") JitsuinRiyo = "" & Content.Fields("実印利用") UkeshoKakunin = "" & Content.Fields("注文請書確認利用") SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要") AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要") JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要") MasterEnshu = Content.Fields("マスター演習") DenpyoKubun = Content.Fields("利用伝票数区分") HyojunTankaHyoji = Content.Fields("標準販売単価表示") CheckLink = Content.Fields("チェック画面リンク利用") KishusetteiRiyo = "" & Content.Fields("期首設定経理部利用") KurikoshiEnshuCD = "" & Content.Fields("期末繰越先演習CD") If KurikoshiEnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & KurikoshiEnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KurikoshiEnshuMei = "" & Content.Fields("演習名称") End If End If End If Else End If If UkeshoKakunin = "" Then UkeshoKakunin = "1" End If If KichoCheck = "" Then KichoCheck = "0" End If If WebCollaboRiyo = "" Then WebCollaboRiyo = "0" End If If GenkaKaikeiRiyo = "" Then GenkaKaikeiRiyo = "0" End If Dim RouteType RouteType = Request("RouteType") If RiyoMailKubun = "" Or IsNull(RiyoMailKubun) Then RiyoMailKubun = "1" End If If HyojunTankaHyoji = "" Then HyojunTankaHyoji = "1" End If If "" & CheckLink = "" Then CheckLink = "1" End If If "" & KishusetteiRiyo = "" Then KishusetteiRiyo = "3" End If If "" & KouriHanbaiRiyo = "" Then KouriHanbaiRiyo = "0" End If If "" & ExchangeRateRiyo = "" Then ExchangeRateRiyo = "0" End If 'デバッグ用 'PackageMode = 1 Dim PrevPage PrevPage = "3" If PackageMode = 1 Then PrevPage = "22" 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?<% = 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 = 1; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" method="GET" name="form1" action="fm_enshu4_bin.asp"> <input type="hidden" name="RouteType" value="<% = RouteType %>"> <input type="hidden" name="DbEnshuCD" value="<% = EnshuCD%>"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If Request("RouteType") = "Kantan" Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "演習管理", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If MasterEnshu <> "1" Then Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu4.asp?EnshuCD=" & EnshuCD & "')", "演習操作", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control');", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "")) Else 'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1(" 演習操作 ", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin')", "", "", "", "", "", "")) End If '小売販売設定ボタンを表示・非表示切り替え Dim KouriHanbaiBottunHyoji1 Dim KouriHanbaiBottunHyoji2 If KouriHanbaiRiyo <> "1" Or PackageMode = 1 Then 'サイバー会計も非表示 KouriHanbaiBottunHyoji1 = "" KouriHanbaiBottunHyoji2 = "" Else KouriHanbaiBottunHyoji1 = "小売販売設定" KouriHanbaiBottunHyoji2 = "tblbtn('fm_kourihanbai_view.asp?EnshuCD=" & EnshuCD & "')" End If If GB_Admin = 1 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu" & PrevPage & "_view.asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", "")) Else Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu" & PrevPage & "_view.asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", "", "", "")) End If Response.Write(HttpL4("演習管理", "その他")) If MasterEnshu = "1" Then Response.Write(HttpL5("マスター演習は設定を変更出来ません")) Else Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>")) End If %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%"> <tr> <TD ALIGN="CENTER"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="5" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="740" HEIGHT="100%"> <TR> <TD HEIGHT="30" VALIGN="TOP" ALIGN="left" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <TABLE WIDTH="800" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse" width="740"> <tr> <td height="24" align="center" bgcolor="#FFEE88">演習名称</td> <td height="24" align="center"><% = EnshuName %></td> <td height="24" align="center" bgcolor="#FFEE88" onclick="tblbtn('fm_enshu0_view.asp?EnshuCD=<% = EnshuCD %>')">演習コード</td> <td height="24" align="center"><% = EnshuCD %></td> </tr> </table> <input type="hidden" name="EnshuCD" value="<% = EnshuCD %>"> <TABLE WIDTH="740" BORDER="0" CELLPADDING="0" CELLSPACING="0"> <tr> <td valign="top"> <TABLE WIDTH="800" HEIGHT="100%" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <tr> <td height="23" width="185" bgcolor="#FFEE88">演習管理者ID</td> <td width="185"><% = EnshuID %></td> <td width="185" bgcolor="#FFEE88">演習管理者パスワード</td> <td width="185"><% = EnshuPassword %></td> </tr> <tr> <% If PackageMode = 1 And EnshuKubun = "P" Then %> <% Else %> <td height="20" bgcolor="#FFEE88"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>メール機能を利用する</td> <td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>> <% If RiyoMailKubun <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If RiyoMailKubun <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> <% If PackageMode = 1 Then %> </tr> <tr> <% End If %> <% End If %> <td height="20" bgcolor="#FFEE88"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>記帳チェックを表示する</td> <td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>> <% If KichoCheck <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %> <% If KichoCheck <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>捺印を表示する</td> <td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>> <% If NatsuinRiyo <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %> <% If NatsuinRiyo <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %> </td> <% If PackageMode = 1 Then %> <% Else %> <td height="20" bgcolor="#FFEE88">現物チェックを表示する</td> <td height="20"> <% If GenbutsuCheck <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %> <% If GenbutsuCheck <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %> </td> <% End If %> </tr> <% If PackageMode = 1 Then %> <% Else %> <tr> <td height="20" bgcolor="#FFEE88"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>手形等に実印を表示する</td> <td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>> <% If JitsuinRiyo <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %> <% If JitsuinRiyo <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %> </td> <td height="20" bgcolor="#FFEE88">商品チェックを表示する</td> <td height="20"> <% If DenpyoKubun <> 5 Then %> <font color="#888888">5伝票でのみ利用されます</font> <% Else %> <% If SyohinCheck <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %> <% If SyohinCheck <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %> <% End If %> </td> </tr> <% End If %> <tr> <td height="20" bgcolor="#FFEE88" nowrap<% If PackageMode = 1 Then %> colspan="2"<% End If %>>印刷時にヘッダーを表示する</td> <td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>> <% If PrintHeaderHyoji <> "1" Then Response.Write("<font color=""#888888"">表示</font>") Else Response.Write("表示") End If %> <% If PrintHeaderHyoji <> "0" Then Response.Write("<font color=""#888888"">非表示</font>") Else Response.Write("非表示") End If %> <% If PrintHeaderHyoji <> "2" Then Response.Write("<font color=""#888888"">会社名のみ</font>") Else Response.Write("会社名のみ") End If %> </td> <% If PackageMode = 1 Then %> </tr> <tr> <% End If %> <td height="20" bgcolor="#FFEE88" nowrap<% If PackageMode = 1 Then %> colspan="2"<% End If %>>標準販売単価を表示する</td> <td height="20"<% If PackageMode = 1 Then %> colspan="2"<% End If %>> <% If HyojunTankaHyoji <> "1" Then Response.Write("<font color=""#888888"">表示する</font>") Else Response.Write("表示する") End If %> <% If HyojunTankaHyoji <> "0" Then Response.Write("<font color=""#888888"">表示しない</font>") Else Response.Write("表示しない") End If %> </td> </tr> <tr> <td COLSPAN="<% If PackageMode = 1 Then %>2<% Else %>1<% End If %>" height="20" bgcolor="#FFEE88" nowrap><% If PackageMode = 1 Then %>伝票を自動採番する<% Else %>自動採番をする帳票<% End If %></td> <td COLSPAN="<% If PackageMode = 1 Then %>2<% Else %>3<% End If %>" height="20" nowrap> <nbsp> <% If PackageMode = 1 Then %> <% If JidoBangoDenpyo <> "1" Then Response.Write("<font color=""#888888"">自動採番する</font>") Else Response.Write("自動採番する") End If %> <% If JidoBangoDenpyo <> "0" Then Response.Write("<font color=""#888888"">手入力する</font>") Else Response.Write("手入力する") End If %> <% Else %> <% If JidoBangoDenpyo <> "1" Then Response.Write("<font color=""#888888"">伝票</font>") Else Response.Write("伝票") End If %> <% If JidoBangoShiireUriageSyorui <> "1" Then Response.Write("<font color=""#888888"">仕入売上書類</font>") Else Response.Write("仕入売上書類") End If %> <% If JidoBangoGinkoSyorui <> "1" Then Response.Write("<font color=""#888888"">銀行書類</font>") Else Response.Write("銀行書類") End If %> <% If JidoBangoTegata <> "1" Then Response.Write("<font color=""#888888"">小切手・手形</font>") Else Response.Write("小切手・手形") End If %> <% If JidoBangoRyosyusyo <> "1" Then Response.Write("<font color=""#888888"">領収書</font>") Else Response.Write("領収書") End If %> <% End If %> </nbsp> </td> </tr> <% If PackageMode = 1 Then %> <% Else %> <tr> <td COLSPAN="2" height="20" bgcolor="#FFEE88">送付済み手形・小切手・領収書の表示様式</td> <td COLSPAN="2" height="20"> 手形:<% If SoufuzumiTegataHyoji = "1" Then %>全体表示<% Else %>耳のみ表示<% End If %> 小切手:<% If SoufuzumiKogitteHyoji = "1" Then %>全体表示<% Else %>耳のみ表示<% End If %> 領収書:<% If SouhuzumiRyoshushoHyoji = "1" Then %>全体表示<% Else %>耳のみ表示<% End If %> <!-- <% If SoufuzumiTegataHyoji <> "1" Then Response.Write("<font color=""#888888"">全体表示</font>") Else Response.Write("全体表示") End If %> <% If SoufuzumiTegataHyoji <> "0" Then Response.Write("<font color=""#888888"">耳のみ表示</font>") Else Response.Write("耳のみ表示") End If %> --> </td> </tr> <% End If %> <% If PackageMode = 1 Then %> <tr> <td COLSPAN="2" height="20" bgcolor="#FFEE88" nowrap>為替レート計算機を利用する</td> <td COLSPAN="2" height="20"> <% If ExchangeRateRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If ExchangeRateRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> </tr> <% Else %> <!-- <tr> <td COLSPAN="2" height="20" bgcolor="#FFEE88">手入力仕訳帳の旧バージョンを利用する</td> <td COLSPAN="2" height="20"> <% If InputShiwaketyoKyuVersionRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If InputShiwaketyoKyuVersionRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> </tr> --> <tr> <td COLSPAN="2" height="20" bgcolor="#FFEE88">商社の商品企画室を利用する</td> <td COLSPAN="2" height="20"> <% If SyohinKaihatukaRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If SyohinKaihatukaRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> </tr> <tr> <td COLSPAN="2" height="20" bgcolor="#FFEE88">運送費請求書の自動作成を利用する</td> <td COLSPAN="2" height="20"> <% If UnsohiSeikyusyoKyuVersionRiyo <> "0" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If UnsohiSeikyusyoKyuVersionRiyo <> "1" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> </tr> <tr> <td COLSPAN="2" height="20" bgcolor="#FFEE88"><nobr>チェック画面から伝票・帳簿へのジャンプ機能を利用する</nobr></td> <td COLSPAN="2" height="20"> <% If CheckLink <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If CheckLink <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> </tr> <tr> <td COLSPAN="2" height="20" bgcolor="#FFEE88"><nobr>期首設定を経理部から変更させる</nobr></td> <td COLSPAN="2" height="20"> <% If KishusetteiRiyo <> "3" Then Response.Write("<font color=""#888888"">変更させる</font>") Else Response.Write("変更させる") End If %> <% If KishusetteiRiyo <> "2" Then Response.Write("<font color=""#888888"">勘定残高のみ</font>") Else Response.Write("勘定残高のみ") End If %> <% If KishusetteiRiyo <> "1" Then Response.Write("<font color=""#888888"">繰越残高のみ</font>") Else Response.Write("繰越残高のみ") End If %> <% If KishusetteiRiyo <> "0" Then Response.Write("<font color=""#888888"">変更させない</font>") Else Response.Write("変更させない") End If %> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88">小売販売を利用する</td> <td height="20"> <% If KouriHanbaiRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If KouriHanbaiRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> <td height="20" bgcolor="#FFEE88" nowrap>為替レート計算機を利用する</td> <td height="20"> <% If ExchangeRateRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If ExchangeRateRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> </tr> <% If Genkavariable = 1 Or (EnshuKubun = "G" And (Tvvariable = 1 Or Tvvariable = 2)) Then %> <tr> <% If Genkavariable = 1 Then %> <td height="20" bgcolor="#FFEE88">製造部を利用する</td> <td height="20"> <% If GenkaKaikeiRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If GenkaKaikeiRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> </td> <% Else %> <td height="20" bgcolor="#FFEE88"> </td> <td height="20"></td> <% End If %> <% If EnshuKubun = "G" And (Tvvariable = 1 Or Tvvariable = 2) Then %> <td height="20" bgcolor="#FFEE88">テレビ電話を利用する</td> <td height="20"><nobr> <% If WebCollaboRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %> <% If WebCollaboRiyo <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %> <% If WebCollaboRiyo <> "2" Then Response.Write("<font color=""#888888"">任意に選択する</font>") Else Response.Write("任意に選択する") End If %> </nobr></td> <% Else %> <td height="20" bgcolor="#FFEE88"> </td> <td height="20"></td> <% End If %> </tr> <% End If %> <% End If %> <tr> <td COLSPAN="2" height="40" bgcolor="#FFEE88">期末繰越先演習</td> <td COLSPAN="2" height="40"><nobr> <% = HardWrap(KurikoshiEnshuMei) %> <nobr></td> </tr> </TABLE> </td> </tr> </table> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </form> </body> <% = HtmlFooter %> </html> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck() { SubmitReal(form1); return true; } </script> <% End Sub %>