<%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim PageType
PageType = Request("PageType")
Dim BunsyoSyuruiCD
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
BunsyoSyuruiCD = "RA"
Dim RouteType
RouteType = Request("RouteType")
Dim SenpoFlg
SenpoFlg = Request("SenpoFlg")
Dim ShowDel
ShowDel = Request("ShowDel")
Dim Title
Title = "領収書"
'##### 一覧に戻るときの引数の追加
Dim OldBunsyoNaiyoCD
OldBunsyoNaiyoCD = Request("OldBunsyoNaiyoCD")
' OldBunsyoNaiyoCD = "2"
'Response.Write("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"
Else
ViewAll = "0"
End If
Dim ryosyusyoJyotaiKubun
ryosyusyoJyotaiKubun = Request("ryosyusyoJyotaiKubun")
If ryosyusyoJyotaiKubun = "" Then
ryosyusyoJyotaiKubun = "TF"
End If
%>
<% = AppTitle %>
<% = HtmlFooter %>
<%
End Sub
%>