
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：記帳チェックの照会
'	作成日：2002/10/30
'	作成者：徳田
'	目的　：記帳チェックの照会画面を表示する。
'	概要	：
'	 <<表示>>
'	・記帳チェックの照会
'################################################
'-->
'
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	'運用管理演習状況記帳チェックの一覧表示フラグ
	Dim HyojiFlg
	HyojiFlg = Request("HyojiFlg")


	Dim Kaishibi,	Syuryobi

	Dim CheckType
	CheckType = Request("CheckType")
	If CheckType = "" Then
		CheckType = "1"
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Dim KichoCheck
	KichoCheck = Request("KichoCheck")

	Dim KinkoHyoji
	Dim YTegataHyoji
	Dim KTegataHyoji
	Dim TegataHyoji
	TegataHyoji = "1"

	Dim GinkoKozaToza
	Dim GinkoKozaFutu
	Dim GinkoKozaBetsudan
	Dim GinkoKozaTsumitate
	Dim GinkoKozaTeiki

	Dim SokanjyomototyoHyojyunshiki
	Dim CheckLink

	Dim Query
	Dim Content

	Dim InputSokanjyoMototyo , InputHojyobo, RiyoDenpyoSu, SyohinCheck, GenbutsuCheck
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Dim YobiB
		InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示")
		InputHojyobo = Content.Fields("手動補助簿表示")
		RiyoDenpyoSu = Content.Fields("利用伝票数区分")
		SyohinCheck = Content.Fields("商品チェック表示")
		GenbutsuCheck = Content.Fields("現物チェック表示")
		KinkoHyoji = "" & Content.Fields("金庫表示")
		YTegataHyoji = "" & Content.Fields("約束手形表示")
		KTegataHyoji = "" & Content.Fields("為替手形表示")
		YobiB = Content.Fields("利用銀行口座種類")
		GinkoKozaToza = Mid(YobiB , 1, 1)
		GinkoKozaFutu = Mid(YobiB , 2, 1)
		GinkoKozaBetsudan = Mid(YobiB , 3, 1)
		GinkoKozaTsumitate = Mid(YobiB , 4, 1)
		GinkoKozaTeiki = Mid(YobiB , 5, 1)		
		SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用")
		CheckLink = "" & Content.Fields("チェック画面リンク利用")
	End If

	If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then
		TegataHyoji = "0"
	End If

	If GinkoKozaFutu = "F" Then
		GinkoKozaFutu = 1
	Else
		GinkoKozaFutu = 0
	End If

	If GinkoKozaBetsudan = "B" Then
		GinkoKozaBetsudan = 1
	Else
		GinkoKozaBetsudan = 0
	End If

	If GinkoKozaTsumitate = "M" Then
		GinkoKozaTsumitate = 1
	Else
		GinkoKozaTsumitate = 0
	End If

	If GinkoKozaTeiki = "L" Then
		GinkoKozaTeiki = 1
	Else
		GinkoKozaTeiki = 0
	End If

	If "" & CheckLink = "" Then
		CheckLink = "1"
	End If

'ロック
Call Application.Lock()

	If KinkoHyoji = "1" Then
		Query = "exec SPM記帳チェック挿入現物現金"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
	End If


	Query = "exec SPM記帳チェック挿入現物預金2 '" & GB_SystemCD & "'"
	Query = Query & ", '" & EnshuCD & "'"
	Query = Query & ", '" & KaisyaCD & "'"
	Query = Query & ", " & GinkoKozaFutu
	Query = Query & ", " & GinkoKozaTeiki
	Query = Query & ", " & GinkoKozaTsumitate
	Query = Query & ", " & GinkoKozaBetsudan
	Set Content = OpenQuery(Query)

'	Query = "exec SPM記帳チェック挿入現物預金"
'	Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
'	Query = Query & ",'" & KaisyaCD & "'"
'	Set Content = OpenQuery(Query)


	If TegataHyoji = "1" Then
		Query = "exec SPM記帳チェック挿入現物受取手形"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)

		Query = "exec SPM記帳チェック挿入現物支払手形"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
		Query = Query & ",'" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
	End If

