% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = Request("PageType") Dim HakkoFlg HakkoFlg = Request("HakkoFlg") Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim RouteType RouteType = Request("RouteType") Dim SenpoFlg SenpoFlg = Request("SenpoFlg") Dim ShowDel ShowDel = Request("ShowDel") Dim Title Title = ConvKubunMeisyo("手形種類区分", BunsyoSyuruiCD) '##### 2007.07.02 OldBunsyoNaiyoCD APPEND Dim OldBunsyoNaiyoCD OldBunsyoNaiyoCD = Request("OldBunsyoNaiyoCD") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") If PageType <> "" Then If InStr(PageType, "支払") > 0 Then SenpoFlg = 0 BunsyoSyuruiCD = "TS" Else SenpoFlg = 1 BunsyoSyuruiCD = "TU" End if Else If BunsyoSyuruiCD = "TS" Then SakuseiKaisyaCD = KaisyaCD End If If SakuseiKaisyaCD = KaisyaCD Then SenpoFlg = 0 Else SenpoFlg = 1 End IF End If Dim ViewAll If InStr(Title, "履歴") > 0 Then ViewAll = "1" 'この条件は存在しない。過去には「受取(支払)手形履歴」もこれを使ってたようだが、2002年に川崎氏が履歴を分離して以降は使われていない模様。 Else ViewAll = "0" End If Dim TegataJyotaiKubun TegataJyotaiKubun = Request("TegataJyotaiKubun") If TegataJyotaiKubun = "" Then TegataJyotaiKubun = "TF" End If %> <% = HtmlHeader("") %>
<% If 1=1 Or GB_IEmode <> "1" Then %> <% Else 'IEモード %> <% End If %> <% = HtmlFooter %>