<!-- #include file="../../../include.asp" --> <!-- #include file="../../../user/bk/tyobo/fk_shiwakesyukeihyo_view_main_in.asp" --> <% '<!-- '################################################ ' 名称 :帳簿_仕訳集計表の印刷画面 ' 作成日:2003/1/23 ' 作成者:山崎 ' 目的 :帳簿_仕訳集計表の印刷画面を表示する。 ' 概要 : ' <<表示>> ' ・帳簿_仕訳集計表の印刷画面 '################################################ '--> ' ' %> <% 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") %> <html> <% = HtmlHeader("sj3tyobored11") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 0; //印刷余白指定(ミリ指定) PrintTopMargin = 20; PrintLeftMargin = 20; // PrintTopMargin = 0; // PrintLeftMargin = 0; --> </SCRIPT> <body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% = PrintScriptX %> <% Response.Write(TyoboShiwakeSyukeihyo(EnshuCD, KaisyaCD, KaisyaCD, "LB", Torihikibi, 1, 1, Torihikibi2, "", "")) %> </body> </html> <% End Sub %>