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

xml/page_payment_cashOther.xml

@@ -328,6 +328,71 @@
 </EventClick>
 </Button>
 
+<Button>
+<X> 209 </X>
+<Y> 1112 </Y>
+<State> "Enable" </State>
+<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_linepay.png" </Filename>
+<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_pay_with_linepay.png" </FilenamePress>
+<FilenameDisable> "ROOT/taobin_project/image/collectiing/bd_pay_with_linepay.png" </FilenameDisable>
+<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
+<Volume> SoundVolume </Volume>
+<EventClick> 
+
+	  				Var QR_POPUP = "/img_popup9.png"
+					Var LOADING_STATE = "Enable"
+					
+					Var QRCODE99 = ""
+
+					Var FlagQROpened = 1
+					Var alphaState = "Enable"
+					;CoinVending OFF
+					VendingQR ON
+					
+					
+					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 + "LPY:2/"
+
+					;If  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 = 5
+                    Var ReqPayInfoFromCashOther = 1
+					Open "ROOT/taobin_project/xml/page_payment_cash.xml" 
+
+</EventClick>
+</Button>
+
 <Button>
 <X> 209 </X>
 <Y> 1112 </Y>
@@ -339,8 +404,7 @@
 <Volume> SoundVolume </Volume>
 <EventClick> 
 
-	;Coin CARD
+	
-	;for test
 
 </EventClick>
 </Button>