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

<%
'<!--
'################################################
'	名称	:記帳チェック一覧表示
'	作成日:2002/9/6
'	作成者:徳田
'	目的 :記帳チェックの一覧画面を表示する。
'	概要	:
'	 <<表示>>
' ・記帳チェック一覧画面
'
'################################################
'-->
%>
<%
main()
Sub main()

	If Not(SessionCheck()) Then
		Exit Sub
	End If

	'会社セッション初期化
'	KaisyaCD = ""
'	GB_KaisyaCD = ""
'	KaisyaMeisyo = ""
'	GB_KaisyaMeisyo = ""
'	KaisyaRyakuMeisyo = ""
'	GB_KaisyaRyakuMeisyo = ""
'	Session(HomeAlias & "KaisyaCD") = ""
'	Session(HomeAlias & "Gyosyu") = ""
'	Session(HomeAlias & "GyosyuMeisyo") = ""
'	Session(HomeAlias & "KaisyaMeisyo") = ""
'	Session(HomeAlias & "KaisyaRyakuMeisyo") = ""
'	Session(HomeAlias & "JisyaFlag") = ""
'	Session(HomeAlias & "ShijyoCD") = ""


	Dim HyojiFlg
	HyojiFlg = Request("HyojiFlg")

	Dim	EnshuName
	Dim Query
	Dim Content
	Dim Content2

	Dim SyudoHojyoboHyoji, SyudoSokanjyoMototyoHyoji

	Dim SyohinCheck, GenbutsuCheck

	Dim KinkoHyoji
	Dim YTegataHyoji
	Dim KTegataHyoji
	Dim TegataHyoji
	TegataHyoji = "1"

	Dim GinkoKozaToza
	Dim GinkoKozaFutu
	Dim GinkoKozaBetsudan
	Dim GinkoKozaTsumitate
	Dim GinkoKozaTeiki

	Dim DenpyoKubun

	Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("演習CD") = EnshuCD Then
			SyudoHojyoboHyoji = Content.Fields("手動補助簿表示")
			SyudoSokanjyoMototyoHyoji = Content.Fields("手動総勘定元帳表示")
			SyohinCheck = "" & Content.Fields("商品チェック表示")
			GenbutsuCheck = "" & Content.Fields("現物チェック表示")
			KinkoHyoji = "" & Content.Fields("金庫表示")
			YTegataHyoji = "" & Content.Fields("約束手形表示")
			KTegataHyoji = "" & Content.Fields("為替手形表示")
			Dim YobiB
			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)
			DenpyoKubun = Content.Fields("利用伝票数区分")
		End If
		Content.MoveNext
	Loop

	Dim GenbutsuColumn
	GenbutsuColumn = 8

	If GinkoKozaFutu = "F" Then
		GinkoKozaFutu = 1
	Else
		GinkoKozaFutu = 0
		GenbutsuColumn = GenbutsuColumn - 1
	End If

	If GinkoKozaBetsudan = "B" Then
		GinkoKozaBetsudan = 1
	Else
		GinkoKozaBetsudan = 0
		GenbutsuColumn = GenbutsuColumn - 1
	End If

	If GinkoKozaTsumitate = "M" Then
		GinkoKozaTsumitate = 1
	Else
		GinkoKozaTsumitate = 0
		GenbutsuColumn = GenbutsuColumn - 1
	End If

	If GinkoKozaTeiki = "L" Then
		GinkoKozaTeiki = 1
	Else
		GinkoKozaTeiki = 0
		GenbutsuColumn = GenbutsuColumn - 1
	End If

	If KinkoHyoji <> "1" Then
		GenbutsuColumn = GenbutsuColumn - 1
	End If
	If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then
		GenbutsuColumn = GenbutsuColumn - 2
	End If



	'GenbutsuCheck = ""

	Dim TmpEnshuKubun
	TmpEnshuKubun = ConvEnshuKubun(EnshuCD)


