<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim AddFlg Dim BunsyoNaiyoCD, TorihikisakiCD, UntinSyogakariKubun, Unsohi Dim BunsyoSyuruiCD, SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi Dim ShohinCD(6) '商品コード Dim ShohinMei(6) '商品名 Dim ShohinRyakumei(6) '商品略名 Dim Suryo(6) '数量 Dim Henpin(6) '返品数 Dim Tanka(6) '単価 Dim HyojyunTanka(6) Dim ShiireTanka(6) Dim Kingaku(6) '金額 Dim Query Dim Content Dim ii, jj Dim PageType PageType = Request("PageType") Dim RouteType RouteType = Request("RouteType") Dim Action Action = Request("Action") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") '文書内容CD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") '文書種類CD 'For Debug 'Response.Write("
") 'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
") '##### １．データの引継ぎ 'ヘッダ部 SenpoBunsyoNaiyoCD = "" '先方文書内容CD SenpoBunsyoSyuruiCD = "" '先方文書種類CD SenpoSyoribi = "" '先方処理日 TorihikisakiCD = "SJ4KOURIHANBAI" '取引先CD UntinSyogakariKubun = Request("UntinSyogakariKubun") '運賃諸掛区分 Unsohi = ConvMoneyToInt(Request("Unsohi")) '運送費 Dim KaiageKingaku KaiageKingaku = ConvMoneyToInt(Request("KaiageGaku")) Dim Soryo Soryo = 0 Dim ShohiZei ShohiZei = ConvMoneyToInt(Request("Shohizei")) Dim GokeiUriage GokeiUriage = ConvMoneyToInt(Request("SoGokei")) Dim DenpyoNo DenpyoNo = Request("DenpyoNo") Dim Syoribi Syoribi = Request("Syoribi") Dim OldSyoribi OldSyoribi = Request("OldSyoribi") Dim Shimei Shimei = Request("Shimei") Dim Tekiyo Tekiyo = Request("Tekiyo") Dim GakuseiBango GakuseiBango = Request("GakuseiBango") Dim Kitakuriyo Kitakuriyo = Request("Kitakuriyo") '明細部 ShohinCD(0) = Request("ShohinCD1") ShohinMei(0) = Request("ShohinMei1") ShohinRyakumei(0) = Request("ShohinRyakumei1") Suryo(0) = ConvMoneyToInt(Request("Suryo1")) Henpin(0) = ConvMoneyToInt(Request("Henpin1")) Tanka(0) = ConvMoneyToInt(Request("Tanka1")) ShiireTanka(0) = ConvMoneyToInt(Request("ShiireTanka1")) HyojyunTanka(0) = ConvMoneyToInt(Request("HyojyunTanka1")) Kingaku(0) = ConvMoneyToInt(Request("Kingaku1")) ShohinCD(1) = Request("ShohinCD2") ShohinMei(1) = Request("ShohinMei2") ShohinRyakumei(1) = Request("ShohinRyakumei2") Suryo(1) = ConvMoneyToInt(Request("Suryo2")) Henpin(1) = ConvMoneyToInt(Request("Henpin2")) Tanka(1) = ConvMoneyToInt(Request("Tanka2")) ShiireTanka(1) = ConvMoneyToInt(Request("ShiireTanka2")) HyojyunTanka(1) = ConvMoneyToInt(Request("HyojyunTanka2")) Kingaku(1) = ConvMoneyToInt(Request("Kingaku2")) ShohinCD(2) = Request("ShohinCD3") ShohinMei(2) = Request("ShohinMei3") ShohinRyakumei(2) = Request("ShohinRyakumei3") Suryo(2) = ConvMoneyToInt(Request("Suryo3")) Henpin(2) = ConvMoneyToInt(Request("Henpin3")) Tanka(2) = ConvMoneyToInt(Request("Tanka3")) ShiireTanka(2) = ConvMoneyToInt(Request("ShiireTanka3")) HyojyunTanka(2) = ConvMoneyToInt(Request("HyojyunTanka3")) Kingaku(2) = ConvMoneyToInt(Request("Kingaku3")) ShohinCD(3) = Request("ShohinCD4") ShohinMei(3) = Request("ShohinMei4") ShohinRyakumei(3) = Request("ShohinRyakumei4") Suryo(3) = ConvMoneyToInt(Request("Suryo4")) Henpin(3) = ConvMoneyToInt(Request("Henpin4")) Tanka(3) = ConvMoneyToInt(Request("Tanka4")) ShiireTanka(3) = ConvMoneyToInt(Request("ShiireTanka4")) HyojyunTanka(3) = ConvMoneyToInt(Request("HyojyunTanka4")) Kingaku(3) = ConvMoneyToInt(Request("Kingaku4")) ShohinCD(4) = Request("ShohinCD5") ShohinMei(4) = Request("ShohinMei5") ShohinRyakumei(4) = Request("ShohinRyakumei5") Suryo(4) = ConvMoneyToInt(Request("Suryo5")) Henpin(4) = ConvMoneyToInt(Request("Henpin5")) Tanka(4) = ConvMoneyToInt(Request("Tanka5")) ShiireTanka(4) = ConvMoneyToInt(Request("ShiireTanka5")) HyojyunTanka(4) = ConvMoneyToInt(Request("HyojyunTanka5")) Kingaku(4) = ConvMoneyToInt(Request("Kingaku5")) '###Debug 'Response.Write("
") 'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "
") 'Response.Write("ShohinCD:" & ShohinCD(0) & "
") 'Response.Write("Suryo1:" & Suryo(0) & "
") 'Response.Write("Tanak1:" & Tanka(0) & "
") 'Response.Write("DenpyoNo:" & DenpyoNo & "
") 'Response.Write("Kingaku:" & KaiageKingaku & "
") 'Response.Write("Shohizei:" & Shohizei & "
") 'Response.Write("GokeiUriage:" & GokeiUriage & "
") Dim HenpinKei Dim KaiageTensu Dim GokeiKingaku Dim SyohizeiKingaku Dim ZeikomiKingaku Dim Query2 Dim Content2 Dim BunSyuCD Dim BunNaiCD BunSyuCD = "SY" BunNaiCD = "" '########################################################### '# '# 買い上げ票での返品処理 '# '########################################################### '##### １．入出庫トランに削除後に出力 ' If Action = "henpin" AND RouteType = "main" Then '### 返品データを入庫データとして入出庫トランを更新する。 jj = 0 For ii = 1 To 5 If Henpin(jj) = "" Then Henpin(jj) = 0 End If If Suryo(jj) = "" Then Suryo(jj) = 0 End If If ShohinCD(jj) <> "" AND Henpin(jj) > 0 Then Query = "exec SPD入出庫挿入 '" & GB_SystemCD & "'," 'システムコード Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & SakuseiKaisyaCD & "'" '会社CD Query = Query & ",'" & BunSyuCD & "'" '文書種類CD Query = Query & ",'" & BunNaiCD & "'" '文書内容CD Query = Query & ",1" '処理時期区分 Query = Query & ",'" & Syoribi & "'" '処理日 '取引先CDは小売の為、共通の「SJ4KOURIHANBAI」にて出力 TorihikisakiCD = "SJ4KOURIHANBAI" Query = Query & ",'" & TorihikisakiCD & "'" '取引先CD If SenpoBunsyoNaiyoCD = "" Then '先方文書内容CD Query = Query & ", null" Else Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'" '先方文書内容CD End If Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'" '先方文書種類CD If SenpoSyoribi = "" Then Query = Query & ", null" Else Query = Query & ",'" & SenpoSyoribi & "'" '先方処理日 End If Query = Query & ",'" & UntinSyogakariKubun & "'" '運賃諸掛区分 If Soryo = "" Then Query = Query & ", null" Else Query = Query & "," & Soryo & "" '運送費 End If Query = Query & ",'" & GakuseiBango & "'" '学生番号 Query = Query & ", ''" '先方仕入売上種類CD Query = Query & ", ''" '先方仕入売上内容CD '### 画面明細部　 Query = Query & "," & ii '伝票SEQ Query = Query & ",'"& ShohinCD(jj) & "'" '商品CD Query = Query & ","& Henpin(jj) '販売数量 Query = Query & ","& Tanka(jj) '実販売単価 Query = Query & ",0" '運送単価＝0 Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Query = Query & ",null,null,null,null,null" Set Content = OpenQuery(Query) 'For Deebug 'Response.Write("
") 'Response.Write("Query:" & Query & "
") End If jj = jj + 1 Next '##### ２．小売販売トランへの引数の作成 jj = 0 KaiageTensu = 0 For ii = 1 To 5 KaiageTensu = KaiageTensu + Suryo(jj) - Henpin(jj) jj = jj + 1 Next 'For Deebug 'Response.Write("
") 'Response.Write("Suryo1:" & Suryo(0) & "
") 'Response.Write("Suryo2:" & Suryo(1) & "
") 'Response.Write("Suryo3:" & Suryo(2) &"
") 'Response.Write("Suryo4:" & Suryo(3) &"
") 'Response.Write("Suryo5:" & Suryo(4) &"
") 'Response.Write("Henpin1:" & Henpin(0) & "
") 'Response.Write("Henpin2:" & Henpin(1) & "
") 'Response.Write("Henpin3:" & Henpin(2) &"
") 'Response.Write("Henpin4:" & Henpin(3) &"
") 'Response.Write("Henpin5:" & Henpin(4) &"
") 'Response.Write("KaiageTensu:" & KaiageTensu & "
") ZeikomiKingaku = GokeiUriage SyohizeiKingaku = Shohizei GokeiKingaku = KaiageKingaku Unsohi = 0 '### 返品用Queryを作成して出力 AddFlg = 2 '修正モード 'データ内容チェック If KaiageTensu = "" Then KaiageTensu = 0 End If If GokeiKingaku = "" Then GokeiKingaku = 0 End If If SyohizeiKingaku = "" Then SyohizeiKingaku = 0 End If If Unsohi = "" Then Unsohi = 0 End If If ZeikomiKingaku = "" Then ZeikomiKingaku = 0 End If '### 実行プロシージャーの特定 KEY部 Query = "exec SPK小売販売返品_TTL " & AddFlg & "" '【処理区分】 Query = Query & ",'" & GB_SystemCD & "'" 'システムCD Query = Query & ",'" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '作成会社CD Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD '### 明細部 Query = Query & "," & KaiageTensu & "" '買上点数 Query = Query & "," & GokeiKingaku & "" '買上金額 Query = Query & "," & SyohizeiKingaku & "" '消費税 Query = Query & "," & Unsohi & "" '送料 Query = Query & "," & ZeikomiKingaku & "" '合計金額 Query = Query & ",'" & OldSyoribi & "'" '更新日付（ダミー） Set Content = OpenQuery(Query) 'For Deebug 'Response.Write("
") 'Response.Write("Query1:" & Query & "
") '### ヘッダ部出力時の「文書内容CD」を確保 ' BunsyoNaiyoCD = Content.Fields(0) '画面明細部出力 jj = 0 For ii = 1 To 5 If ShohinCD(jj) = "" Then Exit For Else 'KEY部 Query = "exec SPK小売販売返品_TRN " & AddFlg & "" '【処理区分】 Query = Query & ",'" & GB_SystemCD & "'" 'システムCD Query = Query & ",'" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KaisyaCD & "'" '作成会社CD Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD Query = Query & "," & ii '小売販売SEQ Query = Query & ",'"& ShohinCD(jj) & "'" '商品CD 'データ部 Query = Query & "," & Suryo(jj) '数量 Query = Query & "," & Henpin(jj) '返品点数 Query = Query & "," & Kingaku(jj) '金額 Query = Query & ",'" & OldSyoribi & "'" '更新日(ダミー) Set Content = OpenQuery(Query) 'For Deebug 'Response.Write("
") 'Response.Write("Query2:" & Query & "
") End If jj = jj + 1 Next 'End If ' Response.Redirect("kh_kouri_ichiran.asp?Action=ichiran&EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&SakuseiKaisyaCD=" & KaisyaCD & "&PageType=" & PageType & "&RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "") Response.Redirect("kh_kouri_ichiran.asp?Action=ichiran&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&PageType=" & PageType & "&RouteType=" & RouteType & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "") End Sub %>