add alipay, unionpay

2024-01-22 14:57:14 +07:00 · 2024-01-22 14:57:14 +07:00 · 301d74d4c1
commit 301d74d4c1
parent f55ca3deaf
12 changed files with 318 additions and 8 deletions
--- a/xml/page_payment_cash.xml
+++ b/xml/page_payment_cash.xml
@ -924,6 +924,92 @@
 				Var ReqPayInfoFlag = 8
 		EndIf

+		If web_payment = "ALIPAY" Then
+				
+				Var QR_POPUP = "/img_popup20.png"
+				Var LOADING_STATE = "Enable"
+
+				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 + "ALP:2/"
+
+
+				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 = 9
+		EndIf
+
+		If web_payment = "UNIONPAY" Then
+				
+				Var QR_POPUP = "/img_popup21.png"
+				Var LOADING_STATE = "Enable"
+
+				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 + "UNP:2/"
+
+
+				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 = 10
+		EndIf
+



@ -1014,6 +1100,12 @@
 			If ReqPayInfoFlag2 = 8 Then
 				Var Seeker.CampaignPayChanel = "wechat"
 			EndIf
+			If ReqPayInfoFlag2 = 9 Then
+				Var Seeker.CampaignPayChanel = "alipay"
+			EndIf
+			If ReqPayInfoFlag2 = 10 Then
+				Var Seeker.CampaignPayChanel = "unionpay"
+			EndIf



@ -1410,6 +1502,93 @@
 			EndIf
 		EndIf

+
+		If ReqPayInfoFlag = 9 Then	
+			If VendingQRTypeResult = "ALP:2" Then
+				Var CashTextWarning = ""
+				Var QRErrorState = "Invisible"
+				Var QRCODE99Shoppy = ""
+				Var QRCODE99Shoppy = QRCODE99Shoppy + SessionID
+				Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
+				SAVELOG Ext1a
+				SAVELOG QRCODE99Shoppy
+				Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
+				Var ReqPayInfoFlag = 0
+				Var ReqPayInfoFlag2 = 9
+				SAVELOG QRCODE99Shoppy
+				SAVELOG Ext21
+
+				DEBUGVAR QRCODE99Shoppy
+
+				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
+					Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3" 
+
+					; Play Sound #zone
+					If SoundBackToSchoolEnable = 1 Then
+						
+						If SoundBackToSchoolType = 1 Then 
+							Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
+						EndIf
+						If SoundBackToSchoolType = 2 Then 
+							Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
+						EndIf
+						Var PlaySoundLag = RootPathSoundBackToSchool + "Please_scan_to_pay_via_e-wallet.wav"
+					EndIf
+
+					Play PlaySoundLag
+				EndIf
+
+			EndIf
+		EndIf
+
+		If ReqPayInfoFlag = 10 Then	
+			If VendingQRTypeResult = "UNP:2" Then
+				Var CashTextWarning = ""
+				Var QRErrorState = "Invisible"
+				Var QRCODE99Shoppy = ""
+				Var QRCODE99Shoppy = QRCODE99Shoppy + SessionID
+				Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
+				SAVELOG Ext1a
+				SAVELOG QRCODE99Shoppy
+				Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
+				Var ReqPayInfoFlag = 0
+				Var ReqPayInfoFlag2 = 10
+				SAVELOG QRCODE99Shoppy
+				SAVELOG Ext21
+
+				DEBUGVAR QRCODE99Shoppy
+
+				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
+					Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3" 
+
+					; Play Sound #zone
+					If SoundBackToSchoolEnable = 1 Then
+						
+						If SoundBackToSchoolType = 1 Then 
+							Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
+						EndIf
+						If SoundBackToSchoolType = 2 Then 
+							Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
+						EndIf
+						Var PlaySoundLag = RootPathSoundBackToSchool + "Please_scan_to_pay_via_e-wallet.wav"
+					EndIf
+
+					Play PlaySoundLag
+				EndIf
+
+			EndIf
+		EndIf
+
 	Else
 		Var PayInfoCFlag = 1
    EndIf