pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

THAI INTER: thai inter new-layout with 3 langs

Browse source
This commit is contained in:
Ittipat Lusuk 2024-11-27 17:56:12 +07:00
commit c4135c748f
1324 changed files with 182160 additions and 281147 deletions
Download patch file Download diff file Expand all files Collapse all files

196
xml/page_payment_cash.xml
View file

@ -190,6 +190,10 @@ EndIf
Var alphaState3 = "Invisible"
Var alphaState3_offline = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
Var CoinInFlag = 0
;Var CoinAmount = 0
@ -656,6 +660,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -722,6 +728,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -775,6 +783,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -798,6 +808,14 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "TWN:2/"
;If Seeker.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
@ -819,6 +837,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -842,6 +862,13 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "DOL:2/"
;If Seeker.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
@ -863,6 +890,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -886,6 +915,13 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "LPY:2/"
;If Seeker.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
@ -907,6 +943,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -930,6 +968,13 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "LZP:2/"
;If Seeker.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
@ -951,6 +996,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -975,6 +1022,14 @@ EndIf
Var ECommerceQR = ECommerceQR + "MAX:2/"
;If Seeker.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"
@ -995,6 +1050,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1019,6 +1076,14 @@ EndIf
Var ECommerceQR = ECommerceQR + "WEC:2/"
;If Seeker.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"
@ -1039,6 +1104,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1062,6 +1129,13 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "ALP:2/"
;If Seeker.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
@ -1083,6 +1157,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1106,6 +1182,14 @@ EndIf
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "UNP:2/"
;If Seeker.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
@ -1120,6 +1204,60 @@ EndIf
Var ReqPayInfoFlag = 10
EndIf
If web_payment = "ACU" Then
Var QR_POPUP = "/img_popup22.png"
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
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 + "ACU:2/"
;If Seeker.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 = 11
EndIf
@ -1132,6 +1270,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1216,6 +1356,9 @@ EndIf
If ReqPayInfoFlag2 = 10 Then
Var Seeker.CampaignPayChanel = "unionpay"
EndIf
If ReqPayInfoFlag2 = 11 Then
Var Seeker.CampaignPayChanel = "acupay"
EndIf
@ -1715,7 +1858,7 @@ EndIf
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 10
Var ReqPayInfoFlag2 = 11
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
@ -1894,6 +2037,8 @@ EndIf
If Timeout >= 120 Then
Var alphaState = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
If RoadShow = "true" Then
@ -2158,29 +2303,18 @@ EndIf
; EndIf
;EndIf
If CancelingPopupFlag = "Enable" Then
If CancelingPopupFlag = "Enable" Then
SAVELOG "Canceled Popup"
Var CancelingPopupCountDown = CancelingPopupCountDown + 1
If CancelingPopupCountDown > 3 Then
Var CancelingPopupFlag = "Invisible"
Var alphaState = "Invisible"
If QRPopupOpenFlag = 1 Then
VendingQR OFF
EndIf
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF by user"
CashlessReq OFF
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
EndIf
EndIf
EndIf
Refresh
TimerReset
@ -2324,6 +2458,8 @@ EndIf
If CoinInFlag = 0 Then
;VendingQR OFF
Var alphaState = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
EndIf
@ -2684,6 +2820,8 @@ EndIf
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -2824,6 +2962,7 @@ EndIf
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Coin CARD
Var ReqPayInfoFromCashOther = 2
EndIf
@ -3015,7 +3154,7 @@ eval(
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState </State>
<State> cancelButtonQRPopupState </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -3023,14 +3162,33 @@ eval(
<EventClick>
If CancelingPopupFlag = "Invisible" Then
SAVELOG "Press Cancel, Canceling popup..."
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
Var QRCODE99 = ""
;CoinVending ON
Var CancelingPopupFlag = "Enable"
Var CancelingPopupCountDown = 0
If QRPopupOpenFlag = 1 Then
VendingQR OFF
EndIf
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF by user"
CashlessReq OFF
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
Refresh
EndIf
</EventClick>
@ -3318,7 +3476,7 @@ eval(
<Y> 958 </Y>
<Width> 200 </Width>
<Height> 200 </Height>
<State> alphaState </State>
<State> QRCodeImageState </State>
<Service> testservice </Service>
</QRCode>