
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：記帳チェックの照会
'	 作成日：2002/10/30
'	 作成者：徳田
'	 目的　：記帳チェックの照会画面を表示する。
'	 概要	：
'		<<表示>>
'	・記帳チェックの照会
'################################################
'-->
'
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Kaishibi,	Syuryobi ,GB_GakuseiBango


	Dim CheckType
	CheckType = Request("CheckType")
	If CheckType = "" Then
		CheckType = "1"
	End If

	'仕訳日単位で集計するため
	Dim Shiwakebi
	Shiwakebi = Request("Shiwakebi")

	Dim RouteType
	RouteType = Request("RouteType")


	Dim Query
	Dim Content
	Dim Content2



	Dim bCheckSeiriKinyugo
	bCheckSeiriKinyugo = CheckSeiriKinyugo(GB_KaisyaCD, GB_KaikeiSyuryobi)

	Dim bCheckKessanFurikaego
	bCheckKessanFurikaego = CheckKessanFurikaego(GB_KaisyaCD, GB_KaikeiSyuryobi)



	Dim InputSokanjyoMototyo, InputHojyobo, RiyoDenpyoSu

	Dim InputGenkinSuitotyo
	Dim InputKoguchiSuitocho
	Dim InputTouzayokinSuitotyo
	Dim InputUriagetyo
	Dim InputShiiretyo
	Dim InputUrikakekinMototyo
	Dim InputKaikakekinMototyo
	Dim InputUketoriTegatatyo
	Dim InputShiharaiTegatatyo

	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示")
		InputHojyobo = Content.Fields("手動補助簿表示")
		RiyoDenpyoSu = Content.Fields("利用伝票数区分")
		InputGenkinSuitotyo = "" & Content.Fields("現金出納帳表示")
		InputKoguchiSuitocho = "" & Content.Fields("小口現金出納帳表示")
		InputTouzayokinSuitotyo = "" & Content.Fields("当座預金出納帳表示")
		InputUriagetyo = "" & Content.Fields("売上帳表示")
		InputShiiretyo = "" & Content.Fields("仕入帳表示")
		InputUrikakekinMototyo = "" & Content.Fields("売掛金元帳表示")
		InputKaikakekinMototyo = "" & Content.Fields("買掛金元帳表示")
		InputUketoriTegatatyo = "" & Content.Fields("受取手形記入帳表示")
		InputShiharaiTegatatyo = "" & Content.Fields("支払手形記入帳表示")
	End If

	If InputGenkinSuitotyo <> "1" And InputKoguchiSuitocho <> "1" And InputTouzayokinSuitotyo <> "1" And InputUriagetyo <> "1" And InputShiiretyo <> "1" And InputUrikakekinMototyo <> "1" And InputKaikakekinMototyo <> "1" And InputUketoriTegatatyo <> "1" And InputShiharaiTegatatyo <> "1" Then
		InputHojyobo = "0"
	End If

	Dim bExistSeiMark
	Dim bExistFuriMark
	Dim i
	Dim ii, jj
	Dim KanjyoCD

	Dim color1, color2
	color1 = "#000000"
	color2 = "#000000"

	Dim iCount
	iCount = 0


	'チェック区分により集計された科目の内訳を表示する拡張（081125小野）
	Dim TmpKamokuCD
	TmpKamokuCD = ""
	Dim UCWKCheckKubun
	Dim UCWKKamokuCD
	Dim UCWKKamokuMeisho
	Dim UCWKDenpyoKarikata
	Dim UCWKDenpyoKashikata
	Dim UCWKDenpyoZanDaka
	Dim UCWKMototyoKarikata
	Dim UCWKMototyoKashikata
	Dim UCWKMototyoZanDaka
	Dim UCWKHyojiFlg
	ReDim UCWKCheckKubun(0)
	ReDim UCWKKamokuCD(0)
	ReDim UCWKKamokuMeisho(0)
	ReDim UCWKDenpyoKarikata(0)
	ReDim UCWKDenpyoKashikata(0)
	ReDim UCWKDenpyoZanDaka(0)
	ReDim UCWKMototyoKarikata(0)
	ReDim UCWKMototyoKashikata(0)
	ReDim UCWKMototyoZanDaka(0)
	ReDim UCWKHyojiFlg(0)
	'チェック区分により集計される科目の内訳を取得
	If DynamicKityoCheck = 0 Then
		Query = "exec SPM記帳チェック挿入一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GB_KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("科目チェック区分") <> "" Then
				If "" & Content.Fields("チェック区分") <> TmpKamokuCD Then
					ReDim PreServe UCWKCheckKubun(UBound(UCWKCheckKubun) + 1)
					ReDim PreServe UCWKKamokuCD(UBound(UCWKCheckKubun))
					ReDim PreServe UCWKKamokuMeisho(UBound(UCWKCheckKubun))
					ReDim PreServe UCWKDenpyoKarikata(UBound(UCWKCheckKubun))
					ReDim PreServe UCWKDenpyoKashikata(UBound(UCWKCheckKubun))
					ReDim PreServe UCWKDenpyoZanDaka(UBound(UCWKCheckKubun))
					ReDim PreServe UCWKMototyoKarikata(UBound(UCWKCheckKubun))
					ReDim PreServe UCWKMototyoKashikata(UBound(UCWKCheckKubun))
					ReDim PreServe UCWKMototyoZanDaka(UBound(UCWKCheckKubun))
					ReDim PreServe UCWKHyojiFlg(UBound(UCWKCheckKubun))
					UCWKCheckKubun(UBound(UCWKCheckKubun)) = Content.Fields("科目チェック区分")
					UCWKKamokuCD(UBound(UCWKCheckKubun)) = Content.Fields("チェック区分")
					UCWKKamokuMeisho(UBound(UCWKCheckKubun)) = Content.Fields("勘定名称")
					TmpKamokuCD = "" & Content.Fields("チェック区分")
				End If
				If "" & Content.Fields("チェック種類") = "1" Then
					UCWKDenpyoKarikata(UBound(UCWKCheckKubun)) = Content.Fields("伝票借方")
					UCWKDenpyoKashikata(UBound(UCWKCheckKubun)) = Content.Fields("伝票貸方")
					If "" & UCWKDenpyoKarikata(UBound(UCWKCheckKubun)) = "" Then
						UCWKDenpyoKarikata(UBound(UCWKCheckKubun)) = 0
					End If
					If "" & UCWKDenpyoKashikata(UBound(UCWKCheckKubun)) = "" Then
						UCWKDenpyoKashikata(UBound(UCWKCheckKubun)) = 0
					End If
					If "" & Content.Fields("貸借区分") = "D" Then
						UCWKDenpyoZanDaka(UBound(UCWKCheckKubun)) = UCWKDenpyoKarikata(UBound(UCWKCheckKubun)) - UCWKDenpyoKashikata(UBound(UCWKCheckKubun))
					Else
						UCWKDenpyoZanDaka(UBound(UCWKCheckKubun)) = UCWKDenpyoKashikata(UBound(UCWKCheckKubun)) - UCWKDenpyoKarikata(UBound(UCWKCheckKubun))
					End If
				ElseIf "" & Content.Fields("チェック種類") = "2" Then
					UCWKMototyoKarikata(UBound(UCWKCheckKubun)) = Content.Fields("元帳借方")
					UCWKMototyoKashikata(UBound(UCWKCheckKubun)) = Content.Fields("元帳貸方")
					If "" & UCWKMototyoKarikata(UBound(UCWKCheckKubun)) = "" Then
						UCWKMototyoKarikata(UBound(UCWKCheckKubun)) = 0
					End If
					If "" & UCWKMototyoKashikata(UBound(UCWKCheckKubun)) = "" Then
						UCWKMototyoKashikata(UBound(UCWKCheckKubun)) = 0
					End If
					If "" & Content.Fields("貸借区分") = "D" Then
						UCWKMototyoZanDaka(UBound(UCWKCheckKubun)) = UCWKMototyoKarikata(UBound(UCWKCheckKubun)) - UCWKMototyoKashikata(UBound(UCWKCheckKubun))
					Else
						UCWKMototyoZanDaka(UBound(UCWKCheckKubun)) = UCWKMototyoKashikata(UBound(UCWKCheckKubun)) - UCWKMototyoKarikata(UBound(UCWKCheckKubun))
					End If
				End If
			End If
			Content.MoveNext
		Loop
	End If
	'内訳を表示するチェック区分を特定する
	Dim TmpCheckKubun
	TmpCheckKubun = ""
	For ii = UBound(UCWKCheckKubun) To 1 Step -1
		UCWKHyojiFlg(ii) = 0
		If UCWKCheckKubun(ii) = TmpCheckKubun Then
			UCWKHyojiFlg(ii) = 1
			UCWKHyojiFlg(ii + 1) = 1
		End If
		TmpCheckKubun = "" & UCWKCheckKubun(ii)
	Next


	If DynamicKityoCheck = 0 Then
		If Shiwakebi <> "" Then
			Query = "exec SPM記帳チェック挿入集計2 '" & GB_SystemCD & "','" & EnshuCD & "','" & GB_KaisyaCD & "'"
		Else
			Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','" & EnshuCD & "','" & GB_KaisyaCD & "'"
		End If
	Else
		Query = "exec SPM記帳チェック '" & GB_SystemCD & "','" & EnshuCD & "','" & GB_KaisyaCD & "'" 'リアルタイム集計は重いので非利用
	End If

	ReDim KubunCD(0), KanjyoMeisyo(0), KanjyoCD(0), CheckKubun(0)
	ReDim DenpyoKarikata(0), DenpyoKashikata(0), DenpyoZandaka(0)
	ReDim MototyoKarikata(0), MototyoKashikata(0), MototyoZandaka(0)
	ReDim HojyoboKarikata(0), HojyoboKashikata(0), HojyoboZandaka(0)
	ReDim GenbutsuKarikata(0), GenbutsuKashikata(0), GenbutsuZandaka(0)

	iCount = 0
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		'原価会計勘定科目は表示しないよう変更
		Dim GyoshuCheck
		Query = "exec SPM勘定科目取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & Content.Fields("勘定CD") & "'"
		Set Content2 = OpenQuery(Query)
		If Not(Content2.BOF Or Content2.EOF) Then
			GyoshuCheck = Content2.Fields("業種CD")
		End If
		'原価科目は除外
		If GyoshuCheck = "G" Then
		'銀行以外の業種の場合は銀行科目を除外（業種変更時に不要な期首設定が残る場合があるため）
		ElseIf GB_Gyosyu <> "B" And GyoshuCheck = "B" Then
		'チェック区分が存在する項目は常に表示される仕様であるため
		'普通・別段・積立・定期各預金チェック区分で伝票・元帳・補助簿の貸借が全て0なら表示しないよう修正
		ElseIf Left(Content.Fields("チェック区分"),1) = "D" And Content.Fields("伝票借方") = 0 And Content.Fields("伝票貸方") = 0 And Content.Fields("元帳借方") = 0 And Content.Fields("元帳貸方") = 0 And Content.Fields("補助簿借方") = 0 And Content.Fields("補助簿貸方") = 0 Then
		Else
			iCount = iCount + 1
			ReDim PreServe KubunCD(iCount), KanjyoMeisyo(iCount), KanjyoCD(iCount), CheckKubun(iCount)
			ReDim PreServe DenpyoKarikata(iCount), DenpyoKashikata(iCount), DenpyoZandaka(iCount)
			ReDim PreServe MototyoKarikata(iCount), MototyoKashikata(iCount), MototyoZandaka(iCount)
			ReDim PreServe HojyoboKarikata(iCount), HojyoboKashikata(iCount), HojyoboZandaka(iCount)
			ReDim PreServe GenbutsuKarikata(iCount), GenbutsuKashikata(iCount), GenbutsuZandaka(iCount)
			KanjyoMeisyo(iCount) = Content.Fields("勘定名称")
			KanjyoCD(iCount) = Content.Fields("勘定CD")
			CheckKubun(iCount) = Content.Fields("チェック区分")
			'バージョン5未満ではチェック区分「小口現金」を除外
			If MajorVersion < 5 And CheckKubun(iCount) = "AI" Then
				CheckKubun(iCount) = ""
			End If
			DenpyoKarikata(iCount) = Content.Fields("伝票借方")
			DenpyoKashikata(iCount) = Content.Fields("伝票貸方")
			DenpyoZandaka(iCount) = Content.Fields("伝票残高")
			MototyoKarikata(iCount) = Content.Fields("元帳借方")
			MototyoKashikata(iCount) = Content.Fields("元帳貸方")
			MototyoZandaka(iCount) = Content.Fields("元帳残高")
			HojyoboKarikata(iCount) = Content.Fields("補助簿借方")
			HojyoboKashikata(iCount) = Content.Fields("補助簿貸方")
			HojyoboZandaka(iCount) = Content.Fields("補助簿残高")
			GenbutsuKarikata(iCount) = Content.Fields("現物借方")
			GenbutsuKashikata(iCount) = Content.Fields("現物貸方")
			GenbutsuZandaka(iCount) = Content.Fields("現物残高")
			'チェック区分により集計された科目の内訳を表示する拡張（081125小野）
			For ii = 1 To UBound(UCWKCheckKubun)
				If UCWKCheckKubun(ii) = CheckKubun(iCount) Then
					If UCWKHyojiFlg(ii) = 1 Then
						iCount = iCount + 1
						ReDim PreServe KubunCD(iCount), KanjyoMeisyo(iCount), KanjyoCD(iCount), CheckKubun(iCount)
						ReDim PreServe DenpyoKarikata(iCount), DenpyoKashikata(iCount), DenpyoZandaka(iCount)
						ReDim PreServe MototyoKarikata(iCount), MototyoKashikata(iCount), MototyoZandaka(iCount)
						ReDim PreServe HojyoboKarikata(iCount), HojyoboKashikata(iCount), HojyoboZandaka(iCount)
						ReDim PreServe GenbutsuKarikata(iCount), GenbutsuKashikata(iCount), GenbutsuZandaka(iCount)
						KanjyoMeisyo(iCount) = "（" & UCWKKamokuMeisho(ii) & "）"
						KanjyoCD(iCount) = UCWKKamokuCD(ii)
						CheckKubun(iCount) = UCWKCheckKubun(ii)
						DenpyoKarikata(iCount) = UCWKDenpyoKarikata(ii)
						DenpyoKashikata(iCount) = UCWKDenpyoKashikata(ii)
						DenpyoZandaka(iCount) = UCWKDenpyoZandaka(ii)
						MototyoKarikata(iCount) = UCWKMototyoKarikata(ii)
						MototyoKashikata(iCount) = UCWKMototyoKashikata(ii)
						MototyoZandaka(iCount) = UCWKMototyoZanDaka(ii)
						HojyoboKarikata(iCount) = "----------"
						HojyoboKashikata(iCount) = "----------"
						HojyoboZandaka(iCount) = "----------"
					Else	'内訳を表示しない場合は実際の科目名称を表示する（090520小野）
						KanjyoMeisyo(iCount) = UCWKKamokuMeisho(ii)
					End If
				End If
			Next
		End If
		Content.MoveNext
	Loop



	'元帳または補助簿全てがOFFの場合はレイアウトを調節する
	Dim CellWidth
	Dim FintSize
	CellWidth = 70
	FintSize = "tx1012"
	If InputSokanjyoMototyo <> "1" And InputHojyobo <> "1" Then
		CellWidth = 110
		FintSize = "tx1214"
	ElseIf InputSokanjyoMototyo <> "1" Or InputHojyobo <> "1" Then
		CellWidth = 90
		FintSize = "tx1214"
	End If


