THAI: clean some promotion for next incomming
This commit is contained in:
Kenta420
parent
5dfb4490fb
commit
272b599f81
4 changed files with 97 additions and 326 deletions
|
|
@ -229,80 +229,8 @@
|
||||||
Var AddData = 0
|
Var AddData = 0
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
If MyMintEnable = 1 Then
|
|
||||||
If FromMyMintPro = 1 Then
|
|
||||||
Var AddData = 0
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If ProBadValentineEnable = 1 Then
|
|
||||||
If FromBadValentinePro = 1 Then
|
|
||||||
Var AddData = 0
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
DEBUGVAR Seeker.CodeChannel
|
DEBUGVAR Seeker.CodeChannel
|
||||||
DEBUGVAR Seeker.CollectPointMain
|
DEBUGVAR Seeker.CollectPointMain
|
||||||
DEBUGVAR LipitPro
|
|
||||||
DEBUGVAR FromLipitPro
|
|
||||||
If LipitPro = 1 Then
|
|
||||||
If FromLipitPro = 1 Then
|
|
||||||
If Seeker.CodeChannel = 1 Then
|
|
||||||
If Seeker.CollectPointMain = 0 Then
|
|
||||||
Var AddData = 0
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
DEBUGVAR FromPowerUpPro
|
|
||||||
If FreeEnergyDrink = 1 Then
|
|
||||||
If FromPowerUpPro = 1 Then
|
|
||||||
; AddData
|
|
||||||
|
|
||||||
; +1 in quota in this id card
|
|
||||||
Var Param1 = ""
|
|
||||||
Var Param2 = ""
|
|
||||||
Var Param3 = ""
|
|
||||||
|
|
||||||
If IDNum = "" Then
|
|
||||||
|
|
||||||
Else
|
|
||||||
AddData 44 TelephoneNumber IDNum Param1 Param2
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
; clear id
|
|
||||||
Var IDNum = ""
|
|
||||||
Var FromPowerUpPro = 0
|
|
||||||
Var AddData = 0
|
|
||||||
Var DisableFromPowerup = "true"
|
|
||||||
Else
|
|
||||||
Var DisableFromPowerup = ""
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If EnergyDrink1BathPro = 1 Then
|
|
||||||
If FromEnergyDrink1BathPro = 1 Then
|
|
||||||
SAVELOG "Adding Energy drink 1 Bath pro quota"
|
|
||||||
Var Param1 = ""
|
|
||||||
Var Param2 = ""
|
|
||||||
Var Param3 = ""
|
|
||||||
|
|
||||||
If IDNum = "" Then
|
|
||||||
|
|
||||||
Else
|
|
||||||
AddData 44 TelephoneNumber IDNum Param1 Param2
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
; clear id
|
|
||||||
Var IDNum = ""
|
|
||||||
Var FromEnergyDrink1BathPro = 0
|
|
||||||
Var AddData = 0
|
|
||||||
Var DisableFromPowerup = "true"
|
|
||||||
Else
|
|
||||||
Var DisableFromPowerup = ""
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If GetFreeFromError = 1 Then
|
If GetFreeFromError = 1 Then
|
||||||
;Var GetFreeFromError = 0
|
;Var GetFreeFromError = 0
|
||||||
|
|
|
||||||
|
|
@ -301,200 +301,7 @@
|
||||||
DEBUGVAR OriginalPrice
|
DEBUGVAR OriginalPrice
|
||||||
DEBUGVAR TOPPING_PRICE
|
DEBUGVAR TOPPING_PRICE
|
||||||
|
|
||||||
If FromMomCocoaPro = 1 Then
|
TRY "ROOT/taobin_project/xml/process/discount_from_promotion.ev"
|
||||||
If DiscountMomCocoaPro > 0 Then
|
|
||||||
Var DiscountDrink = DiscountMomCocoaPro
|
|
||||||
Var Seeker.CampaignPPrice = PromotionPriceDrink
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If FromCocoa77Pro = 1 Then
|
|
||||||
Var OriginalPriceWithTopping = OriginalPrice + TOPPING_PRICE
|
|
||||||
Var PriceDiff = OriginalPriceWithTopping - PromotionPriceDrink
|
|
||||||
Var DiscountDrink = PriceDiff
|
|
||||||
Var Seeker.CampaignPPrice = PromotionPriceDrink
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If FromPassionMintPro = 1 Then
|
|
||||||
Var OriginalPriceWithTopping = OriginalPrice + TOPPING_PRICE
|
|
||||||
Var PriceDiff = OriginalPriceWithTopping - PromotionPriceDrink
|
|
||||||
Var DiscountDrink = PriceDiff
|
|
||||||
Var Seeker.CampaignPPrice = PromotionPriceDrink
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If FromRerunPro = 1 Then
|
|
||||||
Var PriceDiff = PriceDrink - PromoPriceDrink
|
|
||||||
Var Seeker.VendingCode = RerunProCode
|
|
||||||
Var Seeker.IntVendingCampaign = PriceDiff
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
Var Seeker.CodeChannel = 1
|
|
||||||
Var Seeker.CodeNumber = "00000000"
|
|
||||||
Var Seeker.VendingCampaignRI3 = PriceDiff
|
|
||||||
Var Seeker.CampaignPPrice = PromoPriceDrink
|
|
||||||
|
|
||||||
; reset
|
|
||||||
Var RerunProCode = ""
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If FromMondayBananaPro = 1 Then
|
|
||||||
Var PriceDiff = PriceDrink - PromotionPriceDrink
|
|
||||||
Var Seeker.VendingCode = "PMD10"
|
|
||||||
Var Seeker.IntVendingCampaign = PriceDiff
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
Var Seeker.CodeChannel = 1
|
|
||||||
Var Seeker.CodeNumber = "00000000"
|
|
||||||
Var Seeker.VendingCampaignRI3 = PriceDiff
|
|
||||||
Var Seeker.CampaignPPrice = PromotionPriceDrink
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If FromWednesdayMelonPro = 1 Then
|
|
||||||
Var PriceDiff = PriceDrink - PromotionPriceDrink
|
|
||||||
Var Seeker.VendingCode = "PMD10"
|
|
||||||
Var Seeker.IntVendingCampaign = PriceDiff
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
Var Seeker.CodeChannel = 1
|
|
||||||
Var Seeker.CodeNumber = "00000000"
|
|
||||||
Var Seeker.VendingCampaignRI3 = PriceDiff
|
|
||||||
Var Seeker.CampaignPPrice = PromotionPriceDrink
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If NightTime = 1 Then
|
|
||||||
If SelectDrink = "12-99-03-0066" Then
|
|
||||||
Var PriceDrink = 60
|
|
||||||
Var Seeker.VendingCode = "PMX5"
|
|
||||||
Var Seeker.IntVendingCampaign = 30
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
Var Seeker.CodeChannel = 1
|
|
||||||
Var Seeker.CodeNumber = "00000000"
|
|
||||||
Var Seeker.VendingCampaignRI3 = 30
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If From15THBPro = 1 Then
|
|
||||||
Var PriceDiff = OriginalPrice - 15
|
|
||||||
Var Seeker.VendingCode = "Fix15"
|
|
||||||
Var Seeker.IntVendingCampaign = PriceDiff
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
Var Seeker.CodeChannel = 1
|
|
||||||
Var Seeker.CodeNumber = "00000000"
|
|
||||||
Var Seeker.VendingCampaignRI3 = PriceDiff
|
|
||||||
Var Seeker.CampaignPPrice = PriceDrink - PriceDiff
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If FromPowerUpPro = 1 Then
|
|
||||||
|
|
||||||
If FreeEnergyDrink = 1 Then
|
|
||||||
If SelectDrink = "12-05-02-0035" Then
|
|
||||||
Var PriceDiff = PriceDrink - PromotionPriceDrink
|
|
||||||
Var Seeker.VendingCode = "FIX1"
|
|
||||||
Var Seeker.IntVendingCampaign = PriceDiff
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
Var Seeker.CodeChannel = 1
|
|
||||||
Var Seeker.CodeNumber = "00000000"
|
|
||||||
Var Seeker.VendingCampaignRI3 = PriceDiff
|
|
||||||
Var Seeker.CampaignPPrice = 1
|
|
||||||
Else
|
|
||||||
If SelectDrink = "12-05-02-0034" Then
|
|
||||||
Var PriceDiff = PriceDrink - PromotionPriceDrink
|
|
||||||
Var Seeker.VendingCode = "FIX1"
|
|
||||||
Var Seeker.IntVendingCampaign = PriceDiff
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
Var Seeker.CodeChannel = 1
|
|
||||||
Var Seeker.CodeNumber = "00000000"
|
|
||||||
Var Seeker.VendingCampaignRI3 = PriceDiff
|
|
||||||
Var Seeker.CampaignPPrice = 1
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If FromEnergyDrink1BathPro = 1 Then
|
|
||||||
Var PriceDiff = PriceDrink - 1
|
|
||||||
Var Seeker.VendingCode = "FIX1"
|
|
||||||
Var Seeker.IntVendingCampaign = PriceDiff
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
Var Seeker.CodeChannel = 1
|
|
||||||
Var Seeker.CodeNumber = "00000000"
|
|
||||||
Var Seeker.VendingCampaignRI3 = PriceDiff
|
|
||||||
Var Seeker.CampaignPPrice = 1
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If ChildrenFree = 1 Then
|
|
||||||
|
|
||||||
Var RemainAmountStr = "Free###size=150"
|
|
||||||
|
|
||||||
Var Seeker.VendingCode = "MKFOO"
|
|
||||||
Var Seeker.IntVendingCampaign = PriceDrink
|
|
||||||
Var Seeker.FreeVendingCampaign = 1
|
|
||||||
Var Seeker.CodeChannel = 1
|
|
||||||
Var Seeker.CodeNumber = IDNum
|
|
||||||
|
|
||||||
DEBUGVAR IDNum
|
|
||||||
|
|
||||||
Var Seeker.TNumberTaobinMember = TelNumPromotion
|
|
||||||
|
|
||||||
;If Seeker = "curr" Then
|
|
||||||
;
|
|
||||||
; MakeDrinkV1 SelectDrink SelectSugarID
|
|
||||||
; Var TxRef1 = ""
|
|
||||||
; CreateTxRef1 TxRef1
|
|
||||||
;Else
|
|
||||||
; Var TxRef1 = ""
|
|
||||||
; CreateTxRef1 TxRef1
|
|
||||||
;
|
|
||||||
; Var DrinkPaid = SelectDrink
|
|
||||||
; Var PaidPaymentFromNextStage = 1
|
|
||||||
;
|
|
||||||
;EndIf
|
|
||||||
;Open "ROOT/taobin_project/xml/page_thankyou.xml"
|
|
||||||
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
; fruit_raya
|
|
||||||
If FromFruityRaya = 1 Then
|
|
||||||
Var Seeker.VendingCode = "RAYA"
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
; mys pro thai tea
|
|
||||||
If FromProThaiTea = 1 Then
|
|
||||||
Var Seeker.VendingCode = "TT1F1"
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
; mys pro yuzu
|
|
||||||
If FromProYuzu = 1 Then
|
|
||||||
Var Seeker.VendingCode = "YZ1F1"
|
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
; mys mode pay later
|
|
||||||
If EnablePayLaterMode = 1 Then
|
|
||||||
Var PriceDiff = PriceDrink
|
|
||||||
|
|
||||||
Var Seeker.VendingCode = "PL"
|
|
||||||
Var Seeker.IntVendingCampaign = PriceDiff
|
|
||||||
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
; Oreo free
|
|
||||||
If PromotionIDOreoBuyTwoSaveMore = 1 Then
|
|
||||||
Var PromotionIDOreoBuyTwoSaveMore = 0
|
|
||||||
Var PromotionIDCurrentOrder = 2
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If PromotionIDCurrentOrder = 2 Then
|
|
||||||
SAVELOG "Promotion: Oreo Get 1 Free 1"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If FromCoffeeDrink1BathPro = 1 Then
|
|
||||||
SAVELOG "From Coffee Drink 1 Bath pro"
|
|
||||||
Var PromotionIDCurrentOrder = 3
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
DEBUGVAR PromotionIDCurrentOrder
|
DEBUGVAR PromotionIDCurrentOrder
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -39,66 +39,6 @@
|
||||||
|
|
||||||
DEBUGVAR Seeker.CodeChannel
|
DEBUGVAR Seeker.CodeChannel
|
||||||
DEBUGVAR Seeker.CollectPointMain
|
DEBUGVAR Seeker.CollectPointMain
|
||||||
DEBUGVAR LipitPro
|
|
||||||
DEBUGVAR FromLipitPro
|
|
||||||
If LipitPro = 1 Then
|
|
||||||
If FromLipitPro = 1 Then
|
|
||||||
If Seeker.CodeChannel = 1 Then
|
|
||||||
If Seeker.CollectPointMain = 0 Then
|
|
||||||
Var AddData = 0
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
DEBUGVAR FromPowerUpPro
|
|
||||||
If FreeEnergyDrink = 1 Then
|
|
||||||
If FromPowerUpPro = 1 Then
|
|
||||||
; AddData
|
|
||||||
|
|
||||||
; +1 in quota in this id card
|
|
||||||
Var Param1 = ""
|
|
||||||
Var Param2 = ""
|
|
||||||
Var Param3 = ""
|
|
||||||
|
|
||||||
If IDNum = "" Then
|
|
||||||
|
|
||||||
Else
|
|
||||||
AddData 44 TelephoneNumber IDNum Param1 Param2
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
; clear id
|
|
||||||
Var IDNum = ""
|
|
||||||
Var FromPowerUpPro = 0
|
|
||||||
Var AddData = 0
|
|
||||||
Var DisableFromPowerup = "true"
|
|
||||||
Else
|
|
||||||
Var DisableFromPowerup = ""
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If EnergyDrink1BathPro = 1 Then
|
|
||||||
If FromEnergyDrink1BathPro = 1 Then
|
|
||||||
SAVELOG "Adding Energy drink 1 Bath pro quota"
|
|
||||||
Var Param1 = ""
|
|
||||||
Var Param2 = ""
|
|
||||||
Var Param3 = ""
|
|
||||||
|
|
||||||
If IDNum = "" Then
|
|
||||||
|
|
||||||
Else
|
|
||||||
AddData 44 TelephoneNumber IDNum Param1 Param2
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
; clear id
|
|
||||||
Var IDNum = ""
|
|
||||||
Var FromEnergyDrink1BathPro = 0
|
|
||||||
Var AddData = 0
|
|
||||||
Var DisableFromPowerup = "true"
|
|
||||||
Else
|
|
||||||
Var DisableFromPowerup = ""
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
Var PointCrm = ""
|
Var PointCrm = ""
|
||||||
If Seeker.FromConsent = 1 Then
|
If Seeker.FromConsent = 1 Then
|
||||||
|
|
|
||||||
96
xml/process/discount_from_promotion.ev
Normal file
96
xml/process/discount_from_promotion.ev
Normal file
|
|
@ -0,0 +1,96 @@
|
||||||
|
If FromMomCocoaPro = 1 Then
|
||||||
|
If DiscountMomCocoaPro > 0 Then
|
||||||
|
Var DiscountDrink = DiscountMomCocoaPro
|
||||||
|
Var Seeker.CampaignPPrice = PromotionPriceDrink
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If FromCocoa77Pro = 1 Then
|
||||||
|
Var OriginalPriceWithTopping = OriginalPrice + TOPPING_PRICE
|
||||||
|
Var PriceDiff = OriginalPriceWithTopping - PromotionPriceDrink
|
||||||
|
Var DiscountDrink = PriceDiff
|
||||||
|
Var Seeker.CampaignPPrice = PromotionPriceDrink
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If FromPassionMintPro = 1 Then
|
||||||
|
Var OriginalPriceWithTopping = OriginalPrice + TOPPING_PRICE
|
||||||
|
Var PriceDiff = OriginalPriceWithTopping - PromotionPriceDrink
|
||||||
|
Var DiscountDrink = PriceDiff
|
||||||
|
Var Seeker.CampaignPPrice = PromotionPriceDrink
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If ChildrenFree = 1 Then
|
||||||
|
|
||||||
|
Var RemainAmountStr = "Free###size=150"
|
||||||
|
|
||||||
|
Var Seeker.VendingCode = "MKFOO"
|
||||||
|
Var Seeker.IntVendingCampaign = PriceDrink
|
||||||
|
Var Seeker.FreeVendingCampaign = 1
|
||||||
|
Var Seeker.CodeChannel = 1
|
||||||
|
Var Seeker.CodeNumber = IDNum
|
||||||
|
|
||||||
|
DEBUGVAR IDNum
|
||||||
|
|
||||||
|
Var Seeker.TNumberTaobinMember = TelNumPromotion
|
||||||
|
|
||||||
|
;If Seeker = "curr" Then
|
||||||
|
;
|
||||||
|
; MakeDrinkV1 SelectDrink SelectSugarID
|
||||||
|
; Var TxRef1 = ""
|
||||||
|
; CreateTxRef1 TxRef1
|
||||||
|
;Else
|
||||||
|
; Var TxRef1 = ""
|
||||||
|
; CreateTxRef1 TxRef1
|
||||||
|
;
|
||||||
|
; Var DrinkPaid = SelectDrink
|
||||||
|
; Var PaidPaymentFromNextStage = 1
|
||||||
|
;
|
||||||
|
;EndIf
|
||||||
|
;Open "ROOT/taobin_project/xml/page_thankyou.xml"
|
||||||
|
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
; fruit_raya
|
||||||
|
If FromFruityRaya = 1 Then
|
||||||
|
Var Seeker.VendingCode = "RAYA"
|
||||||
|
Var Seeker.FreeVendingCampaign = 0
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
; mys pro thai tea
|
||||||
|
If FromProThaiTea = 1 Then
|
||||||
|
Var Seeker.VendingCode = "TT1F1"
|
||||||
|
Var Seeker.FreeVendingCampaign = 0
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
; mys pro yuzu
|
||||||
|
If FromProYuzu = 1 Then
|
||||||
|
Var Seeker.VendingCode = "YZ1F1"
|
||||||
|
Var Seeker.FreeVendingCampaign = 0
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
; mys mode pay later
|
||||||
|
If EnablePayLaterMode = 1 Then
|
||||||
|
Var PriceDiff = PriceDrink
|
||||||
|
|
||||||
|
Var Seeker.VendingCode = "PL"
|
||||||
|
Var Seeker.IntVendingCampaign = PriceDiff
|
||||||
|
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
; Oreo free
|
||||||
|
If PromotionIDOreoBuyTwoSaveMore = 1 Then
|
||||||
|
Var PromotionIDOreoBuyTwoSaveMore = 0
|
||||||
|
Var PromotionIDCurrentOrder = 2
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If PromotionIDCurrentOrder = 2 Then
|
||||||
|
SAVELOG "Promotion: Oreo Get 1 Free 1"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If FromCoffeeDrink1BathPro = 1 Then
|
||||||
|
SAVELOG "From Coffee Drink 1 Bath pro"
|
||||||
|
Var PromotionIDCurrentOrder = 3
|
||||||
|
EndIf
|
||||||
Loading…
Add table
Add a link
Reference in a new issue