
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：勘定残高設定
'	作成日：2003/1/20
'	作成者：山崎
'	目的　：繰越残高設定画面を表示する。
'	概要	：
'	 <<表示>>
'	・初期は"追加モード"：伝票番号はＮＵＬＬ
'	・伝票番号が指定してある場合は"修正モード"
'	<<入力チェック>>
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
			Exit Sub
	End If

	Dim DenpyoNo, Torihikibi, DenpyoTekiyo		 '伝票番号、取引日、伝票摘要
	Dim KanjyoCD(10)													 '勘定科目コード
	Dim Kanjyomei(10)												 '勘定科目名称
	Dim Kingaku(10)													 '金額
	Dim Tekiyo(10)														 '摘要
	Dim TekiyoCD(10)											 '取引先CD
	Dim KarikataGokei, KashikataGokei				 '借方合計、貸方合計

	Dim Query
	Dim Content
	Dim Genkin, Toza
	Dim Amend
	Dim Shimei
	Dim GakuseiBango
	Dim PageType
	PageType = "勘定残高設定"
	If PackageMode = 1 Then
		PageType = "期首残高設定"
	End If

	Dim HyojiFlg
	HyojiFlg = Request("HyojiFlg")

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	'製造部対応（080411小野）
	Dim Mode
	Mode = Request("Mode")

	Dim AutoPrint 
	AutoPrint = Request("AutoPrint")

	Dim GyosyuKubun
	GyosyuKubun = ConvKaisyaGyosyuKubun(KaisyaCD)
	If Mode = "Seizo" Then	'製造部対応（080411小野）
		GyosyuKubun = "G"
	End If

	Amend = Request("amend")
	DenpyoNo = Request("DenpyoNo")
	Genkin = 0
	Toza = 0
	KashikataGokei = 0
	KarikataGokei = 0

	Dim TekiyoCDs
	Query = "exec SPM摘要表示一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"

	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If TekiyoCDs <> "" Then
			TekiyoCDs = TekiyoCDs & ","
		End If
		TekiyoCDs = TekiyoCDs & Content.Fields("摘要CD")

		Content.MoveNext
	Loop


	Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Genkin = Content.Fields("金額")
	End If

	Dim QueryNyusyuko, ContentNyusyuko, KingakuNyusyuko, NyusyukoBango
	KingakuNyusyuko = 0
	QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'S'"
	Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
	Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
		If ContentNyusyuko.Fields("処理時期区分") = 0 Then
			NyusyukoBango = ContentNyusyuko.Fields("文書内容CD")
		End If
		ContentNyusyuko.MoveNext
	Loop

	QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'S', '" & NyusyukoBango	& "'"
	Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
	Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
		KingakuNyusyuko = KingakuNyusyuko + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価")
		ContentNyusyuko.MoveNext
	Loop

	Dim QueryKoza, ContentKoza
	Dim TozaKinagku,FutsuKingaku, TeikiKingaku, TsumitateKingaku, BetsudanKingaku
	TozaKinagku = 0
	FutsuKingaku = 0
	TeikiKingaku = 0
	TsumitateKingaku = 0
	BetsudanKingaku = 0

	QueryKoza = "exec SPB銀行口座一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''"
	Set ContentKoza = OpenQuery(QueryKoza)
	Do While Not(ContentKoza.BOF Or ContentKoza.EOF)
		Dim MyGinkoCD, MyKozaKubun
		MyGinkoCD = ""
		MyKozaKubun = ""
		If Not(ContentKoza.BOF Or ContentKoza.EOF) Then
			MyGinkoCD = ContentKoza.Fields("銀行CD")
			MyKozaKubun = ContentKoza.Fields("口座区分")
		End If
		Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MyGinkoCD & "', '" & MyKozaKubun & "', ''"

		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("処理時期区分") = 0 Then

				If MyKozaKubun = "B" Then
					BetsudanKingaku = BetsudanKingaku + Content.Fields("金額")
				ElseIf MyKozaKubun = "F" Then
					FutsuKingaku = FutsuKingaku + Content.Fields("金額")
				ElseIf MyKozaKubun = "L" Then
					TeikiKingaku = TeikiKingaku + Content.Fields("金額")
				ElseIf MyKozaKubun = "M" Then
					TsumitateKingaku = TsumitateKingaku + Content.Fields("金額")
				ElseIf MyKozaKubun = "T" Then
					TozaKinagku = TozaKinagku + Content.Fields("金額")
				End If
			End If
			Content.MoveNext
		Loop
		ContentKoza.MoveNext
	Loop

	Dim KishusetteiRiyo
	Dim KishusetteiRiyoKanjo
	Dim KishusetteiRiyoKurikoshi
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KishusetteiRiyo = "" & Content.Fields("期首設定経理部利用")
	End If
	If "" & KishusetteiRiyo = "" Then
		KishusetteiRiyo = "3"
	End If
	KishusetteiRiyoKanjo = "1"
	KishusetteiRiyoKurikoshi = "1"
	If KishusetteiRiyo = "2" Or KishusetteiRiyo = "0" Then
		'勘定残高のみ
		KishusetteiRiyoKurikoshi = "0"
	End If
	If KishusetteiRiyo = "1" Or KishusetteiRiyo = "0" Then
		'繰越残高のみ
		KishusetteiRiyoKanjo = "0"
	End If




