<% ' ' ' %> <% main() Sub main() Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim i Dim TyohyoHeader, TableHeader, TableFooter Dim Torihikibi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim RouteType RouteType = Request("RouteType") TableHeader = "" TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableFooter = TableFooter & " " & vbCrLf TableFooter = TableFooter & "

" & vbCrLf TableHeader = TableHeader & "" & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & "" & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & " " & vbCrLf TableHeader = TableHeader & "" & vbCrLf TableFooter = "" TableFooter = TableFooter & " 取引日 摘　要 収　入 支　出 残　高 " & vbCrLf TableFooter = TableFooter & "" & vbCrLf TableFooter = TableFooter & "

" & vbCrLf Dim PageType PageType = "合計残高試算表" ' Query = "exec SPK帳簿_合計残高試算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" ' Set Content = OpenQuery(Query) ' If Not(Content.BOF Or Content.EOF) Then ' Torihikibi = Content.Fields("取引日") ' End IF Torihikibi = Request("Torihikibi") %> <% = PrintScriptX %> <% If RouteType = "Hakushi" Then Response.Write(TyoboGokeiZandakaShisanhyo(EnshuCD, KaisyaCD, KaisyaCD, "LC", "", -1, 1, "", "", "")) Else Response.Write(TyoboGokeiZandakaShisanhyo(EnshuCD, KaisyaCD, KaisyaCD, "LC", "", 0, 1, "", "", "")) End If %> <% End Sub %>