adddata after pay

xml/page_back_to_main.xml

@@ -9,6 +9,22 @@
 
 	TopView "hide"
 
+	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
+	
 	Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
 
 

xml/page_brewing3.xml

@@ -24,6 +24,12 @@
 		Play "ROOT/taobin_project/sound_thai/thankyou.mp3"
 	EndIf
 
+	Var waitAckPay = 0
+	Var VendingTSIDTmp = ""
+	If PayWithQR = 1 Then
+		Var VendingTSIDTmp = VendingTSID
+	EndIf
+
 </EventOpen>
 
 
@@ -75,6 +81,11 @@
 		EndIf
 
 	EndIf
+
+	If waitAckPay = 1 Then	
+		Open "ROOT/taobin_project/xml/page_drinkok.xml" 
+	EndIf
+
 </EventActionOk>
 
 <EventActionError>
@@ -164,6 +175,14 @@
 		Var ChangeTimeout = ChangeTimeout + 1
 	EndIf
 
+	If  waitAckPay = 1 Then  
+		If Timeout > 60 Then
+			Var VendingTSID = ""
+			Open "ROOT/taobin_project/xml/page_drinkok.xml" 
+
+		EndIf
+	EndIf
+
 
 	If  ChangeOK = 2 Then
 		If ActionOKCase = 0 Then
@@ -235,6 +254,9 @@
 
 
 	If MachineState_Result = 1 Then
+		If  waitAckPay = 0 Then 
+
+		Var waitAckPay = 1 
 		Var Timeout = 0
 	  	Var ProcessText = "" 
 
@@ -292,13 +314,20 @@
 				Var SessionID2 = SelectDrink
 				Var ServiceCredit = "coffee"
 				Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
+			Else
+					;no wait ack pay
+					Var waitAckPay = 0 
+			EndIf
+			
 		EndIf
 
 		EndIf
 
 
 		Var ServiceSuccess = "yes"
+		If  waitAckPay = 0 Then
 			Open "ROOT/taobin_project/xml/page_drinkok.xml" 
+		EndIf
 
 	EndIf
 

xml/page_collect_point_3.xml

@@ -14,7 +14,9 @@
     Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
     Var PointCrm = "pdpa1"
     Var GetScore = ""
-	AddData 4 TelephoneNumber  BmiYear PointCrm GetScore
+	Var TNumberTaobinMember = TelephoneNumber
+	;AddData 4 TelephoneNumber  BmiYear PointCrm GetScore
+	;Add after pay
 
 
     Var CoffeePointStr = CoffeePoint

xml/page_drinkok.xml

@@ -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>

xml/page_payment.xml

@@ -38,6 +38,9 @@
 	Var CodeChannel = 0
 	Var CoinVendingOnFlag = 0 
 
+	Var TNumberTaobinMember = ""
+	Var VendingTSIDTmp = ""
+
 	If show_eng = "true" Then 
 		Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
 		Var PlaySoundLag = "ROOT/taobin_project/sound_eng/How_would_you_like_to_pay.mp3"