%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 1;
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";

	//印刷余白指定（ミリ指定）
	PrintTopMargin = 20;
	PrintLeftMargin = 12;
//	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 %>

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td valign="top" align="center">
<%
	Dim RowBreakNum, RowCount
	Dim Page
	RowCount = 0

	RowBreakNum = 40

	For Page = 1 To MaxPage
		If Page <> 1 Then
			Response.Write(PageBreakBefore)
		End If
%>
			<table width="100%" border="0" cellspacing="0" cellpadding="0">
				<tr>
					<td height="100%" width="100%" valign="top">
					<% Response.Write(PrintHeader(0, "記帳チェック")) %>
						<TABLE WIDTH="700" BORDER="0" CELLSPACING="0" CELLPADDING="0" >
							<TR>
								<TD VALIGN="BOTTOM" align="center">


									<TABLE WIDTH="100%" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="<% = FintSize %>" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER" bgcolor="#DDDDDD">
<!--
											<TD HEIGHT="20" rowspan="2">勘定科目</TD>
-->
											<TD HEIGHT="20"><% = Shiwakebi %></TD>
											<TD WIDTH="<% = CellWidth * 3 %>" HEIGHT="20" colspan="3"><font color="#000000"><% If RiyoDenpyoSu < 1 Then %>仕　訳　帳<% Else %>伝　　　票<% End If %>（基準）</font></TD>
											<% If InputSokanjyoMototyo = "1" Then %>
											<TD WIDTH="<% = CellWidth * 3 %>" HEIGHT="20" colspan="3">元　　　帳</TD>
											<% End If %>
											<% If InputHojyobo = "1" Then %>
											<TD WIDTH="<% = CellWidth * 3 %>" HEIGHT="20" colspan="3">補　助　簿</TD>
											<% End If %>
										</TR>
										<TR ALIGN="CENTER" bgcolor="#DDDDDD">
											<TD HEIGHT="20">勘定科目</TD>
											<TD WIDTH="<% = CellWidth %>" HEIGHT="20"><font color="#000000"><NOBR>借方金額</NOBR></font></TD>
											<TD WIDTH="<% = CellWidth %>" HEIGHT="20"><font color="#000000"><NOBR>貸方金額</NOBR></font></TD>
											<TD WIDTH="<% = CellWidth %>" HEIGHT="20"><font color="#000000"><NOBR>残高</NOBR></font></TD>
											<% If InputSokanjyoMototyo = "1" Then %>
											<TD WIDTH="<% = CellWidth %>" HEIGHT="20"><NOBR>借方金額</NOBR></TD>
											<TD WIDTH="<% = CellWidth %>" HEIGHT="20"><NOBR>貸方金額</NOBR></TD>
											<TD WIDTH="<% = CellWidth %>" HEIGHT="20"><NOBR>残高</NOBR></TD>
											<% End If %>
											<% If InputHojyobo = "1" Then %>
											<TD WIDTH="<% = CellWidth %>" HEIGHT="20"><NOBR>借方金額</NOBR></TD>
											<TD WIDTH="<% = CellWidth %>" HEIGHT="20"><NOBR>貸方金額</NOBR></TD>
											<TD WIDTH="<% = CellWidth %>" HEIGHT="20"><NOBR>残高</NOBR></TD>
											<% End If %>
										</TR>
										<%

										ii = 0

										bExistSeiMark = 0
										bExistFuriMark = 0

										Dim RowShift
										RowShift = RowBreakNum * (Page - 1)

										For ii = 1 + RowShift To iCount

											If CheckType = "1" Or (CheckType = "2" AND (KanjyoMeisyo(ii) = "現金" OR KanjyoMeisyo(ii) = "当座預金" OR KanjyoMeisyo(ii) = "受取手形" OR KanjyoMeisyo(ii) = "支払手形")) Then
												RowCount = RowCount + 1

												Response.Write("<tr>" & vbCrLf)
												Response.Write("<td HEIGHT=""18"">")
												Response.Write(SetStringFixWidth(KanjyoMeisyo(ii)))
												Response.Write("</td>" & vbCrLf)

												Response.Write("<td width=""" & CellWidth & """ align=""right""")
												If GB_Admin = 0 Then
													Response.Write(" style=""cursor:hand"" onclick=""tblbtn2('/" & HomeAlias & "/user/bk/menu_s11.asp')""")
												End If
												Response.Write("""><font color=""" & color1 & """ style='cursor:auto'>" & ConvIntToMoney(DenpyoKarikata(ii), false, true) & "</font></td>" & vbCrLf)

												Response.Write("<td width=""" & CellWidth & """ align=""right""")
												If GB_Admin = 0 Then
													Response.Write(" style=""cursor:hand"" onclick=""tblbtn2('/" & HomeAlias & "/user/bk/menu_s11.asp')""")
												End If
												Response.Write("""><font color=""" & color1 & """ style='cursor:auto'>" & ConvIntToMoney(DenpyoKashikata(ii), false, true) & "</font></td>" & vbCrLf)

												Response.Write("<td width=""" & CellWidth & """ align=""right""")
												If GB_Admin = 0 Then
													Response.Write(" style=""cursor:hand"" onclick=""tblbtn2('/" & HomeAlias & "/user/bk/menu_s11.asp')""")
												End If
												Response.Write("""><font color=""" & color1 & """ style='cursor:auto'>" & ConvIntToMoney(DenpyoZandaka(ii), false, true) & "</font></td>" & vbCrLf)


												If InputSokanjyoMototyo = "1" Then
													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If GB_Admin = 0 Then
														Response.Write(" style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/tyobo/fk_sokanjyomototyo.asp?RouteType=&KanjyoCD=" & KanjyoCD(ii) & "')""")
													End If
													Response.Write(">")
													If DenpyoKarikata(ii) = MototyoKarikata(ii) then
														Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true))
													ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
														Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true))
														Response.Write("振")
														bExistFuriMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(MototyoKarikata(ii), false, true) & "×</font>")
													End If

													Response.Write("</td>" & vbCrLf)

													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If GB_Admin = 0 Then
														Response.Write(" style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/tyobo/fk_sokanjyomototyo.asp?RouteType=&KanjyoCD=" & KanjyoCD(ii) & "')""")
													End If
													Response.Write(">")

													If DenpyoKashikata(ii) = MototyoKashikata(ii) then
														Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true))
													ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
														Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true))
														Response.Write("振")
														bExistFuriMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
															Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(MototyoKashikata(ii), false, true) & "×</font>")
													End If

													Response.Write("</td>" & vbCrLf)

													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If GB_Admin = 0 Then
														Response.Write(" style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/tyobo/fk_sokanjyomototyo.asp?RouteType=&KanjyoCD=" & KanjyoCD(ii) & "')""")
													End If
													Response.Write(">")

													If DenpyoZandaka(ii) = MototyoZandaka(ii) then
														Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true))
													ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
														Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true))
														Response.Write("振")
														bExistFuriMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(MototyoZandaka(ii), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
												End If
												If CheckType = "1" And InputHojyobo = "1" Then
													Dim addr, ShikibetsuCD
													ShikibetsuCD = CheckKubun(ii)
													addr = ""
													If ShikibetsuCD = "AA" Then 
														If InputGenkinSuitotyo <> "1" Then 
															addr = "OFF"
														Else
															addr = "fk_genkinsuitotyo.asp"
														End If
													ElseIf ShikibetsuCD = "AB" Then 
														If InputTouzayokinSuitotyo <> "1" Then 
															addr = "OFF"
														Else
															addr = "fk_touzayokinsuitotyo.asp"
														End If
													ElseIf ShikibetsuCD = "AC" Then 
														If InputUrikakekinMototyo <> "1" Then 
															addr = "OFF"
														Else
															addr = "fk_urikaikakekintyo.asp?PageType=Urikake"
														End If
													ElseIf ShikibetsuCD = "AD" Then 
														If InputKaikakekinMototyo <> "1" Then 
															addr = "OFF"
														Else
															addr = "fk_urikaikakekintyo.asp?PageType=Kaikake"
														End If
													ElseIf ShikibetsuCD = "AE" Then 
														If InputUketoriTegatatyo <> "1" Then 
															addr = "OFF"
														Else
															addr = "fk_uketorisiharaitegatatyo.asp?PageType=Uketori"
														End If
													ElseIf ShikibetsuCD = "AF" Then 
														If InputShiharaiTegatatyo <> "1" Then 
															addr = "OFF"
														Else
															addr = "fk_uketorisiharaitegatatyo.asp?PageType=Shiharai"
														End If
													ElseIf ShikibetsuCD = "AG" Then 
														If InputUriagetyo <> "1" Then 
															addr = "OFF"
														Else
															addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Uriage"
														End If
													ElseIf ShikibetsuCD = "AH" Then 
														If InputShiiretyo <> "1" Then 
															addr = "OFF"
														Else
															addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Shiire"
														End If
													ElseIf MajorVersion => 5 And ShikibetsuCD = "AI" Then 
														If InputKoguchiSuitocho <> "1" Then 
															addr = "OFF"
														Else
															addr = "fk_koguchisuitocho.asp"
														End If
													Else
														addr = ""
													End If
													If GB_Admin > 0 And addr <> "OFF" Then
														addr = ""
													End If

													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If addr <> "" And addr <> "OFF" Then
														Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
													End If
													Response.Write(">")

'													If IsNull(CheckKubun(ii)) Then
													'チェック区分の先頭が"A"で無ければ補助簿非表示（預金関係勘定の対応）
													'チェック区分により集計された科目の内訳行は補助簿非表示（081126小野）
													If KanjyoCD(ii) = CheckKubun(ii) Or Left(CheckKubun(ii),1) <> "A" Or addr = "OFF" Or HojyoboKarikata(ii) = "----------" Then
														Response.Write("--------")
													ElseIf DenpyoKarikata(ii) = HojyoboKarikata(ii) then
														Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true))
													ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
														Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true))
														Response.Write("振")
														bExistFuriMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(HojyoboKarikata(ii), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If addr <> "" And addr <> "OFF" Then
														Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
													End If
													Response.Write(">")
'													If IsNull(CheckKubun(ii)) Then
													'チェック区分の先頭が"A"で無ければ補助簿非表示（預金関係勘定の対応）
													'チェック区分により集計された科目の内訳行は補助簿非表示（081126小野）
													If KanjyoCD(ii) = CheckKubun(ii) Or Left(CheckKubun(ii),1) <> "A" Or addr = "OFF" Or HojyoboKashikata(ii) = "----------" Then
														Response.Write("--------")
													ElseIf DenpyoKashikata(ii) = HojyoboKashikata(ii) then
														Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true))
													ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
														Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true))
														Response.Write("振")
														bExistFuriMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(HojyoboKashikata(ii), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If addr <> "" And addr <> "OFF" Then
														Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
													End If
													Response.Write(">")
'													If IsNull(CheckKubun(ii)) Then
													'チェック区分の先頭が"A"で無ければ補助簿非表示（預金関係勘定の対応）
													'チェック区分により集計された科目の内訳行は補助簿非表示（081126小野）
													If KanjyoCD(ii) = CheckKubun(ii) Or Left(CheckKubun(ii),1) <> "A" Or addr = "OFF" Or HojyoboZandaka(ii) = "----------" Then
														Response.Write("--------")
													ElseIf DenpyoZandaka(ii) = HojyoboZandaka(ii) then
														Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true))
													ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
														Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true))
														Response.Write("振")
														bExistFuriMark = 1
													ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
														Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(HojyoboZandaka(ii), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
												End If


												If CheckType = "2" Then
													Response.Write("<td width=""" & CellWidth & """ align=""right"">")
													If DenpyoKarikata(ii) = GenbutsuKarikata(ii) then
														Response.Write(ConvIntToMoney(GenbutsuKarikata(ii), false, true))
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(GenbutsuKarikata(ii), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
													Response.Write("<td width=""" & CellWidth & """ align=""right"">")
													If DenpyoKashikata(ii) = GenbutsuKashikata(ii) then
														Response.Write(ConvIntToMoney(GenbutsuKashikata(ii), false, true))
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(GenbutsuKashikata(ii), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
													Response.Write("<td width=""" & CellWidth & """ align=""right"">")
													If DenpyoZandaka(ii) = GenbutsuZandaka(ii) then
														Response.Write(ConvIntToMoney(GenbutsuZandaka(ii), false, true))
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(GenbutsuZandaka(ii), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
												End If
												Response.Write("</tr>" & vbCrLf)

												If (RowCount Mod RowBreakNum = 0) Then
													Exit For
												End If

												End If
											Next

											%>
												</TABLE>
												<span class="tx1113"><font color="#000000">×が付いている項目は、伝票の数値と異なっている部分です。</font></span>
								<% If bExistSeiMark = 1 Or bExistFuriMark = 1 Then %>
									<br><span class="tx1113"><FONT color="#000000">
									<% If bExistSeiMark = 1 And bExistFuriMark = 1 Then %>
										「整」「振」 ・・・ 決算整理・決算振替済みの仕入・売上勘定では、金額が異なっていても間違いでは無い場合があります
									<% ElseIf bExistSeiMark = 1 Then %>
										「整」 ・・・ 決算整理済みの仕入・売上勘定では、金額が異なっていても間違いでは無い場合があります
									<% Else %>
										「振」 ・・・ 決算振替済みの売上勘定では、金額が異なっていても間違いでは無い場合があります
									<% End If %>
									</FONT></span>
								<% End If %>
											</TD>
										</TR>
									</TABLE>


								</TD>
							</TR>
						</TABLE>
						<% Response.Write(PrintFooter()) %>
					</TD>
				</TR>
			</TABLE>
<%
		If ii > iCount Then
			Exit For
		End If
	Next
%>
		</TD>
	</TR>
</TABLE>
</body>
<% = HtmlFooter %>
</html>
<%
End Sub
%>