<!-- #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
%>