fix for webApp

xml/page_payment_cash.xml

@@ -293,6 +293,78 @@
 		Var PayState5 = "Disable"
 	EndIf
 
+
+	If web_readyOK = "true" Then
+
+		Var web_readyOK = "false" 
+
+		If web_payment = "CASH" Then
+			Var alphaState2 = "Enable"
+		EndIf
+
+		If web_payment = "QR" Then
+				
+				Var QR_POPUP = "/img_popup1.png"
+				Var LOADING_STATE = "Enable"
+
+				Var FlagQROpened = 1
+				Var alphaState = "Enable"
+				;CoinVending OFF
+				VendingQR ON
+
+			
+				Var SessionID2 = SelectSlot + ":"
+				Var SessionID2 = SessionID2 + 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 + "KBA:2/"
+
+
+
+				If  IntVendingCampaign > 0 Then
+					Var ECommerceQR =	ECommerceQR + VendingCode
+					Var ECommerceQR =	ECommerceQR + ":"
+					Var ECommerceQR =	ECommerceQR + CodeNumber
+					Var ECommerceQR =	ECommerceQR + ":"
+					Var ECommerceQR = ECommerceQR + VendingCampaignRI3
+				EndIf
+
+				If  IntVendingCredit > 0 Then
+					Var ECommerceQR =	ECommerceQR + "CRD"
+					Var ECommerceQR =	ECommerceQR + ":"
+					Var ECommerceQR =	ECommerceQR + TNumberTaobinCredit
+					Var ECommerceQR =	ECommerceQR + ":"
+					Var ECommerceQR = 	ECommerceQR + IntVendingCredit
+				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 = 1
+		EndIf
+
+	EndIf
+
 </EventOpen>
 
 <EventActionOk>