'ロック解除
Call Application.Unlock()


	'未処理の受取・支払小切手存在チェック
	Dim ExistSKogitte
	ExistSKogitte = 0
	Dim ExistRKogitte
	ExistRKogitte = 0
	Query = ""
	Query = Query & "  "
	Query = Query & " SELECT * "
	Query = Query & " FROM TGA手形F "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " 	AND 作成会社CD = '" & KaisyaCD & "' " '自社が作成
	Query = Query & " 	AND 文書種類CD = 'TG' "
	Query = Query & " 	AND 送受信区分 = 'R' " '他社が受取
	Query = Query & " 	AND 発行フラグ < 2 " '未処理
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ExistSKogitte = 1 '未処理の支払小切手が存在する
	End If
	Query = ""
	Query = Query & "  "
	Query = Query & " SELECT * "
	Query = Query & " FROM TGA手形F "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " 	AND 会社CD = '" & KaisyaCD & "' " '自社が受取
	Query = Query & " 	AND 文書種類CD = 'TG' "
	Query = Query & " 	AND 送受信区分 = 'R' " '自社が受取
	Query = Query & " 	AND 発行フラグ < 2 " '未処理
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		ExistRKogitte = 1 '未処理の受取小切手が存在する
	End If
	Dim HyojiSKogitte
	HyojiSKogitte = 0
	Dim HyojiRKogitte
	HyojiRKogitte = 0

'	ExistSKogitte = 0
'	ExistRKogitte = 0



	Dim color1, color2
	color1 = "#0000FF"
	color2 = "red"


	'元帳OFFの場合はレイアウトを調節する
	Dim CellWidth
	Dim ParentWidth
	Dim FintSize
	CellWidth = 87
	ParentWidth = 930
	CellWidth = 95
	ParentWidth = 1002
	FintSize = "tx1315"
	If InputSokanjyoMototyo <> "1" Then
		CellWidth = 120
		ParentWidth = 930
		FintSize = "tx1416"
	End If

