diff --git a/inter/mys/xml/process/discount_from_promotion.ev b/inter/mys/xml/process/discount_from_promotion.ev new file mode 100644 index 00000000..70e37b83 --- /dev/null +++ b/inter/mys/xml/process/discount_from_promotion.ev @@ -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 diff --git a/xml/process/discount_from_promotion.ev b/xml/process/discount_from_promotion.ev index 7c519a09..b3b371ca 100644 --- a/xml/process/discount_from_promotion.ev +++ b/xml/process/discount_from_promotion.ev @@ -33,7 +33,7 @@ If ChildrenFree = 1 Then Var Seeker.TNumberTaobinMember = TelNumPromotion - ;If Seeker = "curr" Then + ;If Seeker = "curr" Then ; ; MakeDrinkV1 SelectDrink SelectSugarID ; Var TxRef1 = "" @@ -41,51 +41,24 @@ If ChildrenFree = 1 Then ;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_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 +; 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 @@ -93,4 +66,11 @@ EndIf If FromCoffeeDrink1BathPro = 1 Then SAVELOG "From Coffee Drink 1 Bath pro" Var PromotionIDCurrentOrder = 3 -EndIf \ No newline at end of file +EndIf + + + +If InternationalEnable = 1 Then + Var discount_promo_file = CountryRootPath + "/xml/process/discount_from_promotion.ev" + TRY discount_promo_file +EndIf