<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :補助簿_売掛金・買掛金元帳処理 ' 作成日:2002/9/18 ' 作成者:川崎 ' 目的 :補助簿_売掛金・買掛金元帳を更新する ' 概要 : ' <<表示>> ' ・無し '################################################ '--> ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim PageType Dim UrikaikakekintyoCD, Torihikibi, Tekiyo, KarikataKingaku, KashikataKingaku Dim Taisyaku,Zandaka,TaisyakuName,TorihikisakiCD TorihikisakiCD = Request("TorihikisakiCD") Dim RouteType RouteType = Request("RouteType") PageType = Request("PageType") Dim Label If PageType = "Urikake" Then Label = "売掛金元帳" Else Label = "買掛金元帳" End If 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) KarikataKingaku = TmpValue2(2) KashikataKingaku = TmpValue2(3) Taisyaku = ConvRevKubunMeisyo("貸借略区分", TmpValue2(4)) Zandaka = TmpValue2(5) If Torihikibi = "" Then Torihikibi = "null" Else Torihikibi = "'" & Torihikibi & "'" End If Tekiyo = "'" & Tekiyo & "'" If KarikataKingaku = "" Then KarikataKingaku = "null" End If If KashikataKingaku = "" Then KashikataKingaku = "null" End If If Zandaka = "" Then Zandaka = "null" End If Query = "exec SPK補助簿_" & Label & "挿入 '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",''" Query = Query & "," & Torihikibi Query = Query & ",'" & TorihikisakiCD & "'" Query = Query & "," & Tekiyo Query = Query & "," & KarikataKingaku Query = Query & "," & KashikataKingaku Query = Query & "," & Taisyaku Query = Query & "," & Zandaka Set Content = ExecQuery(db, Query) Next Query = "exec SPK補助簿_" & Label & "更新 '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",'" & TorihikisakiCD & "'" Set Content = ExecQuery(db, Query) Response.Redirect("fk_urikaikakekintyo_view.asp?TorihikisakiCD=" & TorihikisakiCD & "&PageType=" & PageType) End Sub %>