% ' ' %> <% main() Sub main() Dim BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, TorihikisakiCD, TorihikisakiCD1,NonyuBasyoKubun, NonyuKijitsu Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi Dim GakuseiBango,UnsoCD Dim SyohinCD(5) '商品コード Dim SyohinName(5) '商品名称 Dim Kakaku(5) '標準価格 Dim Suryo(5) '数量 Dim Tanka(5) '単価 Dim Kingaku(5) '金額 Dim ShijyoCD(5) Dim GokeiKingaku '合計 Dim SyohizeiKingaku '消費税 Dim ZeikomiKingaku '税込み金額 Dim Checked_N,Checked_R Dim GakuseiShimei '学生氏名(係印) Dim SyoruiMei Dim Query Dim Content Dim Genkin, Toza Dim Shimei Dim ResendFlg Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If ResendFlg = Request("ResendFlg") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") TorihikisakiCD = Request("TorihikisakiCD") UnsoCD = Request("UnsoCD") Dim SenpoFlg SenpoFlg = 0 If SenpoBunsyoNaiyoCD <> "" Then SenpoFlg = 1 End If Dim SenpoTmpBunsyoSyuruiCD Dim SyoruiKubun Select Case BunsyoSyuruiCD Case "KI" SyoruiMei = "見積依頼書" SyoruiKubun = "S" Case "KM" SyoruiMei = "見積書" SyoruiKubun = "U" SenpoTmpBunsyoSyuruiCD = "KI" Case "KC" SyoruiMei = "注文書" SyoruiKubun = "S" SenpoTmpBunsyoSyuruiCD = "KM" Case "KU" SyoruiMei = "注文請書" SyoruiKubun = "U" SenpoTmpBunsyoSyuruiCD = "KC" ' Case "KK" ' SyoruiMei = "相手注文請書確認" ' SyoruiKubun = "S" ' SenpoTmpBunsyoSyuruiCD = "KU" Case "KN" SyoruiMei = "納品請求書" SyoruiKubun = "U" SenpoTmpBunsyoSyuruiCD = "KK" Case "KB" SyoruiMei = "物品受領書" SyoruiKubun = "S" SenpoTmpBunsyoSyuruiCD = "KN" Case "KX" SyoruiMei = "管理部買入申込書" SyoruiKubun = "X" Case "KY" SyoruiMei = "管理部売渡申込書" SyoruiKubun = "1" Case "KV" SyoruiMei = "管理部納品請求書" SyoruiKubun = "V" SenpoTmpBunsyoSyuruiCD = "KX" Case "KW" SyoruiMei = "管理部売渡受付書" SyoruiKubun = "W" SenpoTmpBunsyoSyuruiCD = "KY" Case "CB" SyoruiMei = "運送費見積依頼書" SyoruiKubun = "B" SenpoTmpBunsyoSyuruiCD = "CB" Case "CC" SyoruiMei = "運送費見積書" SyoruiKubun = "C" SenpoTmpBunsyoSyuruiCD = "CC" Case Else End Select If Session("EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then Else GakuseiBango = GB_GakuseiNo End If If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then If SenpoFlg = 1 Then Query = "exec SPC運送書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD &"', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD &"', '" & KaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Else Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If SenpoFlg = 1 Then TorihikisakiCD = Content.Fields("会社CD") SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) Else SenpoBunsyoNaiyoCD = Content.Fields("文書内容CD") SenpoBunsyoSyuruiCD = Content.Fields("文書種類CD") SenpoSyoribi = "" ' SenpoSyoribi = Content.Fields("処理日") TorihikisakiCD = Content.Fields("取引先CD") UnsoCD = Content.Fields("運送先CD") HasshinFlg = Content.Fields("発行フラグ") Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) End If NonyuBasyoKubun = Content.Fields("納入場所区分") NonyuKijitsu = SetTimeYYYYMMDD(Content.Fields("納入期日")) UntinSyogakariKubun = Content.Fields("運賃諸掛区分") UnsoGaisyaCD = Content.Fields("運送会社CD") Unsohi = Content.Fields("運送費") UnsohiSeikyuFlg = Content.Fields("運送費請求フラグ") Tekiyo = Content.Fields("摘要") ShiharaiHoho = Content.Fields("支払方法") GakuseiBango = Content.Fields("学生番号") Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ 'DenpyoSEQ = Content.Fields("文書内容SEQ") 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("単価") Kingaku(DenpyoSEQ) = Content.Fields("単価") * Content.Fields("数量") GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ) SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100) ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku Content.MoveNext Loop End If End If If ResendFlg = "1" Then BunsyoNaiyoCD = "" End If Dim jj,tmps '会社配列作成 Dim KaishaCDA Dim KaishaNameA Dim KaishaGyoshuA Dim KaishaShijoA ReDim KaishaCDA(0) ReDim KaishaNameA(0) ReDim KaishaShijoA(0) Dim UnsoCDA Dim UnsoNameA Dim UnsoShijoA ReDim UnsoCDA(0) ReDim UnsoNameA(0) ReDim UnsoShijoA(0) If BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KO" OR BunsyoSyuruiCD = "KY" OR BunsyoSyuruiCD = "KV" OR BunsyoSyuruiCD = "KW" OR BunsyoSyuruiCD = "KP" Then Query = "exec SPM会社市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '" & GB_ShijyoCD & "'" Else Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'" End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("業種CD") = "K" OR Content.Fields("業種CD") = "S" Then If Content.Fields("会社CD") <> KaisyaCD Then 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 ElseIf Content.Fields("業種CD") = "U" Then If Content.Fields("会社CD") <> KaisyaCD Then ReDim PreServe UnsoCDA(UBound(UnsoCDA) + 1) '配列数+1 ReDim PreServe UnsoNameA(UBound(UnsoCDA)) ReDim PreServe UnsoShijoA(UBound(UnsoCDA)) UnsoCDA(UBound(UnsoCDA)) = "" & Content.Fields("会社CD") UnsoNameA(UBound(UnsoCDA)) = "" & Content.Fields("会社名称") UnsoShijoA(UBound(UnsoCDA)) = "" & Content.Fields("市場CD") End If End If Content.MoveNext Loop 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("") %>
<% = HtmlFooter %> <% End Sub %>