132 lines
2.4 KiB
Text
132 lines
2.4 KiB
Text
|
|
|
|
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
|
|
|
|
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
|
|
|
|
Var PointCrm = ""
|
|
If Seeker.FromConsent = 1 Then
|
|
Var PointCrm = "pdpa1"
|
|
EndIf
|
|
|
|
If Seeker.PayWithQR = 1 Then
|
|
Var GetScore = Seeker.VendingTSID
|
|
Else
|
|
Var GetScore = ""
|
|
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
|
|
|
|
|
|
|