<!-- #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 FromYmd Dim ToYmd Dim Jissenbi 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 Invoice Dim TaxRate 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("名刺作成旧バージョン利用") MeishiKyuVersionRiyo = 0 '名刺作成旧バージョン利用は常にOFF(061113小野) 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("仕入売上書類受発信利用") 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 ShiireUriageSyoruiHikae = "" & Content.Fields("仕入売上書類控え印刷") ShameiYusen = "" & Content.Fields("仕入売上書類社名優先") SouhuzumiTegataHyoji = Content.Fields("送付済み手形表示様式") FromYmd = Content.Fields("会計開始日") ToYmd = Content.Fields("会計終了日") Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) JitsuinRiyo = "" & Content.Fields("実印利用") UkeshoKakunin = "" & Content.Fields("注文請書確認利用") SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") KanribuUnchinShogakari = "" & Content.Fields("管理部買入売渡運賃諸掛") ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要") HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力") AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要") JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要") ShijokanShiireRiyo = "" & Content.Fields("仕入他市場管理部利用") Invoice = "" & Content.Fields("インボイス対応") TaxRate = "" & 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 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 ShijokanShiireRiyo = "" Then ShijokanShiireRiyo = "0" End If If WebCollaboRiyo = "" Then WebCollaboRiyo = "0" End If If GenkaKaikeiRiyo = "" Then GenkaKaikeiRiyo = "0" End If If KouriHanbaiRiyo = "" Then KouriHanbaiRiyo = "0" End If If NyuShukkoTanto = "" Then NyuShukkoTanto = "0" End If If HaraidashiTankaRiyo = "" Then HaraidashiTankaRiyo = "0" End If If Invoice = "" Then Invoice = "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> <% = 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_enshu3_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 %>"> <% 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()", "", "", "", "", "", "", "", "")) If GB_Admin = 1 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu22.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu4.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "")) ' Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "')", "前のページ", "tblbtn('fm_enshu22.asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", "")) Else Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu22.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu4.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "")) ' Response.Write(HttpL3_2("前のページ", "tblbtn('fm_enshu2.asp?EnshuCD=" & EnshuCD & "')", KouriHanbaiBottunHyoji1, KouriHanbaiBottunHyoji2, "", "", "", "", "", "")) 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="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">演習コード</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" valign="bottom"> <INPUT type='radio' style="cursor:pointer;" name='SyohinNyusyukkoSeikousei' value="1" <% If SyohinNyusyukkoSeikousei = "1" Then Response.Write(" checked") End If %>>必要とする <INPUT type='radio' style="cursor:pointer;" name='SyohinNyusyukkoSeikousei' value="0" <% If SyohinNyusyukkoSeikousei = "0" Then Response.Write(" checked") End If %>>必要としない </td> </tr> --> <tr> <td width="330" height="20" bgcolor="#FFEE88"><nbsp>入庫には相手出庫を必要とする</nbsp></td> <td width="470" height="20" valign="bottom"> <INPUT type='radio' style="cursor:pointer;" name='AiteShukkoHitsuyo' value="1" <% If AiteShukkoHitsuyo = "1" Then Response.Write(" checked") End If %>>必要とする <INPUT type='radio' style="cursor:pointer;" name='AiteShukkoHitsuyo' value="0" <% If AiteShukkoHitsuyo = "0" Then Response.Write(" checked") End If %>>必要としない <!-- <INPUT type='radio' style="cursor:pointer;" name='AiteShukkoHitsuyo' value="0" <% If AiteShukkoHitsuyo = "0" Then Response.Write(" checked") End If %><% If KitakuSokoRiyo = "1" Then Response.Write(" disabled") End If %>>必要としない --> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88"><nbsp>出庫には在庫を必要とする</nbsp></td> <td height="20" valign="bottom"> <INPUT type='radio' style="cursor:pointer;" name='JishaZaikoHitsuyo' value="1" <% If JishaZaikoHitsuyo = "1" Then Response.Write(" checked") End If %>>必要とする <INPUT type='radio' style="cursor:pointer;" name='JishaZaikoHitsuyo' value="0" <% If JishaZaikoHitsuyo = "0" Then Response.Write(" checked") End If %>>必要としない <!-- <INPUT type='radio' style="cursor:pointer;" name='JishaZaikoHitsuyo' value="0" <% If JishaZaikoHitsuyo = "0" Then Response.Write(" checked") End If %><% If KitakuSokoRiyo = "1" Then Response.Write(" disabled") End If %>>必要としない --> </td> </tr> <tr> <td height="20" bgcolor="#FFEE88"><nbsp>出庫時に払出単価を入力する</nbsp></td> <td height="20" valign="bottom"> <INPUT type='radio' style="cursor:pointer;" name='HaraidashiTankaRiyo' value="0"<% If HaraidashiTankaRiyo = "0" Then Response.Write(" checked") End If %>>入力する <INPUT type='radio' style="cursor:pointer;" name='HaraidashiTankaRiyo' value="1"<% If HaraidashiTankaRiyo = "1" 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='ShukkoUkeshoHitsuyo' value="1" <% If ShukkoUkeshoHitsuyo = "1" Then Response.Write(" checked") End If %>>必要とする <INPUT type='radio' style="cursor:pointer;" name='ShukkoUkeshoHitsuyo' value="3" <% If ShukkoUkeshoHitsuyo = "3" Then Response.Write(" checked") End If %> onClick="ShiireUriageSenpoHasshinLink2('ShukkoUkeshoHitsuyo');">発信が必要 <INPUT type='radio' style="cursor:pointer;" name='ShukkoUkeshoHitsuyo' value="0" <% If ShukkoUkeshoHitsuyo = "0" Then Response.Write(" checked") End If %>>必要としない <INPUT type='radio' style="cursor:pointer;" name='ShukkoUkeshoHitsuyo' value="2" <% If ShukkoUkeshoHitsuyo = "2" 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='ShijokanShiireRiyo' value="1" <% If ShijokanShiireRiyo = "1" Then Response.Write(" checked") End If %>>利用する <INPUT type='radio' style="cursor:pointer;" name='ShijokanShiireRiyo' value="0" <% If ShijokanShiireRiyo = "0" Then Response.Write(" checked") End If %>>利用しない </td> </tr> <% If TaxRateSelection = 1 And InvoiceMode = 1 And KitakuSokoRiyo <> "1" Then '寄託倉庫モードに設定されている演習では選択肢を表示しない(対応してないので) %> <tr> <td height="20" bgcolor="#FFEE88">仕入販売書類で適格請求書様式を利用する</td> <td height="20" valign="bottom"> <% If TaxRate = "0" And Invoice = "0" Then '内税モードはインボイス利用不可(すでにその設定になっている場合は設定を維持) %> 内税設定では利用できません <input type="hidden" name="Invoice" value="0"> <% Else %> <INPUT type='radio' style="cursor:pointer;" name='Invoice' value="1" <% If Invoice = "1" Then Response.Write(" checked") End If %>>全ての書類で利用 <INPUT type='radio' style="cursor:pointer;" name='Invoice' value="2" <% If Invoice = "2" Then Response.Write(" checked") End If %>>納品請求書で利用 <INPUT type='radio' style="cursor:pointer;" name='Invoice' value="0" <% If Invoice = "0" Then Response.Write(" checked") End If %>>利用しない <% End If %> </td> </tr> <% End If %> <tr> <td height="20" bgcolor="#FFEE88">仕入販売書類作成時の先方書類の利用</td> <td height="20" valign="bottom"> <INPUT type='radio' style="cursor:pointer;" name='SenpoHitsuyo' value="1" <% If SenpoHitsuyo = "1" Then Response.Write(" checked") End If %> onClick="ShiireUriageSenpoHasshinLink('SenpoHitsuyo');">必要とする <INPUT type='radio' style="cursor:pointer;" name='SenpoHitsuyo' value="0" <% If SenpoHitsuyo = "0" Then Response.Write(" checked") End If %>>必要としない <INPUT type='radio' style="cursor:pointer;" name='SenpoHitsuyo' value="2" <% If SenpoHitsuyo = "2" 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='UkeshoKakunin' value="1" <% If UkeshoKakunin = "1" Then Response.Write(" checked") End If %>>利用する <INPUT type='radio' style="cursor:pointer;" name='UkeshoKakunin' value="0" <% If UkeshoKakunin = "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='KanribuUnchinShogakari' value="1" <% If KanribuUnchinShogakari = "1" Then Response.Write(" checked") End If %>>固定する <INPUT type='radio' style="cursor:pointer;" name='KanribuUnchinShogakari' value="0" <% If KanribuUnchinShogakari = "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='ShiireUriageJyuHasshin' value="1" <% If ShiireUriageJyuHasshin = "1" Then Response.Write(" checked") End If %>>利用する <INPUT type='radio' style="cursor:pointer;" name='ShiireUriageJyuHasshin' value="0" <% If ShiireUriageJyuHasshin = "0" Then Response.Write(" checked") End If %> onClick="ShiireUriageSenpoHasshinLink('ShiireUriageJyuHasshin');ShiireUriageSenpoHasshinLink2('ShiireUriageJyuHasshin');">利用しない </td> </tr> <% If ShiireHanbaiKennin = 1 Then %> <tr> <td height="20" bgcolor="#FFEE88">仕入販売書類の発信前に教師の確認を必要とする</td> <td height="20" valign="bottom"> <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKI" value="KI" <% If ShiireUriageKenninKI = "KI" Then Response.Write(" checked") End If %>>見積依頼書 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKC" value="KC" <% If ShiireUriageKenninKC = "KC" Then Response.Write(" checked") End If %>>注文書 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKB" value="KB" <% If ShiireUriageKenninKB = "KB" Then Response.Write(" checked") End If %>>物品受領書 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKX" value="KX" <% If ShiireUriageKenninKX = "KX" Then Response.Write(" checked") End If %>>管理部買入申込書<br> <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKM" value="KM" <% If ShiireUriageKenninKM = "KM" Then Response.Write(" checked") End If %>>見積書 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKU" value="KU" <% If ShiireUriageKenninKU = "KU" Then Response.Write(" checked") End If %>>注文請書 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKN" value="KN" <% If ShiireUriageKenninKN = "KN" Then Response.Write(" checked") End If %>>納品請求書 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKY" value="KY" <% If ShiireUriageKenninKY = "KY" Then Response.Write(" checked") End If %>>管理部売渡申込書<br> <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKO" value="KO" <% If ShiireUriageKenninKO = "KO" Then Response.Write(" checked") End If %>>管理部宛物品受領書 <input type="checkbox" style="cursor:pointer;" name="ShiireUriageKenninKP" value="KP" <% If ShiireUriageKenninKP = "KP" Then Response.Write(" checked") End If %>>管理部宛納品請求書 </td> </tr> <% Else %> <input type="hidden" name="ShiireUriageKenninKI" value="<% = ShiireUriageKenninKI %>"> <input type="hidden" name="ShiireUriageKenninKC" value="<% = ShiireUriageKenninKC %>"> <input type="hidden" name="ShiireUriageKenninKB" value="<% = ShiireUriageKenninKB %>"> <input type="hidden" name="ShiireUriageKenninKX" value="<% = ShiireUriageKenninKX %>"> <input type="hidden" name="ShiireUriageKenninKM" value="<% = ShiireUriageKenninKM %>"> <input type="hidden" name="ShiireUriageKenninKU" value="<% = ShiireUriageKenninKU %>"> <input type="hidden" name="ShiireUriageKenninKN" value="<% = ShiireUriageKenninKN %>"> <input type="hidden" name="ShiireUriageKenninKY" value="<% = ShiireUriageKenninKY %>"> <input type="hidden" name="ShiireUriageKenninKO" value="<% = ShiireUriageKenninKO %>"> <input type="hidden" name="ShiireUriageKenninKP" value="<% = ShiireUriageKenninKP %>"> <% End If %> <tr> <!-- <td height="20" bgcolor="#FFEE88">仕入販売書類の作成側の印刷様式</td> <td height="20" valign="bottom"> <INPUT type='radio' style="cursor:pointer;" name='ShiireUriageSyoruiHikae' value="0" <% If ShiireUriageSyoruiHikae = "0" Then Response.Write(" checked") End If %>>通常印刷 <INPUT type='radio' style="cursor:pointer;" name='ShiireUriageSyoruiHikae' value="1" <% If ShiireUriageSyoruiHikae = "1" Then Response.Write(" checked") End If %>>控え印刷 <INPUT type='radio' style="cursor:pointer;" name='ShiireUriageSyoruiHikae' value="2" <% If ShiireUriageSyoruiHikae = "2" Then Response.Write(" checked") End If %>>2枚印刷 </td> --> <td height="20" bgcolor="#FFEE88">仕入販売書類の控え印刷</td> <td height="20" valign="bottom"> <INPUT type='radio' style="cursor:pointer;" name='ShiireUriageSyoruiHikae' value="1" <% If ShiireUriageSyoruiHikae = "1" Then Response.Write(" checked") End If %>>利用させる <INPUT type='radio' style="cursor:pointer;" name='ShiireUriageSyoruiHikae' value="0" <% If ShiireUriageSyoruiHikae = "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='ShameiYusen' value="0" <% If ShameiYusen = "0" Then Response.Write(" checked") End If %>>優先(住所の上) <INPUT type='radio' style="cursor:pointer;" name='ShameiYusen' value="1" <% If ShameiYusen = "1" Then Response.Write(" checked") End If %>>非優先(住所の下) </td> </tr> <tr> <td height="20" bgcolor="#FFEE88"><nbsp>入出庫の担当部署</nbsp></td> <td height="20" valign="bottom"> <INPUT type='radio' style="cursor:pointer;" name='NyuShukkoTanto' value="0" <% If NyuShukkoTanto = "0" Then Response.Write(" checked") End If %>>仕入部・販売部 <INPUT type='radio' style="cursor:pointer;" name='NyuShukkoTanto' value="1" <% If NyuShukkoTanto = "1" Then Response.Write(" checked") End If %>>倉庫部 <% If KitakuSokoRiyo = "1" Then '寄託利用になっていなければ選択肢を表示しない %> <INPUT type='radio' style="cursor:pointer;" name='NyuShukkoTanto' value="2" <% If KitakuSokoRiyo = "1" Then Response.Write(" checked") End If %>>寄託倉庫会社 <% End If %> </td> </tr> </TABLE> </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"> function ShiireUriageSenpoHasshinLink(Mode) { //ラジオボタン名の[*]は配列番号なので1個目が0になる。valueの値とは無関係。必要とする=[0]・必要としない=[1] if (form1.SenpoHitsuyo[0].checked == true && form1.ShiireUriageJyuHasshin[1].checked == true) { if (Mode == "SenpoHitsuyo") { alert("「仕入販売書類作成時の先方書類の利用」を \n「必要とする」に設定する場合は、 \n「仕入販売書類の受発信機能を利用する」を \n「利用する」に設定する必要があります "); form1.ShiireUriageJyuHasshin[0].checked = true; } else if (Mode == "ShiireUriageJyuHasshin") { alert("「仕入販売書類の受発信機能を利用する」を \n「利用しない」に設定する場合は、 \n「仕入販売書類作成時の先方書類の利用」を \n「必要としない」に設定する必要があります "); form1.SenpoHitsuyo[1].checked = true; } } } function ShiireUriageSenpoHasshinLink2(Mode) { //ラジオボタン名の[*]は配列番号なので1個目が0になる。valueの値とは無関係。必要とする=[0]・必要としない=[1] if (form1.ShukkoUkeshoHitsuyo[1].checked == true && form1.ShiireUriageJyuHasshin[1].checked == true) { if (Mode == "ShukkoUkeshoHitsuyo") { alert("「出庫時の注文請書または管理部売渡申込書の利用」を「発信が必要」に設定する場合は \n「仕入販売書類の受発信機能を利用する」を「利用する」に設定する必要があります "); form1.ShiireUriageJyuHasshin[0].checked = true; } else if (Mode == "ShiireUriageJyuHasshin") { alert("「仕入販売書類の受発信機能を利用する」を \n「利用しない」に設定する場合は、 \n「出庫時の注文請書または管理部売渡申込書の利用」を \n「必要としない」に設定する必要があります "); form1.ShukkoUkeshoHitsuyo[2].checked = true; } } } function SubmitCheck() { if (typeof(form1.NyuShukkoTanto[2]) == "object") { if (form1.NyuShukkoTanto[2].checked == true) { alert("寄託倉庫会社を利用する場合は\n 商品の入庫には相手の出庫を必要とする \n 商品の出庫には在庫を必要とする \n以上の項目が設定されます "); form1.AiteShukkoHitsuyo[0].checked = true; form1.JishaZaikoHitsuyo[0].checked = true; } } SubmitReal(form1); return true; } </script> <% End Sub %>