111 lines
2.9 KiB
Text
111 lines
2.9 KiB
Text
|
|
If From12Day12MenuPro = 1 Then
|
|
Var PriceDiff = PriceDrink - PromotionPriceDrink
|
|
Var Seeker.VendingCode = "PMD" + PriceDiff
|
|
Var Seeker.CodeNumber = "00000000"
|
|
Var Seeker.CodeChannel = 1
|
|
Var Seeker.FreeVendingCampaign = 0
|
|
Var Seeker.IntVendingCampaign = PriceDiff
|
|
Var Seeker.VendingCampaignRI3 = PriceDiff
|
|
EndIf
|
|
|
|
If FromOreoDiscount11Pro = 1 Then
|
|
Var Seeker.VendingCode = "PMD11"
|
|
Var Seeker.CodeNumber = "00000000"
|
|
Var Seeker.CodeChannel = 1
|
|
Var Seeker.FreeVendingCampaign = 0
|
|
Var Seeker.IntVendingCampaign = 11
|
|
Var Seeker.VendingCampaignRI3 = 11
|
|
EndIf
|
|
|
|
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 BoxID = 105005 Then
|
|
If Seeker.selected_a_drink = "12-05-02-0045" Then
|
|
Var PriceDiff = PriceDrink - 25
|
|
Var DiscountDrink = PriceDiff
|
|
Var Seeker.CampaignPPrice = 25
|
|
Var DiscountCampaignCode = "SVB0002"
|
|
|
|
Var PriceDrink = PriceDrink - PriceDiff
|
|
EndIf
|
|
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
|
|
If CountryName = "Thailand" Then
|
|
;do not thing
|
|
Else
|
|
Var discount_promo_file = CountryRootPath + "/xml/process/discount_from_promotion.ev"
|
|
TRY discount_promo_file
|
|
EndIf
|
|
EndIf
|