<% Option Explicit Response.Buffer = True Response.AddHeader "Pragma","no-cache" Response.AddHeader "Cache-control","no-cache" Response.Expires = -1000 Response.CacheControl = "Private" Dim ParamAll Dim ShowBay Dim ShowParam %> <% '===*=========*=========*===================*======================================== ' 00/09/01 create ctgtradego.asp ビジネスシュミレーション実行 ' 00/11/01 release '==================================================================================== %> CyberTrade SystemInf <% '*==========================================* '*WORK '*==========================================* 'DB Dim Query, Content Dim pAll Query = " " Query = Query & " SELECT A.CompanyCode, A.TenantCode, A.ItemCode, A.ZaikoSu, A.SellsPrice, " Query = Query & " ISNULL(A.p, 0) AS a, ISNULL(B.p, 0) AS b, ISNULL(C.p, 0) AS c, ISNULL(D.p, " Query = Query & " 0) AS d, 1 as e, ISNULL(E.p, 0) AS f, A.PrivateCode, A.ItemImage, A.TransportFlag, " Query = Query & " A.StandardPrice, A.StockPrice, A.TransportPrice, A.ConsumptionTax" Query = Query & " FROM (SELECT Item.CompanyCode, Item.TenantCode, Item.ItemCode, " Query = Query & " Item.ZaikoSu, cthPTenantTItem.SellsPrice, cthPTenantM.PrivateCode," Query = Query & " ctdItemM.ItemImage, cthPTenantM.TransportFlag, " Query = Query & " cthPTenantTItem.StandardPrice, cthPTenantTItem.StockPrice, " Query = Query & " cthPTenantTItem.TransportPrice, cthPTenantM.ConsumptionTax, " Query = Query & " CASE WHEN cthPTenantTItem.StandardPrice - cthPTenantTItem.SellsPrice >= 0 THEN" Query = Query & " (cthPTenantTItem.StandardPrice - cthPTenantTItem.SellsPrice) " Query = Query & " / (cthPTenantTItem.StandardPrice - cthPTenantTItem.StockPrice) " Query = Query & " Else 0 END " Query = Query & " AS p" Query = Query & " FROM (SELECT CompanyCode, TenantCode, ItemCode, " Query = Query & " SUM(Qty * Flg) AS ZaikoSu" Query = Query & " FROM (SELECT ItemCode, CompanyCode, " Query = Query & " TenantCode, Qty, - 1 AS Flg" Query = Query & " FROM (SELECT ItemCode AS ItemCode, " Query = Query & " ACompanyCode AS CompanyCode," Query = Query & " ATenantCode AS TenantCode," Query = Query & " SUM(Qty) AS Qty" Query = Query & " FROM ctpTradeTrn" Query = Query & " WHERE (PracticeCode = '" & Session("CT21PracticeCode") & "')" Query = Query & " AND (APrivateCode = '')" Query = Query & " AND (ItemType = 'I')" Query = Query & " GROUP BY ItemCode, " Query = Query & " ACompanyCode, " Query = Query & " ATenantCode) A" Query = Query & " UNION" Query = Query & " SELECT ItemCode, CompanyCode, " Query = Query & " TenantCode, Qty, 1" Query = Query & " FROM (SELECT ItemCode AS ItemCode, " Query = Query & " BCompanyCode AS CompanyCode," Query = Query & " BTenantCode AS TenantCode," Query = Query & " SUM(Qty) AS Qty" Query = Query & " FROM ctpTradeTrn" Query = Query & " WHERE (PracticeCode = '" & Session("CT21PracticeCode") & "')" Query = Query & " AND (BPrivateCode = '') " Query = Query & " AND (ItemType = 'I')" Query = Query & " GROUP BY ItemCode, " Query = Query & " BCompanyCode, " Query = Query & " BTenantCode) B) " Query = Query & " AB" Query = Query & " WHERE (CompanyCode <> 'ct21master')" Query = Query & " GROUP BY ItemCode, CompanyCode, TenantCode) " Query = Query & " Item INNER JOIN" Query = Query & " cthPTenantTItem ON " Query = Query & " Item.TenantCode = cthPTenantTItem.TenantCode" Query = Query & " AND " Query = Query & " Item.ItemCode = cthPTenantTItem.ItemCode" Query = Query & " INNER JOIN" Query = Query & " cthPTenantM ON " Query = Query & " Item.CompanyCode = cthPTenantM.CompanyCode" Query = Query & " AND Item.TenantCode = cthPTenantM.TenantCode INNER JOIN" Query = Query & " ctdItemM ON " Query = Query & " Item.ItemCode = ctdItemM.ItemCode" Query = Query & " WHERE (cthPTenantTItem.PracticeCode = '" & Session("CT21PracticeCode") & "') AND " Query = Query & " (cthPTenantM.PracticeCode = '" & Session("CT21PracticeCode") & "') AND " Query = Query & " (ctdItemM.PracticeCode = '" & Session("CT21PracticeCode") & "')) A LEFT OUTER JOIN" Query = Query & " (SELECT CompanyCode, COUNT(*) AS p" Query = Query & " FROM cthPTenantM" Query = Query & " WHERE (TenantType IS NULL)" Query = Query & " GROUP BY PracticeCode, CompanyCode" Query = Query & " HAVING (PracticeCode = '" & Session("CT21PracticeCode") & "')) E ON " Query = Query & " A.CompanyCode = E.CompanyCode LEFT OUTER JOIN" Query = Query & " (SELECT ACompanyCode AS CompanyCode, " Query = Query & " ATenantCode AS TenantCode, COUNT(*) AS p" Query = Query & " FROM (SELECT APrivateCode, ACompanyCode, ATenantCode, " Query = Query & " 'S' AS s" Query = Query & " FROM ctaSearchRoboT" Query = Query & " WHERE (PracticeCode = '" & Session("CT21PracticeCode") & "')" Query = Query & " UNION" Query = Query & " SELECT APrivateCode, ACompanyCode, ATenantCode, " Query = Query & " 'B'" Query = Query & " FROM ctaBannerRoboT" Query = Query & " WHERE (PracticeCode = '" & Session("CT21PracticeCode") & "')) AB" Query = Query & " GROUP BY APrivateCode, ACompanyCode, ATenantCode) B ON " Query = Query & " A.CompanyCode = B.CompanyCode AND " Query = Query & " A.TenantCode = B.TenantCode LEFT OUTER JOIN" Query = Query & " (SELECT cthPTenantM.CompanyCode, cthPTenantTItem.TenantCode, " Query = Query & " COUNT(*) AS p" Query = Query & " FROM cthPTenantTItem INNER JOIN" Query = Query & " cthPTenantM ON " Query = Query & " cthPTenantTItem.PracticeCode = cthPTenantM.PracticeCode AND" Query = Query & " cthPTenantTItem.TenantCode = cthPTenantM.TenantCode" Query = Query & " WHERE (cthPTenantTItem.PracticeCode = '" & Session("CT21PracticeCode") & "') AND " Query = Query & " (cthPTenantTItem.DisplayFlag = 1)" Query = Query & " GROUP BY cthPTenantTItem.PracticeCode, cthPTenantTItem.TenantCode, " Query = Query & " cthPTenantM.CompanyCode) D ON " Query = Query & " A.CompanyCode = D.CompanyCode AND " Query = Query & " A.TenantCode = D.TenantCode LEFT OUTER JOIN" Query = Query & " (SELECT CompanyCode, TenantCode, 100 - (TownSeq + 1) " Query = Query & " / 2 AS p" Query = Query & " FROM cthPTenantM" Query = Query & " WHERE (PracticeCode = '" & Session("CT21PracticeCode") & "') AND (TenantType IS NULL)) " Query = Query & " C ON A.CompanyCode = C.CompanyCode AND A.TenantCode = C.TenantCode" Dim AllA, AllB, AllC, AllD, AllE, AllF Dim MyTemp1 Dim Mytemp2 'F_CHK Dim F_Std1 Dim F_Std1_1 Dim F_Rate1_1 Dim F_Std1_2 Dim F_Rate1_2 Dim F_Std1_t Dim F_Rate1_t Dim F_Std2 Dim F_Std2_1 Dim F_Rate2_1 Dim F_Std2_2 Dim F_Rate2_2 Dim F_Std2_t Dim F_Rate2_t Dim F_Std3 Dim F_Std3_1 Dim F_Rate3_1 Dim F_Std3_2 Dim F_Rate3_2 Dim F_Std3_t Dim F_Rate3_t Dim F_StdTotal Dim F_RateTotal Dim F_ExecFlag Dim F_ExecDate Dim F_ExecAmount 'INP_DATA Dim D_Syori Dim D_Std1 Dim D_Std2 Dim D_Std3 Dim D_Std1_1 Dim D_Std1_2 Dim D_Std2_1 Dim D_Std2_2 Dim D_Std3_1 Dim D_Std3_2 Dim D_ExecFlag Dim D_ExecDate Dim D_ExecAmount 'DSP_DATA Dim D_PracticeCode Dim D_Std1_t Dim D_Std2_t Dim D_Std3_t Dim D_StdTotal Dim D_Rate1_1 Dim D_Rate1_2 Dim D_Rate1_t Dim D_Rate2_1 Dim D_Rate2_2 Dim D_Rate2_t Dim D_Rate3_1 Dim D_Rate3_2 Dim D_Rate3_t Dim D_RateTotal Dim D_LastExecAmount Dim D_LastExecDate ' Dim S_TaxRate %> <% main() Sub main() '*==========================================* '*MAIN '*==========================================* s_init() If (Request.QueryString("act") = "chk") Then s_data_set() If D_Syori = "see" Then Else s_data_chk() If (F_CHK = F_ERR) Then S_MSG = msg_get("M0000") & S_MSG Else Select Case D_Syori Case "upd" s_data_update() Case "add" s_data_write() Case "exe" s_trade_exec() Case Else End Select End If End If Else s_data_get() Session("CT21procname") =Request.ServerVariables("SCRIPT_NAME") & "?" & Request.QueryString() End if '*==========================================* %> <% =set_title(0,"z-title-system","シミュレーション設定") %> <% =set_message(0,"s-MESSAGE",S_MSG) %>
<%= Session("CT21PracticeName") %>
<% Set Content = Mydb.execute(Query) 'Response.Write(Query) AllA = 0 AllB = 0 AllC = 0 AllD = 0 AllE = 0 AllF = 0 Do While Not (Content.BOF Or Content.EOF) AllA = AllA + Content.Fields("a") AllB = AllB + Content.Fields("b") AllC = AllC + Content.Fields("c") AllD = AllD + Content.Fields("d") AllE = AllE + Content.Fields("e") AllF = AllF + Content.Fields("f") Content.MoveNext Loop Set Content = Mydb.execute(Query) Dim ParamA, ParamB, ParamC, ParamD, ParamE, ParamF ParamA = 0 ParamB = 0 ParamC = 0 ParamD = 0 ParamE = 0 ParamF = 0 ParamAll = 0 Do While Not (Content.BOF Or Content.EOF) If AllA <> 0 Then ParamA = Int((D_Rate1_1 * Content.Fields("a") * 100)/ AllA) End If If AllB <> 0 Then ParamB = Int((D_Rate1_2 * Content.Fields("b") * 100)/ AllB) End If If AllC <> 0 Then ParamC = Int((D_Rate2_1 * Content.Fields("c") * 100)/ AllC) End If If AllD <> 0 Then ParamD = Int((D_Rate2_2 * Content.Fields("d") * 100)/ AllD) End If If AllE <> 0 Then ParamE = Int((D_Rate3_1 * Content.Fields("e") * 100)/ AllE) End If If AllF <> 0 Then ParamF = Int((D_Rate3_2 * Content.Fields("f") * 100)/ AllF) End If Content.MoveNext Loop Set Content = Mydb.execute(Query) ShowParam = "" ShowParam = ShowParam & "" ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf ShowParam = ShowParam & " " & vbCrLf Do While Not (Content.BOF Or Content.EOF) ParamA = 0 ParamB = 0 ParamC = 0 ParamD = 0 ParamE = 0 ParamF = 0 If AllA <> 0 Then ParamA = Int((D_Rate1_1 * Content.Fields("a") * 100)/ AllA) End If If AllB <> 0 Then ParamB = Int((D_Rate1_2 * Content.Fields("b") * 100)/ AllB) End If If AllC <> 0 Then ParamC = Int((D_Rate2_1 * Content.Fields("c") * 100)/ AllC) End If If AllD <> 0 Then ParamD = Int((D_Rate2_2 * Content.Fields("d") * 100)/ AllD) End If If AllE <> 0 Then ParamE = Int((D_Rate3_1 * Content.Fields("e") * 100)/ AllE) End If If AllF <> 0 Then ParamF = Int((D_Rate3_2 * Content.Fields("f") * 100)/ AllF) End If ShowParam = ShowParam & "" ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ParamAll = ParamAll + ParamA + ParamB + ParamC + ParamD + ParamE + ParamF ShowParam = ShowParam & "" Content.MoveNext Loop ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "" & vbCrLf ShowParam = ShowParam & "
　　　計算したポイント　合計100点に直したポイント　配分比率を掛けたポイント　
会社CDテナントCDアイテムCD価格力広告力立地力品揃え資本力店舗展開　価格力広告力立地力品揃え資本力店舗展開　価格力広告力立地力品揃え資本力店舗展開購入ポイント
" ShowParam = ShowParam & Content.Fields("CompanyCode") ShowParam = ShowParam & "" ShowParam = ShowParam & Content.Fields("TenantCode") ShowParam = ShowParam & "" ShowParam = ShowParam & Content.Fields("ItemCode") ShowParam = ShowParam & "" ShowParam = ShowParam & Content.Fields("a") ShowParam = ShowParam & "" ShowParam = ShowParam & Content.Fields("b") ShowParam = ShowParam & "" ShowParam = ShowParam & Content.Fields("c") ShowParam = ShowParam & "" ShowParam = ShowParam & Content.Fields("d") ShowParam = ShowParam & "" ShowParam = ShowParam & Content.Fields("e") ShowParam = ShowParam & "" ShowParam = ShowParam & Content.Fields("f") ShowParam = ShowParam & "" ShowParam = ShowParam & "" If AllA <> 0 Then ShowParam = ShowParam & Int((Content.Fields("a") * 100)/ AllA) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" If AllB <> 0 Then ShowParam = ShowParam & Int((Content.Fields("b") * 100)/ AllB) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" If AllC <> 0 Then ShowParam = ShowParam & Int((Content.Fields("c") * 100)/ AllC) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" If AllD <> 0 Then ShowParam = ShowParam & Int((Content.Fields("d") * 100)/ AllD) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" If AllE <> 0 Then ShowParam = ShowParam & Int((Content.Fields("e") * 100)/ AllE) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" If AllF <> 0 Then ShowParam = ShowParam & Int((Content.Fields("f") * 100)/ AllF) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" ShowParam = ShowParam & "" If AllA <> 0 Then ShowParam = ShowParam & Int((D_Rate1_1 * Content.Fields("a") * 100)/ AllA) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" If AllB <> 0 Then ShowParam = ShowParam & Int((D_Rate1_2 * Content.Fields("b") * 100)/ AllB) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" If AllC <> 0 Then ShowParam = ShowParam & Int((D_Rate2_1 * Content.Fields("c") * 100)/ AllC) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" If AllD <> 0 Then ShowParam = ShowParam & Int((D_Rate2_2 * Content.Fields("d") * 100)/ AllD) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" If AllE <> 0 Then ShowParam = ShowParam & Int((D_Rate3_1 * Content.Fields("e") * 100)/ AllE) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" If AllF <> 0 Then ShowParam = ShowParam & Int((D_Rate3_2 * Content.Fields("f") * 100)/ AllF) Else ShowParam = ShowParam & "0" End If ShowParam = ShowParam & "" ShowParam = ShowParam & ParamA + ParamB + ParamC + ParamD + ParamE + ParamF ShowParam = ShowParam & "
合計" & ParamAll & "
" %>
処理区分 <% =s_syori_disp() %>
判定基準項目 判定基準細目 配分比率
基準項目名 配分比率 細目基準名称 配分比率
商品力 価格力
広告力
商品力 計（１０）
店舗力 立地力
品揃え
店舗力 計（１０）
企業力 資本力
店舗展開
企業力 計（１０）
配分 計
（１０になるよう設定）
実行購入金額 前回処理額：<%= D_LastExecAmount %>
実行取引日 前回処理日：<%= D_LastExecDate %>

受付窓口に戻る <% If (Session("CT21AdminFlag") >= 5) Then %> <% End If %> <% If (Session("CT21AdminFlag") >= 5) Then %> <% If (D_Syori <> "exe") Then %> <% End If %> <% End If %>
<% If 1 = 1 Then Response.Write("各会社・店舗・商品のポイント一覧
") Response.Write(ShowParam) Response.Write("
") If Request("act") = "chk" Then Response.Write("各会社・店舗・商品の購入金額一覧
") Response.Write(ShowBay) End If End If %>
<% End Sub %>