From 6b0c5db08272e16c370f33fdaac3c5c89b63c02d Mon Sep 17 00:00:00 2001
From: Pakin <pakin.t@forth.co.th>
Date: Fri, 26 Apr 2024 17:06:31 +0700
Subject: [PATCH] rename vars, SGP: try turn off credit storing if not enough
 change

---
 xml/page_board.xml            |   4 +-
 xml/page_payment_cash-SGP.xml | 103 +++++++++++++++++++++++++++++++++-
 xml/page_payment_cash-UAE.xml |   4 +-
 3 files changed, 104 insertions(+), 7 deletions(-)

diff --git a/xml/page_board.xml b/xml/page_board.xml
index 71ceb758..c280d2ff 100644
--- a/xml/page_board.xml
+++ b/xml/page_board.xml
@@ -818,7 +818,7 @@
 
 		STRCONTAIN "521215" MaterialAvailable SugarZeroCalEnable
 
-		Var DisableTaobinCredit = "true"
+		Var SettingDisableTaobinCredit = "true"
 
 		; Singapore disable point
 		Var SettingIgnoreCollectPoint = 1
@@ -865,7 +865,7 @@
 			LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/uae_dubai/menu/lang.tsv"
 		EndIf
 
-		Var DisableTaobinCredit = "true"
+		Var SettingDisableTaobinCredit = "true"
 
 	EndIf
 
diff --git a/xml/page_payment_cash-SGP.xml b/xml/page_payment_cash-SGP.xml
index 7b7fb218..c888c441 100644
--- a/xml/page_payment_cash-SGP.xml
+++ b/xml/page_payment_cash-SGP.xml
@@ -458,7 +458,7 @@
 	Var TopRowY = 1276
 	Var BotRowY = 1499
 
-	If DisableTaobinCredit = "true" Then
+	If SettingDisableTaobinCredit = "true" Then
 		Var PayState4 = "Invisible"
 	EndIf
 </EventOpen>
@@ -1514,7 +1514,7 @@ EndIf
 <Button>
 <X> 439 </X>
 <Y> eval(
-	If DisableTaobinCredit = "true" Then
+	If SettingDisableTaobinCredit = "true" Then
 		Var return = TopRowY
 	Else
 		Var return = BotRowY
@@ -1900,7 +1900,13 @@ EndIf
 <Button>
 <X> 327 </X>
 <Y> 1208 </Y>
-<State> alphaState3 </State>
+<State> eval(
+	If SettingDisableTaobinCredit = "true" Then
+		Var return = "Invisible"
+	Else
+		Var return = alphaState3
+	EndIf
+) </State>
 <Filename> Var( DirImage2 + "/bn_keep.png" )</Filename>
 <FilenamePress> Var( DirImage2 + "/bp_keep.png" )</FilenamePress>
 <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@@ -1923,6 +1929,44 @@ EndIf
 
 	CoinVending BILLREJECT
 	Var alphaState3 = "Invisible"
+
+	If SettingDisableTaobinCredit = "true" Then
+
+		If EnoughChange = "yes" Then
+
+
+		Else
+
+			If CoinInOK = 0 Then
+				If CancelFlag = 0 Then
+
+					If ViewBill > 0 Then
+							CoinVending BILLREJECT
+					EndIf
+
+					SAVELOG "ButtonCancleMain  > Cancle Order."
+					Machine CancelWepApp
+					CoinVending OFF
+					Var CancelFlag = 1
+					Var cancelState = "Enable"
+					Var CancelCounter = 0
+
+					If FlagQROpened = 1 Then 
+						Var CancelNumber = 12
+					EndIf
+
+					If CashlessPayFlag = 1 Then
+						Var CashlessPayFlag = 0 
+						CashlessReq FAIL
+					EndIf
+						
+				EndIf
+			EndIf
+
+
+		EndIf
+	EndIf
+
 	Refresh
 </EventClick>
 </Button>
@@ -1953,6 +1997,47 @@ EndIf
 
 	CoinVending BILLREJECT
 	Var alphaState3_offline = "Invisible"
+
+
+	If SettingDisableTaobinCredit = "true" Then
+
+		If EnoughChange = "yes" Then
+
+
+		Else
+
+			If CoinInOK = 0 Then
+				If CancelFlag = 0 Then
+
+					If ViewBill > 0 Then
+							CoinVending BILLREJECT
+					EndIf
+
+					SAVELOG "ButtonCancleMain  > Cancle Order."
+					Machine CancelWepApp
+					CoinVending OFF
+					Var CancelFlag = 1
+					Var cancelState = "Enable"
+					Var CancelCounter = 0
+
+					If FlagQROpened = 1 Then 
+						Var CancelNumber = 12
+					EndIf
+
+					If CashlessPayFlag = 1 Then
+						Var CashlessPayFlag = 0 
+						CashlessReq FAIL
+					EndIf
+						
+				EndIf
+			EndIf
+
+
+		EndIf
+	EndIf
+
+
+
 	Refresh
 </EventClick>
 </Button>
@@ -2085,9 +2170,21 @@ EndIf
 </Text>
 
 
+<EventUnitTest1>
 
+Var SELLONLINE = 1
+Var EnoughChange = "nay"
+Var PayState1 = "Enable"
 
+</EventUnitTest1>
 
+<EventUnitTest2>
+
+Var SELLONLINE = 1
+Var EnoughChange = "yes"
+Var PayState1 = "Enable"
+
+</EventUnitTest2>
 
 
 
diff --git a/xml/page_payment_cash-UAE.xml b/xml/page_payment_cash-UAE.xml
index 19f775d7..c7ee169b 100644
--- a/xml/page_payment_cash-UAE.xml
+++ b/xml/page_payment_cash-UAE.xml
@@ -489,7 +489,7 @@
 	Var TopRowY = 1276
 	Var BotRowY = 1499
 
-	If DisableTaobinCredit = "true" Then
+	If SettingDisableTaobinCredit = "true" Then
 		Var PayState4 = "Invisible"
 	EndIf
 
@@ -1548,7 +1548,7 @@ EndIf
 <Button>
 <X> 439 </X>
 <Y> eval(
-	If DisableTaobinCredit = "true" Then
+	If SettingDisableTaobinCredit = "true" Then
 		Var return = TopRowY
 	Else
 		Var return = BotRowY