<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType Dim PageType Dim SyohinCD , Shohinmei , ShohinRyakumei '商品コード、商品名称、商品略名称 Dim HanbaiTanka , ShireTnanka , UnsoTanka '標準販売単価、標準仕入単価、運送費単価 Dim SokoryoTanka , Jyuryo , Yoseki '倉庫料単価、重量、容積 Dim Bikou '備考 Dim GazoFile Dim Tani Dim Lot Dim SyohinKubun Dim ShijyoCD, SyoyuKaisyaCD Dim BinType '############################################### 1.データの引継ぎ BinType = Request("BinType") RouteType = Request("RouteType") SyohinCD = Request("SyohinCD") Shohinmei = Request("Shohinmei") ShohinRyakumei = Request("ShohinRyakumei") HanbaiTanka = ConvMoneyToInt(Request("HanbaiTanka")) ShireTnanka = ConvMoneyToInt(Request("ShireTnanka")) UnsoTanka = ConvMoneyToInt(Request("UnsoTanka")) SokoryoTanka = ConvMoneyToInt(Request("SokoryoTanka")) Jyuryo = ConvMoneyToInt(Request("Jyuryo")) Yoseki = ConvMoneyToInt(Request("Yoseki")) Bikou = Request("Bikou") Tani = Request("Tani") Lot = ConvMoneyToInt(Request("Lot")) ShijyoCD = Request("ShijyoCD") PageType = Request("PageType") SyoyuKaisyaCD = Request("SyoyuKaisyaCD") SyohinKubun = Request("SyohinKubun") Dim TmpSuryo(10) Dim TmpZairyoCD(10) Dim TmpZairyoKubun(10) Dim ii Dim jj Dim kk Dim Query Dim Content Dim Seq Seq = 0 '############################################### 2.ストアドプロシージャーの引数の作成 If BinType = "Del" Then ' Query = "exec SPK伝票_削除 '" & GB_SystemCD & "'," ' Query = Query & "'" & EnshuCD & "'" '演習CD ' Query = Query & ",'" & KaisyaCD & "'" '会社CD ' Query = Query & ",'D7'" '伝票区分 ' Query = Query & ",'" & DenpyoNo & "'" ' Set Content = OpenQuery(Query) Response.Redirect("fm_shohin_ichiran.asp?PageType=" & PageType & "&Mode=BuhinTenkai") Else Dim SendValue, TmpValue1, TmpValue2 SendValue = Request("SendValue") Dim db Set db = InitQuery() TmpValue1 = split(SendValue, ";") Dim bCheck bCheck = 0 For ii = 0 To UBound(TmpValue1) - 1 If jj = 10 Then jj = 1 Else jj = jj + 1 End If TmpValue2 = split(TmpValue1(ii), ",") If Left(TmpValue2(0), 4) = "《製品》" Then TmpZairyoCD(jj) = ConvRevSyohinMeisyo(Replace(TmpValue2(0), "《製品》", "")) TmpZairyoKubun(jj) = "SH" Else TmpZairyoCD(jj) = ConvRevZairyoMeisyo(TmpValue2(0)) TmpZairyoKubun(jj) = "ZR" End If TmpSuryo(jj) = ConvMoneyToInt(TmpValue2(1)) If jj = 10 Or ii = UBound(TmpValue1) - 1 Then Query = "exec SPM部品展開表挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyohinKubun & "', '" & SyohinCD & "', " & jj For kk = 1 To jj Seq = Seq + 1 Query = Query & ", " & Seq & "" Query = Query & ", '" & TmpZairyoKubun(kk) & "', '" & TmpZairyoCD(kk) & "'" If TmpSuryo(kk) <> "" Then Query = Query & ", " & TmpSuryo(kk) Else Query = Query & ", null" End If Next For kk = jj + 1 To 10 '余りは埋めないと例外エラーになる。プロシージャ側で無視されるので何でも良い。 Seq = Seq + 1 Query = Query & ", null" Query = Query & ", '" & TmpZairyoKubun(kk) & "', '" & TmpZairyoCD(kk) & "'" If TmpSuryo(kk) <> "" Then Query = Query & ", " & TmpSuryo(kk) Else Query = Query & ", null" End If Next DebugQuery(Query) bCheck = 1 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) End If Next 'Response.Write(DenpyoNo) 'Exit Sub Query = "exec SPM部品展開表更新 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" '演習CD Query = Query & ", '" & KaisyaCD & "'" '会社CD Query = Query & ", '" & SyohinKubun & "'" '商品区分 Query = Query & ", '" & SyohinCD & "'" '商品CD '############################################### ?.ストアドプロシージャ-実行 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) While Not Content Is Nothing If Content.Fields.Count > 0 Then End If Set Content = Content.NextRecordset Wend '############################################### 4.更新データをビューで表示 Response.Redirect("fm_buhintenkai_view.asp?PageType=" & PageType & "&SyohinCD=" & SyohinCD & "&SyohinKubun=" & SyohinKubun & "&Mode=BuhinTenkai") End If End Sub %>