<%
'
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
'演習名称ＧＥＴ
EnshuName = ConvEnshuMeisyo(EnshuCD)
'対象データＧＥＴ
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
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>