MYS: Split discount ev for inter, add vendingcode for 2 promos

This commit is contained in:
Pakin 2024-09-23 08:25:54 +07:00
parent 227e0d7879
commit c0172b6c34
2 changed files with 53 additions and 34 deletions

View file

@ -0,0 +1,39 @@
; 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
; promotion reduce price
; REPR
If ProReducedPriceEnable = 1 Then
Var Seeker.VendingCode = "REPR"
EndIf
; promotion yuzu 250
; YUZU25
If ProYuzu250Enable = 1 Then
Var Seeker.VendingCode = "YUZU25"
EndIf

View file

@ -33,7 +33,7 @@ If ChildrenFree = 1 Then
Var Seeker.TNumberTaobinMember = TelNumPromotion Var Seeker.TNumberTaobinMember = TelNumPromotion
;If Seeker = "curr" Then ;If Seeker = "curr" Then
; ;
; MakeDrinkV1 SelectDrink SelectSugarID ; MakeDrinkV1 SelectDrink SelectSugarID
; Var TxRef1 = "" ; Var TxRef1 = ""
@ -41,51 +41,24 @@ If ChildrenFree = 1 Then
;Else ;Else
; Var TxRef1 = "" ; Var TxRef1 = ""
; CreateTxRef1 TxRef1 ; CreateTxRef1 TxRef1
; ;
; Var DrinkPaid = SelectDrink ; Var DrinkPaid = SelectDrink
; Var PaidPaymentFromNextStage = 1 ; Var PaidPaymentFromNextStage = 1
; ;
;EndIf ;EndIf
;Open "ROOT/taobin_project/xml/page_thankyou.xml" ;Open "ROOT/taobin_project/xml/page_thankyou.xml"
Open "ROOT/taobin_project/xml/page_payment_cash.xml" Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf EndIf
; fruit_raya ; Oreo free
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 If PromotionIDOreoBuyTwoSaveMore = 1 Then
Var PromotionIDOreoBuyTwoSaveMore = 0 Var PromotionIDOreoBuyTwoSaveMore = 0
Var PromotionIDCurrentOrder = 2 Var PromotionIDCurrentOrder = 2
EndIf EndIf
If PromotionIDCurrentOrder = 2 Then If PromotionIDCurrentOrder = 2 Then
SAVELOG "Promotion: Oreo Get 1 Free 1" SAVELOG "Promotion: Oreo Get 1 Free 1"
EndIf EndIf
@ -93,4 +66,11 @@ EndIf
If FromCoffeeDrink1BathPro = 1 Then If FromCoffeeDrink1BathPro = 1 Then
SAVELOG "From Coffee Drink 1 Bath pro" SAVELOG "From Coffee Drink 1 Bath pro"
Var PromotionIDCurrentOrder = 3 Var PromotionIDCurrentOrder = 3
EndIf EndIf
If InternationalEnable = 1 Then
Var discount_promo_file = CountryRootPath + "/xml/process/discount_from_promotion.ev"
TRY discount_promo_file
EndIf