<% ' ' %> <% main() Sub main() Dim SakuseiKaisyaCD '作成会社CD Dim TorihikisakiCD '取引先CD Dim KitakuGaisyaCD '寄託会社CD Dim SenpoKitakuGaisyaCD '先方寄託会社CD Dim UnsoGaisyaCD '運送会社CD Dim UnsoGaisyaMei '運送会社名 Dim BunsyoSyuruiCD '文書種類CD Dim BunsyoNaiyoCD '文書内容CD Dim SenpoBunsyoSyuruiCD '先方文書種類CD Dim SenpoBunsyoNaiyoCD '先方文書内容CD Dim Syoribi '処理日 Dim SenpoSyoribi '先方処理日 Dim NonyuKijitsu '納入期日 Dim UntinSyogakariKubun '運賃諸掛区分 Dim Unsohi '運送費 Dim UnsohiSeikyuFlg '運送請求フラグ Dim Tekiyo '摘要 Dim ShiharaiHoho '支払方法 Dim HasshinFlg '発信フラグ Dim YukoFlg '有効フラグ Dim Kakaku(6) '標準単価 Dim SyohinCD(6) '商品コード Dim SyohinName(6) '商品名称 Dim Suryo(6) '数量 Dim Tanka(6) '単価 Dim MotoTanka(6) '元単価 Dim UnsoTanka(6) '運送単価 Dim Zaiko(6) '在庫数量 Dim GakuseiShimei '学生氏名(係印) Dim SyoruiMei '書類名 Dim Query Dim Content Dim Shimei '氏名 Dim PageType Dim ZaikoTemp Dim ShijyoCD(5) '市場CD Dim SyohinNyusyukkoSeikousei Dim KitakuFrom '寄託期間始 Dim KitakuTo '寄託期間終 SakuseiKaisyaCD = Request("SakuseiKaisyaCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") Dim Kitakuriyou Dim Jissenbi Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用") Kitakuriyou = Content.Fields("寄託倉庫利用") Jissenbi = Content.Fields("実践日") End If PageType = Request("PageType") Dim SenpoFlg SenpoFlg = 0 If SenpoBunsyoNaiyoCD <> "" Then SenpoFlg = 1 End If 'SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD) SyoruiMei = "寄託入庫確認書" If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then If SenpoFlg = 1 Then Query = "exec SPD入出庫取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Else Query = "exec SPD入出庫取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If 'Response.Write(Query) Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If SenpoFlg = 1 Then Syoribi = Content.Fields("先方処理日") SenpoSyoribi = Content.Fields("処理日") Else Syoribi = Content.Fields("処理日") SenpoSyoribi = Content.Fields("先方処理日") End If SakuseiKaisyaCD = Content.Fields("作成会社CD") TorihikisakiCD = Content.Fields("取引先CD") UnsoGaisyaCD = Content.Fields("運送会社CD") KitakuGaisyaCD = Content.Fields("寄託会社CD") SenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD") YukoFlg = Content.Fields("有効フラグ") UntinSyogakariKubun = Content.Fields("運賃諸掛区分") 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("数量") MotoTanka(DenpyoSEQ) = Content.Fields("単価") UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価") If "" & UnsoTanka(DenpyoSEQ) <> "" And UntinSyogakariKubun = "K" Then MotoTanka(DenpyoSEQ) = MotoTanka(DenpyoSEQ) + UnsoTanka(DenpyoSEQ) End If Content.MoveNext Loop Query = "SELECT TGC寄託在庫F.* FROM TGC寄託在庫F " Query = Query & " WHERE " Query = Query & " システムCD = '" & GB_SystemCD & "' AND " Query = Query & " 演習CD = '" & EnshuCD & "' AND " Query = Query & " 会社CD = '" & KitakuGaisyaCD & "' AND " Query = Query & " 作成会社CD = '" & SakuseiKaisyaCD & "' AND " Query = Query & " 寄託依頼会社CD = '" & KaisyaCD & "' AND " ' Query = Query & " 寄託受付番号 = '" & BunsyoNaiyoCD & "'" Query = Query & " 先方文書種類CD = 'SU' AND" Query = Query & " 先方文書内容CD = '" & BunsyoNaiyoCD & "'" Set Content = db.Execute(Query) If Not(Content.BOF Or Content.EOF) Then KitakuFrom = Content.Fields("寄託開始年月日") KitakuTo = Content.Fields("寄託保管期日") End If End If End If Dim jj,tmps Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth SyohinMeisyo = "商品略名称" SyohinMeisyoListWidth = "width: 120;" ShijyoListWidth = "width:80" If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then SyohinMeisyo = "商品略名称" SyohinMeisyoListWidth = "width: 120;" ShijyoListWidth = "width:80" Else SyohinMeisyo = "商品名称" End If %> <% = 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 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, "", "", "", "", "")) 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 Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If SyohinNyusyukkoSeikousei = "1" And SenpoBunsyoNaiyoCD <> "" Then Response.Write(HttpL3_1("受け付ける", "SubmitCheck()", "受け付けない", "form1.Action.value='Deny';SubmitReal(form1);", "", "", "", "", "", "")) Else If YukoFlg <> 1 Then Response.Write(HttpL3_1("受け付ける", "SubmitCheck()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) End If End If 'Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_kitaku_syuko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_kitaku_syuko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) 'Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_kitaku_nyuko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_kitaku_nyuko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(SyoruiMei,"")) %>
<% = HtmlFooter %> <% End Sub %>