<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	:勘定残高設定
'	作成日:2003/1/20
'	作成者:山崎
'	目的 :繰越残高設定画面を表示する。
'	概要	:
'	 <<表示>>
'	・初期は"追加モード":伝票番号はNULL
'	・伝票番号が指定してある場合は"修正モード"
'	<<入力チェック>>
'################################################
'-->
'
%>

<%
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, RouteType, AutoFlg
	PageType = "勘定残高設定"
	If PackageMode = 1 Then
		PageType = "期首残高設定"
	End If

	'製造部対応(080411小野)
	Dim Mode
	Mode = Request("Mode")

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	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

	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		KaisyaMeisyo = Content.Fields("会社名称")
		KaisyaRyakuMeisyo = Content.Fields("会社略名称")
	End If


If RouteType = "Hakushi" Then

	AutoFlg = -1

Else

	AutoFlg = 0

End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;

	//印刷余白指定(ミリ指定)
	PrintTopMargin = 20;
	PrintLeftMargin = 0;
//	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 %>

<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="">

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
	<td align="center" valign="top">

		<table width="600" border="0" cellspacing="0" cellpadding="0">
		<tr>
			<td align="center" valign="top">


				<%

					Dim PageNo, RowBreakNum, RowCount, KaiPageFlg, TotalRowCount

					PageNo = 1
					RowCount = 0
					KaiPageFlg = 1
					TotalRowCount = 0

					Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '0000000', '" & GyosyuKubun & "'"
					Set Content = OpenQuery(Query)
					Dim jj, ii
					ii = 0
					Do While Not(Content.BOF Or Content.EOF)

							RowCount = RowCount + 1
							RowBreakNum = 35
							TotalRowCount = TotalRowCount + 1

							if KaiPageFlg = 1 then

							Response.Write(PrintHeader(AutoFlg, ""))
							Response.Write(PrintFooter())
				%>
				
								<table width="130" class="tx1820b" border="0" cellpadding="0" cellspacing="0" >
								<tr>
									<td align="center" nowrap>
									<ins><% If Mode = "Seizo" Then Response.Write("製造部") End If %><% = PageType %></ins>
									<%
										'If Len(SyoruiMei) < 8 Then
										'	Response.Write(SetStringInsertSpace(SyoruiMei))
										'Else
										'	Response.Write(SyoruiMei)
										'End If
									%>
									</td>
								</tr>
								</table>
				
				
							<TABLE WIDTH="640" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1214" STYLE="border-collapse: collapse">
								<tr BGCOLOR="#DDDDDD">
									<td HEIGHT="20" align="center" colspan="2">勘定科目</td>
									<td WIDTH="80" HEIGHT="20" align="center">摘要</td>
									<td WIDTH="110" HEIGHT="20" align="center">明細</td>
									<td WIDTH="100" HEIGHT="20" align="center">借方金額</td>
									<td WIDTH="100" HEIGHT="20" align="center">貸方金額</td>
								</tr>
				<%
							end if
					
							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><span style=""width:80px; height:14px; overflow:hidden"">" & HardWrap(ConvTekiyoMeisyoDx(EnshuCD, KaisyaCD, Content.Fields("摘要CD"))) & "</span></td>" & vbCrLf)
							Response.Write("<td>" & Content.Fields("摘要") & "</td>" & vbCrLf)
							Response.Write("<td align=""right"">" & ConvIntToMoney(KarikataKingaku, false ,false) & "</td>" & vbCrLf)
							Response.Write("<td align=""right"">" & ConvIntToMoney(KashikataKingaku, false ,false) & "</td>" & vbCrLf)
							Response.Write("</tr>" & vbCrLf)
							Content.MoveNext
							
							KaiPageFlg = 0

							if (RowCount Mod RowBreakNum = 0) then
								Response.Write("</TABLE>" & vbCrLf)
								'Response.Write("<div class=""pagebreak""></div>" & vbCrLf)
								Response.Write(PageBreakBefore)
								RowCount = 0
								KaiPageFlg = 1
							end If
							
					Loop

				%>

							</TABLE>

			</td>
		</tr>
		<tr>
			<td align="center">
				
				<TABLE WIDTH="640" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1214" STYLE="border-collapse: collapse">
				<tr>
					<td BGCOLOR="#DDDDDD" HEIGHT="20">合計</td>
					<td WIDTH="100" align="right"><% = ConvIntToMoney(KarikataGokei, false ,false) %></td>
					<td WIDTH="100" align="right"><% = ConvIntToMoney(KashikataGokei, false ,false) %></td>
				</tr>
				</TABLE>
					
			</td>
		</tr>
		</table>

	</td>
</tr>
</table>

</form>
</body>

<% = HtmlFooter %>

</html>

<%
End Sub
%>