%
'
'
%>
<%
main()
Sub main()
Dim SyohinNyusyukkoSeikousei
Dim ShukkoUkeshoHitsuyo
Dim AiteShukkoHitsuyo
Dim JishaZaikoHitsuyo
Dim HyojunTankaHyoji
Dim SoukoRiyo
Dim HaraidashiTankaRiyo
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
SyohinNyusyukkoSeikousei = "" & Content.Fields("商品入出庫整合性利用")
ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要")
AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要")
JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要")
HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
SoukoRiyo = "" & Content.Fields("倉庫部利用")
HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力")
End If
'HaraidashiTankaRiyo = "1"
If ShukkoUkeshoHitsuyo = "" Then
ShukkoUkeshoHitsuyo = "0"
End If
If AiteShukkoHitsuyo <> "1" Then
AiteShukkoHitsuyo = "0"
End If
Dim BunsyoNaiyoCD, Syoribi, TorihikisakiCD, NonyuKijitsu
Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi
Dim BunsyoSyuruiCD
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
Dim SakuseiKaisyaCD
Dim KaisyaCD1
Dim AdminMailFlag
Dim SenpoChumonCD
Dim SenpoChumonNo
AdminMailFlag = 0
RouteType = Request("RouteType")
PageType = Request("PageType")
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
TorihikisakiCD = Request("TorihikisakiCD")
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
'メール管理機能から開いた場合はKaisyaCD1からKaisyaCDを取得
if Request("KaisyaCD1") <> "" then
AdminMailFlag = 1
KaisyaCD = Request("KaisyaCD1")
end if
Dim Label
If BunsyoSyuruiCD = "ZS" Then
Label = "材料"
Else
Label = "商品"
End If
Dim ButtonLabel
If BunsyoSyuruiCD = "SU" Or BunsyoSyuruiCD = "SX" Or BunsyoSyuruiCD = "MU" Then
ButtonLabel = "出庫"
Else
ButtonLabel = "入庫"
End If
'Response.Write("AdminMaliFlag:" & AdminMaliFlag)
SyohinGazoStr = ""
Dim SenpoFlg
SenpoFlg = 0
If SenpoBunsyoNaiyoCD <> "" Then
SenpoFlg = 1
End If
If SenpoFlg = 0 Then
SakuseiKaisyaCD = KaisyaCD
End If
Dim SenpoTmpBunsyoSyuruiCD
If BunsyoSyuruiCD = "SS" Then
SenpoTmpBunsyoSyuruiCD = "SU"
ElseIf BunsyoSyuruiCD = "SY" Then
SenpoTmpBunsyoSyuruiCD = "SX"
End If
SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD)
'Response.Write("PageType:" & PageType & "
")
'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
")
'Response.Write("SenpoBunsyoNaiyoCD:" & SenpoBunsyoNaiyoCD & "
")
'Exit sub
If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then
If SenpoFlg = 1 Then
Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
Else
Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
End If
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
'Response.Write(query)
If Not(Content.BOF Or Content.EOF) Then
If SenpoFlg = 1 Then
TorihikisakiCD = Content.Fields("作成会社CD")
SenpoSyoribi = Content.Fields("処理日")
Syoribi = Content.Fields("処理日")
BunsyoNaiyoCD = SenpoBunsyoNaiyoCD
Else
TorihikisakiCD = Content.Fields("取引先CD")
SenpoSyoribi = Content.Fields("先方処理日")
Syoribi = Content.Fields("処理日")
SenpoChumonCD = "" & Content.Fields("先方仕入売上種類CD")
SenpoChumonNo = "" & Content.Fields("先方仕入売上内容CD")
End If
'060908--------------------
Dim PreNyusyukoSEQ
PreNyusyukoSEQ = 0
'--------------------------
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("単価")
'060908--------------------
If NyusyukoSEQ <> PreNyusyukoSEQ Then
'--------------------------
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
'060908--------------------
End If
PreNyusyukoSEQ = NyusyukoSEQ
'--------------------------
Content.MoveNext
Loop
End If
End If
'DEBUG#################
'Response.Write(SyohinGazoStr)
Dim jj,tmps
'TTX文書F開封処理
If InStr(RouteType, "MailOnly") > 0 Then
If BunsyoSyuruiCD = "SU" AND BunsyoNaiyoCD <> "" And GB_JisyaFlag <> "" Then '運用管理・演習管理(自社フラグ無し)では開封フラグを立てない(061213小野)
Query = "exec SPD入出庫書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
End If
End If
%>
<% = HtmlHeader("") %>