<%
'
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Kaishibi
Dim Syuryobi
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
Dim Query
Dim Content
Dim ii, jj, iiSyukeihyoSelect, ShiwakeData, iiMototyoSelect, MototyoData
Dim SokanjyoMototyoCD
Dim DbKanjyoCD, DbShiwakeData, DbDenpyoTekiyo, DbTekiyo1, DbTekiyo2
Dim DbKanjyoMeisyo, DbMototyo
Dim DbDenpyoKubun, DbDenpyoNo , DbDenpyoSEQ
Dim DbTekiyo, DbTorihikibi, DbShityo, DbZandaka, DbMototyoData
Dim DbKarikataKingaku, DbKashikataKingaku
Dim DbKarikataKingakuTotal, DbKashikataKingakuTotal
Dim DbSokanjyoMototyoCD
Dim KanjyoCD
Dim ViewTorihikibi
Dim DenpyoKubun, DenpyoNo, DenpyoSEQ
KanjyoCD = Request("KanjyoCD")
ViewTorihikibi = Request("ViewTorihikibi")
DenpyoKubun = Request("DenpyoKubun")
DenpyoNo = Request("DenpyoNo")
DenpyoSEQ = Request("DenpyoSEQ")
Dim PageType
PageType = "仕訳帳"
Dim RouteType
RouteType = Request("RouteType")
Dim Order
Order = Request("Order")
' If ViewTorihikibi = "" Then
' ViewTorihikibi = GB_KaikeiKaishibi
' End If
Dim ShiwakeFrom
ShiwakeFrom = Request("ShiwakeFrom")
Dim ShiwakeTo
ShiwakeTo = Request("ShiwakeTo")
'仕訳日配列作成
Dim Shiwakebi
ReDim Shiwakebi(0)
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 取引日 "
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
ReDim PreServe Shiwakebi(UBound(Shiwakebi) + 1) '配列+1
Shiwakebi(UBound(Shiwakebi)) = "" & Content.Fields("取引日")
Content.MoveNext
Loop
If UBound(Shiwakebi) > 0 Then
If ShiwakeFrom = "" Then
ShiwakeFrom = Shiwakebi(1)
End If
If ShiwakeTo = "" Then
ShiwakeTo = Shiwakebi(UBound(Shiwakebi))
End If
End If
%>
<% = HtmlHeader("sj3tyobored11") %>
<% = HtmlFooter %>
<%
End Sub
%>