fix bug

xml/page_payment_credit3-Topup.xml

@@ -108,6 +108,10 @@
 </EventIDCard>
 
 <EventCoin>
+
+If ViewBill > 0 Then
+		CoinVending BILLREJECT
+	EndIf
 </EventCoin>
 
 

xml/page_payment_credit3-TopupCash.xml

@@ -60,7 +60,10 @@
     
     
     Var CreditAmount = AmountNumber
-    Var RemainAmount = CreditAmount 
+    Var RemainAmount = CreditAmount - CoinAmount
+
+		
+
 	Var RemainAmountStr = "" + RemainAmount
 
 	Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
@@ -78,6 +81,7 @@
 
     
 
+
 	Var ChangeTimeout = 0
 	Var CancelCounter = 0
 
@@ -94,6 +98,60 @@
 	Var NamePriceShow = showname + " "
 	Var NamePriceShow = NamePriceShow + DrinkAmountStr
 
+	If CoinInOK = 0 Then
+
+			Var RemainAmount = CreditAmount - CoinAmount
+			
+
+			Var SumCoinAmount = CoinAmount 
+			
+			If SumCoinAmount >= CreditAmount Then 
+				CoinVending OFF
+				Var Canout = SumCoinAmount - CreditAmount
+				If Canout = 0 Then
+					Var RemainAmountStr = 0
+					Var RemainAmountStr !assigned StringFmt( 0, DisplayFormat, PreScaleConvertShow )
+				Else
+					If show_eng = "true" Then 
+						Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow )
+						Var RemainAmountStr = "Change " + RemainAmountStr
+						Var RemainAmountStr = RemainAmountStr + "###size=90"
+					Else
+						Var RemainAmountStr = "ทอน " + Canout
+					EndIf
+				EndIf
+
+
+				If Seeker.StoreCreditFlag = 1 Then
+					Var RemainAmountStr = 0
+					Var RemainAmountStr !assigned StringFmt( 0, DisplayFormat, PreScaleConvertShow )
+				EndIf
+
+				
+				Var CancleState = "Disable"
+				Var CoinInOK = 1
+				Var CoinInCounter = 0
+
+				Var TxRef1 = ""	
+				CreateTxRef1 TxRef1
+
+
+
+			Else
+				Var RemainAmountStr = "" + RemainAmount
+				Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
+			EndIf
+
+			Var Timeout = 0
+
+			
+			Var showRemaining = charOfBaht + RemainAmountStr
+			
+
+		
+		EndIf
+
+
 	
 
 </EventOpen>
@@ -130,7 +188,15 @@
 			Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml" 
 		Else
 
+			Var payCreditFlag = 0
 			If CoinAmount > 0 Then
+				Var payCreditFlag = 1
+			EndIf
+			If ChangeFlag2 = 1 Then
+				Var payCreditFlag = 1
+			EndIf
+
+            If payCreditFlag = 1 Then
 
                 Var TelephoneNumber = Seeker.TNumberTaobinCredit
                 Var PayO2 = Var Seeker.CoffeePinNumber

xml/page_payment_credit3-TopupQR.xml

@@ -37,7 +37,9 @@
 
 
                
-	DEBUGVAR Seeker
+	If ViewBill > 0 Then
+		CoinVending BILLREJECT
+	EndIf
 
     
 	
@@ -87,6 +89,10 @@
 </EventIDCard>
 
 <EventCoin>
+
+If ViewBill > 0 Then
+		CoinVending BILLREJECT
+	EndIf
 </EventCoin>