<!-- #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>&nbsp;集計開始日:</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
%>