SGP: add new_brewing3 (no next cup edition)
This commit is contained in:
Pakin
parent
4a294ddf73
commit
5a9b8927f4
5 changed files with 2100 additions and 0 deletions
1746
inter/sgp/xml/page_NewBrewing3_blue.lxml
Normal file
1746
inter/sgp/xml/page_NewBrewing3_blue.lxml
Normal file
File diff suppressed because it is too large
Load diff
89
inter/whatthecup/sgp/xml/process/addpoint.ev
Normal file
89
inter/whatthecup/sgp/xml/process/addpoint.ev
Normal file
|
|
@ -0,0 +1,89 @@
|
|||
|
||||
|
||||
Var AddData = 1
|
||||
|
||||
DEBUGVAR Seeker.TNumberTaobinMember
|
||||
DEBUGVAR Seeker.PointTaobinStr
|
||||
|
||||
If Seeker.TNumberTaobinCredit = "" Then
|
||||
Var TelephoneNumber = "0899999999"
|
||||
Var PayO2 = ""
|
||||
|
||||
If Seeker.TNumberTaobinMember = "" Then
|
||||
Var AddData = 0
|
||||
Else
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinMember
|
||||
EndIf
|
||||
|
||||
Else
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinCredit
|
||||
Var PayO2 = Seeker.CoffeePinNumber
|
||||
EndIf
|
||||
|
||||
|
||||
If Seeker.VendingCode = "MKFOO" Then
|
||||
Var AddData = 0
|
||||
EndIf
|
||||
|
||||
DEBUGVAR Seeker.CodeChannel
|
||||
DEBUGVAR Seeker.CollectPointMain
|
||||
|
||||
Var PointCrm = ""
|
||||
If Seeker.FromConsent = 1 Then
|
||||
Var PointCrm = "pdpa1"
|
||||
EndIf
|
||||
|
||||
If Seeker.PayWithQR = 1 Then
|
||||
Var GetScore = Seeker.VendingTSID
|
||||
Else
|
||||
Var GetScore = ""
|
||||
EndIf
|
||||
|
||||
DEBUGVAR Seeker.RedeemSwensenCoupon
|
||||
DEBUGVAR Seeker.RedeemSwensenCouponDrinkPrice
|
||||
If Seeker.RedeemSwensenCoupon = 1 Then
|
||||
Var Cid = 56
|
||||
Var var1 = ""
|
||||
Var var2 = ""
|
||||
Var var3 = ""
|
||||
If Seeker.RedeemSwensenCouponDrinkPrice >= 20 Then
|
||||
Var var1 = "153"
|
||||
EndIf
|
||||
If Seeker.RedeemSwensenCouponDrinkPrice >= 30 Then
|
||||
Var var1 = "154"
|
||||
EndIf
|
||||
If Seeker.RedeemSwensenCouponDrinkPrice >= 40 Then
|
||||
Var var1 = "155"
|
||||
EndIf
|
||||
If Seeker.RedeemSwensenCouponDrinkPrice >= 50 Then
|
||||
Var var1 = "156"
|
||||
EndIf
|
||||
|
||||
DEBUGVAR var1
|
||||
|
||||
If var1 = "" Then
|
||||
|
||||
Else
|
||||
AddData Cid Seeker.TNumberTaobinMember var1 var2 var3
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If AddData = 1 Then
|
||||
Var Cid = 26
|
||||
DEBUGVAR "Befor Brewing3"
|
||||
DEBUGVAR Seeker
|
||||
DEBUGVAR Seeker.UseGet15Discount
|
||||
If NewCollectPoint = 1 Then
|
||||
If Seeker.UseGet15Discount = 1 Then
|
||||
Var Cid = 39
|
||||
Else
|
||||
Var Cid = 40
|
||||
Var PreviousSeeker.UseGetDrink5Bath = 0
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
111
inter/whatthecup/sgp/xml/process/discount_from_promotion.ev
Normal file
111
inter/whatthecup/sgp/xml/process/discount_from_promotion.ev
Normal file
|
|
@ -0,0 +1,111 @@
|
|||
|
||||
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
|
||||
26
inter/whatthecup/sgp/xml/process/payext_setup.ev
Normal file
26
inter/whatthecup/sgp/xml/process/payext_setup.ev
Normal file
|
|
@ -0,0 +1,26 @@
|
|||
|
||||
If Seeker.PayWithQR = 0 Then
|
||||
If Seeker.TNumberTaobinCredit = "" Then
|
||||
Var TelephoneNumber = "0899999999"
|
||||
Var PayO2 = ""
|
||||
|
||||
If Seeker.TNumberTaobinMember = "" Then
|
||||
|
||||
Else
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinMember
|
||||
EndIf
|
||||
|
||||
Else
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinCredit
|
||||
Var PayO2 = Seeker.CoffeePinNumber
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
DEBUGVAR TelephoneNumber
|
||||
Var TelephoneNumberExt = TelephoneNumber
|
||||
If TelephoneNumberExt = "" Then
|
||||
Var TelephoneNumberExt = "0899999999"
|
||||
EndIf
|
||||
__CMD "SetTelNum" TelephoneNumberExt Seeker.ORDER_ID Seeker.VendingTSID
|
||||
Var payOrderChannel = "/XML|" + Seeker.OrderChanel
|
||||
__CMD "SetPayType" Seeker.ORDER_ID payOrderChannel ""
|
||||
128
inter/whatthecup/sgp/xml/process/payment.ev
Normal file
128
inter/whatthecup/sgp/xml/process/payment.ev
Normal file
|
|
@ -0,0 +1,128 @@
|
|||
DEBUGVAR "MIGGAZE0-SGP"
|
||||
If Seeker.PayWithQR = 1 Then
|
||||
|
||||
Var ServiceAmount2 = Seeker.ServiceAmount2
|
||||
Var CreditReference = ""
|
||||
Var TxReference = ""
|
||||
Var VendingDiscount = 0
|
||||
Var VendingCampaign = 0
|
||||
Var SelectDrink = Seeker.selected_a_drink
|
||||
Var SuggestID = ""
|
||||
|
||||
If ChangeFlag2 = 1 Then
|
||||
Var TelephoneNumber = "0899999999"
|
||||
Var PayO2 = ""
|
||||
Var ServiceType = "credit"
|
||||
Var SessionID2 = SelectDrink
|
||||
Var ServiceCredit = "coffee"
|
||||
Var PayDetail = ""
|
||||
Var PayDetail2 = ""
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
||||
|
||||
Else
|
||||
|
||||
If Seeker.StoreCreditFlag = 1 Then
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinCredit
|
||||
Var PayO2 = Seeker.CoffeePinNumber
|
||||
Var ServiceType = "credit"
|
||||
Var SessionID2 = SelectDrink
|
||||
Var ServiceCredit = "coffee"
|
||||
Var PayDetail = ""
|
||||
Var PayDetail2 = ""
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"
|
||||
|
||||
If ConnectWithPOSMachine = 1 Then
|
||||
Var SelectDrink = Seeker.selected_a_drink
|
||||
Var ExtendData = Seeker.ExtendData
|
||||
Var ServiceAmount2 = Seeker.ServiceAmount2
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
Var CreditReference = Seeker.CreditReferenceTmp
|
||||
Var VendingDiscount = Seeker.VendingDiscount
|
||||
Var VendingCampaign = Seeker.VendingCampaign
|
||||
Var TxReference = Seeker.TxRef1
|
||||
Var VendingOrderID = Seeker.ORDER_ID
|
||||
Var PayType = "newpay"
|
||||
|
||||
Var ServiceType = "coffee-payment"
|
||||
Var ServiceCredit = SelectDrink
|
||||
Var SuggestID = ""
|
||||
|
||||
Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel
|
||||
|
||||
If GetFreeFromError = 1 Then
|
||||
Var Seeker.CodeChannel = 1
|
||||
Var Seeker.VendingCode = "FAU"
|
||||
Var Seeker.CodeNumber = "0000000000"
|
||||
Var VendingCampaign = ServiceAmount2
|
||||
EndIf
|
||||
|
||||
Var PayDetail2 = Seeker.PayDetail2
|
||||
POSPay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
||||
EndIf
|
||||
|
||||
|
||||
Else
|
||||
|
||||
; not-open-yet
|
||||
;TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"
|
||||
|
||||
|
||||
Var SelectDrink = Seeker.selected_a_drink
|
||||
Var ExtendData = Seeker.ExtendData
|
||||
Var ServiceAmount2 = Seeker.ServiceAmount2
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
Var CreditReference = Seeker.CreditReferenceTmp
|
||||
Var VendingDiscount = Seeker.VendingDiscount
|
||||
Var VendingCampaign = Seeker.VendingCampaign
|
||||
Var TxReference = Seeker.TxRef1
|
||||
Var VendingOrderID = Seeker.ORDER_ID
|
||||
Var PayType = "newpay"
|
||||
|
||||
Var ServiceType = "coffee-payment"
|
||||
Var ServiceCredit = SelectDrink
|
||||
Var SuggestID = ""
|
||||
|
||||
Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel
|
||||
|
||||
If GetFreeFromError = 1 Then
|
||||
Var Seeker.CodeChannel = 1
|
||||
Var Seeker.VendingCode = "FAU"
|
||||
Var Seeker.CodeNumber = "0000000000"
|
||||
Var VendingCampaign = ServiceAmount2
|
||||
EndIf
|
||||
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SessionID2 + "/"
|
||||
Var SessionID2 = SessionID2 + ""
|
||||
Var SessionID2 = SessionID2 + "/"
|
||||
Var SessionID2 = SessionID2 + Seeker.VendingCode
|
||||
Var SessionID2 = SessionID2 + "/"
|
||||
Var SessionID2 = SessionID2 + SelectDrink
|
||||
Var SessionID2 = SessionID2 + "/"
|
||||
Var SessionID2 = SessionID2 + BoxID
|
||||
Var SessionID2 = SessionID2 + "/"
|
||||
Var SessionID2 = SessionID2 + "S"
|
||||
Var SessionID2 = SessionID2 + "/"
|
||||
Var SessionID2 = SessionID2 + Seeker.CodeNumber
|
||||
Var SessionID2 = SessionID2 + "/"
|
||||
|
||||
|
||||
Var PayDetail2 = Seeker.PayDetail2
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
||||
Else
|
||||
|
||||
|
||||
Var PayDetail2 = Seeker.PayDetail2
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
Loading…
Add table
Add a link
Reference in a new issue