<% Function KouriRyoshusho(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) Dim RouteType RouteType = Request("RouteType") Dim Action Action = Request("Action") Dim PageType PageType = Request("PageType") ' Dim SakuseiKaisyaCD ' SakuseiKaisyaCD = Request("SakuseiKaisyaCD") ' Dim BunsyoSyuruiCD ' BunsyosyuruiCD = Request("BunsyoSyuruiCD") ' Dim BunsyoNaiyoCD ' BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim Title Title = "領収書" Dim Query, Content Dim Kaisyamei Dim KaisyaRyakumei Dim kaisyaKanamei Dim ZipCode Dim Adr1 Dim Adr2 Dim Tel Dim Fax Dim GyosyuCD Dim Set_ShijyoCD Dim jj,tmps Dim ShohinMeisyo, ShohinMeisyoListWidth, ShijyoListWidth '↓市場・商品表示幅の指定及び商品名称・商品略名称の指定？ ShohinMeisyo = "商品名称" ShohinMeisyoListWidth = "width: 155;" ShijyoListWidth = "width:85" ' For Debug 'Response.Write("GB_SystemCD:" & GB_SystemCD & "
") 'Response.Write("EnshuCD:" & EnshuCD & "
") 'Response.Write("KaisyaCD:" & KaisyaCD & "
") 'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "
") 'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "
") 'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
") 'Response.Write("RouteType:" & RouteType & "
") '販売会社名の情報取得 Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kaisyamei = Content.Fields("会社名称") KaisyaRyakumei = Content.Fields("会社略名称") kaisyaKanamei = Content.Fields("会社カナ名称") ZipCode = Content.Fields("郵便番号") Adr1 = Content.Fields("住所1") Adr2 = Content.Fields("住所2") Tel = Content.Fields("TEL") Fax = Content.Fields("FAX") GyosyuCD = Content.Fields("業種CD") Set_ShijyoCD = Content.Fields("市場CD") End If Dim KaiageTensu '買上点数 Dim KaiageKingaku '買上金額 Dim ShohiZei '消費税 Dim GokeiKingaku '合計金額 Dim Unsohi '運送費 Dim KyakuShimei '客氏名 Dim Tekiyo '摘要 Dim GakuseiShimei '学生氏名 Dim GakuseiBango '学生番号 Dim GakuseiRyakusho '学生略称（印） Dim Kaiagebi '買上日 Dim KaiagehyoF '買上票印刷フラグ Dim RyoshusyoF '領収書印刷フラグ Dim ShukkaF '出荷フラグ Dim NyuShukkoF '入出庫フラグ Dim SakujyoF '削除フラグ Dim kitakuSokoF '寄託倉庫利用フラグ ' 小売販売テーブル読み込み（TTL部） Query = "exec SPK小売販売取得_合計 '" & GB_SystemCD & "'" 'システムCD Query = Query & ",'" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '作成会社CD Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaiageTensu = Content.Fields("買上点数") KaiageKingaku = Content.Fields("買上金額") ShohiZei = Content.Fields("消費税") GokeiKingaku = Content.Fields("合計金額") Tekiyo = Content.Fields("摘要") Unsohi = Content.Fields("送料") KyakuShimei = Content.Fields("客氏名") GakuseiBango = Content.Fields("学生番号") GakuseiShimei = Content.Fields("学生氏名") Tekiyo = Content.Fields("摘要") Kaiagebi = Content.Fields("買上日") KaiagehyoF = Content.Fields("買上票印刷フラグ") '買上票印刷フラグ RyoshusyoF = Content.Fields("領収書印刷フラグ") '領収書印刷フラグ ShukkaF = Content.Fields("出荷フラグ") '出荷フラグ NyuShukkoF = Content.Fields("入出庫更新フラグ") '入出庫フラグ SakujyoF = Content.Fields("削除フラグ") '削除フラグ kitakuSokoF = Content.Fields("寄託倉庫利用") '寄託倉庫利用フラグ End If %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader(AutoFlg, "")) End if %>
<% ' 領収書印刷フラグを判断し、右辺の有無により表示制御を行う。 If RyoshusyoF = 1 Then %> <% Else %> <% End IF %>
NO．<% = BunsyoNaiyoCD %>
日付：
<% = SetDate(Kaiagebi, 3) %>
領収先：
<% = KyakuShimei %>
金額：<% = ConvIntToMoney(GokeiKingaku, false, false) %>
摘要：
<% = Tekiyo %>


<% = Title %>  NO．<% = BunsyoNaiyoCD %>

 <% = KyakuShimei %>  御中
<% = SetDate(Kaiagebi, 3) %>
金額　￥ <% = ConvIntToMoney(GokeiKingaku, false, false) %> ※
印   収

紙   入
 ただし　<% = Tekiyo %>
上記のとおり領収いたしました。
<% = Adr1 %>
<% = Kaisyamei %>
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End if %>
<% End Function %>