<% ' ' ' %> <% main() Sub main() Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim i Dim TyohyoHeader, TableHeader, TableFooter Dim jj 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") Dim KurikoshiKubun KurikoshiKubun = Request("KurikoshiKubun") '決算整理後・決算振替後の場合は集計日を会計終了日にする（決算関係仕訳は全て会計終了日で仕訳けられるため） If KurikoshiKubun = "1" Or KurikoshiKubun = "2" Then Syuryobi = GB_KaikeiSyuryobi End If Dim TmpGyoshu TmpGyoshu = "" If InStr(RouteType, "SeizoBu") > 0 Then TmpGyoshu = "G" End If TyohyoHeader = TyohyoHeader & " " & vbCrLf TyohyoHeader = TyohyoHeader & " " & vbCrLf TyohyoHeader = TyohyoHeader & " " & vbCrLf TyohyoHeader = TyohyoHeader & " " & vbCrLf TyohyoHeader = TyohyoHeader & " " & vbCrLf TyohyoHeader = TyohyoHeader & " " & vbCrLf TyohyoHeader = TyohyoHeader & "

" & SetDate(Syuryobi, 2) & vbCrLf TyohyoHeader = TyohyoHeader & "

" & vbCrLf 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 TableFooter = "" TableFooter = TableFooter & " 借方 勘定科目 貸方 残高 合計 合計 残高 " & vbCrLf TableFooter = TableFooter & "" & vbCrLf TableFooter = TableFooter & "

" & vbCrLf %> <% = HtmlHeader("sj3tyobored11") %> <% = PrintScriptX %> <% Dim FromTo FromTo = Syuryobi If Kaishibi <> "" Then FromTo = Kaishibi & ";" & FromTo End If Response.Write(TyoboGokeiZandakaShisanhyo(EnshuCD, KaisyaCD, KaisyaCD, "LC", "", 1, 1, FromTo, KurikoshiKubun, TmpGyoshu)) %> <% End Sub %>