96 lines
No EOL
2.3 KiB
Text
96 lines
No EOL
2.3 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
|
|
|
|
; 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 |