%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)"<% If AutoPrint = "1" Then %> onLoad="PrintoutReal();"<% End If %> bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	name="form1" method="POST" action="fk_kanjyozandaka_bin.asp">
<input type="hidden" name="DenpyoNo" value="0000000">
<input type="hidden" name="SendValue" value="">

<%
'Response.Write("◆" & KaisyaCD & "◆" & KaisyaMeisyo & "◆" & KaisyaRyakuMeisyo)


	Response.Write(HtmlDesign(1))

	If GB_Admin >= 1 Then
		Response.Write(HttpL1(4))
	Else
		Response.Write(HttpL1(2))
	End If

	If GB_Admin >= 1 Then
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "会社マスター", "tblbtn( '/" & HomeAlias & "/admin/master/kaisya/fm_kaisya_view.asp?Action=2&KaisyaCD=" & KaisyaCD & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "' )", "勘定残高設定", "", "", "", "", ""))
	ElseIf PackageMode = 1 Then
		Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", PageType, "", "", "", "", "", "", "", "", ""))
	ElseIf Mode = "Seizo" Then	'製造部対応（080411小野）
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", PageType , "", "", "", "", ""))
	ElseIf GB_Gyosyu <> "B" 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')", 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')", PageType, "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "" ,"", "" ,"", "", "", "", "", "", "", "", "", "", "", ""))

	'印刷ボタン表示判定のため此処で勘定残高を取得する（091005小野）
	Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '0000000', '" & GyosyuKubun & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "","", "", "", "", "" ,"", ""))
	Else
		Response.Write(HttpL3_1("", "", "","", "", "", "", "" ,"", ""))
	End If


	If KishusetteiRiyoKanjo = "1" Then
		Response.Write(HttpL3_2("入力", "tblbtn('fk_kanjyozandaka.asp?KaisyaCD=" & Request("KaisyaCD") & "&Mode=" & Mode & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "')", "", "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
	End If

	Dim KaishaHyoji
	If GB_Admin > 0 Then
		KaishaHyoji = ConvKaisyaRyakuMeisyoDx(EnshuCD, KaisyaCD)
	End If
	If Mode = "Seizo" Then	'製造部対応（080411小野）
		Response.Write(HttpL4("製造部" & PageType, KaishaHyoji))
	Else
		Response.Write(HttpL4(PageType, KaishaHyoji))
	End If

	If Request("Zandaka") = "tenki" Then
		Response.Write(HttpL5("総勘定元帳・補助簿に転記しました"))
	End If

%>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
		<tr>
			<td align="center">
				<table width="540" height="100%" border="0" cellpadding="0" cellspacing="0">
					<tr>
						<td height="100%">
							<table width="540" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border:solid 0px #111111">
								<tr>
									<td height="60">
										<table width="525" height="100%" border="0" cellpadding="0" cellspacing="0">
											<tr>
												<td width="155" align="right" valign="top">
													<table width="550" height="100%" border="0" cellspacing="5" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
														<tr>
															<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
																<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
																<% '印刷ボタン表示判定のため上で取得している（091005小野）
																	If Mode <> "Seizo" And Not(Content.BOF Or Content.EOF) Then %>
																	<tr>
																		<td height="30">
																			<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1">
																				<TR>
																					<TD id="TDAL" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>" onClick="ZandakaTenki();"></TD>
																					<TD id="TDAC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" onClick="ZandakaTenki();">&nbsp;総勘定元帳・補助簿に転記する&nbsp;</TD>
																					<TD id="TDAR" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>" onClick="ZandakaTenki();"></TD>
																				</TR>
																			</TABLE>
																		</td>
																	</tr>
																	<% End If %>
																	<tr>
																		<td>
																			<table width="660" height="100%" border="0" cellspacing="0" cellpadding="0">
																				<tr>
																					<td valign="middle">
																						<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:750px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;"> 
																							<TABLE WIDTH="730" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse">
																								<tr BGCOLOR="#DDDDDD">
																									<td HEIGHT="20" align="center" colspan="2">勘定科目</td>
																									<td WIDTH="100" HEIGHT="20" align="center">摘要</td>
																									<td WIDTH="130" HEIGHT="20" align="center">明細</td>
																									<td WIDTH="120" HEIGHT="20" align="center">借方金額</td>
																									<td WIDTH="120" HEIGHT="20" align="center">貸方金額</td>
																								</tr>
	<%

				Dim HojoboCheck
				HojoboCheck = ""

				Dim jj, ii
				ii = 0
				Do While Not(Content.BOF Or Content.EOF)
						ii = ii + 1
						Dim KarikataKingaku, KashikataKingaku
						KarikataKingaku = Content.Fields("借方金額")
						KashikataKingaku = Content.Fields("貸方金額")
						If Not(IsNull(KarikataKingaku)) Then
							KarikataGokei = KarikataGokei + KarikataKingaku
						End If
						If Not(IsNull(KashikataKingaku)) Then
							KashikataGokei = KashikataGokei + KashikataKingaku
						End If
						Response.Write("<tr>")
						Response.Write("<td WIDTH=""40"" HEIGHT=""20"" align=""center"">" & Content.Fields("勘定CD") & "</td>" & vbCrLf)
						Response.Write("<td>" & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, Content.Fields("勘定CD")) & "</td>" & vbCrLf)
						Response.Write("<td WIDTH=""100""><span style=""width:100px; height:14px; overflow:hidden"">" & HardWrap(ConvTekiyoMeisyoDx(EnshuCD, KaisyaCD, Content.Fields("摘要CD"))) & "</span></td>" & vbCrLf)
						Response.Write("<td WIDTH=""130"">" & Content.Fields("摘要") & "</td>" & vbCrLf)
						Response.Write("<td WIDTH=""120"" align=""right"">" & ConvIntToMoney(KarikataKingaku, false ,false) & "</td>" & vbCrLf)
						Response.Write("<td WIDTH=""120"" align=""right"">" & ConvIntToMoney(KashikataKingaku, false ,false) & "</td>" & vbCrLf)
						Response.Write("</tr>" & vbCrLf)

						'当座預金出納帳・買掛金元帳・売掛金元帳の挿入不能項目のチェック
						If ("" & Content.Fields("チェック区分") = "AB" Or "" & Content.Fields("チェック区分") = "AC" Or "" & Content.Fields("チェック区分") = "AD") And "" & Content.Fields("摘要CD") = "" Then
							HojoboCheck = HojoboCheck & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, Content.Fields("勘定CD")) & "　　借方金額：" & ConvIntToMoney(KarikataKingaku, false ,false) & "　貸方金額：" & ConvIntToMoney(KashikataKingaku, false ,false) & "\r\r"
						End If

						Content.MoveNext
				Loop

				For jj = ii To 35
