adddata after pay

This commit is contained in:
miggaze 2021-01-21 15:18:23 +07:00
parent 5ddf97c93c
commit 18ba180b12
5 changed files with 67 additions and 2 deletions

View file

@ -24,6 +24,21 @@
Var VideoPlayFile = VideoPlayFile + VideoFileEnd
Var Timeout = 0
If TNumberTaobinMember = "" Then
Else
If PayWithQR = 1 Then
Var VendingTSID = VendingTSIDTmp
EndIf
Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
Var PointCrm = "pdpa1"
Var GetScore = VendingTSID
AddData 4 TNumberTaobinMember BmiYear PointCrm GetScore
Var TNumberTaobinMember = ""
Var VendingTSID = ""
EndIf
StopLongPlay
</EventOpen>
<Timeout> 500 </Timeout>