%
'
'
'
%>
<%
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
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
TableFooter = TableFooter & "
" & vbCrLf
TableFooter = TableFooter & "
" & vbCrLf
If ViewMode = "All" Then
TorihikisakiCD = ""
End If
Dim RouteType
RouteType = Request("RouteType")
%>
<% = HtmlHeader("sj3tyobored11") %>
<% = PrintScriptX %>
<% Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, BunsyoSyuruiCD, TorihikisakiCD, RouteType, 0, 1)) %>
<%
End Sub
%>