<!-- #include file="../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：演習追加入力
' 作成日：2002/9/4
' 作成者：徳田
' 目的 ：演習追加入力の画面を表示する。
' 概要 ：
' <<表示>>
' ・演習追加入力画面
'
'###############################################
'-->
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 NyuShukkoTanto
Dim EnshuKubun
Dim WebCollaboRiyo
Dim KouriHanbaiRiyo
Dim GenkaKaikeiRiyo
Dim ShiireUriageJyuHasshin
Dim ShiireUriageSyoruiHikae
Dim SouhuzumiTegataHyoji
Dim Jissenbi
Dim MasterEnshu
Dim InputShiwaketyoKyuVersionRiyo
Dim JitsuinRiyo
Dim UkeshoKakunin
Dim SenpoHitsuyo
Dim ShukkoUkeshoHitsuyo
Dim AiteShukkoHitsuyo
Dim JishaZaikoHitsuyo
Dim ShijokanShiireRiyo
Dim KanribuUnchinShogakari
Dim ShiireUriageKenninKI '見積依頼書
Dim ShiireUriageKenninKM '見積書
Dim ShiireUriageKenninKC '注文書
Dim ShiireUriageKenninKU '注文請書
Dim ShiireUriageKenninKB '物品受領書
Dim ShiireUriageKenninKN '納品請求書
Dim ShiireUriageKenninKX '管理部買入申込書
Dim ShiireUriageKenninKO '管理部宛物品受領書
Dim ShiireUriageKenninKY '管理部売渡申込書
Dim ShiireUriageKenninKP '管理部宛納品請求書
Dim ShameiYusen
Dim HaraidashiTankaRiyo
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("手形修正")
SyohinCheck = Content.Fields("商品チェック表示")
GenbutsuCheck = Content.Fields("現物チェック表示")
UnsohiSeikyusyoKyuVersionRiyo = Content.Fields("運送費請求書旧バージョン利用")
SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用")
SyohinKaihatukaRiyo = Content.Fields("商品開発課利用")
KitakuSokoRiyo = "" & Content.Fields("寄託倉庫利用")
NyuShukkoTanto = "" & Content.Fields("倉庫部利用")
WebCollaboRiyo = "" & Content.Fields("WebCollabo利用")
KouriHanbaiRiyo = Content.Fields("小売販売有無")
GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用")
ShiireUriageJyuHasshin = Content.Fields("仕入売上書類受発信利用")
ShiireUriageSyoruiHikae = Content.Fields("仕入売上書類控え印刷")
ShameiYusen = "" & Content.Fields("仕入売上書類社名優先")
Dim TmpKnnin
If InStr("" & Content.Fields("仕入売上書類検認利用"), ";") > 0 Then
TmpKnnin = Split("" & Content.Fields("仕入売上書類検認利用"), ";")
Else
TmpKnnin = Split("" & Content.Fields("仕入売上書類検認利用"), ",") '旧仕様整合のため
End If
Dim KCnt
For KCnt = 0 To UBound(TmpKnnin)
TmpKnnin(KCnt) = Trim(TmpKnnin(KCnt))
If TmpKnnin(KCnt) = "KI" Then
ShiireUriageKenninKI = TmpKnnin(KCnt) '見積依頼書
ElseIf TmpKnnin(KCnt) = "KM" Then
ShiireUriageKenninKM = TmpKnnin(KCnt) '見積書
ElseIf TmpKnnin(KCnt) = "KC" Then
ShiireUriageKenninKC = TmpKnnin(KCnt) '注文書
ElseIf TmpKnnin(KCnt) = "KU" Then
ShiireUriageKenninKU = TmpKnnin(KCnt) '注文請書
ElseIf TmpKnnin(KCnt) = "KB" Then
ShiireUriageKenninKB = TmpKnnin(KCnt) '物品受領書
ElseIf TmpKnnin(KCnt) = "KN" Then
ShiireUriageKenninKN = TmpKnnin(KCnt) '納品請求書
ElseIf TmpKnnin(KCnt) = "KX" Then
ShiireUriageKenninKX = TmpKnnin(KCnt) '管理部買入申込書
ElseIf TmpKnnin(KCnt) = "KO" Then
ShiireUriageKenninKO = TmpKnnin(KCnt) '管理部宛物品受領書
ElseIf TmpKnnin(KCnt) = "KY" Then
ShiireUriageKenninKY = TmpKnnin(KCnt) '管理部売渡申込書
ElseIf TmpKnnin(KCnt) = "KP" Then
ShiireUriageKenninKP = TmpKnnin(KCnt) '管理部宛納品請求書
End If
Next
SouhuzumiTegataHyoji = Content.Fields("送付済み手形表示様式")
Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日"))
JitsuinRiyo = "" & Content.Fields("実印利用")
UkeshoKakunin = "" & Content.Fields("注文請書確認利用")
SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要")
ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要")
KanribuUnchinShogakari = "" & Content.Fields("管理部買入売渡運賃諸掛")
AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要")
JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要")
ShijokanShiireRiyo = "" & Content.Fields("仕入他市場管理部利用")
MasterEnshu = Content.Fields("マスター演習")
HaraidashiTankaRiyo = "" & 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 KanribuUnchinShogakari = "" Then
KanribuUnchinShogakari = "1"
End If
If UkeshoKakunin = "" Then
UkeshoKakunin = "1"
End If
If ShameiYusen <> "1" Then
ShameiYusen = "0"
End If
If HaraidashiTankaRiyo = "" Then
HaraidashiTankaRiyo = "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 ShiireUriageSyoruiHikae <> "0" Then
ShiireUriageSyoruiHikae = "1" '2枚印刷は廃止。控え印刷フラグに書き換える。（190809小野）
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_enshu3_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 DebugFlg > 1 Or MasterEnshu <> "1" Then
'Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu3.asp?EnshuCD=" & EnshuCD & "')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "", "", ""))
Response.Write(HttpL3_1("修正", "tblbtn('fm_enshu3.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
If GB_Admin = 1 Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu4_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", ""))
' Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", ""))
Else
Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu4_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", ""))
' Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu22_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", ""))
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="20" bgcolor="#FFEE88"><nbsp>入庫には相手出庫を必要とする / 出庫には在庫を必要とする</nbsp></td>
<td height="20">
<% If SyohinNyusyukkoSeikousei <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>
<% If SyohinNyusyukkoSeikousei <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>
</td>
</tr>
-->
<tr>
<td width="330" height="20" bgcolor="#FFEE88"><nbsp>入庫には相手出庫を必要とする</nbsp></td>
<td width="470" height="20">
<% If AiteShukkoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>
<% If AiteShukkoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>
</td>
</tr>
<tr>
<td height="20" bgcolor="#FFEE88"><nbsp>出庫には在庫を必要とする</nbsp></td>
<td height="20">
<% If JishaZaikoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>
<% If JishaZaikoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>
</td>
</tr>
<tr>
<td height="20" bgcolor="#FFEE88"><nbsp>出庫時に払出単価を入力する</nbsp></td>
<td height="20">
<% If HaraidashiTankaRiyo <> "0" Then Response.Write("<font color=""#888888"">入力する</font>") Else Response.Write("入力する") End If %>
<% If HaraidashiTankaRiyo <> "1" 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 ShukkoUkeshoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>
<% If ShukkoUkeshoHitsuyo <> "3" Then Response.Write("<font color=""#888888"">発信が必要</font>") Else Response.Write("発信が必要") End If %>
<% If ShukkoUkeshoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>
<% If ShukkoUkeshoHitsuyo <> "2" 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 ShijokanShiireRiyo <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>
<% If ShijokanShiireRiyo <> "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 SenpoHitsuyo <> "1" Then Response.Write("<font color=""#888888"">必要とする</font>") Else Response.Write("必要とする") End If %>
<% If SenpoHitsuyo <> "0" Then Response.Write("<font color=""#888888"">必要としない</font>") Else Response.Write("必要としない") End If %>
<% If SenpoHitsuyo <> "2" 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 UkeshoKakunin <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>
<% If UkeshoKakunin <> "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 KanribuUnchinShogakari <> "1" Then Response.Write("<font color=""#888888"">固定する</font>") Else Response.Write("固定する") End If %>
<% If KanribuUnchinShogakari <> "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 ShiireUriageJyuHasshin <> "1" Then Response.Write("<font color=""#888888"">利用する</font>") Else Response.Write("利用する") End If %>
<% If ShiireUriageJyuHasshin <> "0" Then Response.Write("<font color=""#888888"">利用しない</font>") Else Response.Write("利用しない") End If %>
</td>
</tr>
<% If ShiireHanbaiKennin = 1 Then %>
<tr>
<td height="20" bgcolor="#FFEE88">仕入販売書類の発信前に教師の確認を必要とする</td>
<td height="20">
<% If ShiireUriageKenninKI <> "KI" Then Response.Write("<font color=""#888888"">見積依頼書</font>") Else Response.Write("見積依頼書") End If %>
<% If ShiireUriageKenninKC <> "KC" Then Response.Write("<font color=""#888888"">注文書</font>") Else Response.Write("注文書") End If %>
<% If ShiireUriageKenninKB <> "KB" Then Response.Write("<font color=""#888888"">物品受領書</font>") Else Response.Write("物品受領書") End If %>
<% If ShiireUriageKenninKX <> "KX" Then Response.Write("<font color=""#888888"">管理部買入申込書</font>") Else Response.Write("管理部買入申込書") End If %><br>
<% If ShiireUriageKenninKM <> "KM" Then Response.Write("<font color=""#888888"">見積書</font>") Else Response.Write("見積書") End If %>
<% If ShiireUriageKenninKU <> "KU" Then Response.Write("<font color=""#888888"">注文請書</font>") Else Response.Write("注文請書") End If %>
<% If ShiireUriageKenninKN <> "KN" Then Response.Write("<font color=""#888888"">納品請求書</font>") Else Response.Write("納品請求書") End If %>
<% If ShiireUriageKenninKY <> "KY" Then Response.Write("<font color=""#888888"">管理部売渡申込書</font>") Else Response.Write("管理部売渡申込書") End If %><br>
<% If ShiireUriageKenninKO <> "KO" Then Response.Write("<font color=""#888888"">管理部宛物品受領書</font>") Else Response.Write("管理部宛物品受領書") End If %>
<% If ShiireUriageKenninKP <> "KP" Then Response.Write("<font color=""#888888"">管理部宛納品請求書</font>") Else Response.Write("管理部宛納品請求書") End If %>
</td>
</tr>
<% End If %>
<tr>
<!--
<td height="20" bgcolor="#FFEE88">仕入販売書類の作成側の印刷様式</td>
<td height="20">
<% If ShiireUriageSyoruiHikae <> "0" Then Response.Write("<font color=""#888888"">通常印刷</font>") Else Response.Write("通常印刷") End If %>
<% If ShiireUriageSyoruiHikae <> "1" Then Response.Write("<font color=""#888888"">控え印刷</font>") Else Response.Write("控え印刷") End If %>
<% If ShiireUriageSyoruiHikae <> "2" Then Response.Write("<font color=""#888888"">2枚印刷</font>") Else Response.Write("2枚印刷") End If %>
</td>
-->
<td height="20" bgcolor="#FFEE88">仕入販売書類の控え印刷</td>
<td height="20">
<% If ShiireUriageSyoruiHikae <> "1" Then Response.Write("<font color=""#888888"">利用させる</font>") Else Response.Write("利用させる") End If %>
<% If ShiireUriageSyoruiHikae <> "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 ShameiYusen <> "0" Then Response.Write("<font color=""#888888"">優先（住所の上）</font>") Else Response.Write("優先（住所の上）") End If %>
<% If ShameiYusen <> "1" 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 NyuShukkoTanto <> "0" Or KitakuSokoRiyo = "1" Then Response.Write("<font color=""#888888"">仕入部・販売部</font>") Else Response.Write("仕入部・販売部") End If %>
<% If NyuShukkoTanto <> "1" Or KitakuSokoRiyo = "1" Then Response.Write("<font color=""#888888"">倉庫部</font>") Else Response.Write("倉庫部") End If %>
<% If KitakuSokoRiyo <> "1" Then Response.Write("<font color=""#888888"">寄託倉庫会社</font>") Else Response.Write("寄託倉庫会社") End If %>
</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
%>