%
'
'
'
%>
<%
main()
Sub main()
Dim PageType
Dim Kaishibi
Dim Syuryobi
Dim Query
Dim Content
Dim i
Dim TyohyoHeader, TableHeader, TableFooter
PageType = Request("PageType")
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
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 & " "
If PageType = "Shiire" Then
TableHeader = TableHeader & "仕入"
Else
TableHeader = TableHeader & "売上"
End If
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
%>
<% = HtmlHeader("sj3tyoboblack11") %>
<% = PrintScriptX %>
<%
If PageType = "Shiire" Then
Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MC", "", 1, 1))
Else
Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MD", "", 1, 1))
End If
%>
<%
End Sub
%>