diff --git a/xml/page_payment_cash.xml b/xml/page_payment_cash.xml
index 54e32763..5ecf3d66 100644
--- a/xml/page_payment_cash.xml
+++ b/xml/page_payment_cash.xml
@@ -52,7 +52,7 @@
 	If CountryName = "Thailand" Then
 		If InternationalEnable = 1 Then
 			Open "ROOT/taobin_project/inter/tha/xml/page_payment_cash-THA.xml"
-		EndIf 
+		EndIf
 	EndIf
 
 
@@ -741,6 +741,14 @@
 				Var ECommerceQR =	ECommerceQR + "/"
 				Var ECommerceQR =	ECommerceQR + "TWN:2/"
 
+				;If  Seeker.IntVendingCampaign > 0 Then
+				;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
+				;EndIf
+
 
 				Var ServiceParameter = "max"
 				Var ServiceCharge = 0
@@ -785,6 +793,13 @@
 				Var ECommerceQR =	ECommerceQR + "/"
 				Var ECommerceQR =	ECommerceQR + "DOL:2/"
 
+				;If  Seeker.IntVendingCampaign > 0 Then
+				;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
+				;EndIf
 
 				Var ServiceParameter = "max"
 				Var ServiceCharge = 0
@@ -829,6 +844,13 @@
 				Var ECommerceQR =	ECommerceQR + "/"
 				Var ECommerceQR =	ECommerceQR + "LPY:2/"
 
+				;If  Seeker.IntVendingCampaign > 0 Then
+				;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
+				;EndIf
 
 				Var ServiceParameter = "max"
 				Var ServiceCharge = 0
@@ -873,6 +895,13 @@
 				Var ECommerceQR =	ECommerceQR + "/"
 				Var ECommerceQR =	ECommerceQR + "LZP:2/"
 
+				;If  Seeker.IntVendingCampaign > 0 Then
+				;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
+				;EndIf
 
 				Var ServiceParameter = "max"
 				Var ServiceCharge = 0
@@ -918,6 +947,14 @@
 				Var ECommerceQR =	ECommerceQR + "MAX:2/"
 
 
+				;If  Seeker.IntVendingCampaign > 0 Then
+				;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
+				;EndIf
+
 				Var ServiceParameter = "max"
 				Var ServiceCharge = 0
 				Var AccountType = "new"
@@ -962,6 +999,14 @@
 				Var ECommerceQR =	ECommerceQR + "WEC:2/"
 
 
+				;If  Seeker.IntVendingCampaign > 0 Then
+				;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
+				;EndIf
+
 				Var ServiceParameter = "max"
 				Var ServiceCharge = 0
 				Var AccountType = "new"
@@ -1005,6 +1050,13 @@
 				Var ECommerceQR =	ECommerceQR + "/"
 				Var ECommerceQR =	ECommerceQR + "ALP:2/"
 
+				;If  Seeker.IntVendingCampaign > 0 Then
+				;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
+				;EndIf
 
 				Var ServiceParameter = "max"
 				Var ServiceCharge = 0
@@ -1049,6 +1101,14 @@
 				Var ECommerceQR =	ECommerceQR + "/"
 				Var ECommerceQR =	ECommerceQR + "UNP:2/"
 
+				;If  Seeker.IntVendingCampaign > 0 Then
+				;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
+				;EndIf
+
 
 				Var ServiceParameter = "max"
 				Var ServiceCharge = 0
@@ -1063,6 +1123,58 @@
 				Var ReqPayInfoFlag = 10
 		EndIf
 
+		If web_payment = "ACU" Then
+
+				Var QR_POPUP = "/img_popup22.png"
+				Var LOADING_STATE = "Enable"
+
+				Var FlagQROpened = 1
+				Var alphaState = "Enable"
+				;CoinVending OFF
+				VendingQR ON
+				Var QRPopupOpenFlag = 1
+
+
+				Var SessionID2 = SelectSlot + ":"
+				Var SessionID2 = SessionID2 + Seeker.ExtendData
+
+				Var CreditAmount1 = ""
+				Var ServiceAmountFlow = ""
+				Var TelephoneNumberQR = "0899999999"
+				Var ServiceType = "coffee"
+				Var ECommerceQR = ""
+				Var ECommerceQR = ECommerceQR + PriceDrink
+				Var ECommerceQR =	ECommerceQR + "/"
+				Var ECommerceQR =	ECommerceQR + DiscountDrink
+				Var ECommerceQR =	ECommerceQR + "/"
+				Var ECommerceQR =	ECommerceQR + SessionID2
+				Var ECommerceQR =	ECommerceQR + "/"
+				Var ECommerceQR =	ECommerceQR + SelectDrink
+				Var ECommerceQR =	ECommerceQR + "/"
+				Var ECommerceQR =	ECommerceQR + "ACU:2/"
+
+				;If  Seeker.IntVendingCampaign > 0 Then
+				;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
+				;	Var ECommerceQR =	ECommerceQR + ":"
+				;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
+				;EndIf
+
+
+				Var ServiceParameter = "max"
+				Var ServiceCharge = 0
+				Var AccountType = "new"
+				Var testservice = "kbank"
+				Var tc = ""
+				Var GetScore = ""
+				Var OperatorName = ""
+				Var SessionID = ""
+
+				GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
+				Var ReqPayInfoFlag = 11
+		EndIf
+
 
 
 
@@ -2104,20 +2216,6 @@
 
             Var CancelingPopupFlag = "Invisible"
             Var alphaState = "Invisible"
-
-            If QRPopupOpenFlag = 1 Then
-            	   VendingQR OFF
-           	EndIf
-
-            If ReqPayInfoFromCashOther = 2 Then
-                DEBUGVAR "CashlessReq OFF by user"
-                CashlessReq OFF
-            EndIf
-
-            If CashlessPayFlag = 1 Then
-                Var CashlessPayFlag = 0
-                CashlessReq FAIL
-            EndIf
         EndIf
 	EndIf
 
@@ -2957,6 +3055,20 @@ eval(
     	Var CancelingPopupFlag = "Enable"
     	Var CancelingPopupCountDown = 0
 
+        If QRPopupOpenFlag = 1 Then
+        	   VendingQR OFF
+       	EndIf
+
+        If ReqPayInfoFromCashOther = 2 Then
+            DEBUGVAR "CashlessReq OFF by user"
+            CashlessReq OFF
+        EndIf
+
+        If CashlessPayFlag = 1 Then
+            Var CashlessPayFlag = 0
+            CashlessReq FAIL
+        EndIf
+
         Refresh
     EndIf
 </EventClick>