%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Cnt
Dim RouteType
RouteType = Request("RouteType")
Dim TyohyoKubun
Dim KanriKubun
KanriKubun = Request("KanriKubun")
TyohyoKubun = Request("TyohyoKubun")
Dim GyoshuKubun
GyoshuKubun = Request("GyoshuKubun")
If GyoshuKubun = "" Then
GyoshuKubun = "S"
End If
If TyohyoKubun = "G" Then
GyoshuKubun = "G"
End If
Dim SaimokuKubun
SaimokuKubun = Request("SaimokuKubun")
If SaimokuKubun = "" Then
SaimokuKubun = "%"
End If
Dim GenkaKaikeiRiyo
Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用")
End If
'報告書書式一覧を配列化
Dim ShukeiCDAry
Dim ShukeiMeiAry
ReDim ShukeiCDAry(0)
ReDim ShukeiMeiAry(0)
Query = "exec SPM報告書書式一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TyohyoKubun & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
ReDim PreServe ShukeiCDAry(UBound(ShukeiCDAry) + 1) '配列+1
ReDim PreServe ShukeiMeiAry(UBound(ShukeiMeiAry) + 1) '配列+1
ShukeiCDAry(UBound(ShukeiCDAry)) = "" & Content.Fields("集計CD")
ShukeiMeiAry(UBound(ShukeiMeiAry)) = "" & Content.Fields("集計名称")
Content.MoveNext
Loop
%>
<% = HtmlHeader("") %>
<% If GB_IEmode <> "1" Then %>
<% Else 'IEモード %>
<% End If %>
<% = HtmlFooter %>
<%
End Sub
%>