<% ' ' ' %> <% main() Sub main() Dim PageType,SyohinCD Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim i Dim TyohyoHeader, TableHeader, TableFooter PageType = Request("PageType") SyohinCD = Request("SyohinCD") Dim Mode Mode = Request("Mode") Dim SyohinAridakatyoCD, Torihikibi,TorihikisakiCD Dim UkebaraiKubun,UkebaraiKubunName, UkeireSuryo, UkeireTanka, UkeireKingaku Dim HaraidasiSuryo, HaraidasiTanka, HaraidasiKingaku Dim ZandakaSuryo, ZandakaTanka, ZandakaKingaku 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 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 %> <% = HtmlHeader("sj3tyoboredPRT09") %> <% = PrintScriptX %> <% Response.Write(HojyoboSyohinAridakatyo(EnshuCD, KaisyaCD, KaisyaCD, "MG", SyohinCD, 0, 1, "", Mode, "")) %> <% End Sub %>