<!-- #include file="../../../include.asp" --> <!-- #include file="../../../user/bk/tyobo/fk_shiwakesyukeihyo_view_main_in.asp" --> <% '<!-- '################################################ ' 名称 :仕訳集計表 ' 作成日:2003/1/27 ' 作成者:山崎 ' 目的 :仕訳集計表の画面を表示する。 ' 概要 : ' <<表示>> '################################################ '--> ' ' %> <% 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 = 1; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" method="POST" action="rm_shiwakesyukeihyo.asp" target="_top" name="form1" autocomplete="off"> <input type="hidden" name="RouteType" value="<% = RouteType %>"> <input type="hidden" name="Mode" value=""> <% If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "経理部", "", "自動転記帳簿", "", PageType, "", "", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "自動転記帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp?MenuType=Jido')", PageType, "", "", "", "", "", "", "")) ElseIf GB_Gyosyu <> "B" Then If InStr(RouteType, "Keiribu") > 0 Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp')", PageType, "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "財務諸表", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s41.asp')", PageType , "", "", "")) End If ElseIf GB_Gyosyu = "B" And RouteType = "syatyo" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "財務諸表", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s41.asp')", PageType , "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", "財務集計", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "11.asp')", PageType,"", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %> <!--'<font size=""1"">" & Torihikibi & "の仕訳帳から" & ConvKanjyoMeisyo(KanjyoCD) & "の元帳へ" & "</font>--> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <TABLE BORDER="0" cellpadding="0" cellspacing="0" WIDTH="720" HEIGHT="100%"> <TR> <TD height="30" align="center"> <TABLE BORDER="1" CELLSPACING="5" bgcolor="#ffffff" style="border:1px solid #000000"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="tx1416"> <tr> <td> <table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416"> <tr> <td> <table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416"> <tr> <td> 集計開始日:</td> <td> <select name="Torihikibi" class="tbox4"> <option value="">集計開始日</option> <% Query = "exec SPK自動転記帳簿_仕訳帳取引日照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Do While Not(Content.BOF Or Content.EOF) DbTorihikibi = Content.Fields("取引日") Response.Write("<option value=""" & SetTimeYYYYMMDD(DbTorihikibi) & """") If Torihikibi <> "" Then If DbTorihikibi = CDate(Torihikibi) Then Response.Write(" selected") End If End If Response.Write(">") Response.Write(SetTimeYYYYMMDD(DbTorihikibi)) Response.Write("</option>" & vbCrLf) Content.MoveNext Loop %> </select> </td> </tr> </table> </td> <td width="10"></td> <td> <TABLE onClick="form1.Mode.value='Tanjitsu';SubmitReal(form1);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1"> <TR> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD> <TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>">単日集計</TD> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> <td width="20"></td> <td> <table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416"> <tr> <td>集計終了日:</td> <td> <select name="Torihikibi2" class="tbox4"> <option value="">集計終了日</option> <% Query = "exec SPK自動転記帳簿_仕訳帳取引日照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Do While Not(Content.BOF Or Content.EOF) DbTorihikibi2 = Content.Fields("取引日") Response.Write("<option value=""" & SetTimeYYYYMMDD(DbTorihikibi2) & """") If Torihikibi2 <> "" Then If DbTorihikibi2 = CDate(Torihikibi2) Then Response.Write(" selected") End If End If Response.Write(">") Response.Write(SetTimeYYYYMMDD(DbTorihikibi2)) Response.Write("</option>" & vbCrLf) Content.MoveNext Loop %> </select> </td> </tr> </table> </td> <td width="10"></td> <td> <TABLE onClick="SubmitReal(form1);" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1"> <TR> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD> <TD ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>">期間集計</TD> <TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </TD> </TR> <TR> <TD align="center"> <% Response.Write(TyoboShiwakeSyukeihyo(EnshuCD, KaisyaCD, KaisyaCD, "LB", Torihikibi, 1, 0, Torihikibi2, "", "")) %> </TD> </TR> </table> </div> </form> </body> <% = HtmlFooter %> </html> <% End Sub %>