<!-- #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
%>