taobin_project/xml/process/discount_from_promotion.ev

76 lines
1.9 KiB
Text

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
; 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
If InternationalEnable = 1 Then
Var discount_promo_file = CountryRootPath + "/xml/process/discount_from_promotion.ev"
TRY discount_promo_file
EndIf