<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim HojoboCD, Torihikibi, Tekiyo, Kingaku1, Kingaku2, Kingaku3, Kingaku4, Kingaku5, Motocho Dim PageType PageType = Request("PageType") Dim RouteType RouteType = Request("RouteType") Dim db Set db = InitQuery() Dim ii Dim SendValue, TmpValue1, TmpValue2 SendValue = Request("SendValue") TmpValue1 = split(SendValue, ";") For ii = 0 To UBound(TmpValue1) - 1 TmpValue2 = Split(TmpValue1(ii), ",") '半角カンマ・セミコロンを代替文字から元に戻す処理 Dim iii For iii = 0 To UBound(TmpValue2) - 1 TmpValue2(iii) = Replace(TmpValue2(iii), "CommammoC", ",") TmpValue2(iii) = Replace(TmpValue2(iii), "SemicolonolocimeS", ";") Next '半角カンマ・セミコロンを代替文字から元に戻す処理 Torihikibi = TmpValue2(0) Tekiyo = TmpValue2(1) Kingaku1 = TmpValue2(2) Kingaku2 = TmpValue2(3) Kingaku3 = TmpValue2(4) Motocho = TmpValue2(5) Kingaku4 = TmpValue2(6) Kingaku5 = TmpValue2(7) If Torihikibi = "" Then Torihikibi = "null" Else Torihikibi = "'" & Torihikibi & "'" End If If Kingaku1 = "" Then Kingaku1 = "null" End If If Kingaku2 = "" Then Kingaku2 = "null" End If If Kingaku3 = "" Then Kingaku3 = "null" End If If Kingaku4 = "" Then Kingaku4 = "null" End If If Kingaku5 = "" Then Kingaku5 = "null" End If 'テンポラリテーブルに行挿入 Query = "exec SPK補助簿_材料仕入帳挿入 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Query = Query & ", ''" Query = Query & ", " & Torihikibi Query = Query & ", '" & Tekiyo & "'" Query = Query & ", " & Kingaku1 Query = Query & ", " & Kingaku2 Query = Query & ", " & Kingaku3 Query = Query & ", '" & Motocho & "'" Query = Query & ", " & Kingaku4 Query = Query & ", " & Kingaku5 Set Content = ExecQuery(db, Query) Next 'テンポラリテーブルから本テーブルに上書き Query = "exec SPK補助簿_材料仕入帳更新 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Set Content = ExecQuery(db, Query) Response.Redirect("fk_zairyoshiirecho_view.asp?RouteType=" & RouteType & "&PageType=" & PageType) End Sub %>