<%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim RouteType
RouteType = Request("RouteType")
Dim SenpoFlg
Dim BunsyoSyuruiCD
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
BunsyoSyuruiCD = "RA"
Dim Title
Title = "領収書"
Dim Query, Content
Dim TmpKaisyaCD
Dim SakuseiKaisyaCD
Dim HikiukeninCD, FuridashininCD, UketorininCD
Dim ShiharaiBasyo
Dim BunsyoNaiyoCD, ShiharaiKijitsu, Furidashibi
Dim Kingaku
Dim Tekiyo
Dim HasshinFlg
Dim Tenmatsubi, TenmatsuKubun, HiuragakininCD
Dim SakujyoFlg
Dim SojyushinKubun
Dim Action
Action = Request("Action")
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
'##### 2007.07.02 OldBunsyoNaiyoCD APPEND
Dim OldBunsyoNaiyoCD
OldBunsyoNaiyoCD = BunsyoNaiyoCD
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
Dim KaisyaCD1
Dim AdminMailFlag
AdminMailFlag = 0
'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
if Request("KaisyaCD1") <> "" then
AdminMailFlag = 1
KaisyaCD = Request("KaisyaCD1")
end if
If SakuseiKaisyaCD = "" Then
SakuseiKaisyaCD = KaisyaCD
End If
If SakuseiKaisyaCD = KaisyaCD Then
SenpoFlg = 0
Else
SenpoFlg = 1
End If
Query = "exec SPK領収書取得"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & SakuseiKaisyaCD & "'" '会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'"
Query = Query & ",'" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
FuridashininCD = Content.Fields("発行人CD")
UketorininCD = Content.Fields("受取人CD")
BunsyoNaiyoCD = Content.Fields("文書内容CD")
Furidashibi = Content.Fields("取引日")
Tekiyo = Content.Fields("摘要")
Kingaku = Content.Fields("金額")
HasshinFlg = Content.Fields("発行フラグ")
SakujyoFlg = Content.Fields("削除フラグ")
SojyushinKubun = Content.Fields("送受信区分")
End If
If IsNull(TenmatsuKubun) Then TenmatsuKubun = "" End If
Dim UketorininRyaku, Uketorinin, HikiukeninRyaku, Hikiukenin
If HikiukeninCD = "etc" Then
HikiukeninRyaku = "その他"
Hikiukenin = "その他"
Else
HikiukeninRyaku = ConvKaisyaRyakuMeisyo(HikiukeninCD)
Hikiukenin = ConvKaisyaMeisyoDx(EnshuCD, HikiukeninCD)
End If
If UketorininCD = "etc" Then
UketorininRyaku = "その他"
Uketorinin = "その他"
Else
UketorininRyaku = ConvKaisyaRyakuMeisyo(UketorininCD)
Uketorinin = ConvKaisyaMeisyoDx(EnshuCD, UketorininCD)
End If
Dim ryosyusyoSyusei
ryosyusyoSyusei = "1"
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>