<% ' ' %> <% 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("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) If BunsyoSyuruiCD = "SC" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s5.asp')", SyoruiMei, "", "", "", "", "")) ElseIf BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then If SoukoRiyo = "1" And GB_Gyosyu = "S" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "倉庫部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s7.asp')", SyoruiMei, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", SyoruiMei, "", "", "", "", "")) End If ElseIf BunsyoSyuruiCD = "ZS" Or BunsyoSyuruiCD = "ZU" Or BunsyoSyuruiCD = "MU" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", SyoruiMei, "", "", "", "", "")) Else If SoukoRiyo = "1" And GB_Gyosyu = "S" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "倉庫部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s7.asp')", SyoruiMei, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", SyoruiMei, "", "", "", "", "")) End If End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If AiteShukkoHitsuyo = "1" And SenpoBunsyoNaiyoCD <> "" And BunsyoSyuruiCD <> "MU" Then ' Response.Write(HttpL3_1("受け付ける", "SubmitCheck()", "受け付けない", "form1.Action.value='Deny';SubmitReal(form1);", "", "", "", "", "", "")) ' Response.Write(HttpL3_1("受け付ける", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("入庫", "SubmitCheck()", "", "", "", "", "", "", "", "")) ElseIf BunsyoNaiyoCD <> "" Then '修正モード Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1(ButtonLabel, "SubmitCheck()", "", "", "", "", "", "", "", "")) End If If BunsyoNaiyoCD <> "" Then '修正モード '(先方注文書情報が存在すれば「注文請書確認」ボタンを追加) If SenpoShiireUriageSyuruiCD <> "" And SenpoShiireUriageNaiyoCD <> "" And BunsyoSyuruiCD = "SS" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "注文請書確認", "wopen('/" & HomeAlias & "/user/bk/shiireuriage/fd_syorui_view.asp?BunsyoSyuruiCD=" & SenpoShiireUriageSyuruiCD & "&BunsyoNaiyoCD=" & SenpoShiireUriageNaiyoCD & "&RouteType=MailOnlyRMail&SakuseiKaisyaCD=" & TorihikisakiCD & "&PageType=%u53D7%u4FE1%u6587%u66F8&TorihikisakiCD=" & KaisyaCD & "','syoukai')", "", "", "", "")) ElseIf ShukkoUkeshoHitsuyo = "1" Or ShukkoUkeshoHitsuyo = "3" Then Response.Write(HttpL3_2("一覧表示", "tblbtn('fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn( 'fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) 'Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "")) End If Else '整 種 先 '○ SU ○注 fd_nyusyukko_ichiran2.asp '× SU ○注 fd_nyusyukko_ichiran2.asp '○ SS ○SU 注文請書確認ボタン '× SS × '○ SX × '× SX × '○ SY ○SX '× SY × 'オリジナル商品・仕入返品・非整合仕入入庫・非整合売上返品は先方書類無し If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SX" Or (AiteShukkoHitsuyo = "0" And (BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SY")) Then '管理部仕入 If BunsyoSyuruiCD = "SS" And Mode = "KanribuShiire" Then Response.Write(HttpL3_2("通常仕入", "tblbtn('fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "")) '通常仕入 ElseIf BunsyoSyuruiCD = "SS" And GB_Gyosyu <> "K" Then Response.Write(HttpL3_2("管理部より仕入", "tblbtn('fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "&Mode=KanribuShiire')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "", "", "")) End If '入出庫整合売上返品 ElseIf BunsyoSyuruiCD = "SY" And SenpoBunsyoSyuruiCD = "SX" Then Response.Write(HttpL3_2("先方出庫一覧", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "")) '入出庫整合仕入入庫 ElseIf BunsyoSyuruiCD = "SS" Then '(先方注文書情報が存在すれば「注文請書確認」ボタンを追加) If SenpoShiireUriageSyuruiCD <> "" And SenpoShiireUriageNaiyoCD <> "" Then Response.Write(HttpL3_2("先方出庫一覧", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "注文請書確認", "wopen('/" & HomeAlias & "/user/bk/shiireuriage/fd_syorui_view.asp?BunsyoSyuruiCD=" & SenpoShiireUriageSyuruiCD & "&BunsyoNaiyoCD=" & SenpoShiireUriageNaiyoCD & "&RouteType=MailOnlyRMail&SakuseiKaisyaCD=" & TorihikisakiCD & "&PageType=%u53D7%u4FE1%u6587%u66F8&TorihikisakiCD=" & KaisyaCD & "','syoukai')", "", "", "", "")) Else Response.Write(HttpL3_2("先方出庫一覧", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "")) End If '材料入庫 ElseIf BunsyoSyuruiCD = "ZS" Then ' Response.Write(HttpL3_2("先方出庫一覧", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "", "", "")) '製品出庫 ElseIf BunsyoSyuruiCD = "MU" Then Response.Write(HttpL3_2("戻る", "tblbtn( 'fd_seizosashizusho_ichiran.asp?Mode=Shukko')", "", "", "", "", "", "", "", "")) '売上出庫 Else If Gyosyu <> "K" And ShukkoUkeshoHitsuyo <> "2" Then Response.Write(HttpL3_2("注文請書から出庫", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "管理部売渡申込書から出庫", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "&SenpoShoruiMode=Uriwatashi')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "")) Else Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&NyusyukoKubun=" & NyusyukoKubun & "')", "", "", "", "", "", "", "", "")) End If End If End If If BunsyoSyuruiCD = "MU" Then Response.Write(HttpL4("商社部門へ出庫", "追加")) ElseIf Mode = "KanribuShiire" Then Response.Write(HttpL4("管理部より仕入", "追加")) ElseIf BunsyoNaiyoCD <> "" Then Response.Write(HttpL4(SyoruiMei, "修正")) Else Response.Write(HttpL4(SyoruiMei, "追加")) End If If BunsyoSyuruiCD = "SS" And Mode = "KanribuShiire" then '管理部より仕入の際に表示 Response.Write(HttpL5("※ 他市場に限定された商品は取り扱い出来ません。")) End If %> <% If (SenpoBunsyoSyuruiCD <> "" Or BunsyoNaiyoCD <> "") And BunsyoSyuruiCD <> "MU" Then %> <% End If %>
<% = HtmlFooter %> <% End Sub %>