<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Torihikibi, Tekiyo, KogitteNO, AzukariireKingaku, HaraidashiKingaku, Taisyaku, Zandaka Dim GinkoCD GinkoCD = Request("GinkoCD") 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), ",") '半角カンマ・セミコロンを代替文字から元に戻す処理(070201小野) Dim iii For iii = 0 To UBound(TmpValue2) - 1 TmpValue2(iii) = Replace(TmpValue2(iii), "CommammoC", ",") TmpValue2(iii) = Replace(TmpValue2(iii), "SemicolonolocimeS", ";") Next '半角カンマ・セミコロンを代替文字から元に戻す処理(070201小野) Torihikibi = TmpValue2(0) Tekiyo = TmpValue2(1) KogitteNO = TmpValue2(2) AzukariireKingaku = TmpValue2(3) HaraidashiKingaku = TmpValue2(4) Taisyaku = ConvRevKubunMeisyo("貸借略区分", TmpValue2(5)) Zandaka = TmpValue2(6) If Torihikibi = "" Then Torihikibi = "null" Else Torihikibi = "'" & Torihikibi & "'" End If Tekiyo = "'" & Tekiyo & "'" KogitteNO = "'" & KogitteNO & "'" If AzukariireKingaku = "" Or AzukariireKingaku = "0" Then '金額0もnullにする(061214小野) AzukariireKingaku = "null" End If If HaraidashiKingaku = "" Or HaraidashiKingaku = "0" Then '金額0もnullにする(061214小野) HaraidashiKingaku = "null" End If If Zandaka = "" Then Zandaka = "null" End If Query = "exec SPK補助簿_当座預金出納帳挿入 '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",''" Query = Query & "," & Torihikibi Query = Query & ",'" & GinkoCD & "'" Query = Query & "," & Tekiyo Query = Query & "," & KogitteNO Query = Query & "," & AzukariireKingaku Query = Query & "," & HaraidashiKingaku Query = Query & "," & Taisyaku Query = Query & "," & Zandaka Set Content = ExecQuery(db, Query) Next Query = "exec SPK補助簿_当座預金出納帳更新 '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",'" & GinkoCD & "'" Set Content = ExecQuery(db, Query) Response.Redirect("fk_touzayokinsuitotyo_view.asp?RouteType=" & RouteType & "&GinkoCD=" & GinkoCD) End Sub %>