
<!-- #include file="../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：インフォメーション表示
'   作成日：2007/1/26
'   作成者：小野
'   目的　：インフォメーションを表示する
'   概要  ：インラインフレームによるインフォメーションの自動更新
'    <<表示>>
'    ・無し
'################################################
'-->
'
'
%>
<%
main()
Sub main()

	Dim Query, Content

	Dim BunsyoInfo, SenpoKakuninInfo, MiNyukoSyohin, MailInfo, GinkoInfo, KaifuFlg

	'FAX利用可否判定
	Dim FAXRiyo
	Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		FAXRiyo = "" & Content.Fields("FAX利用")
	End If

	Query = "exec SPN受信文書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)

		If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
			If BunsyoInfo = "" Then
				BunsyoInfo = Content.Fields("文書名称")
			ElseIf Right(BunsyoInfo , 2) <> "など" Then
				BunsyoInfo = BunsyoInfo & " など"
			End If

		End If
		Content.MoveNext
	Loop
	If BunsyoInfo <> "" Then
		BunsyoInfo = BunsyoInfo & "が未開封です"
	End If

	'未開封の先方確認済み注文請書があればその旨を表示する（061214小野）
	Dim SenpoRiyo
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		If "" & Content.Fields("仕入売上書類先方書類必要") <> "2" And "" & Content.Fields("注文請書確認利用") <> "0" Then
			Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', 'KU'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 1 And Content.Fields("返信フラグ") = 0 Then
					If SenpoKakuninInfo= "" Then
						SenpoKakuninInfo= "注文請書を先方が確認済みです"
						Exit Do
					End If
				End If
				Content.MoveNext
			Loop
		End If
	End If

	'未入庫の商品が届いていればその旨を表示する（071023小野）
	Dim Kitakuriyou
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		If "" & Content.Fields("寄託倉庫利用") <> "1" And  "" & Content.Fields("入庫時相手出庫必要") = "1" Then
			Query = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '', 'SU'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				If Content.Fields("会社CD") <> Content.Fields("作成会社CD") And Content.Fields("処理時期区分") <> 0 And Content.Fields("削除フラグ") = 0 And Content.Fields("返信フラグ") = 0 Then
					If MiNyukoSyohin = "" Then
						MiNyukoSyohin = "商品が届いています"
					End If
				End If
				Content.MoveNext
			Loop
		End If
	End If

	Dim MailInfoM
	Dim MailInfoF
	Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
			If MailInfoM = "" Then
				MailInfoM = "メールが届いています"
			End If
		End If
		Content.MoveNext
	Loop
