<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim ii, jj, iiSyukeihyoSelect, ShiwakeData, iiMototyoSelect, MototyoData Dim SokanjyoMototyoCD Dim DbKanjyoCD, DbShiwakeData, DbDenpyoTekiyo, DbTekiyo1, DbTekiyo2 Dim DbKanjyoMeisyo, DbMototyo Dim DbDenpyoKubun, DbDenpyoNo , DbDenpyoSEQ Dim DbTekiyo, DbTorihikibi, DbTorihikibi2, DbShityo, DbZandaka, DbMototyoData Dim DbKarikataKingaku, DbKashikataKingaku Dim DbKarikataKingakuTotal, DbKashikataKingakuTotal Dim DbSokanjyoMototyoCD Dim KanjyoCD Dim Torihikibi Dim Torihikibi2 Dim Mode Dim DenpyoKubun, DenpyoNo, DenpyoSEQ KanjyoCD = Request("KanjyoCD") Torihikibi = Request("Torihikibi") Torihikibi2 = Request("Torihikibi2") Mode = Request("Mode") DenpyoKubun = Request("DenpyoKubun") DenpyoNo = Request("DenpyoNo") DenpyoSEQ = Request("DenpyoSEQ") If Mode = "Tanjitsu" Then Torihikibi2 = "" End If Dim PageType PageType = "仕訳集計表" Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("sj3tyobored11") %> <% = PrintScriptX %> <% Response.Write(TyoboShiwakeSyukeihyo(EnshuCD, KaisyaCD, KaisyaCD, "LB", Torihikibi, 1, 1, Torihikibi2, "", "")) %> <% End Sub %>