%>
<html>
<% = HtmlHeader("") %>
<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">
<%


	If InStr(RouteType, "KityoOnly") > 0 Then
		Response.Write(HtmlDesign(5))
	Else
		Response.Write(HtmlDesign(1))
	End If

	If GB_Admin >= 1 Then
		Response.Write(HttpL1(4))
	Else
		Response.Write(HttpL1(3))
	End If

	If GB_Admin >= 1 Then
		'オートログインパラメータ取得（模擬実践の場合は最上位1名分）
		Dim AutoLoginGakuseiNo
		Dim AutoLoginPassword
		AutoLoginGakuseiNo = ""
		AutoLoginPassword = ""
		Query = "exec SPM演習会社履歴 '" & GB_SystemCD & "', '" & EnshuCD & "', 0"	'ソート区分指定
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("会社CD") = GB_KaisyaCD Then
				AutoLoginGakuseiNo = Content.Fields("学生番号")
				AutoLoginPassword = Content.Fields("パスワード")
				Exit Do
			End If
			Content.MoveNext
		Loop
		Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習状況チェック", "tblbtn('/" & HomeAlias & "/admin/syokai/fm_kityochk_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "')", "個別記帳チェック", "", "", "", "", "", "", ""))
		If AutoLoginGakuseiNo <> "" Then
			Response.Write(HttpL3_1("再表示", "PageReload();", "一覧表示", "tblbtn('/" & HomeAlias & "/admin/syokai/fm_kityochk_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "');", "印刷", "PrintoutReal()", "&nbsp;演習会社ログイン&nbsp;", "tblbtn('/" & HomeAlias & "/default_bin.asp?AutoLoginEnshuCD=" & EnshuCD & "&AutoLoginKaisyaCD=" & GB_KaisyaCD & "&GakuseiBango=" & AutoLoginGakuseiNo & "&Password=" & AutoLoginPassword & "&AutoLogin=1&AutoLoginReturn=Check');", "", ""))
		Else
			Response.Write(HttpL3_1("再表示", "PageReload();", "一覧表示", "tblbtn('/" & HomeAlias & "/admin/syokai/fm_kityochk_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "');", "印刷", "PrintoutReal()", "&nbsp;演習会社ログイン&nbsp;", "alert('この会社を利用している生徒が存在しません　');", "", ""))
		End If
	ElseIf InStr(RouteType, "KityoOnly") > 0 Then
		Response.Write(HttpL2("チェックウィンドウ" ,"", "記帳チェック", "", "現物", "", "", "","", "", "", ""))
'		Response.Write(HttpL3_1("再表示", "tblbtn( 'fm_genbutsu_check.asp?RouteType=KityoOnly')", "印刷", "PrintoutReal()", "", "", "", "", "", ""))
		Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
	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')", "チェック", "", "", "", "", ""))
		Response.Write(HttpL3_1("再表示", "tblbtn( 'fm_genbutsu_check.asp')", "印刷", "PrintoutReal()", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	If RiyoDenpyoSu <> 5 Then
		SyohinCheck = "0"
	End If


	If CheckType = "1" Then
		If GenbutsuCheck = "1" Then
			If SyohinCheck = "1" Then
				Response.Write(HttpL3_2("現物チェック", "tblbtn('fm_genbutsu_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&CheckType=2&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "商品チェック", "tblbtn('fm_syohin_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", ""))
			Else
				Response.Write(HttpL3_2("現物チェック", "tblbtn('fm_genbutsu_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&CheckType=2&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "", "", ""))
			End If
		Else
			If SyohinCheck = "1" Then
				Response.Write(HttpL3_2("商品チェック", "tblbtn('fm_syohin_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "", "", ""))
			Else
				Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
			End If
		End If
	Else
		If SyohinCheck = "1" Then
			If KichoCheck = "1" Then
				Response.Write(HttpL3_2("記帳チェック", "tblbtn('fm_kityo_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&CheckType=1&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "商品チェック", "tblbtn('fm_syohin_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", ""))
			Else
				Response.Write(HttpL3_2("商品チェック", "tblbtn('fm_syohin_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "", "", ""))
			End If
		Else
			If KichoCheck = "1" Then
				Response.Write(HttpL3_2("記帳チェック", "tblbtn('fm_kityo_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&CheckType=1&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "", "", ""))
			Else
				Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
			End If
		End If
	End If


	If GB_Admin >= 1 Then
		Response.Write(HttpL4("個別現物チェック", ""))
	ElseIf CheckType = "1" Then
		Response.Write(HttpL4("記帳チェック", ""))
	Else
		Response.Write(HttpL4("現物チェック", ""))
	End If
%>



<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" WIDTH="730" HEIGHT="100%" bgcolor="#ffffff" style="border:1px solid #000000">
	<TR>
		<TD ALIGN="CENTER" valign="top" >
			<TABLE BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif" BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="730" HEIGHT="100%"	bordercolor="#111111">
				<TR>
					<TD ALIGN="center" valign="top">

						<TABLE height="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" >
							<TR height="10">
								<TD VALIGN="BOTTOM" align="center">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" width="100%">
										<TR>
											<TD VALIGN="BOTTOM" align="left">

												<TABLE BORDER="1" width="<% = ParentWidth %>" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#DDDDDD" CLASS="<% = FintSize %>" STYLE="border-collapse: collapse">
													<TR ALIGN="CENTER">
														<TD HEIGHT="22" rowspan="2">勘定科目</TD>
														<TD WIDTH="<% = CellWidth * 3 %>" HEIGHT="22" colspan="3"><font color="<% = color1 %>">伝　　　票（基準）</font></TD>
														<% If InputSokanjyoMototyo = "1" Then %>
														<TD WIDTH="<% = CellWidth * 3 %>" HEIGHT="22" colspan="3">元　　　帳</TD>
														<% End If %>
														<% If CheckType = "1" And InputHojyobo = "1" Then %>
														<TD WIDTH="<% = CellWidth * 3 %>" HEIGHT="22" colspan="3">補　助　簿</TD>
														<% End If %>
														<% If CheckType = "2" Then %>
														<TD WIDTH="<% = CellWidth * 3 %>" HEIGHT="22" colspan="3">現　　　物</TD>
														<% End If %>
													</TR>
													<TR ALIGN="CENTER">
														<TD WIDTH="<% = CellWidth %>" HEIGHT="22"><font color="<% = color1 %>">借方金額</font></TD>
														<TD WIDTH="<% = CellWidth %>" HEIGHT="22"><font color="<% = color1 %>">貸方金額</font></TD>
														<TD WIDTH="<% = CellWidth %>" HEIGHT="22"><font color="<% = color1 %>">残　高</font></TD>
														<% If InputSokanjyoMototyo = "1" Then %>
														<TD WIDTH="<% = CellWidth %>" HEIGHT="22">借方金額</TD>
														<TD WIDTH="<% = CellWidth %>" HEIGHT="22">貸方金額</TD>
														<TD WIDTH="<% = CellWidth %>" HEIGHT="22">残　高</TD>
														<% End If %>
														<% If InputHojyobo = "1" Then %>
														<TD WIDTH="<% = CellWidth %>" HEIGHT="22">借方金額</TD>
														<TD WIDTH="<% = CellWidth %>" HEIGHT="22">貸方金額</TD>
														<TD WIDTH="<% = CellWidth %>" HEIGHT="22">残　高</TD>
														<% End If %>
													</TR>
												</TABLE>
											</TD>
											<TD width="18">
											</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
							<TR>
								<TD VALIGN="TOP">
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:<% = ParentWidth + 20 %>px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
										<TABLE ID="SyoukaiList" width="<% = ParentWidth %>" BORDER="1" CELLSPACING="0" CELLPADDING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="<% = FintSize %>" STYLE="border-collapse: collapse">

										<%

										Dim i
										Dim RowCount, RowBreakNum
										Dim ii, jj
										ii = 0
										Dim bExistSeiMark
										bExistSeiMark = 0
										RowCount = 0
										RowBreakNum = 5
										If DynamicKityoCheck = 0 Then
											Query = "exec SPM記帳チェック挿入集計 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
										Else
											Query = "exec SPM記帳チェック '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
										End If

'ロック
Call Application.Lock()
										Set Content = OpenQuery(Query)
'ロック解除
Call Application.Unlock()

										Do While Not(Content.BOF Or Content.EOF)
											If CheckType = "1" Or (CheckType = "2" AND (Content.Fields("チェック区分") = "AA" OR Content.Fields("チェック区分") = "AB" OR Content.Fields("チェック区分") = "AE" OR Content.Fields("チェック区分") = "AF" OR (Content.Fields("チェック区分") = "DB" And GinkoKozaFutu = 1) OR (Content.Fields("チェック区分") = "DD" And GinkoKozaTeiki = 1) OR (Content.Fields("チェック区分") = "DE" And GinkoKozaTsumitate = 1) OR (Content.Fields("チェック区分") = "DF" And GinkoKozaBetsudan = 1))) Then	'預金関係を追加（070710小野）
												RowCount = RowCount + 1

												Response.Write("<tr>" & vbCrLf)
												Response.Write("<td HEIGHT=""24"" style=""padding:3px;"">")
												Response.Write(SetStringFixWidth(Content.Fields("勘定名称")))
												Response.Write("</td>" & vbCrLf)

												Response.Write("<td width=""" & CellWidth & """ align=""right""")
												If CheckLink = "1" Then
													Response.Write(" style=""cursor:pointer;"" onclick=""tblbtn2('/" & HomeAlias & "/user/bk/menu_s11.asp')""")
												End If
												Response.Write("><font color=""" & color1 & """ style='cursor:auto'>" & ConvIntToMoney(Content.Fields("伝票借方"), false, true) & "</font></td>" & vbCrLf)
												Response.Write("<td width=""" & CellWidth & """ align=""right""")
												If CheckLink = "1" Then
													Response.Write(" style=""cursor:pointer;"" onclick=""tblbtn2('/" & HomeAlias & "/user/bk/menu_s11.asp')""")
												End If
												Response.Write("><font color=""" & color1 & """ style='cursor:auto'>" & ConvIntToMoney(Content.Fields("伝票貸方"), false, true) & "</font></td>" & vbCrLf)
												Response.Write("<td width=""" & CellWidth & """ align=""right""")
												If CheckLink = "1" Then
													Response.Write(" style=""cursor:pointer;"" onclick=""tblbtn2('/" & HomeAlias & "/user/bk/menu_s11.asp')""")
												End If
												Response.Write("><font color=""" & color1 & """ style='cursor:auto'>" & ConvIntToMoney(Content.Fields("伝票残高"), false, true) & "</font></td>" & vbCrLf)
'CheckLink="1"
'SokanjyomototyoHyojyunshiki="1"
												If InputSokanjyoMototyo = "1" Then
													Dim TmpSokanjyoMototyo
													If SokanjyomototyoHyojyunshiki = "1" Then
														TmpSokanjyoMototyo = "hyojyun"
													End If
													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If CheckLink = "1" Then
														Response.Write(" style='cursor:pointer;' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/tyobo/fk_sokanjyomototyo" & TmpSokanjyoMototyo & ".asp?RouteType=&KanjyoCD=" & Content.Fields("勘定CD") & "')""")
													End If
													Response.Write(">")
													If Content.Fields("伝票借方") = Content.Fields("元帳借方") then
														Response.Write(ConvIntToMoney(Content.Fields("元帳借方"), false, true))
													ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
														Response.Write(ConvIntToMoney(Content.Fields("元帳借方"), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(Content.Fields("元帳借方"), false, true) & "×</font>")
													End If

													Response.Write("</td>" & vbCrLf)
													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If CheckLink = "1" Then
														Response.Write(" style='cursor:pointer;' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/tyobo/fk_sokanjyomototyo" & TmpSokanjyoMototyo & ".asp?RouteType=&KanjyoCD=" & Content.Fields("勘定CD") & "')""")
													End If
													Response.Write(">")

													If Content.Fields("伝票貸方") = Content.Fields("元帳貸方") then
														Response.Write(ConvIntToMoney(Content.Fields("元帳貸方"), false, true))
													ElseIf Content.Fields("伝票貸方") = Content.Fields("元帳貸方") AND Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
														Response.Write(ConvIntToMoney(Content.Fields("元帳貸方"), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
															Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(Content.Fields("元帳貸方"), false, true) & "×</font>")
													End If

													Response.Write("</td>" & vbCrLf)
													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If CheckLink = "1" Then
														Response.Write(" style='cursor:pointer;' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/tyobo/fk_sokanjyomototyo" & TmpSokanjyoMototyo & ".asp?RouteType=&KanjyoCD=" & Content.Fields("勘定CD") & "')""")
													End If
													Response.Write(">")

													If Content.Fields("伝票残高") = Content.Fields("元帳残高") then
														Response.Write(ConvIntToMoney(Content.Fields("元帳残高"), false, true))
													ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
														Response.Write(ConvIntToMoney(Content.Fields("元帳残高"), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(Content.Fields("元帳残高"), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
												End If
												If CheckType = "1" And InputHojyobo = "1" Then
													Dim addr, ShikibetsuCD
													ShikibetsuCD = Content.Fields("チェック区分")
													If ShikibetsuCD = "AA" Then 
														addr = "fk_genkinsuitotyo.asp"
													ElseIf ShikibetsuCD = "AB" Then 
														addr = "fk_touzayokinsuitotyo.asp"
													ElseIf ShikibetsuCD = "AC" Then 
														addr = "fk_urikaikakekintyo.asp?PageType=Urikake"
													ElseIf ShikibetsuCD = "AD" Then 
														addr = "fk_urikaikakekintyo.asp?PageType=Kaikake"
													ElseIf ShikibetsuCD = "AE" Then 
														addr = "fk_uketorisiharaitegatatyo.asp?PageType=Uketori"
													ElseIf ShikibetsuCD = "AF" Then 
														addr = "fk_uketorisiharaitegatatyo.asp?PageType=Shiharai"
													ElseIf ShikibetsuCD = "AG" Then 
														addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Uriage"
													ElseIf ShikibetsuCD = "AH" Then 
														addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Shiire"
													ElseIf ShikibetsuCD = "AI" Then 
														addr = ""
													ElseIf ShikibetsuCD = "AJ" Then 
														addr = ""
													End If

													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If addr <> "" Then
														If CheckLink = "1" Then
															Response.Write("style='cursor:pointer;' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
														End If
													End If
													Response.Write(">")
													If Left(Content.Fields("チェック区分"), 1) = "B" then
														Response.Write("----------")
													ElseIf Content.Fields("伝票借方") = Content.Fields("補助簿借方") then
														Response.Write(ConvIntToMoney(Content.Fields("補助簿借方"), false, true))
													ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
														Response.Write(ConvIntToMoney(Content.Fields("補助簿借方"), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(Content.Fields("補助簿借方"), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If addr <> "" Then
														If CheckLink = "1" Then
															Response.Write("style='cursor:pointer;' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
														End If
													End If
													Response.Write(">")
													If Left(Content.Fields("チェック区分"), 1) = "B" then
														Response.Write("----------")
													ElseIf Content.Fields("伝票貸方") = Content.Fields("補助簿貸方") then
														Response.Write(ConvIntToMoney(Content.Fields("補助簿貸方"), false, true))
													ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
														Response.Write(ConvIntToMoney(Content.Fields("補助簿貸方"), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(Content.Fields("補助簿貸方"), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
													Response.Write("<td width=""" & CellWidth & """ align=""right""")
													If addr <> "" Then
														If CheckLink = "1" Then
															Response.Write("style='cursor:pointer;' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
														End If
													End If
													Response.Write(">")
													If Left(Content.Fields("チェック区分"), 1) = "B" then
														Response.Write("----------")
													ElseIf Content.Fields("伝票残高") = Content.Fields("補助簿残高") then
														Response.Write(ConvIntToMoney(Content.Fields("補助簿残高"), false, true))
													ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
														Response.Write(ConvIntToMoney(Content.Fields("補助簿残高"), false, true))
														Response.Write("整")
														bExistSeiMark = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(Content.Fields("補助簿残高"), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
												End If

												If CheckType = "2" Then
													Response.Write("<td width=""" & CellWidth & """ align=""right"">")
													If (Content.Fields("チェック区分") = "AA" And KinkoHyoji <> "1") Or (Content.Fields("チェック区分") = "AE" And TegataHyoji <> "1") Or (Content.Fields("チェック区分") = "AF" And TegataHyoji <> "1") Then
														Response.Write("----------")
													ElseIf Content.Fields("伝票借方") = Content.Fields("現物借方") then
														Response.Write(ConvIntToMoney(Content.Fields("現物借方"), false, true))
													ElseIf Content.Fields("チェック区分") = "AB" And ExistRKogitte = 1 then
														Response.Write(ConvIntToMoney(Content.Fields("現物貸方"), false, true) & "受")
														HyojiRKogitte = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(Content.Fields("現物借方"), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
													Response.Write("<td width=""" & CellWidth & """ align=""right"">")
													If (Content.Fields("チェック区分") = "AA" And KinkoHyoji <> "1") Or (Content.Fields("チェック区分") = "AE" And TegataHyoji <> "1") Or (Content.Fields("チェック区分") = "AF" And TegataHyoji <> "1") Then
														Response.Write("----------")
													ElseIf Content.Fields("伝票貸方") = Content.Fields("現物貸方") then
														Response.Write(ConvIntToMoney(Content.Fields("現物貸方"), false, true))
													ElseIf Content.Fields("チェック区分") = "AB" And ExistSKogitte = 1 then
														Response.Write(ConvIntToMoney(Content.Fields("現物貸方"), false, true) & "送")
														HyojiSKogitte = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(Content.Fields("現物貸方"), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
													Response.Write("<td width=""" & CellWidth & """ align=""right"">")
													If (Content.Fields("チェック区分") = "AA" And KinkoHyoji <> "1") Or (Content.Fields("チェック区分") = "AE" And TegataHyoji <> "1") Or (Content.Fields("チェック区分") = "AF" And TegataHyoji <> "1") Then
														Response.Write("----------")
													ElseIf Content.Fields("伝票残高") = Content.Fields("現物残高") then
														Response.Write(ConvIntToMoney(Content.Fields("現物残高"), false, true))
													ElseIf Content.Fields("チェック区分") = "AB" And ExistSKogitte = 1 then
														Response.Write(ConvIntToMoney(Content.Fields("現物残高"), false, true) & "送")
														HyojiSKogitte = 1
													ElseIf Content.Fields("チェック区分") = "AB" And ExistRKogitte = 1 then
														Response.Write(ConvIntToMoney(Content.Fields("現物残高"), false, true) & "受")
														HyojiRKogitte = 1
													Else
														Response.Write("<font color=""" & color2 & """>" & ConvIntToMoney(Content.Fields("現物残高"), false, true) & "×</font>")
													End If
													Response.Write("</td>" & vbCrLf)
												End If
												Response.Write("</tr>" & vbCrLf)
												ii = ii + 1
												End If
												Content.MoveNext
											Loop

											%>

										</TABLE>
									</DIV>
								</TD>
							</TR>
							<TR height="10">
								<TD ALIGN="center">
									<span class="tx1214"><FONT color=#ff0000>×が付いている項目は、伝票の数値と異なっている部分です。</FONT></span>
								<% If HyojiSKogitte = 1 Or HyojiRKogitte = 1 Then %>
									<br><span class="tx1214"><FONT color="#000000">
									<% If HyojiSKogitte = 1 And HyojiRKogitte = 1 Then %>
										「送」「受」 ・・・ 取引先に送付して出金されていない小切手、受け取って入金されていない小切手がある場合、当座預金額が異なっていても間違いではない場合があります
									<% ElseIf HyojiSKogitte = 1 Then %>
										「送」 ・・・ 取引先に送付して出金されていない小切手がある場合、当座出金額が異なっていても間違いではない場合があります
									<% Else %>
										「受」 ・・・ 受け取って入金されていない小切手がある場合、当座入金額が異なっていても間違いではない場合があります
									<% End If %>
									</FONT></span>
								<% End If %>
									<% If bExistSeiMark = 1 Then %>
									<br><span class="tx1214"><FONT color=#000000>整 - 整理記入済みの仕入勘定では、金額が異なっていても間違いではない場合があります</FONT></span>
									<% End If %>
								</TD>
							</TR>
						</TABLE>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>

</div>
</body>



<% If GB_Admin >= 1 Then '運用管理でのみ提示リロード処理 %>
<SCRIPT LANGUAGE="JavaScript">

	function PageReload() {
		var el = document.getElementById("Layer1");
		//alert(el.scrollTop);
		//Layer1のスクロール量をクエリ送信しリロード
		tblbtn('fm_genbutsu_check.asp?EnshuCD=<% = EnshuCD %>&KaisyaCD=<% = GB_KaisyaCD %>&RouteType=<% = RouteType %>&CheckType=<% = CheckType %>&HyojiFlg=<% = HyojiFlg %>&KichoCheck=1&Layer1ScrollTop=' + el.scrollTop + '');
	}

</script>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
<%
	'スクロール量を取得
	Dim Layer1ScrollTop
	Layer1ScrollTop = Request("Layer1ScrollTop")
	If Layer1ScrollTop = "" Then
		Layer1ScrollTop = "0"
	End If
	If Not(IsNumeric(Layer1ScrollTop)) Then
		Layer1ScrollTop = "0"
	End If
%>

	//初期スクロール
	var el = document.getElementById("Layer1");
	el.scrollTop = <% = Layer1ScrollTop %>;

	setTimeout('PageReload();', <% = MailCheckInterval * 200 %>);	//定時リロード（MailCheckIntervalの1/5）

</script>
<% End If %>

<% = HtmlFooter %>
</html>
<%
End Sub
%>