<% ' ' %> <% 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 MotoTanka(6) '元単価 Dim UnsoTankaMaster(6) 'マスター運送単価 Dim Zaiko(6) '在庫数量 Dim GakuseiShimei '学生氏名(係印) Dim SyoruiMei Dim Query Dim Content Dim Shimei Dim PageType Dim ZaikoTemp Dim SakuseiKaisyaCD Dim ShijyoCD(5) Dim TmpBunsyoSyuruiCD Dim SenpoShiireUriageSyuruiCD '先方注文書の文書種類CD Dim SenpoShiireUriageNaiyoCD '先方注文書の文書内容CD Dim UnsoTanka(5) '運送単価 Dim UnsohiSyohin(5) '商品運送費 Dim UnsohiGokei Dim OldSyoruiFlg UnsohiGokei = 0 OldSyoruiFlg = 0 Dim UnsoTankaGokei UnsoTankaGokei = 0 Dim SoSuryo SoSuryo = 0 Dim Jissenbi Dim SyohinNyusyukkoSeikousei 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 Jissenbi = SetTimeYYYYMMDD(Content.Fields("実践日")) AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要") JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要") SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用") HyojunTankaHyoji = Content.Fields("標準販売単価表示") SoukoRiyo = "" & Content.Fields("倉庫部利用") HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力") End If 'HaraidashiTankaRiyo = "1" PageType = Request("PageType") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") TorihikisakiCD = Request("TorihikisakiCD") SakuseiKaisyaCD = Request("SakuseiKaisyaCD") '###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 SenpoShoruiMode SenpoShoruiMode = Request("SenpoShoruiMode") If BunsyoSyuruiCD = "SU" Then If SenpoShoruiMode = "Uriwatashi" Then TmpBunsyoSyuruiCD = "KY" Else TmpBunsyoSyuruiCD = "KU" End If End If Dim SenpoFlg SenpoFlg = 0 If SenpoBunsyoNaiyoCD <> "" Then SenpoFlg = 1 End If SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD) If BunsyoNaiyoCD <> "" Then Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & TmpBunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" 'Response.Write("Query:" & Query & "
") 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("処理日")) Else TorihikisakiCD = Content.Fields("取引先CD") SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日")) Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) End If NonyuKijitsu = SetTimeYYYYMMDD(Content.Fields("納入期日")) ' If 1 = 0 Then UntinSyogakariKubun = Content.Fields("運賃諸掛区分") Unsohi = Content.Fields("運送費") ' End If ' GakuseiShimei = Content.Fields("氏名") SenpoShiireUriageSyuruiCD = Content.Fields("文書種類CD") SenpoShiireUriageNaiyoCD = Content.Fields("文書内容CD") Dim Kingaku,GokeiKingaku Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ,PreDenpyoSEQ DenpyoSEQ = Content.Fields("文書内容SEQ") SyohinCD(DenpyoSEQ) = Content.Fields("商品CD") ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD") SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD")) Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD")) Suryo(DenpyoSEQ) = Content.Fields("数量") Tanka(DenpyoSEQ) = Content.Fields("単価") MotoTanka(DenpyoSEQ) = Content.Fields("単価") Zaiko(DenpyoSEQ) = ConvSyohinZaiko(Content.Fields("商品CD")) 'Kingaku(DenpyoSEQ) = Content.Fields("単価") * Content.Fields("数量") 'GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ) UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価") UnsohiSyohin(DenpyoSEQ) = Content.Fields("運送単価") * Content.Fields("数量") If PreDenpyoSEQ <> DenpyoSEQ then If Not(IsNull(UnsohiSyohin(DenpyoSEQ))) Then UnsohiGokei = UnsohiGokei + UnsohiSyohin(DenpyoSEQ) End If End If UnsoTankaMaster(DenpyoSEQ) = ConvSyohinSoryoTanka(Content.Fields("商品CD")) If PreDenpyoSEQ <> DenpyoSEQ then UnsoTankaGokei = UnsoTankaGokei + (UnsoTankaMaster(DenpyoSEQ) * Suryo(DenpyoSEQ)) SoSuryo = SoSuryo + Suryo(DenpyoSEQ) End If Content.MoveNext PreDenpyoSEQ=DenpyoSEQ Loop If UnsohiGokei <> Unsohi Then '運送単価から計算された値が運送費と異なっていれば旧仕様にする OldSyoruiFlg = 1 End If End If End If If OldSyoruiFlg > 0 Then '運送費が商品Mの運送単価と異なっていたら運送単価に運送費÷総数量をセット If UnsoTankaGokei > 0 And SoSuryo > 0 Then If Unsohi <> UnsoTankaGokei Then For ii = 1 To 5 If SyohinCD(ii) <> "" Then UnsoTanka(ii) = fix(Unsohi / SoSuryo) End If Next Else For ii = 1 To 5 If SyohinCD(ii) <> "" Then UnsoTanka(ii) = UnsoTankaMaster(ii) End If Next End If End If End If Dim jj,tmps Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth SyohinMeisyo = "商品略名称" SyohinMeisyoListWidth = "width: 191;" ShijyoListWidth = "width:80" If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then SyohinMeisyo = "商品略名称" SyohinMeisyoListWidth = "width: 191;" ShijyoListWidth = "width:80" Else SyohinMeisyo = "商品名称" End If If HyojunTankaHyoji = "0" Then '標準販売単価非表示 SyohinMeisyoListWidth = "width: 289;" End If %> <% = HtmlHeader("") %> <% If AiteShukkoHitsuyo = "1" Then %>
<% Else %> <% End If %> <% 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 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')", "売上出庫", "", "", "", "", "")) 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')", "売上出庫", "", "", "", "", "")) End If End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If AiteShukkoHitsuyo = "1" And SenpoBunsyoNaiyoCD <> "" Then Response.Write(HttpL3_1("受け付ける", "SubmitCheck()", "受け付けない", "form1.Action.value='Deny';SubmitReal(form1);", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("出庫", "SubmitCheck()", "", "", "", "", "", "", "", "")) End If If BunsyoNaiyoCD <> "" Then 'Response.Write(HttpL3_2("追加", "tblbtn( 'fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) '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 & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) If BunsyoSyuruiCD = "SU" Then If SenpoShoruiMode = "Uriwatashi" Then Response.Write(HttpL3_2("注文請書から出庫", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("管理部売渡申込書から出庫", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoShoruiMode=Uriwatashi')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) End If End If 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_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')","", "", "", "", "", "", "", "")) 'Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) End If If SenpoShoruiMode = "Uriwatashi" Then Response.Write(HttpL4("売上出庫", "管理部売渡申込書から出庫")) Else Response.Write(HttpL4("売上出庫", "注文請書から出庫")) End If %> <% If SenpoBunsyoSyuruiCD <> "" Then %> <% End If %>
<% = HtmlFooter %> <% End Sub %>