fix Can use credit from current for next order

xml/page_payment_credit3.xml

@@ -18,8 +18,13 @@
 	;Var CoffeeCredit = Ext1b
 	;INT CoffeeCredit 
 
+
+	
 	Var SumCreditAmount = CoffeeCredit
-	;Var SumCreditAmount = 5
+	Var SumCreditAmount2 = SumCreditAmount
+
+	Var useCreditTemp = 0;
+	
 
 	Var NotEnoughFlag = 0
 
@@ -38,6 +43,13 @@
 
 		Var AcceptAuto = "false"
 
+		If Seeker = "next" Then
+			Var Curr = "curr"
+			If TelephoneNumber = Curr.CurrCreditTelNum Then
+				Var SumCreditAmount2 = SumCreditAmount + Curr.CurrCreditAmount
+			EndIf
+		EndIf
+
 	EndIf
 
 	Var ShowLoadingText = "Invisible"
@@ -166,7 +178,7 @@
 			Var Seeker.TNumberTaobinCredit = TelephoneNumber
 			Var Seeker.CoffeePinNumber = PinNumber
 
-			Var Seeker.IntVendingCredit = SumCreditAmount
+			Var Seeker.IntVendingCredit = SumCreditAmount2
 
 			Var Seeker.CreditReferenceTmp = "" + SumCreditAmount
 			Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
@@ -175,6 +187,10 @@
 
 			Var Seeker.StoreCreditFlag = 1
 
+			If useCreditTemp > 0 Then 
+				Var Seeker.CurrCreditUse = useCreditTemp
+			EndIf
+
 			If CART_COUNT >= 1 Then 
 				Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" 
 			Else
@@ -244,7 +260,7 @@
 <Font> KanitRegularTTF </Font>
 
 <Color> 0xDE794E </Color>
-<Value> SumCreditAmount </Value>
+<Value> SumCreditAmount2 </Value>
 </Text>
 
 
@@ -305,6 +321,13 @@
 
 			SAVELOG "payment_credit3-p227."
 
+			If Seeker = "next" Then
+				Var Curr = "curr"
+				If TelephoneNumber = Curr.CurrCreditTelNum Then
+					Var useCreditTemp = Curr.CurrCreditAmount
+				EndIf
+			EndIf
+
 			
 			Var BmiYear = SumCreditAmount
 			Var GetScore = "useCredit"