fix problemf

This commit is contained in:
miggaze 2021-07-12 12:44:16 +07:00
parent 2a3f75cd1d
commit 198324a79d
3 changed files with 40 additions and 40 deletions

View file

@ -8,7 +8,8 @@
<EventOpen>
; On open
Var TNumberTaobinMember = ""
If TelephoneNumberProblem = "" Then
Else
@ -30,32 +31,7 @@
Var Timeout = 0
Var TNumberTaobinMember = ""
If TNumberTaobinMember = "" Then
Else
If PayWithQR = 1 Then
Var VendingTSID = VendingTSIDTmp
EndIf
Var BmiYear = PointTaobinStr
Var PointCrm = ""
If FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSID
If TaobinErrorNetwork = 0 Then
AddData 11 TNumberTaobinMember BmiYear PointCrm GetScore
Else
Var PointCrm = ""
AddData 14 TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
Var TNumberTaobinMember = ""
Var VendingTSID = ""
EndIf
StopLongPlay
@ -474,8 +450,16 @@
StrLen TelephoneNumberProblem TelNumLen
If TelNumLen >= 10 Then
If PayWithQR = 1 Then
Var VendingTSIDProblem = VendingTSIDTmp
Else
Var VendingTSIDProblem = VendingTSID
EndIf
Var ProblemID = 7
Var ChooseProblem = "taobin purchasing problems"
PROBLEM TelephoneNumberProblem ChooseProblem
PROBLEM2 TelephoneNumberProblem ProblemID ChooseProblem VendingTSIDProblem
If MachineStage = "remove-cup" Then