THAI: clean some promotion for next incomming

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

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