<%
'
'
'
%>
<%
main()
Sub main()
Dim HyojiJyoken, EnshuCD, GakuseiNo, KaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD
HyojiJyoken = Request("HyojiJyoken")
EnshuCD = Request("EnshuCD")
GakuseiNo = Request("GakuseiNo")
KaisyaCD = Request("KaisyaCD")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
Dim Kaishibi
Dim Syuryobi
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
Dim Joken
Joken = Request("Joken")
Dim EnshuChange
EnshuChange = Request("EnshuChange")
If EnshuChange = "1" Then
'演習が変更された場合は集計期間リセット
Kaishibi = ""
Syuryobi = ""
End If
Dim Query
Dim Content
If EnshuCD <> "" Then
'運用管理は消費税設定を持たないので選択演習の消費税を取得
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Session(HomeAlias & "Shohizei") = Content.Fields("消費税")
GB_Shohizei = Content.Fields("消費税")
'Exit Sub
End If
End If
%>
<% = HtmlHeader("") %>
<%
End Sub
%>