fix bug use credit Duplicate

xml/page_payment_credit2.xml

@@ -68,6 +68,7 @@
 
 	Var ReqAdddata22 = 0
 	Var timeout_Adddata22 = 0
+	GenHashWithTimeStamp PointCrm
 	
 </EventOpen>
 <Timeout> 1000 </Timeout>
@@ -161,6 +162,8 @@
 				Open "ROOT/taobin_project/xml/page_thankyou.xml" 
 			EndIf
 
+			Var ReqAdddata22 = 0
+
 		EndIf
     
 			
@@ -193,6 +196,12 @@
    Var ShowErrorText = "Enable"
    Refresh
 
+   If ReqAdddata22 = 1 Then 
+	
+		Var ReqAdddata22 = 0
+		
+	EndIf
+
 
 </EventActionError>
 
@@ -620,9 +629,9 @@
    
 
 	Var BmiYear = ""
-	Var PointCrm = ""
+	Var PointCrm1 = ""
 	Var GetScore = ""
-    AddData 13 TelephoneNumber  BmiYear PointCrm GetScore
+    AddData 13 TelephoneNumber  BmiYear PointCrm1 GetScore
 
 
 	Var ShowTextNumber1 = "Invisible"
@@ -769,12 +778,12 @@
 
 			If SumCreditAmount >= PayAmount Then 
 
-				GenHashWithTimeStamp PointCrm
+				If ReqAdddata22 = 0 Then 
-
+					Var BmiYear = PayAmount
-				Var BmiYear = PayAmount
+					Var GetScore = "useCredit"
-				Var GetScore = "useCredit"
+					AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
-				AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
+					Var ReqAdddata22 = 1
-				Var ReqAdddata22 = 1
+				EndIf
 
 				
 			Else

xml/page_payment_credit3.xml

@@ -125,6 +125,7 @@
 
 <EventActionOk>
 	If ReqAdddata22 = 1 Then 
+
 		If NotEnoughFlag = 0 Then
 
 			Var Seeker.CreditReferenceTmp = "" + PayAmount
@@ -185,6 +186,8 @@
 
 		EndIf
 
+		Var ReqAdddata22 = 0
+
 	EndIf
 </EventActionOk>
 
@@ -270,32 +273,36 @@
 <EventClick> 
 
 	
+
+
+	If ReqAdddata22 = 0 Then
 	
+		If NotEnoughFlag = 0 Then
 
-	If NotEnoughFlag = 0 Then
-
-		
-		Var BmiYear = PayAmount
-		Var GetScore = "useCredit"
 			
-		AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
+			Var BmiYear = PayAmount
+			Var GetScore = "useCredit"
+				
+			AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
 
-		
+			
-		Var ReqAdddata22 = 1
+			Var ReqAdddata22 = 1
 
-		
+			
-	Else
+		Else
 
-		
+			
 
-		SAVELOG "payment_credit3-p227."
+			SAVELOG "payment_credit3-p227."
 
-		
+			
-		Var BmiYear = SumCreditAmount
+			Var BmiYear = SumCreditAmount
-        Var GetScore = "useCredit"
+			Var GetScore = "useCredit"
-		
+			
-		AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
+			AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
-		Var ReqAdddata22 = 1
+			Var ReqAdddata22 = 1
+
+		EndIf
 
 	EndIf