<% ' ' ' %> <% main() Sub main() Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim i Dim TyohyoHeader, TableHeader, TableFooter Dim TorihikisakiCD,PageType Dim ViewMode TorihikisakiCD = Request("TorihikisakiCD") PageType = Request("PageType") ViewMode = Request("ViewMode") Dim Label If PageType = "Urikake" Then Label = "売掛金元帳" Else Label = "買掛金元帳" End If Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim BunsyoSyuruiCD Dim Title If PageType = "Urikake" Then Title = "売掛金元帳" BunsyoSyuruiCD ="ME" Else Title = "買掛金元帳" BunsyoSyuruiCD ="MF" End If 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 TableHeader = TableHeader & "" & vbCrLf TableFooter = "" TableFooter = TableFooter & " 取引日 摘要 借方金額 貸方金額 貸借 残高 " & vbCrLf TableFooter = TableFooter & "" & vbCrLf TableFooter = TableFooter & "

" & vbCrLf If ViewMode = "All" Then TorihikisakiCD = "" End If Dim RouteType RouteType = Request("RouteType") %> <% = PrintScriptX %> <% Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, BunsyoSyuruiCD, TorihikisakiCD, RouteType, 0, 1)) %> <% End Sub %>