<% ' ' %> <% main() Sub main() 'マスタの標準消費税率を取得 Dim StdTaxRate Dim StdTaxRateUnso StdTaxRate = GB_Shohizei StdTaxRateUnso = GB_Shohizei If GB_ShohizeiMode = 1 Then Query = " SELECT * FROM TDA消費税率M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND (標準 = '1' OR 運送費標準 = '1') " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("標準") = "1" Then StdTaxRate = Content.Fields("消費税率") End If If "" & Content.Fields("運送費標準") = "1" Then StdTaxRateUnso = Content.Fields("消費税率") End If Content.MoveNext Loop End If Dim TmpCnt Dim KaiageTensu, GokeiKingaku, UnsohiSeikyugaku, SyohizeiKingaku, ZeikomiKingaku, Unsohi, UnsohiSeikyuFlg Dim HKaiageTensu, HGokeiKingaku, HUnsohiSeikyugaku, HSyohizeiKingaku, HZeikomiKingaku, HUnsohi, HUnsohiSeikyuFlg Dim GokeiLoop Dim S(6) Dim ShohinCD(6) Dim Tanka(6) Dim Suryo(6) Dim Kingaku(6) Dim TaxRate(6) Dim HSuryo(6) Dim HKingaku(6) Dim ShohinMei(6) Dim ShohinRyakumei(6) Dim HyojyunTanka(6) Dim ShiireTanka(6) Dim SyohinGazo(6) '商品画像 Dim Henpin1 Dim Henpin2 Dim Henpin3 Dim Henpin4 Dim Henpin5 Dim GakuseiShimei '学生氏名 Dim GakuseiBango '学生番号 Dim GakuseiRyakusho '学生略称（印） Dim SyoruiMei SyoruiMei = "お買い上げ票" Dim Query Dim Content Dim PageType PageType = Request("PageType") Dim RouteType RouteType = Request("RouteType") Dim Action Action = Request("Action") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim BunsyoNaiyoCD BunsyoNaiyoCD = Request("BunsyoNaiyoCD") '###Debug 'Response.Write("
") 'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
") Dim NyusyukoKubun Dim UntinSyogakariKubun Dim Syoribi Dim Shimei Dim Tekiyo Dim TorihikisakiCD Dim SenpoBunsyoNaiyoCD SenpoBunsyoNaiyoCD = "" Dim SenpoBunsyoSyuruiCD SenpoBunsyoSyuruiCD = "" Dim SenpoSyoribi SenpoSyoribi = "" Dim BunSyuCD Dim BunNaiCD Dim KaimonohyoPrintF Dim ShukkaF Dim RyoshushoF Dim KoshinF Dim SakujyoF Dim KitakuSokoriyo Dim KoshinDate Dim KaiageKingaku Dim GokeiUriage Dim ShohiZei Dim Soryo Dim HKaiageKingaku Dim HGokeiUriage Dim HShohiZei Dim HSoryo Dim SyohinGazoStr '商品画像ストリング Dim ShijyoCD '###Debug 'Response.Write("GB_SystemCD:" & GB_SystemCD & "
") 'Response.Write("EnshuCD:" & EnshuCD & "
") 'Response.Write("KaisyaCD:" & KaisyaCD & "
") 'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
") 'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "
") 'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "
") 'Response.Write("SenpoBunsyoSyuruiCD:" & SenpoBunsyoSyuruiCD & "
") 'Response.Write("SenpoBunsyoNaiyoCD:" & SenpoBunsyoNaiyoCD & "
") '### 該当の小売データの読み込み Query = "exec SPK小売販売取得_合計 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "','" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Shimei = Content.Fields("客氏名") '客氏名 Syoribi = SetTimeYYYYMMDD(Content.Fields("買上日")) '買上日 Tekiyo = Content.Fields("摘要") '摘要 GakuseiBango = Content.Fields("学生番号") '学生番号 GakuseiShimei = Content.Fields("学生氏名") '学生氏名（係印） KaiageTensu = Content.Fields("買上点数") '買上点数 KaiageKingaku = ConvMoneyToInt(Content.Fields("買上金額")) '買上金額 ShohiZei = ConvMoneyToInt(Content.Fields("消費税")) '消費税 Soryo = ConvMoneyToInt(Content.Fields("送料")) '送料 GokeiUriage = ConvMoneyToInt(Content.Fields("合計金額")) '合計金額 KaimonohyoPrintF = Content.Fields("買上票印刷フラグ") '買い物票印刷フラグ ShukkaF = Content.Fields("出荷フラグ") '出荷フラグ RyoshushoF = Content.Fields("領収書印刷フラグ") '領収書印刷フラグ KoshinF = Content.Fields("入出庫更新フラグ") '入出庫更新フラグ SakujyoF = Content.Fields("削除フラグ") '削除フラグ KitakuSokoriyo = Content.Fields("寄託倉庫利用") '寄託倉庫利用 KoshinDate = SetTimeYYYYMMDD(Content.Fields("更新日時")) '更新日時 HKaiageTensu = 0 '買上点数 HKaiageKingaku = 0 '買上金額 HShohiZei = 0 '消費税 HSoryo = 0 '送料 HGokeiUriage = 0 '合計金額 Content.MoveNext Loop '### 小売販売明細部読み込み Query = "exec SPK小売販売取得_明細 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Dim kk kk = 0 '行シーケンス Set Content = OpenQuery(Query) ShohiZei = 0 Do While Not(Content.BOF Or Content.EOF) ShohinCD(kk) = Content.Fields("商品CD") '商品CD ShohinMei(kk) = Content.Fields("商品名") '商品名 ShohinRyakumei(kk) = Content.Fields("商品略称") '商品略称 HyojyunTanka(kk) = ConvMoneyToInt(Content.Fields("標準売価")) '標準売価 Tanka(kk) = ConvMoneyToInt(Content.Fields("実販売単価")) '実販売単価 ShiireTanka(kk) = ConvMoneyToInt(Content.Fields("仕入単価")) '仕入単価 Suryo(kk) = ConvMoneyToInt(Content.Fields("数量")) '数量 ' Kingaku(kk) = Tanka(kk) * Suryo(kk) '金額 HSuryo(kk) = ConvMoneyToInt(Content.Fields("返品数量")) '数量(返品） 'ここで算出（070320小野） Kingaku(kk) = Tanka(kk) * ( Suryo(kk) - HSuryo(kk) ) '現時点の商品合計金額 Suryo(kk) = Suryo(kk) - HSuryo(kk) '現時点の商品販売数量 TaxRate(kk) = Content.Fields("消費税率") If "" & TaxRate(kk) = "" Or GB_ShohizeiMode <> 1 Then TaxRate(kk) = StdTaxRate End If ShohiZei = ShohiZei + (Kingaku(kk) * CCur(TaxRate(kk)) / 100) HSuryo(kk) = 0 HKingaku(kk) = 0 '金額 SyohinGazo(kk) = ConvSyohinGazo(EnshuCD, Content.Fields("商品CD")) If SyohinGazoStr <> "" Then SyohinGazoStr = SyohinGazoStr & "," End If If SyohinGazo(kk) <> "" Then SyohinGazoStr = SyohinGazoStr & """" & Fgoods & "/" & EnshuCD & "/" &SyohinGazo(kk) & """" Else SyohinGazoStr = SyohinGazoStr & """/" & HomeAlias & "/images/truck_box.gif?" & GB_STU & """" End If kk = kk + 1 ShohinCD(kk) = "" Content.MoveNext Loop '無効化（070320小野） If 0 = 1 Then '既に返品済みかのチェックを行い、返品レコードを読み込む '### 該当の小売データの読み込み Query = "exec SPK小売販売取得_合計 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', 'HH','" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Do While Not(Content.BOF Or Content.EOF) HKaiageTensu = Content.Fields("買上点数") '買上点数 HKaiageKingaku = ConvMoneyToInt(Content.Fields("買上金額")) '買上金額 HShohiZei = ConvMoneyToInt(Content.Fields("消費税")) '消費税 HSoryo = ConvMoneyToInt(Content.Fields("送料")) '送料 HGokeiUriage = ConvMoneyToInt(Content.Fields("合計金額")) '合計金額 Content.MoveNext Loop End If '### 小売販売明細部読み込み Query = "exec SPK小売販売取得_明細 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', 'HH', '" & BunsyoNaiyoCD & "'" kk = 0 '行シーケンス Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Do While Not(Content.BOF Or Content.EOF) HSuryo(kk) = Content.Fields("数量") '数量(返品） Hkingaku(kk) = Content.Fields("金額") '金額(返品） kk = kk + 1 ShohinCD(kk) = "" Content.MoveNext Loop End If End If Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth '↓市場・商品表示幅の指定及び商品名称・商品略名称の指定（修正061031小野） SyohinMeisyo = "商品名称" SyohinMeisyoListWidth = "width: 200;" ShijyoListWidth = "width:80" '寄託利用フラグ取得 Dim Kitakuriyou Dim SenpoKitakuGaisyaCD Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = Content.Fields("寄託倉庫利用") Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SenpoKitakuGaisyaCD = Content.Fields("寄託会社CD") End If End If %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", SyoruiMei, "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'kh_kouri_ichiran.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&PageType=ichiran&RouteType=" & RouteType & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(SyoruiMei, "返品")) %>

<% If Request("Action") = "henpin" Then %> <% End If %>

　伝票番号：<% = BunsyoNaiyoCD %>

<% = SyoruiMei %>（返品）

買上日：	<% = Syoribi %>
処理日：

お名前：<% = Shimei %>

様

摘要：<% = Tekiyo %>

<% If GB_ShohizeiMode = 1 Then %> <% End If %> <% GokeiLoop = 1 %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% If Suryo(1) = 0 OR Suryo(1) = "" Then %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% Else %> <% GokeiLoop = 2 %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% End If %> <% If Suryo(2) = 0 OR Suryo(2) = "" Then %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% Else %> <% GokeiLoop = 3 %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% End If %> <% If Suryo(3) = 0 OR Suryo(3) = "" Then %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% Else %> <% GokeiLoop = 4 %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% End If %> <% If Suryo(4) = 0 OR Suryo(4) = "" Then %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% Else %> <% GokeiLoop = 5 %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% End If %>

商品コード	商品名称	数　量	返品数	単　価	金　額	税率
<% = ShohinCD(0) %>	<% = ShohinMei(0) %>	<% = SetNumber(Suryo(0), False) %>		<% = SetMoney(Tanka(0), False, true) %>		<% If "" & TaxRate(0) <> "" Then %><% = TaxRate(0) %>％<% End If %>
<% = ShohinCD(1) %>	<% = ShohinMei(1) %>	<% = SetNumber(Suryo(1), False) %>						<% = SetMoney(Tanka(1), False, true) %>		<% If "" & TaxRate(1) <> "" Then %><% = TaxRate(1) %>％<% End If %>
<% = ShohinCD(2) %>	<% = ShohinMei(2) %>	<% = SetNumber(Suryo(2), False) %>						<% = SetMoney(Tanka(2), False, true) %>		<% If "" & TaxRate(2) <> "" Then %><% = TaxRate(2) %>％<% End If %>
<% = ShohinCD(3) %>	<% = ShohinMei(3) %>	<% = SetNumber(Suryo(3), False) %>						<% = SetMoney(Tanka(3), False, true) %>		<% If "" & TaxRate(3) <> "" Then %><% = TaxRate(3) %>％<% End If %>
<% = ShohinCD(4) %>	<% = ShohinMei(4) %>	<% = SetNumber(Suryo(4), False) %>						<% = SetMoney(Tanka(4), False, true) %>		<% If "" & TaxRate(4) <> "" Then %><% = TaxRate(4) %>％<% End If %>

<% If GB_ShohizeiMode = 1 Then %> <% End If %>

	合計金額
	消費税額
	税込金額

<% = HtmlFooter %> <% End Sub %>