<!-- #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 SoufuzumiRyoshushoHyoji
Dim FromYmd
Dim ToYmd
Dim Jissenbi
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 KishusetteiRiyoKanjo
Dim KishusetteiRiyoKurikoshi
Dim KurikoshiEnshuCD
Dim KurikoshiEnshuMei
Dim DefShain(3)
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("名刺作成旧バージョン利用")
MeishiKyuVersionRiyo = 0 '名刺作成旧バージョン利用は常にOFF（061113小野）
InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用")
NatsuinRiyo = Content.Fields("捺印利用")
TozaHikidashiFurikomiKogitteHituyo = Content.Fields("当座引出振込小切手必要")
TegataSyusei = Content.Fields("手形修正")
KichoCheck = "" & Content.Fields("記帳チェック表示")
SyohinCheck = Content.Fields("商品チェック表示")
GenbutsuCheck = Content.Fields("現物チェック表示")
CheckLink = 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("送付済み小切手表示様式")
SoufuzumiRyoshushoHyoji = "" & Content.Fields("送付済み領収書表示様式")
KishusetteiRiyo = "" & Content.Fields("期首設定経理部利用")
FromYmd = Content.Fields("会計開始日")
ToYmd = Content.Fields("会計終了日")
Jissenbi = "" & Content.Fields("実践日")
JitsuinRiyo = "" & Content.Fields("実印利用")
UkeshoKakunin = "" & Content.Fields("注文請書確認利用")
SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要")
ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要")
AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要")
JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要")
DenpyoKubun = Content.Fields("利用伝票数区分")
HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
KurikoshiEnshuCD = "" & Content.Fields("期末繰越先演習CD")
If KurikoshiEnshuCD <> "" Then
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & KurikoshiEnshuCD & "'"
Set Content = OpenQuery(Query)
If (Content.BOF Or Content.EOF) Then
KurikoshiEnshuCD = ""
End If
End If
End If
Query = " "
Query = Query & " SELECT * "
Query = Query & " FROM TDA社員M "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 社員CD > 0 AND 社員CD < 4 "
Query = Query & " ORDER BY 社員CD "
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
DefShain(Content.Fields("社員CD")) = Content.Fields("氏名")
Content.MoveNext
Loop
End If
If UkeshoKakunin = "" Then
UkeshoKakunin = "1"
End If
If WebCollaboRiyo = "" Then
WebCollaboRiyo = "0"
End If
If GenkaKaikeiRiyo = "" Then
GenkaKaikeiRiyo = "0"
End If
If KouriHanbaiRiyo = "" Then
KouriHanbaiRiyo = "0"
End If
If ExchangeRateRiyo = "" Then
ExchangeRateRiyo = "0"
End If
If "" & CheckLink = "" Then
CheckLink = "1"
End If
If "" & KishusetteiRiyo = "" Then
KishusetteiRiyo = "3"
End If
KishusetteiRiyoKanjo = "1"
KishusetteiRiyoKurikoshi = "1"
If KishusetteiRiyo = "2" Or KishusetteiRiyo = "0" Then
'勘定残高のみ
KishusetteiRiyoKurikoshi = "0"
End If
If KishusetteiRiyo = "1" Or KishusetteiRiyo = "0" Then
'繰越残高のみ
KishusetteiRiyoKanjo = "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 SoufuzumiKogitteHyoji = "" Then
SoufuzumiKogitteHyoji = SoufuzumiTegataHyoji
End If
If SoufuzumiRyoshushoHyoji = "" Then
SoufuzumiRyoshushoHyoji = SoufuzumiTegataHyoji
End If
'期末繰越先演習配列作成
Dim KurikoshiEnshuCDAry
ReDim KurikoshiEnshuCDAry(0)
Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 2"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("期末繰越先演習CD") <> "" Then
ReDim PreServe KurikoshiEnshuCDAry(UBound(KurikoshiEnshuCDAry) + 1) '配列+1
KurikoshiEnshuCDAry(UBound(KurikoshiEnshuCDAry)) = "" & Content.Fields("期末繰越先演習CD")
End If
Content.MoveNext
Loop
Dim TmpCnt
'デバッグ用
'PackageMode = 1
Dim PrevPage
PrevPage = "3"
If PackageMode = 1 Then
PrevPage = "22"
End If
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 2;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)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" autocomplete="off">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="DbEnshuCD" value="<% = EnshuCD%>">
<input type="hidden" name="KouriBottun" value="0">
<!--非利用フラグ-->
<input type="hidden" name='Jissenbi' value="<% = Jissenbi %>">
<input type="hidden" name='SyohinNyusyukkoSeikousei' value="<% = SyohinNyusyukkoSeikousei %>">
<!--帰宅倉庫と連動するため必要-->
<input type="hidden" name='AiteShukkoHitsuyo' value="<% = AiteShukkoHitsuyo %>">
<input type="hidden" name='JishaZaikoHitsuyo' value="<% = JishaZaikoHitsuyo %>">
<%
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("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))
' Response.Write(HttpL3_1("保存", "SubmitCheck()", "小売販売設定", "SubmitCheck(1)", "", "", "", "", "", ""))
Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))
'小売販売設定ボタンを表示・非表示切り替え
Dim KouriHanbaiBottunHyoji1
Dim KouriHanbaiBottunHyoji2
If KouriHanbaiRiyo <> "1" Or PackageMode = 1 Then 'サイバー会計も非表示
KouriHanbaiBottunHyoji1 = ""
KouriHanbaiBottunHyoji2 = ""
Else
KouriHanbaiBottunHyoji1 = "小売販売設定"
KouriHanbaiBottunHyoji2 = "tblbtn('fm_kourihanbai.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 & ".asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", ""))
'Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu3.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu" & PrevPage & ".asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", "", "", ""))
'Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu2.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL4("演習管理", "その他"))
Response.Write(HttpL5("<font color=""#FF0000"">" & ErrMsg & "</font>"))
%>
<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="<% If GB_CSS = "EC" Then %>879<% Else %>850<% End If %>" 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">演習コード</td>
<td height="24" align="center"><% = EnshuCD %></td>
</tr>
</table>
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<TABLE WIDTH="850" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<tr>
<td valign="top">
<TABLE WIDTH="<% If GB_CSS = "EC" Then %>879<% Else %>850<% End If %>" HEIGHT="100%" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<tr>
<td height="23" bgcolor="#FFEE88">演習管理者ID</td>
<td>
<input type="text" name="EnshuID" size="14" value="<% = EnshuID %>" class="tbox4" onkeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="FormStrLeftEdge(this,12,true,false);FormStrTrim(this,true);">
</td>
<td bgcolor="#FFEE88">演習管理者パスワード</td>
<td>
<input type="text" name="EnshuPassword" size="14" value="<% = EnshuPassword %>" class="tbox4" onkeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="FormStrLeftEdge(this,12,true,false);FormStrTrim(this,true);">
</td>
</tr>
<tr>
<% If PackageMode = 1 And EnshuKubun = "P" Then %>
<input type="hidden" name="RiyoMailKubun" value="0">
<% Else %>
<td height="20" bgcolor="#FFEE88"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>メール機能を利用する</td>
<td height="20" valign="bottom"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
<INPUT type='radio' style="cursor:pointer;" name='RiyoMailKubun' value="1" <% If RiyoMailKubun = "1" Then Response.Write(" checked") End If %>>利用する
<INPUT type='radio' style="cursor:pointer;" name='RiyoMailKubun' value="0" <% If RiyoMailKubun = "0" Then Response.Write(" checked") 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" valign="bottom"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
<INPUT type='radio' style="cursor:pointer;" name='KichoCheck' value="1" <% If KichoCheck = "1" Then Response.Write(" checked") End If %>>表示する
<INPUT type='radio' style="cursor:pointer;" name='KichoCheck' value="0" <% If KichoCheck = "0" Then Response.Write(" checked") End If %>>表示しない
</td>
</tr>
<tr>
<td height="20" bgcolor="#FFEE88"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>捺印を表示する</td>
<td height="20" valign="bottom"<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
<INPUT type='radio' style="cursor:pointer;"name='NatsuinRiyo' value="1" <% If NatsuinRiyo = "1" Then Response.Write(" checked") End If %>>表示する
<INPUT type='radio' style="cursor:pointer;"name='NatsuinRiyo' value="0" <% If NatsuinRiyo = "0" Then Response.Write(" checked") End If %>>表示しない
</td>
<% If PackageMode = 1 Then %>
<input type="hidden" name="GenbutsuCheck" value="0">
<% Else %>
<td height="20" bgcolor="#FFEE88">現物チェックを表示する</td>
<td height="20" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='GenbutsuCheck' value="1" <% If GenbutsuCheck = "1" Then Response.Write(" checked") End If %>>表示する
<INPUT type='radio' style="cursor:pointer;" name='GenbutsuCheck' value="0" <% If GenbutsuCheck = "0" Then Response.Write(" checked") End If %>>表示しない
</td>
<% End If %>
</tr>
<% If PackageMode = 1 Then %>
<input type="hidden" name="JitsuinRiyo" value="0">
<input type="hidden" name="SyohinCheck" value="0">
<% Else %>
<tr>
<td height="20" bgcolor="#FFEE88">手形等に実印を表示する</td>
<td height="20" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='JitsuinRiyo' value="1" <% If JitsuinRiyo = "1" Then Response.Write(" checked") End If %>>表示する
<INPUT type='radio' style="cursor:pointer;" name='JitsuinRiyo' value="0" <% If JitsuinRiyo = "0" Then Response.Write(" checked") End If %>>表示しない
</td>
<td height="20" bgcolor="#FFEE88">商品チェックを表示する</td>
<td height="20" valign="bottom">
<% If DenpyoKubun <> 5 Then %>
<font color="#888888"> 5伝票でのみ利用されます</font>
<INPUT type='hidden' name='SyohinCheck' value="<% = SyohinCheck %>">
<% Else %>
<INPUT type='radio' style="cursor:pointer;" name='SyohinCheck' value="1" <% If SyohinCheck = "1" Then Response.Write(" checked") End If %>>表示する
<INPUT type='radio' style="cursor:pointer;" name='SyohinCheck' value="0" <% If SyohinCheck = "0" Then Response.Write(" checked") 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" valign="bottom" nowrap<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
<INPUT type='radio' style="cursor:pointer;"name='PrintHeaderHyoji' value="1" <% If PrintHeaderHyoji = "1" Then Response.Write(" checked") End If %>>表示
<INPUT type='radio' style="cursor:pointer;"name='PrintHeaderHyoji' value="0" <% If PrintHeaderHyoji = "0" Then Response.Write(" checked") End If %>>非表示
<INPUT type='radio' style="cursor:pointer;"name='PrintHeaderHyoji' value="2" <% If PrintHeaderHyoji = "2" Then Response.Write(" checked") 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" valign="bottom" nowrap<% If PackageMode = 1 Then %> colspan="2"<% End If %>>
<INPUT type='radio' style="cursor:pointer;" name='HyojunTankaHyoji' value="1" <% If HyojunTankaHyoji = "1" Then Response.Write(" checked") End If %>>表示する
<INPUT type='radio' style="cursor:pointer;" name='HyojunTankaHyoji' value="0" <% If HyojunTankaHyoji = "0" Then Response.Write(" checked") 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" valign="bottom" nowrap>
<nbsp>
<% If PackageMode = 1 Then %>
<INPUT type='radio' style="cursor:pointer;" name='JidoBangoDenpyo' value="1" <% If JidoBangoDenpyo = "1" Then Response.Write(" checked") End If %>>自動採番する
<INPUT type='radio' style="cursor:pointer;" name='JidoBangoDenpyo' value="0" <% If JidoBangoDenpyo = "0" Then Response.Write(" checked") End If %>>手入力する
<input type="hidden" name="JidoBangoShiireUriageSyorui" value="0">
<input type="hidden" name="JidoBangoGinkoSyorui" value="0">
<input type="hidden" name="JidoBangoTegata" value="0">
<input type="hidden" name="JidoBangoRyosyusyo" value="0">
<% Else %>
<input type="checkbox" style="cursor:pointer;" name="JidoBangoDenpyo" value="1" <% If JidoBangoDenpyo = "1" Then Response.Write(" checked") End If %> class="chkdisable">伝票
<input type="checkbox" style="cursor:pointer;" name="JidoBangoShiireUriageSyorui" value="1" <% If JidoBangoShiireUriageSyorui= "1" Then Response.Write(" checked") End If %> class="chkdisable">仕入販売書類
<input type="checkbox" style="cursor:pointer;" name="JidoBangoGinkoSyorui" value="1" <% If JidoBangoGinkoSyorui= "1" Then Response.Write(" checked") End If %>>銀行書類
<input type="checkbox" style="cursor:pointer;" name="JidoBangoTegata" value="1" <% If JidoBangoTegata= "1" Then Response.Write(" checked") End If %>>小切手・手形
<input type="checkbox" style="cursor:pointer;" name="JidoBangoRyosyusyo" value="1" <% If JidoBangoRyosyusyo= "1" Then Response.Write(" checked") End If %>>領収書
<% End If %>
</nbsp>
</td>
</tr>
<% If PackageMode = 1 Then %>
<input type="hidden" name="SoufuzumiTegataHyoji" value="0">
<input type="hidden" name="SoufuzumiKogitteHyoji" value="0">
<input type="hidden" name="SoufuzumiRyoshushoHyoji" value="0">
<% Else %>
<tr>
<td COLSPAN="2" height="20" bgcolor="#FFEE88">送付済み手形・小切手・領収書の表示様式</td>
<td COLSPAN="2" height="20" valign="bottom">
手形<select name="SoufuzumiTegataHyoji" class="tbox4">
<option value="1"<% If SoufuzumiTegataHyoji = "1" Then %> selected<% End If %>>全体表示</option>
<option value="0"<% If SoufuzumiTegataHyoji <> "1" Then %> selected<% End If %>>耳のみ表示</option>
</select>
小切手<select name="SoufuzumiKogitteHyoji" class="tbox4">
<option value="1"<% If SoufuzumiKogitteHyoji = "1" Then %> selected<% End If %>>全体表示</option>
<option value="0"<% If SoufuzumiKogitteHyoji <> "1" Then %> selected<% End If %>>耳のみ表示</option>
</select>
領収書<select name="SoufuzumiRyoshushoHyoji" class="tbox4">
<option value="1"<% If SoufuzumiRyoshushoHyoji = "1" Then %> selected<% End If %>>全体表示</option>
<option value="0"<% If SoufuzumiRyoshushoHyoji <> "1" Then %> selected<% End If %>>耳のみ表示</option>
</select>
<!--
<INPUT type='radio' style="cursor:pointer;" name='SoufuzumiTegataHyoji' value="1"<% If SoufuzumiTegataHyoji = "1" Then Response.Write(" checked") End If %>>全体表示
<INPUT type='radio' style="cursor:pointer;" name='SoufuzumiTegataHyoji' value="0"<% If SoufuzumiTegataHyoji = "0" Then Response.Write(" checked") End If %>>耳のみ表示
-->
</td>
</tr>
<% End If %>
<% If PackageMode = 1 Then %>
<input type="hidden" name="InputShiwaketyoKyuVersionRiyo" value="0">
<input type="hidden" name="SyohinKaihatukaRiyo" value="0">
<input type="hidden" name="UnsohiSeikyusyoKyuVersionRiyo" value="0">
<input type="hidden" name="KouriHanbaiRiyo" value="0">
<input type="hidden" name="KitakuSokoRiyo" value="0">
<input type="hidden" name="GenkaKaikeiRiyo" value="0">
<input type="hidden" name="WebCollaboRiyo" value="0">
<tr>
<td COLSPAN="2" height="20" bgcolor="#FFEE88" nowrap>為替レート計算機を利用する</td>
<td COLSPAN="2" height="20" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='ExchangeRateRiyo' value="1" <% If ExchangeRateRiyo = "1" Then Response.Write(" checked") End If %>>利用する
<INPUT type='radio' style="cursor:pointer;" name='ExchangeRateRiyo' value="0" <% If ExchangeRateRiyo = "0" Then Response.Write(" checked") End If %>>利用しない
</td>
</tr>
<% Else %>
<!--
<tr>
<td COLSPAN="2" height="20" bgcolor="#FFEE88">手入力仕訳帳の旧バージョンを利用する</td>
<td COLSPAN="2" height="20" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='InputShiwaketyoKyuVersionRiyo' value="1" <% If InputShiwaketyoKyuVersionRiyo = "1" Then Response.Write(" checked") End If %>>利用する
<INPUT type='radio' style="cursor:pointer;" name='InputShiwaketyoKyuVersionRiyo' value="0" <% If InputShiwaketyoKyuVersionRiyo = "0" Then Response.Write(" checked") End If %>>利用しない
</td>
</tr>
-->
<tr>
<td height="20" bgcolor="#FFEE88">商品企画室を利用する</td>
<td height="20" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='SyohinKaihatukaRiyo' value="1" <% If SyohinKaihatukaRiyo = "1" Then Response.Write(" checked") End If %>>利用する
<INPUT type='radio' style="cursor:pointer;" name='SyohinKaihatukaRiyo' value="0" <% If SyohinKaihatukaRiyo = "0" Then Response.Write(" checked") End If %>>利用しない
</td>
<td height="20" bgcolor="#FFEE88" class="tx1315">運送費請求書の自動作成を利用</td>
<td height="20" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='UnsohiSeikyusyoKyuVersionRiyo' value="0" <% If UnsohiSeikyusyoKyuVersionRiyo = "0" Then Response.Write(" checked") End If %>>利用する
<INPUT type='radio' style="cursor:pointer;" name='UnsohiSeikyusyoKyuVersionRiyo' value="1" <% If UnsohiSeikyusyoKyuVersionRiyo = "1" Then Response.Write(" checked") End If %>>利用しない
</td>
</tr>
<tr>
<td COLSPAN="2" height="20" bgcolor="#FFEE88">チェック画面から伝票・帳簿へのジャンプ機能を利用する</td>
<td COLSPAN="2" height="20" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='CheckLink' value="1" <% If CheckLink = "1" Then Response.Write(" checked") End If %>>利用する
<INPUT type='radio' style="cursor:pointer;" name='CheckLink' value="0" <% If CheckLink = "0" Then Response.Write(" checked") End If %>>利用しない
</td>
</tr>
<tr>
<td COLSPAN="2" height="20" bgcolor="#FFEE88">生徒による経理部からの期首設定</td>
<td COLSPAN="2" height="20" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='KishusetteiRiyo' value="3" <% If KishusetteiRiyo = "3" Then Response.Write(" checked") End If %>>可
<INPUT type='radio' style="cursor:pointer;" name='KishusetteiRiyo' value="2" <% If KishusetteiRiyo = "2" Then Response.Write(" checked") End If %>>勘定残高のみ
<INPUT type='radio' style="cursor:pointer;" name='KishusetteiRiyo' value="1" <% If KishusetteiRiyo = "1" Then Response.Write(" checked") End If %>>繰越残高のみ
<INPUT type='radio' style="cursor:pointer;" name='KishusetteiRiyo' value="0" <% If KishusetteiRiyo = "0" Then Response.Write(" checked") End If %>>不可
</td>
</tr>
<tr>
<td height="20" bgcolor="#FFEE88">小売販売を利用する</td>
<td height="20" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='KouriHanbaiRiyo' value="1" <% If KouriHanbaiRiyo = "1" Then Response.Write(" checked") End If %>>利用する
<INPUT type='radio' style="cursor:pointer;" name='KouriHanbaiRiyo' value="0" <% If KouriHanbaiRiyo = "0" or IsNull(KouriHanbaiRiyo)=true Then Response.Write(" checked") End If %>>利用しない
</td>
<td height="20" bgcolor="#FFEE88" nowrap>為替レート計算機を利用する</td>
<td height="20" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='ExchangeRateRiyo' value="1" <% If ExchangeRateRiyo = "1" Then Response.Write(" checked") End If %>>利用する
<INPUT type='radio' style="cursor:pointer;" name='ExchangeRateRiyo' value="0" <% If ExchangeRateRiyo = "0" Then Response.Write(" checked") End If %>>利用しない
</td>
<!-- 寄託倉庫設定は倉庫部利用設定と統合し移設 -->
<input type="hidden" name="KitakuSokoRiyo" value="<% = KitakuSokoRiyo %>">
</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" valign="bottom">
<INPUT type='radio' style="cursor:pointer;" name='GenkaKaikeiRiyo' value="1" <% If GenkaKaikeiRiyo = "1" Then Response.Write(" checked") End If %>>利用する
<INPUT type='radio' style="cursor:pointer;" name='GenkaKaikeiRiyo' value="0" <% If GenkaKaikeiRiyo = "0" or IsNull(GenkaKaikeiRiyo)=true Then Response.Write(" checked") End If %>>利用しない
</td>
<% Else %>
<td height="20" bgcolor="#FFEE88"> </td>
<td height="20" valign="bottom"></td>
<% End If %>
<% If EnshuKubun = "G" And (Tvvariable = 1 Or Tvvariable = 2) Then %>
<td height="20" bgcolor="#FFEE88" nowrap>テレビ電話を利用する</td>
<td height="20" valign="bottom" nowrap>
<INPUT type='radio' style="cursor:pointer;" name='WebCollaboRiyo' value="1" <% If WebCollaboRiyo = "1" Then Response.Write(" checked") End If %>>利用する
<INPUT type='radio' style="cursor:pointer;" name='WebCollaboRiyo' value="0" <% If WebCollaboRiyo = "0" or IsNull(WebCollaboRiyo)=true Then Response.Write(" checked") End If %>>利用しない
<INPUT type='radio' style="cursor:pointer;" name='WebCollaboRiyo' value="2" <% If WebCollaboRiyo = "2" Then Response.Write(" checked") End If %>>任意
</td>
<% Else %>
<td height="20" bgcolor="#FFEE88"> </td>
<td height="20" valign="bottom"></td>
<% End If %>
</tr>
<% End If %>
<tr>
<td COLSPAN="1" height="20" bgcolor="#FFEE88" nowrap>自動作成する社員（氏名）</td>
<td COLSPAN="3" height="20" valign="bottom" nowrap>
<nbsp>
※代表取締役以外を指定
① <input type="text" name="DefShain1" size="20" class="tbox4_ime" onBlur="FormStrLeftIME(this,20,true);" value="<% = DefShain(1) %>">
② <input type="text" name="DefShain2" size="20" class="tbox4_ime" onBlur="FormStrLeftIME(this,20,true);" value="<% = DefShain(2) %>">
③ <input type="text" name="DefShain3" size="20" class="tbox4_ime" onBlur="FormStrLeftIME(this,20,true);" value="<% = DefShain(3) %>">
</nbsp>
</td>
</tr>
<% End If %>
</TABLE>
<%' If PackageMode = 1 Then %>
<TABLE WIDTH="<% If GB_CSS = "EC" Then %>879<% Else %>850<% End If %>" HEIGHT="100%" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<tr>
<td height="20" bgcolor="#FFEE88">期末繰越先演習<BR></td>
<td colspan="2">
<TABLE BORDER="0" CELLPADDING="3" CELLSPACING="0" CLASS="tx1416">
<tr>
<td>
<select size="1" name="KurikoshiEnshuCD" class="tbox4" style="width:300px;">
<option value="">＜＜＜繰越先演習未選択＞＞＞</option>
<%
Dim SonzaiFlg
Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 2"
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
If "" & Content.Fields("演習CD") <> EnshuCD And "" & Content.Fields("演習区分") = EnshuKubun Then
SonzaiFlg = 0
If "" & Content.Fields("演習CD") <> KurikoshiEnshuCD Then
For TmpCnt = 1 To UBound(KurikoshiEnshuCDAry)
If KurikoshiEnshuCDAry(TmpCnt) = "" & Content.Fields("演習CD") Then
SonzaiFlg = 1
Exit For
End If
Next
End If
If SonzaiFlg = 0 Then
Response.Write("<option value=""" & Content.Fields("演習CD") & """")
If Content.Fields("演習CD") = KurikoshiEnshuCD Then
Response.Write(" selected")
End If
Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf)
End If
End If
End If
Content.MoveNext
Loop
%>
</select>
</td>
</tr>
<tr>
<td>
新規作成：<input type="text" name="KurikoshiEnshuMei" size="46" class="tbox4_ime" onBlur="FormStrLeftIME(this,36,true);" value="<% = KurikoshiEnshuMei %>">
</td>
</tr>
</TABLE>
</td>
<td class="tx1416"><nobr>
期末繰越処理の残高転送先の演習を<BR>
選択または入力してください。<BR>
※同一演習区分の演習のみ選択できます。<BR>
※入力が優先されます。<BR>
</nobr></td>
</tr>
</TABLE>
<%' End If %>
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</div>
</form>
</body>
<%
Dim HtmlFooter2
HtmlFooter2 = HtmlFooter2 & "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "function GetKaikeiKaishibi(){return '" & FromYmd & "';}" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "function GetKaikeiSyuryobi(){return '" & ToYmd & "';}" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "</SCRIPT>" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "<SCRIPT LANGUAGE=""JavaScript""> " & vbCrLf
HtmlFooter2 = HtmlFooter2 & " Init();" & vbCrLf
HtmlFooter2 = HtmlFooter2 & "</SCRIPT>" & vbCrLf
Response.Write(HtmlFooter2)
%>
</html>
<SCRIPT LANGUAGE="JavaScript">
// 小売販売ボタンフラグ引数を追加（070131小野）
function SubmitCheck(KouriBottunFlg) {
// 070910小野
if (form1.EnshuID.value != '' && form1.EnshuPassword.value == '') {
alert("演習管理者IDを設定する際は\n併せてパスワードの設定が必要です ");
form1.EnshuPassword.focus();
return false;
}
<% If PackageMode = 1 Then %>
if (typeof(form1.KurikoshiEnshuMei) == "object") {
if (form1.KurikoshiEnshuMei.value != "") {
if (!confirm("入力された名称の演習を新規作成し、期末繰越先演習に設定します。 \n\nよろしいですか？ ")) {
return false;
}
}
}
<% Else %>
// 061113小野 ※廃止（仕入販売設定に移管）
// if (form1.KitakuSokoRiyo[0].checked == true) {
// alert("寄託倉庫を利用する場合は\n 商品の入庫には相手の出庫を必要とする \n 商品の出庫には在庫を必要とする \n以上の項目が設定されます ");
// }
// 小売販売ボタン押下時の処理を移設（070131小野）
if (KouriBottunFlg == 1) {
// 070129 M.Wada
if (form1.KouriHanbaiRiyo[0].checked == false) {
alert("小売販売を利用しない状態になっていますので、【小売販売設定】ボタンは無効です ");
return true;
}
form1.KouriBottun.value = "1";
}
<% End If %>
SubmitReal(form1);
return true;
}
</script>
<%
End Sub
%>