<%
'
'
%>
<%
main()
Sub main()
Dim RouteType
RouteType = Request("RouteType")
Dim CheckType
CheckType = Request("CheckType")
'仕訳日単位で集計するため
Dim Shiwakebi
Shiwakebi = Request("Shiwakebi")
'運用管理演習状況記帳チェックの一覧表示フラグ
Dim HyojiFlg
HyojiFlg = Request("HyojiFlg")
'スクロール量を受け渡す
Dim Layer1ScrollTop
Layer1ScrollTop = Request("Layer1ScrollTop")
Dim Query
Dim Content
'記帳チェック非利用且つ現物チェックまたは商品チェック利用時は適宜自動ジャンプさせる（091102小野）
Dim KichoCheck
KichoCheck = 1
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
If "" & Content.Fields("手動総勘定元帳表示") <> "1" And "" & Content.Fields("現金出納帳表示") <> "1" And "" & Content.Fields("小口現金出納帳表示") <> "1" And "" & Content.Fields("当座預金出納帳表示") <> "1" And "" & Content.Fields("売上帳表示") <> "1" And "" & Content.Fields("仕入帳表示") <> "1" And "" & Content.Fields("売掛金元帳表示") <> "1" And "" & Content.Fields("買掛金元帳表示") <> "1" And "" & Content.Fields("受取手形記入帳表示") <> "1" And "" & Content.Fields("支払手形記入帳表示") <> "1" Then
'手入力帳簿全OFFによる判定は廃止（150821小野）
'KichoCheck = 0
End If
If KichoCheck = 0 Or "" & Content.Fields("記帳チェック表示") = "0" Then
If "" & Content.Fields("現物チェック表示") = "1" Then
Response.Redirect("fm_genbutsu_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & GB_KaisyaCD & "&RouteType=" & RouteType & "&CheckType=2&KichoCheck=0")
ElseIf "" & Content.Fields("商品チェック表示") = "1" Then
Response.Redirect("fm_syohin_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & GB_KaisyaCD & "&RouteType=" & RouteType &"&KichoCheck=0")
End If
End If
End If
%>
<% = HtmlHeader("") %>
<%
End Sub
%>