update referent id

xml/page_payment_storeCredit.xml

@@ -100,27 +100,6 @@
 		INT CoffeeCredit 
 		Var Seeker.CoffeePinNumber = Ext1c
 
-
-		If Seeker = "next" Then
-			Var Curr = "curr"
-
-			DEBUGVAR CoffeeCredit
-			DEBUGVAR Curr.CurrCreditAmount
-
-			If TelephoneNumber = Curr.CurrCreditTelNum Then
-
-				Var CoffeeCredit = CoffeeCredit + Curr.CurrCreditAmount
-
-				If Curr.CurrCreditUse > 0 Then 
-					Var CoffeeCredit = CoffeeCredit - Curr.CurrCreditUse
-					If CoffeeCredit < 0 Then 
-						Var CoffeeCredit = 0 
-					EndIf
-				EndIf
-				
-			EndIf
-		EndIf
-
 		Var Seeker.TNumberTaobinCredit = TelephoneNumber
 
 		If Seeker.pageStoreCredit0 = 1 Then 

xml/page_thankyou.xml

@@ -363,10 +363,23 @@
 					If Seeker.CreditNotEnoughRefID = "" Then
 
 					Else
-						Var CurrAmount = Seeker.CurrCreditAmount
+
+						Var ServiceAmountSupCampain = Seeker.ServiceAmount2 - Seeker.IntVendingCampaign
+
+						If CoinAmount >= ServiceAmountSupCampain  Then
+							Var CurrAmount = Seeker.CurrCreditAmount
+							Var RefID = "0/" + Seeker.CreditNotEnoughRefID
+							Var Seeker.CreditReferenceTmp = RefID
+						Else
+							Var CurrAmount = CoinAmount
+							Var RefID = "" + ServiceAmountSupCampain
+							Var RefID = RefID + "/"
+							Var RefID = RefID + Seeker.CreditNotEnoughRefID
+							Var Seeker.CreditReferenceTmp = RefID
+						EndIf
+
 						Var CurrTelePhoneNum = Seeker.CurrCreditTelNum
 						Var CurrPinNum = Seeker.CurrCreditPinNum
-						Var RefID = Seeker.CreditNotEnoughRefID
 
 						AddData 41 CurrTelePhoneNum CurrAmount CurrPinNum RefID
 					EndIf