<%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim ShijoCD
ShijoCD = Request("ShijoCD")
Dim SyohinCD
SyohinCD = Request("SyohinCD")
Dim Mode
Mode = Request("Mode")
Dim PageType
PageType = "商品有高帳"
If Mode = "Zairyo" Then
PageType = "材料元帳"
End If
Dim RouteType
RouteType = Request("RouteType")
Dim Label
Label = "商品"
If Mode = "Zairyo" Then
Label = "材料"
End If
Dim Query, Content
Dim AutoZandakaNyuryoku
AutoZandakaNyuryoku = GetEnshuParam(EnshuCD, "残高自動計算")
'仕訳日選択モード
Dim Shiwakebi
Shiwakebi = "0"
If ShiwakebiSelect = 1 Then
Shiwakebi = GetEnshuParam(EnshuCD, "日付仕訳日指定")
End If
' Shiwakebi = "0"
' Shiwakebi = "1"
Dim TmpShiwakebiAry
If Shiwakebi = "1" Then
Query = ""
Query = Query & " "
Query = Query & " "
Query = Query & " SELECT 取引日 "
Query = Query & " FROM TSK伝票F "
Query = Query & " WHERE 削除フラグ = 0 "
Query = Query & " AND システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 会社CD = '" & KaisyaCD & "' "
Query = Query & " GROUP BY 取引日 "
Query = Query & " ORDER BY 取引日 DESC "
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
TmpShiwakebiAry = TmpShiwakebiAry & "\t" & SetTimeYYYYMMDD(Content.Fields("取引日"))
Content.MoveNext
Loop
End If
Dim SyohinCDClear
SyohinCDClear = 1
Query = "exec SPM" & Label & "一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If ShijoCD = "" Or ShijoCD = "" & Content.Fields("市場CD") Or (ShijoCD = "higenteietnegih" And "" & Content.Fields("市場CD") = "") Then '市場CDが指定されていれば絞込み（081111小野）
If Content.Fields("" & Label & "CD") = SyohinCD Then
SyohinCDClear = 0
End If
End If
Content.MoveNext
Loop
If SyohinCDClear = 1 Then
SyohinCD = ""
End If
%>
<% = AppTitle %>
<%
Dim iii
For iii = 1 To 3
If iii <> 2 Then
%>
<%
End If
Next
%>
<% = HtmlFooter %>
<%
End Sub
%>