add maxme and mbb

This commit is contained in:
pichet 2023-03-10 20:14:06 +07:00
parent d72112f2d5
commit 4191089fcc
63 changed files with 347 additions and 254 deletions

View file

@ -168,6 +168,32 @@
DEBUGVAR QRCODE99KBANK
Var EnableCCard = "Invisible"
Var InvisibleCCard = "Enable"
DEBUGVAR credit_card_enable
If credit_card_enable = "Enable" Then
Var InvisibleCCard = "Invisible"
EndIf
If Seeker = "next" Then
Var SeekerCurr = "curr"
If SeekerCurr.CreditCard = 1 Then
Var InvisibleCCard = "Enable"
EndIf
EndIf
If InvisibleCCard = "Invisible" Then
Var EnableCCard = "Enable"
EndIf
If RoadShow = "true" Then
Var PayState1 = "Enable"
Var PayState2 = "Invisible"
@ -245,10 +271,22 @@
EndIf
Var X_CASH = 184
Var X_CASH1 = 216
Var X_CASH2 = 439
Var X_CASH3 = 664
Var X_Diff = 113
;113
If EnableCCard = "Enable" Then
Var X_CASH1 = 216 - 113
Var X_CASH2 = 439 - 113
Var X_CASH3 = 664 - 113
EndIf
If RoadShow = "true" Then
Var X_CASH = 287
Var X_CASH1 = 287
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash_2.png"
@ -734,6 +772,49 @@
Var ReqPayInfoFlag = 6
EndIf
If web_payment = "MAXME" Then
Var QR_POPUP = "/img_popup10.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 + "MAX: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 = 7
EndIf
EndIf
@ -811,6 +892,9 @@
If ReqPayInfoFlag2 = 6 Then
Var Seeker.CampaignPayChanel = "lazadapay"
EndIf
If ReqPayInfoFlag2 = 7 Then
Var Seeker.CampaignPayChanel = "maxme"
EndIf
@ -1019,6 +1103,35 @@
EndIf
EndIf
If ReqPayInfoFlag = 7 Then
If VendingQRTypeResult = "MAX: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 = 7
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
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3"
EndIf
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
@ -1805,8 +1918,8 @@
</Image>
<Button>
<X> X_CASH </X>
<Y> 1255 </Y>
<X> X_CASH1 </X>
<Y> 1276 </Y>
<State> PayState1</State>
<Filename> FilenameShowbuttonCashBN </Filename>
<FilenamePress> FilenameShowbuttonCashBP </FilenamePress>
@ -1842,8 +1955,8 @@
</Button>
<Button>
<X> 184 </X>
<Y> 1503</Y>
<X> 216 </X>
<Y> 1499</Y>
<State> PayState2</State>
<Filename> Var( DirImage + "/bn_pay_with_code.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_code.png") </FilenamePress>
@ -1867,8 +1980,8 @@
</Button>
<Button>
<X> 432 </X>
<Y> 1255 </Y>
<X> X_CASH2 </X>
<Y> 1276 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>
@ -1988,8 +2101,8 @@
<Button>
<X> 680 </X>
<Y> 1255 </Y>
<X> X_CASH3 </X>
<Y> 1276 </Y>
<State> PayState4</State>
<Filename> Var( DirImage + "/bn_pay_with_credit.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_credit.png") </FilenamePress>
@ -2012,13 +2125,41 @@
EndIf
</EventClick>
</Button>
<Button>
<X> 775 </X>
<Y> 1276 </Y>
<State> EnableCCard</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>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If alphaState = "Invisible" Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Coin CARD
Var ReqPayInfoFromCashOther = 2
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 432 </X>
<Y> 1503 </Y>
<X> 439 </X>
<Y> 1499 </Y>
<State> PayState5</State>
<Filename> Var( DirImage + "/bn_pay_with_ewallet.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_ewallet.png") </FilenamePress>
@ -2041,213 +2182,10 @@
</EventClick>
</Button>
<Button>
<X> 432 </X>
<Y> 1503 </Y>
<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>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If alphaState = "Invisible" Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Coin CARD
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Refresh
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 418 </X>
<Y> 1503 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage + "/bn_pay_with_shoppy.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup2.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 + "AIR: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 = 2
Refresh
EndIf
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 170 </X>
<Y> 1503 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage + "/bn_pay_with_true.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_true.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_true.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup3.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 + "TWN: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 = 3
Refresh
EndIf
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 173 </X>
<Y> 1503 </Y>
<State> "Invisible"</State>
<Filename> Var( DirImage + "/bn_pay_with_linepay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_linepay.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_linepay.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Button>
<X> 680 </X>
<Y> 1503 </Y>
<X> 664 </X>
<Y> 1499 </Y>
<State> PayState2</State>
<Filename> Var( DirImage + "/bn_pay_with_codeOther.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_codeOther.png") </FilenamePress>