<% 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 %> <% 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 %> <% End If %>
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 %>
<% '### 送付済み If PrintFlg = 0 And TegataType = "VB" and InStr(RouteType, "SMail") = 0 and InStr(RouteType, "syatyo") = 0 Then %>
IMG
<% '### 廃棄済み ElseIf PrintFlg = 0 And SakujyoFlg = 1 And TegataType = "VA" And InStr(RouteType, "SMail") = 0 And InStr(RouteType, "syatyo") = 0 Then %>
IMG
<% 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 %>

 <% = Uketorinin %>  御中
<% = SetDate(Furidashibi, 3) %>
金額 ¥ width="100" <% End If %>><% = ConvIntToMoney(Kingaku, false, false) %>
印   収

紙   入
 ただし <% = HardWrap(Tekiyo) %>
上記のとおり領収いたしました。
<% If FuridashininMeisyo <> "" Then %> <% = HardWrap(ConvKaisyaJyusyo1(EnshuCD, FuridashininCD)) %>
<% = HardWrap(FuridashininMeisyo) %>
<% End If %>
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End if %>
<% End Function %>