%
'
'
%>
<%
main()
Sub main()
Dim BunsyoNaiyoCD, Syoribi, TorihikisakiCD, NonyuKijitsu
Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
Dim SenpoBunsyoNaiyoCD , SenpoBunsyoSyuruiCD, SenpoSyoribi
Dim BunsyoSyuruiCD
Dim Kakaku(6) '標準単価
Dim SyohinCD(6) '商品コード
Dim SyohinName(6) '商品名称
Dim Suryo(6) '数量
Dim Tanka(6) '単価
Dim UnsoTanka(6) '運送単価
Dim Zaiko(6) '在庫数量
Dim GakuseiShimei '学生氏名(係印)
Dim SyoruiMei
Dim Query
Dim Content
Dim Content2
Dim Content3
Dim Shimei
Dim PageType
Dim ZaikoTemp
Dim SakuseiKaisyaCD
Dim NyusyukoKubun
Dim SenpoShiireUriageSyuruiCD '先方注文書の文書種類CD
Dim SenpoShiireUriageNaiyoCD '先方注文書の文書内容CD
Dim Lot
Dim Tani
Dim SeizoLot
Dim Kanryobi
Dim SeizouKubun
Dim ZBunsyoNaiyoCD
Dim GokeiKingaku
Dim AiteShukkoHitsuyo
Dim JishaZaikoHitsuyo
Dim SoukoRiyo
Dim ShijyoCD(5)
Dim Mode
Mode = Request("Mode")
PageType = Request("PageType")
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
TorihikisakiCD = Request("TorihikisakiCD")
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
NyusyukoKubun = Request("NyusyukoKubun")
Dim SyohinNyusyukkoSeikousei
Dim Jissenbi
Dim Kitakuriyou
Dim SenpoKitakuGaisyaCD
Dim KitakuGaisyaCD
Dim ShukkoUkeshoHitsuyo
Dim ShijokanShiireRiyo
Dim HyojunTankaHyoji
Dim HaraidashiTankaRiyo
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要")
JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要")
SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用")
Jissenbi = SetTimeYYYYMMDD(Content.Fields("実践日"))
Kitakuriyou = Content.Fields("寄託倉庫利用")
ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要")
ShijokanShiireRiyo = "" & Content.Fields("仕入他市場管理部利用")
HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
SoukoRiyo = "" & Content.Fields("倉庫部利用")
HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力")
End If
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
SenpoKitakuGaisyaCD = Content.Fields("寄託会社CD")
End If
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KitakuGaisyaCD = Content.Fields("寄託会社CD")
End If
'HaraidashiTankaRiyo = "1"
'###Debug
'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 & "
")
'Response.Write("SenpoBunsyoSyuruiCD:" & SenpoBunsyoSyuruiCD & "
")
'Response.Write("SenpoBunsyoNaiyoCD:" & SenpoBunsyoNaiyoCD & "
")
Dim SenpoFlg
SenpoFlg = 0
If SenpoBunsyoNaiyoCD <> "" Then
SenpoFlg = 1
End If
Dim SenpoTmpBunsyoSyuruiCD
If BunsyoSyuruiCD = "SS" Then
SenpoTmpBunsyoSyuruiCD = "SU"
ElseIf BunsyoSyuruiCD = "ZS" Then
SenpoTmpBunsyoSyuruiCD = "ZU"
End If
SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD)
Dim Label
If BunsyoSyuruiCD = "MU" Then
Label = "製品"
ElseIf 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
If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then
If BunsyoSyuruiCD = "MU" Then
Query = "exec SPD製造指図書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SenpoBunsyoNaiyoCD & "'"
ElseIf SenpoFlg = 1 Then
Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
Else
Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
End If
'Response.Write("Query:" & Query & "
")
'Response.Write("SenpoFlg:" & SenpoFlg & "
")
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
If BunsyoSyuruiCD = "MU" Then
TorihikisakiCD = "SJ4SEIZOZIES"
SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("完了日"))
Syoribi = SetTimeYYYYMMDD(Content.Fields("完了日"))
ElseIf SenpoFlg = 1 Then
TorihikisakiCD = Content.Fields("作成会社CD")
SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
Else
TorihikisakiCD = Content.Fields("取引先CD")
SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日"))
Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
End If
If BunsyoSyuruiCD <> "MU" Then
UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
Unsohi = Content.Fields("運送費")
SenpoShiireUriageSyuruiCD = "" & Content.Fields("先方仕入売上種類CD")
SenpoShiireUriageNaiyoCD = "" & Content.Fields("先方仕入売上内容CD")
End If
' GakuseiShimei = Content.Fields("氏名")
If BunsyoSyuruiCD <> "MU" Then
Do While Not(Content.BOF Or Content.EOF)
Dim NyusyukoSEQ
NyusyukoSEQ = Content.Fields("入出庫SEQ")
SyohinCD(NyusyukoSEQ) = Content.Fields("商品CD")
ShijyoCD(NyusyukoSEQ) = Content.Fields("市場CD")
Suryo(NyusyukoSEQ) = Content.Fields("数量")
If BunsyoSyuruiCD = "ZS" Then
Kakaku(NyusyukoSEQ) = ConvZairyoHanbaiTanka(Content.Fields("商品CD"))
Else
Kakaku(NyusyukoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
End If
Zaiko(NyusyukoSEQ) = ConvSyohinZaiko(Content.Fields("商品CD"))
'If SenpoFlg <> 1 Then
Tanka(NyusyukoSEQ) = Content.Fields("単価")
'End If
' If BunsyoSyuruiCD = "SX" Or BunsyoSyuruiCD = "SY" Then
' If Suryo(NyusyukoSEQ) <> "" Then
' Suryo(NyusyukoSEQ) = -1 * Suryo(NyusyukoSEQ)
' End If
' End If
If 1 = 0 Then
If SenpoFlg = 1 Then
UnsoTanka(NyusyukoSEQ) = ""
Else
UnsoTanka(NyusyukoSEQ) = Content.Fields("運送単価")
End If
End If
UnsoTanka(NyusyukoSEQ) = Content.Fields("運送単価")
If "" & UnsoTanka(NyusyukoSEQ) = "" Then
UnsoTanka(NyusyukoSEQ) = 0
End If
If UntinSyogakariKubun = "K" Then
Tanka(NyusyukoSEQ) = Tanka(NyusyukoSEQ) + UnsoTanka(NyusyukoSEQ)
UnsoTanka(NyusyukoSEQ) = 0
End If
If "" & Tanka(NyusyukoSEQ) = "" Then
Tanka(NyusyukoSEQ) = 0
End If
Content.MoveNext
Loop
Else
If Not(Content.BOF Or Content.EOF) Then
SyohinCD(1) = Content.Fields("商品CD")
SyohinName(1) = Content.Fields("商品名称")
Lot = Content.Fields("ロット")
Tani = Content.Fields("単位")
SeizoLot = Content.Fields("商品数量") / Content.Fields("ロット")
Zaiko(1) = Content.Fields("商品数量")
Tanka(1) = Fix(Content.Fields("商品単価"))
Kanryobi = SetTimeYYYYMMDD(Content.Fields("完了日"))
SeizouKubun = Content.Fields("製造状況区分")
'すでに出庫された数量を減算する
If Content.Fields("製造状況区分") = SenpoBunsyoSyuruiCD Then
Query = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'MU'"
Set Content2 = OpenQuery(Query)
Do While Not(Content2.BOF Or Content2.EOF)
'先方書類が当該入庫に該当する出庫の数量をMinusSuryoに算出
If Content2.Fields("先方文書種類CD") = Content.Fields("製造状況区分") And Content2.Fields("先方文書内容CD") = Content.Fields("文書内容CD") Then
Query = "exec SPD入出庫取得2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'MU', '" & Content2.Fields("文書内容CD") & "'"
Set Content3 = OpenQuery(Query)
Do While Not(Content3.BOF Or Content3.EOF)
Zaiko(1) = Zaiko(1) - Content3.Fields("数量")
Content3.MoveNext
Loop
End If
Content2.MoveNext
Loop
End If
End If
End If
End If
End If
Dim jj,tmps
Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth
'↓市場・商品表示幅の指定及び商品名称・商品略名称の指定(修正061031小野)
SyohinMeisyo = Label & "名称"
SyohinMeisyoListWidth = "width: 181px;"
ShijyoListWidth = "width:80"
If BunsyoSyuruiCD <> "SC" And BunsyoSyuruiCD <> "MU" Then
SyohinMeisyo = Label & "名称"
SyohinMeisyoListWidth = "width: 181px;"
ShijyoListWidth = "width:80"
ElseIf BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" AND BunsyoSyuruiCD <> "SC" And BunsyoSyuruiCD <> "MU" Then
SyohinMeisyo = Label & "名称"
SyohinMeisyoListWidth = "width: 181px;"
ShijyoListWidth = "width:80"
Else
SyohinMeisyo = Label & "名称"
End If
If HyojunTankaHyoji = "0" Then '標準販売単価非表示
SyohinMeisyoListWidth = "width: 279px;"
End If
'↑市場・商品表示幅の指定及び商品名称・商品略名称の指定(修正061031小野)
'会社配列作成
Dim KaishaCDA
Dim KaishaNameA
Dim KaishaGyoshuA
Dim KaishaShijoA
ReDim KaishaCDA(0)
ReDim KaishaNameA(0)
ReDim KaishaShijoA(0)
Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
' If Content.Fields("業種CD") = "S" OR Content.Fields("業種CD") = "K" Then
'材料仕入・オリ入庫は管理部のみ
If (BunsyoSyuruiCD <> "ZS" And BunsyoSyuruiCD <> "SC" And Content.Fields("業種CD") = "S") Or Content.Fields("業種CD") = "K" Then
'If (GB_Gyosyu = "K" And Content.Fields("市場CD") = GB_ShijyoCD) Or (GB_Gyosyu <> "K" And NOT(Content.Fields("業種CD") = "K" AND Content.Fields("市場CD") <> GB_ShijyoCD)) Then
If (GB_Gyosyu = "K" And ShijokanShiireRiyo <> "1" And Content.Fields("市場CD") = GB_ShijyoCD) Or GB_Gyosyu <> "K" Then
If Content.Fields("会社CD") <> KaisyaCD Then
If Mode = "KanribuShiire" And (Content.Fields("業種CD") <> "K" Or (ShijokanShiireRiyo <> "1" And Content.Fields("市場CD") <> GB_ShijyoCD)) Then '管理部仕入では同一市場管理部のみ
ElseIf Mode <> "KanribuShiire" And BunsyoSyuruiCD = "SS" And Content.Fields("業種CD") = "K" Then '通常入庫では商社のみのみ
Else
ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1) '配列数+1
ReDim PreServe KaishaNameA(UBound(KaishaCDA))
ReDim PreServe KaishaShijoA(UBound(KaishaCDA))
KaishaCDA(UBound(KaishaCDA)) = "" & Content.Fields("会社CD")
KaishaNameA(UBound(KaishaCDA)) = "" & Content.Fields("会社名称")
KaishaShijoA(UBound(KaishaCDA)) = "" & Content.Fields("市場CD")
End If
End If
End If
End If
Content.MoveNext
Loop
%>
<% = HtmlHeader("") %>