%
'
'
%>
<%
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 Len(SyoruiMei) < 8 Then
Response.Write(SetStringInsertSpace(SyoruiMei))
Else
Response.Write(SyoruiMei)
End If
%>
入出庫番号
<% = BunsyoNaiyoCD %>
処理日
<% = Syoribi %>
<% 'If BunsyoSyuruiCD <> "SC" Then %>
<% If BunsyoSyuruiCD <> "MU" And TorihikisakiCD <> KaisyaCD Then %>
取引先
<%
If TorihikisakiCD = "SJ4KOURIHANBAI" Then
Response.Write("小売販売")
Else
Response.Write(ConvKaisyaRyakuMeisyoDx(EnshuCD, TorihikisakiCD))
End If
%>
<% End If %>
商品名称
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %>
<% End If %>
数 量
<% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %>
単 価
<% ElseIf HaraidashiTankaRiyo <> "1" Then %>
払出単価
<% End If %>
<% If 1 = 0 Then %>
運送単価
<% End If %>
<% = ConvSyohinRyakuMeisyo(SyohinCD(1)) %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% = SetMoney(Kakaku(1), false, true) %>
<% End If %>
<% = SetMoney(Suryo(1), false, true) %>
<% '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 %>
<% = SetMoney(Tanka(1), false, true) %>
<% End If %>
<% = ConvSyohinRyakuMeisyo(SyohinCD(2)) %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% = SetMoney(Kakaku(2), false, true) %>
<% End If %>
<% = SetMoney(Suryo(2), false, true) %>
<% '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 %>
<% = SetMoney(Tanka(2), false, true) %>
<% End If %>
<% = ConvSyohinRyakuMeisyo(SyohinCD(3)) %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% = SetMoney(Kakaku(3), false, true) %>
<% End If %>
<% = SetMoney(Suryo(3), false, true) %>
<% '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 %>
<% = SetMoney(Tanka(3), false, true) %>
<% End If %>
<% = ConvSyohinRyakuMeisyo(SyohinCD(4)) %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% = SetMoney(Kakaku(4), false, true) %>
<% End If %>
<% = SetMoney(Suryo(4), false, true) %>
<% '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 %>
<% = SetMoney(Tanka(4), false, true) %>
<% End If %>
<% = ConvSyohinRyakuMeisyo(SyohinCD(5)) %>
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% = SetMoney(Kakaku(5), false, true) %>
<% End If %>
<% = SetMoney(Suryo(5), false, true) %>
<% '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 %>
<% = SetMoney(Tanka(5), false, true) %>
<% End If %>
<% If Request("Action") = "7" Then %>
<% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SY" Then %>
<% Else %>
<% End If %>
<% End If %>
<%
If PrintFlg = 1 Then
Response.Write(PrintFooter())
End if
End Function
%>