<% ' ' %> <% 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("") %>
<% Dim BunsyoType If InStr(RouteType, "RMail") > 0 Then BunsyoType = "受信文書" ElseIf InStr(RouteType, "SMail") > 0 Then BunsyoType = "発信文書" End If If InStr(RouteType, "MailOnly") > 0 Then Response.Write(HtmlDesign(6)) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(4)) Else Response.Write(HtmlDesign(1)) End If ' If InStr(RouteType, "ViewOnly") > 0 Then ' Response.Write(HtmlDesign(4)) ' Else ' Response.Write(HtmlDesign(1)) ' End If Response.Write(HttpL1(3)) 'メール管理機能から開いた場合 If AdminMailFlag = 1 Then Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "MailOnly") > 0 Then Response.Write(HttpL2("受発信文書ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=" & PageType & "&RouteType=MailOnly')", "", "", "", "", "", "", "", "", "", "")) ElseIf 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 InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", SyoruiMei, "", "", "", "", "", "", "", "", "")) Else 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 End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If AdminMailFlag = 1 Then Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "MailOnly") > 0 Then Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Or BunsyoSyuruiCD = "MU" Then '製造部製品出庫は同一会社内なので整合性のため修正・削除は無し Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) ElseIf AiteShukkoHitsuyo = "1" And (BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SY" Or BunsyoSyuruiCD = "SU" Or BunsyoSyuruiCD = "SX") Then '入出庫整合性は出庫側も削除不能 Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( 'fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( 'fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "')", "削除", "if(confirm('削除してよろしいですか? '))tblbtn('fd_nyusyukko_bin.asp?Action=Del&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "", "", "", "")) End If If InStr(RouteType, "MailOnly") > 0 Then If PageType = "発信文書" Then 'メール管理機能から開いた場合 If AdminMailFlag = 1 Then Response.Write(HttpL3_3("受信文書", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/admin/mail/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')")) Else Response.Write(HttpL3_2("受信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=受信文書&RouteType=MailOnly')", "発信文書", "", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')")) End If Else 'メール管理機能から開いた場合 If AdminMailFlag = 1 Then Response.Write(HttpL3_3("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "", "", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')")) Else Response.Write(HttpL3_2("受信文書", "", "発信文書", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_jyuhasshinbunsyo.asp?PageType=発信文書&RouteType=MailOnly')", "メール作成", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei.asp?RouteType=MailOnly')", "受信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=受信メール&RouteType=MailOnly')" ,"送信メール", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyownd/fn_mailsakusei_ichiran.asp?PageType=送信メール&RouteType=MailOnly')")) End If End If ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=受信文書')", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=発信文書')", "", "", "", "", "", "", "", "")) ElseIf InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?RouteType=ViewOnly&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) ElseIf BunsyoSyuruiCD = "MU" Then Response.Write(HttpL3_2("追加", "tblbtn( 'fd_seizosashizusho_ichiran.asp?Mode=Shukko')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) Else Dim ButtonTsuikaLabel Dim ButtonTsuikaValue Dim ButtonChumonLabel Dim ButtonChumonValue Dim ButtonSenpoLabel Dim ButtonSenpoValue Dim ButtonIchiranLabel Dim ButtonIchiranValue ButtonTsuikaLabel = "追加" ButtonTsuikaValue = "tblbtn('fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "');" ButtonChumonLabel = "注文請書から出庫" ButtonChumonValue = "tblbtn('fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "&NyusyukoKubun=U');" ButtonSenpoLabel = "先方出庫一覧" ButtonSenpoValue = "tblbtn('fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "');" ButtonIchiranLabel = "一覧表示" ButtonIchiranValue = "tblbtn('fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "');" 'ShukkoUkeshoHitsuyo = "1" 'AiteShukkoHitsuyo = "1" If BunsyoSyuruiCD = "SU" Then '売上出庫(追加・注文請書出庫・一覧表示) ButtonSenpoLabel = "" ButtonSenpoValue = "" If ShukkoUkeshoHitsuyo = "1" Or ShukkoUkeshoHitsuyo = "3" Then '出庫には注文請書が必要(注文請書出庫・一覧表示) ButtonTsuikaLabel = "" ButtonTsuikaValue = "" ElseIf GB_Gyosyu = "K" Or ShukkoUkeshoHitsuyo = "2" Then '管理部の場合及び注文請書を利用させない場合(追加・一覧表示) ButtonChumonLabel = "" ButtonChumonValue = "" End If ElseIf (BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SY") And AiteShukkoHitsuyo = "1" Then '入庫には相手出庫が必要(先方出庫一覧・一覧表示) ButtonTsuikaLabel = "" ButtonTsuikaValue = "" ButtonChumonLabel = "" ButtonChumonValue = "" Else 'その他(追加・一覧表示) ButtonChumonLabel = "" ButtonChumonValue = "" ButtonSenpoLabel = "" ButtonSenpoValue = "" End If Response.Write(HttpL3_2(ButtonTsuikaLabel, ButtonTsuikaValue, ButtonChumonLabel, ButtonChumonValue, ButtonSenpoLabel, ButtonSenpoValue, ButtonIchiranLabel, ButtonIchiranValue, "", "")) End If Response.Write(HttpL4(SyoruiMei, "照会")) %>
<% = HtmlFooter %> <% End Sub %>