If GenbutsuCheck = "1" Then
Call Application.Lock() '多くの挿入処理が発生するためロックする
	'現物は集計処理が必要(現金は金庫での個別処理に移行したので不要)
	Query = "exec SPM記帳チェック挿入現物預金2全会社 '" & GB_SystemCD & "'"
	Query = Query & ", '" & EnshuCD & "'"
	Query = Query & ", " & GinkoKozaFutu
	Query = Query & ", " & GinkoKozaTeiki
	Query = Query & ", " & GinkoKozaTsumitate
	Query = Query & ", " & GinkoKozaBetsudan
	Set Content = OpenQuery(Query)
	If TegataHyoji = "1" Then
		Query = "exec SPM記帳チェック挿入現物受取手形全会社"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
		Set Content = OpenQuery(Query)
		Query = "exec SPM記帳チェック挿入現物支払手形全会社"
		Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'"
		Set Content = OpenQuery(Query)
	End If
Call Application.Unlock()
End If

	'未処理の受取・支払小切手存在フラグ
	Dim ExistSKogitte
	ExistSKogitte = 0
	Dim ExistRKogitte
	ExistRKogitte = 0

%>

<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">
<form OnKeyDown="FormKeyDown(this)"	name="form1" method="GET" action="fm_kityochk_ichiran.asp" onSubmit="return SubmitCheck();">
<input type="hidden" name="HyojiFlg" value="<% = HyojiFlg %>">

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(4))

	Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習状況チェック", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("再表示", "PageReload();", "", "", "", "", "", "", "", ""))

	If TmpEnshuKubun = "P" Then
		If HyojiFlg = "1" Then
			Response.Write(HttpL3_2("マスター会社を非表示", "tblbtn('fm_kityochk_ichiran.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_2("マスター会社を表示", "tblbtn('fm_kityochk_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=1')", "", "", "", "", "", "", "", ""))
		End If
	Else
		Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4("演習状況記帳チェック", ""))

	Response.Write(HttpL5(""))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="650" 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">
			<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
				<tr height="10">
					<td valign="top">
						<TABLE WIDTH="<% = 670 + (34 * GenbutsuColumn) %>" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
							<TR ALIGN="CENTER">
								<TD HEIGHT="30" align="center">対象演習名</TD>
								<TD height="30" align="center">
								<% If GB_Admin = 2 Then %>
									<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
									<% = EnshuMeisyo %>
								<% Else %>
									<select size="1" name="EnshuCD" class="tbox4" onChange="SetSyokaiList();">
										<option value=""><< 対象演習を選択して下さい >></option>
										<%
											Query = "exec SPM演習一覧 '" & GB_SystemCD & "', 4"
											Set Content = OpenQuery(Query)
											Do While Not(Content.BOF Or Content.EOF)
												If (PackageMode = 1 And "" & Content.Fields("パッケージ区分") = "CA") Or (PackageMode = 0 And "" & Content.Fields("パッケージ区分") <> "CA") Then
																					'工業簿記演習は5以上で表示
												If "" & Content.Fields("演習CD") <> "SYS00006" Or MajorVersion >= 5 Then
													Response.Write("<option value=""" & Content.Fields("演習CD") & """")
													If Content.Fields("演習CD") = EnshuCD Then
														Response.Write(" selected")
													End If
													Response.Write(">" & Content.Fields("演習名称") & "</option>" & vbCrLf)
												End If
												End If
												Content.MoveNext
											Loop
										%>
									</select>
								<% End If %>
								</TD>
							</TR>
						</table>
						<span class="tx1012"><br></span>
						<table BORDER="0" CELLPADDING="0" CELLSPACING="0">
							<TR>
								<TD VALIGN="BOTTOM" WIDTH="700">
									<TABLE WIDTH="<% = 670 + (34 * GenbutsuColumn) %>" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
										<% If TmpEnshuKubun = "P" Then %>
											<TD WIDTH="164" rowspan="2">学生氏名</TD>
										<% Else %>
											<TD WIDTH="164" rowspan="2">会社コード</TD>
										<% End If %>
											<TD HEIGHT="20" rowspan="2">会社名称</TD>
											<TD colspan="<% If MajorVersion => 5 Then %>9<% Else %>8<% End If %>">元帳・補助簿</TD>
										<% If GenbutsuCheck = "1" Then %>
											<TD colspan="<% = GenbutsuColumn %>">現物</TD>
										<% End If %>
										<% If SyohinCheck = "1" And DenpyoKubun = 5 Then %>
											<TD rowspan="2" WIDTH="24">商<br>品</TD>
										<% End If %>
										</TR>
										<TR ALIGN="CENTER" class="tx1214">
											<TD WIDTH="30">現金</TD>
											<TD WIDTH="30">預金</TD>
											<TD WIDTH="30">売掛</TD>
											<TD WIDTH="30">買掛</TD>
											<TD WIDTH="30">受手</TD>
											<TD WIDTH="30">支手</TD>
											<TD WIDTH="30">売上</TD>
											<TD WIDTH="30">仕入</TD>
										<% If MajorVersion => 5 Then %>
											<TD WIDTH="30">小口</TD>
										<% End If %>
										<% If GenbutsuCheck = "1" Then %>
											<% If KinkoHyoji = "1" Then %>
											<TD WIDTH="30">現金</TD>
											<% End If %>
											<TD WIDTH="30">当預</TD>
											<% If YTegataHyoji = "1" Or KTegataHyoji = "1" Then %>
											<TD WIDTH="30">受手</TD>
											<TD WIDTH="30">支手</TD>
											<% End If %>
											<% If GinkoKozaFutu = 1 Then %>
											<TD WIDTH="30">普預</TD>
											<% End If %>
											<% If GinkoKozaTeiki = 1 Then %>
											<TD WIDTH="30">定預</TD>
											<% End If %>
											<% If GinkoKozaTsumitate = 1 Then %>
											<TD WIDTH="30">積預</TD>
											<% End If %>
											<% If GinkoKozaBetsudan = 1 Then %>
											<TD WIDTH="30">別預</TD>
											<% End If %>
										<% End If %>
										</TR>
									</TABLE>
								</TD>
							</TR>
						</table>
					</TD>
				</TR>
				<TR>
					<TD VALIGN="TOP">
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:<% = 690 + (34 * GenbutsuColumn) %>px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
										<TABLE ID="SyoukaiList" BORDER="1" WIDTH="<% = 670 + (34 * GenbutsuColumn) %>" CELLSPACING="0" CELLPADDING="2" BGCOLOR="#FFFFFF" CLASS="tx1416" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
										<%
											Dim ii, jj , wcol
											ii = 0

											Query = "exec SPM記帳チェック一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
'Response.Write(Query)
'Exit Sub
											Set Content = OpenQuery(Query)

												Dim bExistSeiMark
												bExistSeiMark = 0
												Dim bExistFuriMark
												bExistFuriMark = 0

												Do While Not(Content.BOF Or Content.EOF)

													'同時同業マスター会社を除く
													If  HyojiFlg = "1" And TmpEnshuKubun = "P" And ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")) = "" Then
													'同時同業生徒会社のうち自社設定会社以外を除く
													ElseIf HyojiFlg <> "1" And TmpEnshuKubun = "P" And "" & ConvKaisyaJisyaFlg(EnshuCD, Content.Fields("会社CD")) <> "1" Then
													'同時同業→模擬実践で生じた同時同業生徒会社はゴミなので除く
													ElseIf TmpEnshuKubun = "G" And "" & ConvKaisyaJisyaFlg(EnshuCD, Content.Fields("会社CD")) <> "1" And ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")) <> "" Then

													Else

														Dim GenkinFlg, YokinFlg, UketoriTegataFlg, UrikakekinFlg, ShiharaiTegataFlg, KaikakekinFlg, UriageFlg, ShiireFlg, KaribaraiFlg, KariukeFlg, KoguchiFlg
														GenkinFlg = ""
														YokinFlg = ""
														UketoriTegataFlg = ""
														UrikakekinFlg = ""
														ShiharaiTegataFlg = ""
														KaikakekinFlg = ""
														UriageFlg = ""
														ShiireFlg = ""
														KaribaraiFlg = ""
														KariukeFlg = ""
														KoguchiFlg = ""

														GenkinFlg =         CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AA"), SyudoHojyoboHyoji , Content.Fields("補助簿AA"))
														YokinFlg =          CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AB"), SyudoHojyoboHyoji , Content.Fields("補助簿AB"))
														UrikakekinFlg =  CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AC"), SyudoHojyoboHyoji , Content.Fields("補助簿AC"))
														KaikakekinFlg =     CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AD"), SyudoHojyoboHyoji , Content.Fields("補助簿AD"))
														UketoriTegataFlg = CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AE"), SyudoHojyoboHyoji , Content.Fields("補助簿AE"))
														ShiharaiTegataFlg =     CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AF"), SyudoHojyoboHyoji , Content.Fields("補助簿AF"))
														UriageFlg =         CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AG"), SyudoHojyoboHyoji , Content.Fields("補助簿AG"))
														ShiireFlg =         CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AH"), SyudoHojyoboHyoji , Content.Fields("補助簿AH"))
														KoguchiFlg =         CheckOutput(SyudoSokanjyoMototyoHyoji , Content.Fields("元帳AI"), SyudoHojyoboHyoji , Content.Fields("補助簿AI"))

														If UriageFlg = "×" And CheckKessanFurikaego(Content.Fields("会社CD"), GB_KaikeiSyuryobi) = 1 Then
															UriageFlg = "振"
															bExistFuriMark = 1
														End If
														If ShiireFlg = "×" And CheckSeiriKinyugo(Content.Fields("会社CD"), GB_KaikeiSyuryobi) = 1 Then
															ShiireFlg = "整"
															bExistSeiMark = 1
														End If

														'現物チェック
														Dim GGenkinFlg
														Dim GYokinFlg
														Dim GUketoriTegataFlg
														Dim GShiharaiTegataFlg
														Dim GFYokinFlg
														Dim GLYokinFlg
														Dim GMYokinFlg
														Dim GBYokinFlg
														GGenkinFlg = ""
														GYokinFlg = ""
														GUketoriTegataFlg = ""
														GShiharaiTegataFlg = ""
														GFYokinFlg = ""
														GLYokinFlg = ""
														GMYokinFlg = ""
														GBYokinFlg = ""
														GGenkinFlg = CheckOutputG(Content.Fields("現物AA"))
														GYokinFlg = CheckOutputG(Content.Fields("現物AB"))
														GUketoriTegataFlg = CheckOutputG(Content.Fields("現物AE"))
														GShiharaiTegataFlg = CheckOutputG(Content.Fields("現物AF"))
														GFYokinFlg = CheckOutputG(Content.Fields("現物DB"))
														GLYokinFlg = CheckOutputG(Content.Fields("現物DD"))
														GMYokinFlg = CheckOutputG(Content.Fields("現物DE"))
														GBYokinFlg = CheckOutputG(Content.Fields("現物DF"))

														Dim KaisyaGakusei
														KaisyaGakusei = "" & ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD")))

														'同時同業では削除されたユーザーの会社は表示しない
														If TmpEnshuKubun = "P" And KaisyaGakusei = "" Then
														'全て空白は表示しない
														ElseIf GenkinFlg = "" And YokinFlg = "" And UrikakekinFlg = "" And KaikakekinFlg = "" And UketoriTegataFlg = "" And ShiharaiTegataFlg = "" And UriageFlg = "" And ShiireFlg = "" And KoguchiFlg = "" _
															And GGenkinFlg = "" And GYokinFlg = "" And GUketoriTegataFlg = "" And GShiharaiTegataFlg = "" And GFYokinFlg = "" And GLYokinFlg = "" And GMYokinFlg = "" And GBYokinFlg = "" Then

														Else

															Response.Write("<TR ALIGN=""CENTER"" style=""cursor:hand"" onclick=""tblbtn('fm_kityochk_ichiran_bin.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & Content.Fields("会社CD") & "&HyojiFlg=" & HyojiFlg & "')"">" & vbCrLf)
															If TmpEnshuKubun = "P" Then
																Response.Write("<TD WIDTH=""160"" ALIGN=""LEFT"">" & KaisyaGakusei & "</TD>" & vbCrLf)
															Else
																Response.Write("<TD WIDTH=""160"" ALIGN=""LEFT"">" & Content.Fields("会社CD") & "</TD>" & vbCrLf)
															End If
															Response.Write("<TD HEIGHT=""23"" ALIGN=""LEFT"">" & Content.Fields("会社名称") & "</TD>" & vbCrLf)
															if GenkinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
															Response.Write("<TD WIDTH=""26"" ALIGN=""CENTER""><font color='" & wcol & "'>" & GenkinFlg	& "</font></TD>" & vbCrLf)
															if YokinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
															Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & YokinFlg & "</font></TD>" & vbCrLf)
															if UrikakekinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
															Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & UrikakekinFlg & "</font></TD>" & vbCrLf)
															if KaikakekinFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
															Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & KaikakekinFlg & "</font></TD>" & vbCrLf)
															if UketoriTegataFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
															Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & UketoriTegataFlg & "</font></TD>" & vbCrLf)
															if ShiharaiTegataFlg = "○" Then wcol = "#0000ff" else wcol="#ff0000" end if
															Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & ShiharaiTegataFlg & "</font></TD>" & vbCrLf)
															if UriageFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
															Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & UriageFlg & "</font></TD>" & vbCrLf)
															if ShiireFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
															Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & ShiireFlg & "</font></TD>" & vbCrLf)
															'バージョン5未満ではチェック区分「小口現金」を除外
															If MajorVersion => 5 Then
																if KoguchiFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
																Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & KoguchiFlg & "</font></TD>" & vbCrLf)
															End If

															'現物チェック
															If GenbutsuCheck = "1" Then
																If KinkoHyoji = "1" Then
																	if GGenkinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
																	Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & GGenkinFlg & "</font></TD>" & vbCrLf)
																End If
																If GYokinFlg = "×" Then
	'未処理の受取・支払小切手存在チェック
	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 = '" & Content.Fields("会社CD") & "' " '自社が作成
	Query = Query & " 	AND 文書種類CD = 'TG' "
	Query = Query & " 	AND 送受信区分 = 'R' " '他社が受取
	Query = Query & " 	AND 発行フラグ < 2 " '未処理
	Set Content2 = OpenQuery(Query)
	If Not(Content2.BOF Or Content2.EOF) Then
		GYokinFlg = "送" '未処理の支払小切手が存在する
		ExistSKogitte = 1
	Else
		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 = '" & Content.Fields("会社CD") & "' " '自社が受取
		Query = Query & " 	AND 文書種類CD = 'TG' "
		Query = Query & " 	AND 送受信区分 = 'R' " '自社が受取
		Query = Query & " 	AND 発行フラグ < 2 " '未処理
		Set Content2 = OpenQuery(Query)
		If Not(Content2.BOF Or Content2.EOF) Then
			GYokinFlg = "受" '未処理の受取小切手が存在する
			ExistRKogitte = 1
		End If
	End If
																End If
																If GYokinFlg <> "×" Then wcol = "#0000ff" Else wcol="#ff0000" End If
																Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & GYokinFlg & "</font></TD>" & vbCrLf)
																If YTegataHyoji = "1" Or KTegataHyoji = "1" Then
																	if GUketoriTegataFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
																	Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & GUketoriTegataFlg & "</font></TD>" & vbCrLf)
																	if GShiharaiTegataFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
																	Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & GShiharaiTegataFlg & "</font></TD>" & vbCrLf)
																End If
																If GinkoKozaFutu = 1 Then
																	if GFYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
																	Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & GFYokinFlg & "</font></TD>" & vbCrLf)
																End If
																If GinkoKozaTeiki = 1 Then
																	if GLYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
																	Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & GLYokinFlg & "</font></TD>" & vbCrLf)
																End If
																If GinkoKozaTsumitate = 1 Then
																	if GMYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
																	Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & GMYokinFlg & "</font></TD>" & vbCrLf)
																End If
																If GinkoKozaBetsudan = 1 Then
																	if GBYokinFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
																	Response.Write("<TD WIDTH=""26""  ALIGN=""CENTER""><font color='" & wcol & "'>" & GBYokinFlg & "</font></TD>" & vbCrLf)
																End If
															End If

															'商品チェック
															If SyohinCheck = "1" And DenpyoKubun = 5 Then
																Dim ShohinCheckFlg
																ShohinCheckFlg = ""
																Dim ContentShohin
																Query = "exec SPM記帳チェック商品 '" & GB_SystemCD & "','" & EnshuCD & "','" & Content.Fields("会社CD") & "'"
																Set ContentShohin = OpenQuery(Query)
																If Not(ContentShohin.BOF Or ContentShohin.EOF) Then
																	Do While Not(ContentShohin.BOF Or ContentShohin.EOF)
																		If Not(IsNull(ContentShohin.Fields("伝票仕入数量"))) Or Not(IsNull(ContentShohin.Fields("伝票仕入返品数量"))) Or Not(IsNull(ContentShohin.Fields("伝票売上数量"))) Or Not(IsNull(ContentShohin.Fields("伝票売上返品数量"))) Or Not(IsNull(ContentShohin.Fields("入出庫仕入数量"))) Or Not(IsNull(ContentShohin.Fields("入出庫仕入返品数量"))) Or Not(IsNull(ContentShohin.Fields("入出庫売上数量"))) Or Not(IsNull(ContentShohin.Fields("入出庫売上返品数量"))) Then
																			If ShohinCheckFlg <> "×" Then
																				ShohinCheckFlg = "○"
																			End If
																			If (ContentShohin.Fields("伝票仕入数量") = ContentShohin.Fields("入出庫仕入数量")) Or (IsNull(ContentShohin.Fields("伝票仕入数量")) And IsNull(ContentShohin.Fields("入出庫仕入数量"))) then
																			Else
																				ShohinCheckFlg = "×"
																			End If
																			If (ContentShohin.Fields("伝票仕入返品数量") = ContentShohin.Fields("入出庫仕入返品数量")) Or (IsNull(ContentShohin.Fields("伝票仕入返品数量")) And IsNull(ContentShohin.Fields("入出庫仕入返品数量"))) then
																			Else
																				ShohinCheckFlg = "×"
																			End If
																			If (ContentShohin.Fields("伝票売上数量") = ContentShohin.Fields("入出庫売上数量")) Or (IsNull(ContentShohin.Fields("伝票売上数量")) And IsNull(ContentShohin.Fields("入出庫売上数量"))) then
																			Else
																				ShohinCheckFlg = "×"
																			End If
																			If (ContentShohin.Fields("伝票売上返品数量") = ContentShohin.Fields("入出庫売上返品数量")) Or (IsNull(ContentShohin.Fields("伝票売上返品数量")) And IsNull(ContentShohin.Fields("入出庫売上返品数量"))) then
																			Else
																				ShohinCheckFlg = "×"
																			End If
																		End If
																		ContentShohin.MoveNext
																	Loop
																End If
																if ShohinCheckFlg <> "×" Then wcol = "#0000ff" else wcol="#ff0000" end if
																Response.Write("<TD WIDTH=""20""  ALIGN=""CENTER""><font color='" & wcol & "'>" & ShohinCheckFlg & "</font></TD>" & vbCrLf)
															End If

															ii = ii + 1
															Response.Write("</TR>")

														End If
													End If

													Content.MoveNext

												Loop
											%>


										</TABLE>
									</DIV>
					</TD>
				</TR>
			<% If bExistSeiMark = 1 Or bExistFuriMark = 1 Or ExistSKogitte = 1 Or ExistRKogitte = 1 Then %>
				<TR height="10">
					<TD VALIGN="TOP" align="center">
						<table BORDER="0" CELLPADDING="0" CELLSPACING="0">
							<TR>
								<TD>
								<% If bExistSeiMark = 1 Or bExistFuriMark = 1 Then %>
									<span class="tx1214"><FONT color="#000000">
									<% If bExistSeiMark = 1 And bExistFuriMark = 1 Then %>
										「整」「振」 ・・・ 決算整理・決算振替済みの仕入・売上勘定では、金額が異なっていても間違いではない場合があります
									<% ElseIf bExistSeiMark = 1 Then %>
										「整」 ・・・ 決算整理済みの仕入勘定では、金額が異なっていても間違いではない場合があります
									<% Else %>
										「振」 ・・・ 決算振替済みの売上勘定では、金額が異なっていても間違いではない場合があります
									<% End If %>
									</FONT></span><br>
								<% End If %>
								<% If ExistSKogitte = 1 Or ExistRKogitte = 1 Then %>
									<span class="tx1214"><FONT color="#000000">
									<% If ExistSKogitte = 1 And ExistRKogitte = 1 Then %>
										「送」「受」 ・・・ 取引先に送付して出金されていない小切手、受け取って入金されていない小切手がある場合、当座預金額が異なっていても間違いではない場合があります
									<% ElseIf ExistSKogitte = 1 Then %>
										「送」 ・・・ 取引先に送付して出金されていない小切手がある場合、当座出金額が異なっていても間違いではない場合があります
									<% Else %>
										「受」 ・・・ 受け取って入金されていない小切手がある場合、当座入金額が異なっていても間違いではない場合があります
									<% End If %>
									</FONT></span><br>
								<% End If %>
								</TD>
							</TR>
						</TABLE>
					</TD>
				</TR>
			<% End If %>
			</TABLE>
		</td>
	</tr>
</table>
</DIV>
</form>

</body>

<SCRIPT LANGUAGE="JavaScript">

	function SetSyokaiList()
	{
		if (form1.EnshuCD.value == "")
		{
			alert("対象演習コードを選択して下さい");
			return false;
		}

		SubmitReal(form1);
		return false;
	}


	function SubmitCheck(Kubun)

	{
		if (form1.EnshuCD.value == "")
		{
			alert("対象演習を選択してください ");
			return false;
		}
		return true;
	}



	function PageReload() {
		var el = document.getElementById("Layer1");
		//alert(el.scrollTop);
		//Layer1のスクロール量をクエリ送信しリロード
		tblbtn('fm_kityochk_ichiran.asp?EnshuCD=<% = EnshuCD %>&HyojiFlg=<% = HyojiFlg %>&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 %>;

<% If EnshuCD <> "" Then %>
	setTimeout('PageReload();', <% = MailCheckInterval * 400 %>);	//定時リロード(MailCheckIntervalの40%)
<% End If %>

</script>

<% = HtmlFooter %>
</html>

<%
End Sub


Function CheckOutput(MototyoHyoji, MototyoFlg, HojyoboHyoji, HojyoboFlg)

	If MototyoHyoji = 1 And HojyoboHyoji = 1 Then
		If MototyoFlg = 1 And HojyoboFlg = 1 Then
			CheckOutput = "○"
		ElseIf MototyoFlg = 0 Or HojyoboFlg = 0 Then
			CheckOutput = "×"
		End If
	ElseIf MototyoHyoji = 1 Then
		If MototyoFlg = 1 Then
			CheckOutput = "○"
		ElseIf MototyoFlg = 0 Then
			CheckOutput = "×"
		End If
	ElseIf HojyoboHyoji = 1 Then
		If HojyoboFlg = 1 Then
			CheckOutput = "○"
		ElseIf HojyoboFlg = 0 Then
			CheckOutput = "×"
		End If
	End If

End Function


Function CheckOutputG(GenbutsuFlg)
	If GenbutsuFlg = 1 Then
		CheckOutputG = "○"
	ElseIf GenbutsuFlg = 0 Then
		CheckOutputG = "×"
	End If
End Function


%>