'	If Tvvariable > 0 Then
	If EnableFAX = 1 And FAXRiyo = "1" Then
		Query = "exec SPNFAX一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'R'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
				If MailInfoF = "" Then
					MailInfoF = "FAXが届いています"
					Exit Do
				End If
			End If
			Content.MoveNext
		Loop
	End If
	If MailInfoM = "" And  MailInfoF <> "" Then
		MailInfo = MailInfoF
	ElseIf MailInfoM <> "" And  MailInfoF = "" Then
		MailInfo = MailInfoM
	ElseIf MailInfoM <> "" And  MailInfoF <> "" Then
		MailInfo = "メール・FAXが届いています"
	End If


	Dim GinkoInfoFN
	Dim GinkoInfoKS
	Dim GinkoInfoTN
	Dim GinkoInfoTS
	Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', '', ''"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("既読フラグ") <> "1" Then
			If "" & GinkoInfoFN = "" And Content.Fields("銀行取引区分") = "FN" Then '振込入金
				GinkoInfoFN = "" & Content.Fields("銀行取引区分名称")
			ElseIf "" & GinkoInfoKS = "" And Content.Fields("銀行取引区分") = "KS" Then '小切手出金
				GinkoInfoKS = "" & Content.Fields("銀行取引区分名称")
			ElseIf "" & GinkoInfoTN = "" And Content.Fields("銀行取引区分") = "TN" Then '手形入金
				GinkoInfoTN = "" & Content.Fields("銀行取引区分名称")
			ElseIf "" & GinkoInfoTS = "" And Content.Fields("銀行取引区分") = "TS" Then '手形出金
				GinkoInfoTS = "" & Content.Fields("銀行取引区分名称")
			End If
		End If
		Content.MoveNext
	Loop
	Dim GinkoCnt
	GinkoCnt = 0
	If "" & GinkoInfoFN <> "" Then
		GinkoInfo = GinkoInfo & GinkoInfoFN
		GinkoCnt = GinkoCnt + 1
	End If
	If "" & GinkoInfoKS <> "" Then
		If GinkoInfo <> "" Then
			GinkoInfo = GinkoInfo & "・"
		End If
		GinkoInfo = GinkoInfo & GinkoInfoKS
		GinkoCnt = GinkoCnt + 1
	End If
	If "" & GinkoInfoTN <> "" Then
		'3件目以降は「など」にまとめる
		If GinkoCnt < 2 Then
			If GinkoInfo <> "" Then
				GinkoInfo = GinkoInfo & "・"
			End If
			GinkoInfo = GinkoInfo & GinkoInfoTN
		End If
		GinkoCnt = GinkoCnt + 1
	End If
	If "" & GinkoInfoTS <> "" Then
		'3件目以降は「など」にまとめる
		If GinkoCnt < 2 Then
			If GinkoInfo <> "" Then
				GinkoInfo = GinkoInfo & "・"
			End If
			GinkoInfo = GinkoInfo & GinkoInfoTS
		End If
		GinkoCnt = GinkoCnt + 1
	End If
	If GinkoCnt > 2 Then
		'3件目以降は「など」にまとめる
		GinkoInfo = GinkoInfo & " など"
	End If
	If "" & GinkoInfo <> "" Then
		GinkoInfo = GinkoInfo & "がありました"
	End If

	'BunsyoInfo = "○○が未開封です"
	'SenpoKakuninInfo= "注文請書を先方が確認済みです"
	'MiNyukoSyohin = "商品が届いています"
	'GinkoInfo = "銀行口座に入金・出金があります"
	'MailInfo = "メール・FAXが届いています"

	Dim InfoMargin
	InfoMargin = 7
	If BunsyoInfo <> "" Then
		InfoMargin = InfoMargin - 1
	End If
	If SenpoKakuninInfo <> "" Then
		InfoMargin = InfoMargin - 1
	End If
	If MiNyukoSyohin <> "" Then
		InfoMargin = InfoMargin - 1
	End If
	If GinkoInfo <> "" Then
		InfoMargin = InfoMargin - 1
	End If
	If MailInfo <> "" Then
		InfoMargin = InfoMargin - 1
	End If

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 1;
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#2A3B73" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"<% If MailCheckInterval > 0 Then %> onLoad="setInterval('HrefReroad()',<% = MailCheckInterval * 1000 %>);"<% End If %>>

<table width="320" height="160" border="0" cellpadding="<% = InfoMargin %>" cellspacing="0" background="/<% = HomeAlias %>/images/mbkimg_sd.jpg?<% = GB_STU %>" style="color:#FFFFFF">
	<tr height="5">
		<td><% = Spacer(1,5) %></td>
	</tr>
	<tr>
		<td valign="top" height="36" class="tx1618b">&nbsp;&nbsp;&nbsp;<u> I n f o r m a t i o n&nbsp;</u></td>
	</tr>
	<% If BunsyoInfo <> "" Then %>
	<tr>
		<td valign="center" class="tx1416">　　<% = BunsyoInfo %></td>
	</tr>
	<% End If %>
	<% If SenpoKakuninInfo <> "" Then %>
	<tr>
		<td valign="center" class="tx1416">　　<% = SenpoKakuninInfo %></td>
	</tr>
	<% End If %>
	<% If MiNyukoSyohin <> "" Then %>
	<tr>
		<td valign="top" class="tx1416">　　<% = MiNyukoSyohin %></td>
	</tr>
	<% End If %>
	<% If GinkoInfo <> "" Then %>
	<tr>
		<td valign="center" class="tx1416">　　<% = GinkoInfo %></td>
	</tr>
	<% End If %>
	<% If MailInfo <> "" Then %>
	<tr>
		<td valign="center" class="tx1416">　　<% = MailInfo %></td>
	</tr>
	<% End If %>
	<tr>
		<td height="16"><% = Spacer(1,16) %></td>
	</tr>
</table>

</body>

<SCRIPT LANGUAGE="JavaScript">

	function HrefReroad() {
		location.href = "<% = Request.ServerVariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING") %>";
	}


</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>