<% ' ' %> <% 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 Syoribi Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg Dim Kakaku(6) '標準単価 Dim SyohinCD(6) '商品コード Dim SyohinName(6) '商品名称 Dim Suryo(6) '数量 Dim Tanka(6) '単価 Dim Henpin(6) '運送単価 Dim UnsoTanka(6) '運送単価 Dim Zaiko(6) '在庫数量 Dim Kingaku(6) Dim TaxRate(5) '消費税率 Dim GokeiKingaku Dim SyohizeiKingaku Dim ZeikomiKingaku Dim SenpoFlg Dim GakuseiShimei '学生氏名（係印） Dim SyoruiMei Dim Query Dim Content Dim Shimei Dim ZaikoTemp Dim Kaisyamei Dim KaisyaRyakumei Dim kaisyaKanamei Dim ZipCode Dim Adr1 Dim Adr2 Dim Tel Dim Fax Dim GyosyuCD Dim Set_ShijyoCD Dim SakuseiKaisyaCD Dim ShijyoCD(6) 'フラグ取得 Dim SyohinNyusyukkoSeikousei Dim Kitakuriyou Dim Jissenbi Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用") Kitakuriyou = Content.Fields("寄託倉庫利用") Jissenbi = SetTimeYYYYMMDD(Content.Fields("実践日")) End If Dim PageType PageType = Request("PageType") Dim BunsyoNaiyoCD BunsyoNaiyoCD = Request("BunsyoNaiyoCD") ' Dim KaisyaCD ' KaisyaCD = Request("KaisyaCD") Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") '###Debug 'Response.Write("
") '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 & "
") Dim NyusyukoKubun NyusyukoKubun = Request("NyusyukoKubun") Dim RouteType RouteType = "" Dim HanbaiShuruiSeigen Dim HanbaiSuryoSeigen Dim HanbaiTankaKijun Dim SeitoSu1 Dim SeitoSu2 Dim SeitoSu3 Dim SeitoSu4 Dim SeitoSu5 Dim KakeritsuTop1 Dim KakeritsuTop2 Dim KakeritsuTop3 Dim KakeritsuTop4 Dim KakeritsuTop5 Dim KakeritsuBot1 Dim KakeritsuBot2 Dim KakeritsuBot3 Dim KakeritsuBot4 Dim KakeritsuBot5 Query = "exec SPM演習取得_小売販売 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HanbaiShuruiSeigen = Content.Fields("販売種類制限") HanbaiSuryoSeigen = Content.Fields("販売数量制限") HanbaiTankaKijun = Content.Fields("販売単価算出基準") SeitoSu1 = Content.Fields("生徒数1") SeitoSu2 = Content.Fields("生徒数2") SeitoSu3 = Content.Fields("生徒数3") SeitoSu4 = Content.Fields("生徒数4") SeitoSu5 = Content.Fields("生徒数5") KakeritsuTop1 = Content.Fields("掛け率上限1") KakeritsuTop2 = Content.Fields("掛け率上限2") KakeritsuTop3 = Content.Fields("掛け率上限3") KakeritsuTop4 = Content.Fields("掛け率上限4") KakeritsuTop5 = Content.Fields("掛け率上限5") KakeritsuBot1 = Content.Fields("掛け率下限1") KakeritsuBot2 = Content.Fields("掛け率下限2") KakeritsuBot3 = Content.Fields("掛け率下限3") KakeritsuBot4 = Content.Fields("掛け率下限4") KakeritsuBot5 = Content.Fields("掛け率下限5") End If If "" & HanbaiSuryoSeigen = "" Then HanbaiSuryoSeigen = 0 End If If "" & HanbaiShuruiSeigen = "" Then HanbaiShuruiSeigen = 0 End If '掛け率ランダム Dim RndKakeritsu RndKakeritsu = Right(TimeUniq(),2) If RndKakeritsu mod 2 > 0 Then RndKakeritsu = RndKakeritsu + 1 End If ' RndKakeritsu = RndKakeritsu / 100 RndKakeritsu = (KakeritsuBot1 + ((KakeritsuTop1 - KakeritsuBot1) * RndKakeritsu / 100)) / 100 SyoruiMei = "お買い上げ票" If BunsyoNaiyoCD <> "" Then '更新の場合 Query = "exec SPK小売販売取得_合計 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "','" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) Dim kk, GokeiSuryo, GokeiGaku, GokeiShohizei, ZeikomiGaku, GokeiSoryo 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("買上点数") '買上点数 GokeiKingaku = Content.Fields("買上金額") '買上金額 SyohizeiKingaku = Content.Fields("消費税") '消費税 ' Soryo = Content.Fields("送料") '送料 ZeikomiKingaku = Content.Fields("合計金額") '合計金額 Content.MoveNext Loop '小売販売明細部読み込み Query = "exec SPK小売販売取得_明細 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" kk = 1 '行シーケンス Set Content = OpenQuery(Query) GokeiKingaku = 0 SyohizeiKingaku = 0 Do While Not(Content.BOF Or Content.EOF) SyohinCD(kk) = Content.Fields("商品CD") '商品CD SyohinName(kk) = Content.Fields("商品名") '商品名 ' SyohinRyakumei(kk) = Content.Fields("商品略称") '商品略称 ' HyojyunTanka(kk) = Content.Fields("標準売価") '標準売価 Tanka(kk) = Content.Fields("実販売単価") '実販売単価 ' ShiireTanka(kk) = Content.Fields("仕入単価") '仕入単価 Suryo(kk) = Content.Fields("数量") '数量 Henpin(kk) = Content.Fields("返品数量") '返品数量 Suryo(kk) = Suryo(kk) - Henpin(kk) '現在数量 Kingaku(kk) = Content.Fields("金額") '金額 TaxRate(kk) = Content.Fields("消費税率") If "" & TaxRate(kk) = "" Or GB_ShohizeiMode <> 1 Then TaxRate(kk) = StdTaxRate End If GokeiKingaku = GokeiKingaku + Kingaku(kk) If TaxRate(kk) <> "" Then SyohizeiKingaku = SyohizeiKingaku + (Kingaku(kk) * CCur(TaxRate(kk)) / 100) Else SyohizeiKingaku = SyohizeiKingaku + (Kingaku(kk) * StdTaxRate / 100) End If kk = kk + 1 SyohinCD(kk) = "" Content.MoveNext Loop SyohizeiKingaku = Int(SyohizeiKingaku) ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku End If Dim jj,tmps Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth '↓市場・商品表示幅の指定及び商品名称・商品略名称の指定（修正061031小野） SyohinMeisyo = "商品名称" SyohinMeisyoListWidth = "width: 155;" ShijyoListWidth = "width:85" '↑市場・商品表示幅の指定及び商品名称・商品略名称の指定（修正061031小野） Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ' KaisyaCD = Content.Fields("会社CD") SakuseiKaisyaCD = Content.Fields("会社CD") 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 TmpTaxRateAry ReDim TmpTaxRateAry(0) Dim TmpTaxRate Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TDA消費税率M " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " ORDER BY 消費税率 DESC " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1 TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("消費税率") 'Response.Write(TmpTaxRateAry(UBound(TmpTaxRateAry)) & "
") TmpTaxRate = TmpTaxRate & "'" & Content.Fields("消費税率") & "'" '存在チェック用羅列 Content.MoveNext Loop Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("標準消費税率") <> "" Then If InStr(TmpTaxRate, "'" & Content.Fields("標準消費税率") & "'") < 1 Then ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1 TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("標準消費税率") TmpTaxRate = TmpTaxRate & "'" & Content.Fields("標準消費税率") & "'" '存在チェック用羅列 End If End If Content.MoveNext Loop For TmpCnt = 1 To 5 If "" & TaxRate(TmpCnt) <> "" Then If InStr(TmpTaxRate, "'" & TaxRate(TmpCnt) & "'") < 1 Then ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1 TmpTaxRateAry(UBound(TmpTaxRateAry)) = CCur(TaxRate(TmpCnt)) TmpTaxRate = TmpTaxRate & "'" & TaxRate(TmpCnt) & "'" '存在チェック用羅列 End If End If Next '本配列にソート Dim TCnt Dim TaxRateAry ReDim TaxRateAry(0) ReDim PreServe TaxRateAry(UBound(TmpTaxRateAry)) '仮配列と同じ長さ For TCnt = 1 To UBound(TaxRateAry) TaxRateAry(Tcnt) = 0 'すべてにゼロを代入 Next TmpTaxRate = "" '存在チェック用羅列リセット For TCnt = 1 To UBound(TaxRateAry) For TmpCnt = 1 To UBound(TmpTaxRateAry) 'その時点で有効な最大税率を取得する If InStr(TmpTaxRate, "'" & TmpTaxRateAry(TmpCnt) & "'") < 1 Then If TmpTaxRateAry(TmpCnt) > TaxRateAry(TCnt) Then TaxRateAry(TCnt) = TmpTaxRateAry(TmpCnt) End If End If Next TmpTaxRate = TmpTaxRate & "'" & TaxRateAry(TCnt) & "'" '存在チェック用羅列 Next For TmpCnt = 1 To UBound(TmpTaxRateAry) ' Response.Write(TmpTaxRateAry(TmpCnt) & "
") Next For TCnt = 1 To UBound(TaxRateAry) ' Response.Write(TaxRateAry(TCnt) & "
") Next 'Response.Write(TmpTaxRate & "
") 'Exit Sub '###Debug 'Response.Write("
") 'Response.Write("GB_SystemCD:" & GB_SystemCD & "
") 'Response.Write("EnshuCD:" & EnshuCD & "
") 'Response.Write("KaisyaCD:" & KaisyaCD & "
") %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) If BunsyoSyuruiCD = "SC" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s5.asp')", SyoruiMei, "", "", "", "", "")) ElseIf BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", SyoruiMei, "", "", "", "", "")) Else 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, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "在庫確認", "wopen('kh_kouri_shohin_check.asp?RouteType=kouri','syoukai')", "", "", "", "", "", "")) If BunsyoNaiyoCD <> "" Then Response.Write(HttpL3_2("追加", "tblbtn( 'kh_kouri.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'kh_kouri_ichiran.asp?BunsyoSyuruiCD=HU&PageType=ichiran&RouteType=" & RouteType & "&SakuseiKaisyaCD=" & KaisyaCD & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("一覧表示", "tblbtn( 'kh_kouri_ichiran.asp?BunsyoSyuruiCD=HU&PageType=ichiran&RouteType=" & RouteType & "&SakuseiKaisyaCD=" & KaisyaCD & "')", "", "", "", "", "", "", "", "")) End If If BunsyoNaiyoCD <> "" Then Response.Write(HttpL4("小売販売", "修正")) Else Response.Write(HttpL4("小売販売", "追加")) End If %>

伝票番号：<% = BunsyoNaiyoCD %>

<% Response.Write(SyoruiMei) %>

処理日： <% If Jissenbi <> "" And BunsyoNaiyoCD <> "" Then '実践日固定モード且つ修正モード %> <% ElseIf Jissenbi <> "" Then '実践日固定モード %> <% Else %> <% End If %>

お名前

：様

<% = Kaisyamei %>　

<% = Adr1 %>　

<% = Adr2 %>　

TEL：<% = Tel %>　

FAX：<% = Fax %>

摘要：

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

商品名称	数　量	単　価	金　額	税率

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

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

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