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

new payment

Browse source
This commit is contained in:
miggaze 2024-06-24 12:55:46 +07:00
parent 985cfb267f
commit d3edcf3f92
34 changed files with 3663 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

132
xml/process/addpoint.ev Normal file
View file

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