<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :市場情報設定設定 ' 作成日:2002/8/18 ' 作成者:徳田 ' 目的 :市場情報画面を表示する。 ' 概要 : ' <<表示>> ' <<入力チェック>> ' ' 修正: '################################################ '--> main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim KanriKubun Dim EnshuName Dim ShijyoMeisyo , ShijyoCD, ShijyoCD2 '市場コード、市場名称、市場カナ名称 Dim Query, Content ShijyoCD = Request("ShijyoCD") KanriKubun = Session(HomeAlias & "KanriKubun") ShijyoCD2 = ShijyoCD '演習名称GET EnshuName = ConvEnshuMeisyo(EnshuCD) '対象データGET Query = "exec SPM市場取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ShijyoCD = Content.Fields("市場CD") ShijyoMeisyo = Content.Fields("市場名称") End If '当該市場限定の商品があるか確認する Dim ShijyoSyohin ShijyoSyohin = 0 Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("市場CD") = ShijyoCD Then ShijyoSyohin = 1 Exit Do End If Content.MoveNext Loop '当該市場の会社があるか確認する Dim ShijyoKaisha ShijyoKaisha = 0 Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 2" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("市場CD") = ShijyoCD Then ShijyoKaisha = 1 Exit Do End If Content.MoveNext Loop %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 1; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" method="POST" name="form1" > <input type="hidden" name="EnshuCD" value="<% = EnshuCD %>"> <input type="hidden" name="KanriKubun" value="<% = KanriKubun %>"> <input type="hidden" name="Action" value="2"> <input type="hidden" name="ShijyoCD" value="<% = ShijyoCD2 %>"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "市場マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If EnshuCD <> "SYSORIGN" Then If ShijyoCD = "" Then Response.Write(HttpL3_1("", "","", "" ,"", "", "", "", "", "")) Else Response.Write(HttpL3_1("修正", "tblbtn('fm_shijyo.asp?ShijyoCD=" & ShijyoCD & "&Action=2&nr=n')","削除", "DeleteCheck()" ,"", "", "", "", "", "")) End If Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shijyo.asp?Action=1')", "一覧表示", "tblbtn( 'fm_shijyo_ichiran.asp?ShijyoCD=" & ShijyoCD2 & "')", "", "", "", "", "", "")) End If Response.Write(HttpL3_2("追加", "tblbtn( 'fm_shijyo.asp?Action=1')", "一覧表示", "tblbtn( 'fm_shijyo_ichiran.asp')" ,"", "", "", "", "", "")) Else Response.Write(HttpL2("市場選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "マスター照会", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s43.asp')", "市場マスター", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "" ,"", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_shijyo_ichiran.asp?ShijyoCD=" & ShijyoCD2 & "')" ,"", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("市場マスター", "照会")) If EnshuCD = "SYSORIGN" Then Response.Write(HttpL5("演習コード SYSORIGN の演習は修正出来ません")) End If %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td align="center"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center"> <table width="640" height="340" border="0" cellspacing="5" cellpadding="0" bgcolor="#ffffff" style="border:1px solid #000000"> <tr> <td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"><!--薄青のチェックの背景--> <!--青線+タイトルの3x3の外側が幅、高さ20pxのテーブル--> <table width="540" border="0" cellspacing="0" cellpadding="0"> <tr> <!--3x3上段左 --><!--3x3上段中央--><!--3x3上段右 --> </tr> <tr> <!--3x3中段左 --><!--3x3中央 --><td height="300" width="500" align="center"> <TABLE WIDTH="500" HEIGHT="100" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <% If GB_Admin = 2 Then %> <TR ALIGN="CENTER"> <TD WIDTH="150">対象演習名</TD> <TD><%= EnshuName %></TD> </TR> <% End If %> <tr> <td WIDTH="150">市場コード</td> <td><% = ShijyoCD %></td> </tr> <tr> <td WIDTH="150">市場名称</td> <td><% = ShijyoMeisyo %></td> </tr> </table> </td> <!--3x3中段右--> <tr> <!--3x3下段左--><!--3x3下段中央--><!--3x3下段右--> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </div> </form> </body> <SCRIPT LANGUAGE="JavaScript"> function DeleteCheck() { <% If ShijyoKaisha > 0 Then %> alert("当該市場に会社が存在します。\n全ての会社の市場を当該市場以外に設定してから削除してください。"); return false; <% End If %> <% If ShijyoSyohin > 0 Then %> //alert("当該市場に限定された商品が存在します。\nこれらの商品はどの市場からも見えなくなりますので\n「商品マスター」にて市場を変更してください。"); alert("当該市場に限定された商品が存在します。\n全ての商品の市場を当該市場以外に設定してから削除してください。"); return false; <% End If %> var flag; flag = confirm("削除してよろしいですか?"); if (flag) { tblbtn( "fm_shijyo_bin.asp?ShijyoCD=<% = ShijyoCD %>&Action=4"); return true; } else { return false; } } </script> <% = HtmlFooter %> </html> <% End Sub %>