%>
																								<tr>
																									<td WIDTH="40"></td>
																									<td HEIGHT="20" align="center"></td>
																									<td WIDTH="100"></td>
																									<td WIDTH="130"></td>
																									<td WIDTH="120"></td>
																									<td WIDTH="120"></td>
																								</tr>
<%
				Next

	%>
																							</table>
																						</div>
																					</td>
																				</tr>
																				<tr>
																					<td height="20">
																						<TABLE WIDTH="730" HEIGHT="20" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse">
																								<tr>
																									<td BGCOLOR="#DDDDDD">合計</td>
																									<td WIDTH="120" HEIGHT="20" align="right"><% = ConvIntToMoney(KarikataGokei, false ,false) %></td>
																									<td WIDTH="120" HEIGHT="20" align="right"><% = ConvIntToMoney(KashikataGokei, false ,false) %></td>
																								</tr>
																							</table>
																					</td>
																				</tr>
																			</table>
																		</td>
																	</tr>
																</table>
															</td>
														</tr>
													</table>

												</td>
											</tr>
										</table>
									</td>
								</tr>
							</table>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>

</div>
</form>
</body>

<script language="JavaScript">

	function ZandakaTenki() {

		var tmp = '<% = HojoboCheck %>';
		if (tmp != '') {
			tmp = "\r以下の残高は取引先が未選択のため転記されません　\r\r" + tmp + "\r";
		}
		if(confirm("勘定残高から総勘定元帳・補助簿に転記します　\r\r" + tmp + "よろしいですか？　")) {
			tblbtn('fk_kanjyozandaka_tenki.asp?KaisyaCD=<% = KaisyaCD %>&ShijoCD=<% = ShijoCD %>');
		}
	}

</script>


<% = HtmlFooter %>
</html>
<%
End Sub
%>