pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

THAI: clean some promotion for next incomming

Browse source
This commit is contained in:
Kenta420 2024-08-08 15:02:35 +07:00
parent 5dfb4490fb
commit 272b599f81
4 changed files with 97 additions and 326 deletions
Download patch file Download diff file Expand all files Collapse all files

72
xml/page_brewing3.xml
View file

@ -229,80 +229,8 @@
Var AddData = 0
EndIf
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
Var AddData = 0
EndIf
EndIf
If ProBadValentineEnable = 1 Then
If FromBadValentinePro = 1 Then
Var AddData = 0
EndIf
EndIf
DEBUGVAR Seeker.CodeChannel
DEBUGVAR Seeker.CollectPointMain
DEBUGVAR LipitPro
DEBUGVAR FromLipitPro
If LipitPro = 1 Then
If FromLipitPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 0 Then
Var AddData = 0
EndIf
EndIf
EndIf
EndIf
DEBUGVAR FromPowerUpPro
If FreeEnergyDrink = 1 Then
If FromPowerUpPro = 1 Then
; AddData
; +1 in quota in this id card
Var Param1 = ""
Var Param2 = ""
Var Param3 = ""
If IDNum = "" Then
Else
AddData 44 TelephoneNumber IDNum Param1 Param2
EndIf
; clear id
Var IDNum = ""
Var FromPowerUpPro = 0
Var AddData = 0
Var DisableFromPowerup = "true"
Else
Var DisableFromPowerup = ""
EndIf
EndIf
If EnergyDrink1BathPro = 1 Then
If FromEnergyDrink1BathPro = 1 Then
SAVELOG "Adding Energy drink 1 Bath pro quota"
Var Param1 = ""
Var Param2 = ""
Var Param3 = ""
If IDNum = "" Then
Else
AddData 44 TelephoneNumber IDNum Param1 Param2
EndIf
; clear id
Var IDNum = ""
Var FromEnergyDrink1BathPro = 0
Var AddData = 0
Var DisableFromPowerup = "true"
Else
Var DisableFromPowerup = ""
EndIf
EndIf
If GetFreeFromError = 1 Then
;Var GetFreeFromError = 0

195
xml/page_payment.xml
View file

@ -301,200 +301,7 @@
DEBUGVAR OriginalPrice
DEBUGVAR TOPPING_PRICE
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 FromRerunPro = 1 Then
Var PriceDiff = PriceDrink - PromoPriceDrink
Var Seeker.VendingCode = RerunProCode
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = PromoPriceDrink
; reset
Var RerunProCode = ""
EndIf
If FromMondayBananaPro = 1 Then
Var PriceDiff = PriceDrink - PromotionPriceDrink
Var Seeker.VendingCode = "PMD10"
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = PromotionPriceDrink
EndIf
If FromWednesdayMelonPro = 1 Then
Var PriceDiff = PriceDrink - PromotionPriceDrink
Var Seeker.VendingCode = "PMD10"
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = PromotionPriceDrink
EndIf
If NightTime = 1 Then
If SelectDrink = "12-99-03-0066" Then
Var PriceDrink = 60
Var Seeker.VendingCode = "PMX5"
Var Seeker.IntVendingCampaign = 30
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = 30
EndIf
EndIf
If From15THBPro = 1 Then
Var PriceDiff = OriginalPrice - 15
Var Seeker.VendingCode = "Fix15"
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = PriceDrink - PriceDiff
EndIf
If FromPowerUpPro = 1 Then
If FreeEnergyDrink = 1 Then
If SelectDrink = "12-05-02-0035" Then
Var PriceDiff = PriceDrink - PromotionPriceDrink
Var Seeker.VendingCode = "FIX1"
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = 1
Else
If SelectDrink = "12-05-02-0034" Then
Var PriceDiff = PriceDrink - PromotionPriceDrink
Var Seeker.VendingCode = "FIX1"
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = 1
EndIf
EndIf
EndIf
EndIf
If FromEnergyDrink1BathPro = 1 Then
Var PriceDiff = PriceDrink - 1
Var Seeker.VendingCode = "FIX1"
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = 1
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
TRY "ROOT/taobin_project/xml/process/discount_from_promotion.ev"
DEBUGVAR PromotionIDCurrentOrder

60
xml/process/addpoint.ev
View file

@ -39,66 +39,6 @@
DEBUGVAR Seeker.CodeChannel
DEBUGVAR Seeker.CollectPointMain
DEBUGVAR LipitPro
DEBUGVAR FromLipitPro
If LipitPro = 1 Then
If FromLipitPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 0 Then
Var AddData = 0
EndIf
EndIf
EndIf
EndIf
DEBUGVAR FromPowerUpPro
If FreeEnergyDrink = 1 Then
If FromPowerUpPro = 1 Then
; AddData
; +1 in quota in this id card
Var Param1 = ""
Var Param2 = ""
Var Param3 = ""
If IDNum = "" Then
Else
AddData 44 TelephoneNumber IDNum Param1 Param2
EndIf
; clear id
Var IDNum = ""
Var FromPowerUpPro = 0
Var AddData = 0
Var DisableFromPowerup = "true"
Else
Var DisableFromPowerup = ""
EndIf
EndIf
If EnergyDrink1BathPro = 1 Then
If FromEnergyDrink1BathPro = 1 Then
SAVELOG "Adding Energy drink 1 Bath pro quota"
Var Param1 = ""
Var Param2 = ""
Var Param3 = ""
If IDNum = "" Then
Else
AddData 44 TelephoneNumber IDNum Param1 Param2
EndIf
; clear id
Var IDNum = ""
Var FromEnergyDrink1BathPro = 0
Var AddData = 0
Var DisableFromPowerup = "true"
Else
Var DisableFromPowerup = ""
EndIf
EndIf
Var PointCrm = ""
If Seeker.FromConsent = 1 Then

96
xml/process/discount_from_promotion.ev Normal file
View file

@ -0,0 +1,96 @@
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