<% ' ' %> <% Function Nyusyukko(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) Dim Syoribi, TorihikisakiCD, NonyuKijitsu Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi Dim Kakaku(5) '標準単価 Dim SyohinCD(5) '商品コード Dim SyohinName(5) '商品名称 Dim Suryo(5) '数量 Dim Tanka(5) '単価 Dim UnsoTanka(5) '運送単価 Dim SyohinGazo(5) Dim GakuseiShimei '学生氏名(係印) Dim SyoruiMei Dim Query Dim Content Dim Shimei Dim PageType Dim RouteType Dim SyohinGazoStr RouteType = Request("RouteType") PageType = Request("PageType") 'BunsyoNaiyoCD = Request("BunsyoNaiyoCD") 'BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") TorihikisakiCD = Request("TorihikisakiCD") 'SakuseiKaisyaCD = Request("SakuseiKaisyaCD") SyohinGazoStr = "" Dim SenpoFlg SenpoFlg = 0 If SenpoBunsyoNaiyoCD <> "" Then SenpoFlg = 1 End If Dim SenpoTmpBunsyoSyuruiCD If BunsyoSyuruiCD = "SS" Then SenpoTmpBunsyoSyuruiCD = "SU" End if SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD) If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then If SenpoFlg = 1 Then Query = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Else Query = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If SenpoFlg = 1 Then TorihikisakiCD = Content.Fields("作成会社CD") SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) BunsyoNaiyoCD = SenpoBunsyoNaiyoCD Else TorihikisakiCD = Content.Fields("取引先CD") SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日")) Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) End If Do While Not(Content.BOF Or Content.EOF) Dim NyusyukoSEQ NyusyukoSEQ = Content.Fields("入出庫SEQ") If BunsyoSyuruiCD = "ZS" Then SyohinGazo(NyusyukoSEQ) = ConvZairyoGazo(EnshuCD, Content.Fields("商品CD")) Kakaku(NyusyukoSEQ) = ConvZairyoHanbaiTanka(Content.Fields("商品CD")) Else SyohinGazo(NyusyukoSEQ) = ConvSyohinGazo(EnshuCD, Content.Fields("商品CD")) Kakaku(NyusyukoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD")) End If SyohinCD(NyusyukoSEQ) = Content.Fields("商品CD") Suryo(NyusyukoSEQ) = Content.Fields("数量") Tanka(NyusyukoSEQ) = Content.Fields("単価") If SyohinGazoStr <> "" Then SyohinGazoStr = SyohinGazoStr & "," End If If SyohinGazo(NyusyukoSEQ) <> "" Then SyohinGazoStr = SyohinGazoStr & """" & Fgoods & "/" & EnshuCD & "/" &SyohinGazo(NyusyukoSEQ) & """" Else SyohinGazoStr = SyohinGazoStr & """/" & HomeAlias & "/images/truck_box.gif?" & GB_STU & """" End If Content.MoveNext Loop End If End If Dim HyojunTankaHyoji Dim HaraidashiTankaRiyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示") HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力") End If 'HaraidashiTankaRiyo = "1" Dim jj,tmps %>
<% If Request("Action") = "7" Then %> <% End If %>
<% If Len(SyoruiMei) < 8 Then Response.Write(SetStringInsertSpace(SyoruiMei)) Else Response.Write(SyoruiMei) End If %>
 
<% 'If BunsyoSyuruiCD <> "SC" Then %> <% If BunsyoSyuruiCD <> "MU" And TorihikisakiCD <> KaisyaCD Then %> <% End If %>
入出庫番号 <% = BunsyoNaiyoCD %> 処理日 <% = Syoribi %>
取引先 <% If TorihikisakiCD = "SJ4KOURIHANBAI" Then Response.Write("小売販売") Else Response.Write(ConvKaisyaRyakuMeisyoDx(EnshuCD, TorihikisakiCD)) End If %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% ElseIf HaraidashiTankaRiyo <> "1" Then %> <% End If %> <% If 1 = 0 Then %> <% End If %>
商品名称<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %>数 量単 価払出単価運送単価
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <% End If %>
<% = ConvSyohinRyakuMeisyo(SyohinCD(1)) %>
<% = SetMoney(Kakaku(1), false, true) %>
<% = SetMoney(Suryo(1), false, true) %>
<% = SetMoney(Tanka(1), false, true) %>
<% = ConvSyohinRyakuMeisyo(SyohinCD(2)) %>
<% = SetMoney(Kakaku(2), false, true) %>
<% = SetMoney(Suryo(2), false, true) %>
<% = SetMoney(Tanka(2), false, true) %>
<% = ConvSyohinRyakuMeisyo(SyohinCD(3)) %>
<% = SetMoney(Kakaku(3), false, true) %>
<% = SetMoney(Suryo(3), false, true) %>
<% = SetMoney(Tanka(3), false, true) %>
<% = ConvSyohinRyakuMeisyo(SyohinCD(4)) %>
<% = SetMoney(Kakaku(4), false, true) %>
<% = SetMoney(Suryo(4), false, true) %>
<% = SetMoney(Tanka(4), false, true) %>
<% = ConvSyohinRyakuMeisyo(SyohinCD(5)) %>
<% = SetMoney(Kakaku(5), false, true) %>
<% = SetMoney(Suryo(5), false, true) %>
<% = SetMoney(Tanka(5), false, true) %>
<% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SY" Then %>
<% Else %>
<% End If %>
 
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End if End Function %>