%
Function Ryosyusyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg)
Dim RouteType
RouteType = Request("RouteType")
Dim SenpoFlg
Dim Title
Title = "領収書"
Dim JitsuinRiyo
Dim SoufuzumiTegataHyoji
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
'SoufuzumiTegataHyoji = "" & Content.Fields("送付済み手形表示様式")
SoufuzumiTegataHyoji = "" & Content.Fields("送付済み領収書表示様式")
JitsuinRiyo = "" & Content.Fields("実印利用")
End If
SenpoFlg = 0
If SakuseiKaisyaCD <> KaisyaCD Then
SenpoFlg = 1
End If
Dim Query, Content
Dim TmpKaisyaCD
Dim HikiukeninCD, FuridashininCD, UketorininCD
Dim ShiharaiBasyo
Dim ShiharaiKijitsu, Furidashibi
Dim Kingaku
Dim Tekiyo
Dim HasshinFlg
Dim Tenmatsubi, TenmatsuKubun, HiuragakininCD, UragakininCD
Dim SakujyoFlg
Dim SojyushinKubun
Dim MainTenmatsubi, MainTenmatsuKubun, MainHiuragakininCD
Dim FuridashininMeisyo, UketorininMeisyo, HikiukeninMeisyo, HiuragakininMeisyo, ShiharaibasyoMeisyo, ryosyusyoSyuruiMeisyo
Dim UragakininMeisyo, TenmatsuKubunMeisyo
If GB_JisyaFlag <> "" Then '運用管理・演習管理(自社フラグ無し)では開封フラグを立てない(061213小野)
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)
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
FuridashininMeisyo = Content.Fields("発行人名称")
UketorininMeisyo = Content.Fields("受取人名称")
FuridashininCD = Content.Fields("発行人CD")
UketorininCD = Content.Fields("受取人CD")
BunsyoNaiyoCD = Content.Fields("文書内容CD")
Furidashibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
Tekiyo = Content.Fields("摘要")
Kingaku = Content.Fields("金額")
HasshinFlg = Content.Fields("発行フラグ")
SakujyoFlg = Content.Fields("削除フラグ")
SojyushinKubun = Content.Fields("送受信区分")
End If
MainTenmatsubi = Tenmatsubi
MainTenmatsuKubun = TenmatsuKubun
MainHiuragakininCD = HiuragakininCD
Dim UketorininRyaku, Uketorinin, HikiukeninRyaku, Hikiukenin
If HikiukeninCD = "etc" Then
HikiukeninRyaku = "その他"
Hikiukenin = "その他"
Else
HikiukeninRyaku = HikiukeninMeisyo
Hikiukenin = HikiukeninMeisyo
End If
If UketorininCD = "etc" Then
UketorininRyaku = "その他"
Uketorinin = "その他"
Else
UketorininRyaku = ConvKaisyaRyakuMeisyo(UketorininCD)
Uketorinin = ConvKaisyaMeisyoDx(EnshuCD, UketorininCD)
End If
If IsNull(TenmatsuKubun) Then
TenmatsuKubun = ""
End If
Dim TegataType
TegataType = ""
If SojyushinKubun = "S" And HasshinFlg = 0 Then
TegataType = "VA"
ElseIf SojyushinKubun = "S" And HasshinFlg <> 0 Then
TegataType = "VB"
ElseIf SojyushinKubun = "R" And HasshinFlg <> 2 And TenmatsuKubun = "" Then
TegataType = "VC"
ElseIf SojyushinKubun = "R" And HasshinFlg <> 2 And TenmatsuKubun <> "" Then
TegataType = "VD"
ElseIf SojyushinKubun = "R" And HasshinFlg >= 2 Then
TegataType = "VF"
ElseIf SojyushinKubun = "U" Then
TegataType = "VE"
ElseIf SojyushinKubun = "H" Then
TegataType = "VG"
End IF
%>
<%
If PrintFlg = 1 Then
Response.Write(PrintHeader(AutoFlg, ""))
End if
%>
<% If (TegataType = "VA" OR TegataType = "VB" Or TegataType = "") and InStr(RouteType, "SMail") = 0 and InStr(RouteType, "syatyo") = 0 Then %>
NO.<% = BunsyoNaiyoCD %> |
日付: <% = SetDate(Furidashibi, 3) %> |
領収先: <% = Uketorinin %> |
金額:<% = ConvIntToMoney(Kingaku, false, false) %> |
摘要: <% = HardWrap(Tekiyo) %> |
<% End If %>
<% If SoufuzumiTegataHyoji = "0" And TegataType = "VB" and InStr(RouteType, "SMail") = 0 and InStr(RouteType, "syatyo") = 0 Then %>
|  |
<% End If %>
<% If SoufuzumiTegataHyoji = "1" Or TegataType = "VA" Or TegataType = "VC" Or TegataType = "VD" OR TegataType = "VE" Or TegataType = "VF" Or TegataType = "VG" Or TegataType = "" Or InStr(RouteType, "SMail") <> 0 Or InStr(RouteType, "syatyo") > 0 Then %>
<% '### 送付済み
If PrintFlg = 0 And TegataType = "VB" and InStr(RouteType, "SMail") = 0 and InStr(RouteType, "syatyo") = 0 Then %>
<% '### 廃棄済み
ElseIf PrintFlg = 0 And SakujyoFlg = 1 And TegataType = "VA" And InStr(RouteType, "SMail") = 0 And InStr(RouteType, "syatyo") = 0 Then %>
<% End If %>
<% If JitsuinRiyo = "1" Then %>
<% End If %>
|
|
<% If Len(Title) < 8 Then Response.Write(SetStringInsertSpace(Title)) Else Response.Write(Title) %><% If PrintFlg = 1 And TegataType = "VB" and InStr(RouteType, "SMail") = 0 and InStr(RouteType, "syatyo") = 0 Then %> (送付済み)<% End If %> |
NO.<% = BunsyoNaiyoCD %>
|
|
|
 |
|
<% = SetDate(Furidashibi, 3) %> |
|
|
金額 ¥ |
width="100" <% End If %>><% = ConvIntToMoney(Kingaku, false, false) %> |
※ |
|
|
|
|
|
ただし <% = HardWrap(Tekiyo) %> |
上記のとおり領収いたしました。 |
<% If FuridashininMeisyo <> "" Then %>
<% = HardWrap(ConvKaisyaJyusyo1(EnshuCD, FuridashininCD)) %>
<% = HardWrap(FuridashininMeisyo) %>
<% End If %>
|
|
|
|
|
<% End If %>
|
<%
If PrintFlg = 1 Then
Response.Write(PrintFooter())
End if
%>
|
<%
End Function
%>