<%
'
'
'
%>
<%
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
%>
<% = AppTitle %>
0 Then %> onLoad="setInterval('HrefReroad()',<% = MailCheckInterval * 1000 %>);"<% End If %>>