add linepay and credit

xml/page_payment_cash.xml

@@ -607,6 +607,9 @@
 			If ReqPayInfoFlag2 = 4 Then
 				Var Seeker.CampaignPayChanel = "dolfin"
 			EndIf
+			If ReqPayInfoFlag2 = 5 Then
+				Var Seeker.CampaignPayChanel = "linepay"
+			EndIf
 
 
 
@@ -758,6 +761,32 @@
 			EndIf
 		EndIf
 
+		If ReqPayInfoFlag = 5 Then	
+			If VendingQRTypeResult = "LPY:2" Then
+				Var CashTextWarning = ""
+				Var QRErrorState = "Invisible"
+				Var QRCODE99Shoppy = SessionID
+				Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
+				SAVELOG Ext1a
+				SAVELOG QRCODE99Shoppy
+				Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
+				Var ReqPayInfoFlag = 0
+				Var ReqPayInfoFlag2 = 5
+				SAVELOG QRCODE99Shoppy
+				SAVELOG Ext21
+
+				Var QRCODE99 = QRCODE99Shoppy
+				Var LOADING_STATE = "Invisible"
+
+				If show_eng = "true" Then 
+					PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3"
+				Else
+					PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3"
+				EndIf
+
+			EndIf
+		EndIf
+
 	Else
 		Var PayInfoCFlag = 1
     EndIf
@@ -765,6 +794,9 @@
 
 	If VendingCashless = "OK" Then
 		DEBUGVAR CashlessCode
+		Var Timeout = 0
+
+		Var QRErrorState = "Invisible"
 
 		If ViewBill > 0 Then
 				CoinVending BILLREJECT
@@ -824,8 +856,9 @@
 
 
 	If VendingCashless = "ERROR" Then
+		Var Timeout = 0
 		
-		Var QRErrorFlag = 1
+		;Var QRErrorFlag = 1
 		If alphaState = "Enable" Then
 			Var QRErrorState = "Enable"
 			Var LOADING_STATE = "Invisible"	
@@ -846,6 +879,9 @@
 	DEBUGVAR VendingCashless 
 
 	If VendingCashless = "READY" Then
+		Var QRCODE99 = ""
+		Var Timeout = 0
+		Var QRErrorState = "Invisible"
 		Var QR_POPUP = "/img_popup8-2.png"
 		Var VendingCashless = "-"
 		Var LOADING_STATE = "Enable"
@@ -1753,7 +1789,7 @@
 <Button>
 <X> 432 </X>
 <Y> 1503 </Y>
-<State> PayState5</State>
+<State> "Invisible" </State>
 <Filename> Var( DirImage + "/bn_pay_with_ccard.png") </Filename>
 <FilenamePress> Var( DirImage + "/bp_pay_with_ccard.png") </FilenamePress>
 <FilenameDisable> Var( DirImage + "/bd_pay_with_ccard.png") </FilenameDisable>
@@ -2107,6 +2143,8 @@
 	  ;CoinVending ON
 	  ;VendingQR OFF
 
+	  CashlessReq OFF
+
 	  If CashlessPayFlag = 1 Then
 		Var CashlessPayFlag = 0 
 		CashlessReq FAIL