<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :補助簿_仕入・売上帳処理 ' 作成日:2002/9/6 ' 作成者:川崎 ' 目的 :補助簿_仕入・売上帳を更新する。 ' 概要 : ' <<表示>> ' ・無し '################################################ '--> ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim UriageSiiretyoCD, Torihikibi, TorihikisakiCD, SyohinCD,Suryo, Tanka,Kingaku,HenpinKubun 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), ",") Torihikibi = TmpValue2(0) TorihikisakiCD = ConvRevKaisyaRyakuName(TmpValue2(1)) If TmpValue2(3) = "" Then SyohinCD = "" '「その他の商品」処理を追加 Else SyohinCD = ConvRevSyohinMeisyo(TmpValue2(3)) End If Suryo = TmpValue2(4) Tanka = TmpValue2(5) Kingaku = TmpValue2(6) HenpinKubun = ConvRevKubunMeisyo("返品区分", TmpValue2(2)) If Torihikibi = "" Then Torihikibi = "null" Else Torihikibi = "'" & Torihikibi & "'" End If If TorihikisakiCD = "" Then TorihikisakiCD = "null" Else TorihikisakiCD = "'" & TorihikisakiCD & "'" End If If SyohinCD = "" Then SyohinCD = "null" Else SyohinCD = "'" & SyohinCD & "'" End If If Suryo = "" Then Suryo = "null" End If If Tanka = "" Then Tanka = "null" End If If Kingaku = "" Then Kingaku = "null" End If If HenpinKubun = "" Then HenpinKubun = "null" Else HenpinKubun = "'" & HenpinKubun & "'" End If If PageType = "Uriage" Then Query = "exec SPK補助簿_売上帳挿入 '" & GB_SystemCD & "'," Else Query = "exec SPK補助簿_仕入帳挿入 '" & GB_SystemCD & "'," End If Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",''" Query = Query & "," & Torihikibi Query = Query & "," & TorihikisakiCD Query = Query & "," & SyohinCD Query = Query & "," & Suryo Query = Query & "," & Tanka Query = Query & ",0" Query = Query & "," & Kingaku Query = Query & "," & HenpinKubun Set Content = ExecQuery(db, Query) 'response.write(Query) 'exit sub Next If PageType = "Uriage" Then Query = "exec SPK補助簿_売上帳更新 '" & GB_SystemCD & "'," Else Query = "exec SPK補助簿_仕入帳更新 '" & GB_SystemCD & "'," End If Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Set Content = ExecQuery(db, Query) Response.Redirect("fk_shiireuriagetyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType) End Sub %>