THAI INTER: thai inter new-layout with 3 langs

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

View file

@ -67,6 +67,13 @@
Var WalletEnable = "Disable"
EndIf
Var SendDiscountCampaign = 0
;If Seeker.IntVendingCampaign > 0 Then
; SAVELOG "Have discount enable send discount campaign"
; Var SendDiscountCampaign = 1
;EndIf
If From15THBPro = 1 Then
DEBUGVAR "Discount Disable Wallet"
Var WalletEnable = "Disable"
@ -188,6 +195,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -211,13 +220,13 @@
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
If SendDiscountCampaign = 1 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
@ -255,6 +264,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -278,13 +289,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA: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
If SendDiscountCampaign = 1 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
@ -321,6 +332,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -344,13 +357,13 @@
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
If SendDiscountCampaign = 1 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
@ -390,6 +403,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -413,13 +428,13 @@
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
If SendDiscountCampaign = 1 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
@ -456,6 +471,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -479,13 +496,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "MAX: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
If SendDiscountCampaign = 1 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
@ -522,6 +539,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -545,13 +564,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "WEC: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
If SendDiscountCampaign = 1 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
@ -589,6 +608,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -612,13 +633,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA: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
If SendDiscountCampaign = 1 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
@ -657,6 +678,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -680,13 +703,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "ALP: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
If SendDiscountCampaign = 1 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
@ -724,6 +747,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -747,13 +772,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "UNP: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
If SendDiscountCampaign = 1 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
@ -776,6 +801,7 @@
<Button>
<X> 208 </X>
<Y> 1413 </Y>
;<State> WalletEnable </State>
<State> "Invisible" </State>
<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_cashACU.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_pay_with_cashACU.png" </FilenamePress>
@ -792,6 +818,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -815,13 +843,13 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "ACU: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
If SendDiscountCampaign = 1 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
@ -901,6 +929,8 @@
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
Coin CARD
Var ReqPayInfoFromCashOther = 2
Open "ROOT/taobin_project/xml/page_payment_cash.xml"