<%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim RouteType
RouteType = Request("RouteType")
Dim PageType
'期中口座開設の有無を確認するフラグ
Dim KichuKaisetsu
KichuKaisetsu = false
Dim KozaKubun, KozaBango, BackGinkoCD
BackGinkoCD = Request("BackGinkoCD")
KozaKubun = Request("KozaKubun")
KozaBango = Request("KozaBango")
Dim GinkoCD
If Left(GB_GyosyuKubun, 1) = "B" Then
GinkoCD = KaisyaCD
PageType = "口座一覧"
PageType = "預金通帳"
Else
GinkoCD = Request("GinkoCD")
PageType = "預金通帳"
End If
Dim TsutyoSyudoSyusei
TsutyoSyudoSyusei = GetEnshuParam(EnshuCD, "通帳手動修正")
If BackGinkoCD <> GinkoCD Then
TsutyoSyudoSyusei = "0"
End If
Dim Query
Dim Content
If GB_Gyosyu <> "B" Then
'すべての預金通帳レコードの既読フラグを立てる
Query = ""
Query = Query & " UPDATE TGB銀行口座入出金TRN "
Query = Query & " SET 既読フラグ = '1' "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
Query = Query & " AND 演習CD = '" & EnshuCD & "' "
Query = Query & " AND 銀行CD = '" & GinkoCD & "' "
Query = Query & " AND 口座区分 = '" & KozaKubun & "' "
Query = Query & " AND 口座番号 = '" & KozaBango & "' "
Query = Query & " AND (既読フラグ <> '1' OR 既読フラグ IS NULL) "
Set Content = OpenQuery(Query)
End If
%>
<% = HtmlHeader("") %>