fix code change bug

xml/page_payment.xml

@@ -34,6 +34,7 @@
 
 
 	Var IntVendingCampaign = 0
+	Var FreeVendingCampaign = 0
 	Var CodeChannel = 0
 	Var CoinVendingOnFlag = 0 
 

xml/page_payment_cash.xml

@@ -121,6 +121,7 @@
 		If CoinAmount > 0 Then
 			Var PayState2 = "Disable"
 			Var PayState3 = "Disable"
+			Var CoinInFlag = 1
 		EndIf
 		Var showRemaining = charOfBaht + RemainAmountStr
 	EndIf
@@ -148,6 +149,36 @@
 
 	EndIf
 
+	If CoinInOK = 0 Then
+
+		Var RemainAmount = PayAmount - CoinAmount
+		Var RemainAmount = RemainAmount - IntVendingCampaign
+		Var SumCoinAmount = CoinAmount + IntVendingCampaign
+		If SumCoinAmount >= PayAmount Then 
+			;Var VendingQRCode = "ERROR"
+			CoinVending OFF
+			Var Canout = SumCoinAmount - PayAmount
+			If Canout = 0 Then
+				Var RemainAmountStr = 0
+			Else
+				Var RemainAmountStr = "ทอน " + Canout
+			EndIf
+
+			
+			Var CancleState = "Disable"
+			Var CoinInOK = 1
+			Var CoinInCounter = 0
+
+
+
+		Else
+			Var RemainAmountStr = "" + RemainAmount
+		EndIf
+
+		;Var RemainAmount = 0
+		Var showRemaining = charOfBaht + RemainAmountStr
+	
+	EndIf
 
 
 </EventOpen>

xml/page_payment_code.xml

@@ -100,6 +100,8 @@
 
 		Else
 
+			Var FreeVendingCampaign = 1
+
 			If VendingCode = "C13" Then
             	;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" 
 		    	MakeDrinkV1  SelectDrink SelectSugarID

xml/page_thankyou.xml

@@ -23,15 +23,24 @@
 
 	Var Timeout = Timeout + 1 
 	If Timeout = 3 Then
-		If IntVendingCampaign < PayAmount Then 
+		If FreeVendingCampaign = 0 Then
-	 		Var SumCoinAmount = CoinAmount + IntVendingCampaign
+			If IntVendingCampaign < PayAmount Then 
-			If SumCoinAmount >= PayAmount Then 
+				Var SumCoinAmount = CoinAmount + IntVendingCampaign
-				Var Canout = SumCoinAmount - PayAmount
+				If SumCoinAmount >= PayAmount Then 
-				If Canout > 0 Then
+					Var Canout = SumCoinAmount - PayAmount
-					Change Canout	
+					If Canout > 0 Then
+						Change Canout	
+					EndIf
 				EndIf
 			EndIf
-	 	EndIf
+		Else
+
+			Var Canout = CoinAmount
+			If Canout > 0 Then
+				Change Canout	
+			EndIf
+
+		EndIf
 	EndIf