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

update อะไรเนี้ย

Browse source
This commit is contained in:
wanlop run 2024-11-25 18:47:41 +07:00
commit 6286e03248
39 changed files with 922 additions and 426 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
image/page_payment_en/page_payment/img_popup8-AUS.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 31 KiB

BIN
image/page_payment_en/page_payment/img_popup_ema.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 17 KiB

BIN
inter/aus/image/page_member_topup/bd_credit_card.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 5.3 KiB

BIN
inter/aus/image/page_member_topup/bd_fatzebra.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 5.4 KiB

BIN
inter/aus/image/page_member_topup/bd_topup_credit_option_29.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 7.6 KiB

BIN
inter/aus/image/page_member_topup/bd_topup_credit_option_39.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 7.5 KiB

BIN
inter/aus/image/page_member_topup/bd_topup_credit_option_49.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 7.6 KiB

BIN
inter/aus/image/page_member_topup/bn_credit_card.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 6.5 KiB

BIN
inter/aus/image/page_member_topup/bn_fatzebra.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 6.7 KiB

BIN
inter/aus/image/page_member_topup/bn_topup_29.png
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 7.2 KiB

BIN
inter/aus/image/page_member_topup/bn_topup_39.png
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 7.2 KiB

BIN
inter/aus/image/page_member_topup/bn_topup_49.png
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 7.7 KiB

BIN
inter/aus/image/page_member_topup/bn_topup_credit_option_29.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9.5 KiB

BIN
inter/aus/image/page_member_topup/bn_topup_credit_option_39.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9.4 KiB

BIN
inter/aus/image/page_member_topup/bn_topup_credit_option_49.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9.7 KiB

BIN
inter/aus/image/page_member_topup/bp_credit_card.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 6.8 KiB

BIN
inter/aus/image/page_member_topup/bp_fatzebra.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 7 KiB

BIN
inter/aus/image/page_member_topup/bp_topup_29.png
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 7.4 KiB

BIN
inter/aus/image/page_member_topup/bp_topup_39.png
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 7.4 KiB

BIN
inter/aus/image/page_member_topup/bp_topup_49.png
View file

Binary file not shown.
Side by side

Before

Width:  |  Height:  |  Size: 7.8 KiB

BIN
inter/aus/image/page_member_topup/bp_topup_credit_option_29.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9.9 KiB

BIN
inter/aus/image/page_member_topup/bp_topup_credit_option_39.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 9.8 KiB

BIN
inter/aus/image/page_member_topup/bp_topup_credit_option_49.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 10 KiB

BIN
inter/aus/image/page_member_topup/popup_option_bg.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 4.8 KiB

BIN
inter/aus/image/payment_cash/bd_eam_enter_code.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 3.7 KiB

BIN
inter/aus/image/payment_cash/bd_pay_with_ema.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 5.4 KiB

BIN
inter/aus/image/payment_cash/bn_ema_enter_code.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 4.6 KiB

BIN
inter/aus/image/payment_cash/bn_pay_with_ema.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 6.8 KiB

BIN
inter/aus/image/payment_cash/bp_ema_enter_code.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 4.8 KiB

BIN
inter/aus/image/payment_cash/bp_pay_with_ema.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 6.8 KiB

23
inter/aus/xml/page_catalog.lxml
View file

@ -597,11 +597,11 @@
;###############################################################
<Button>
<X> 225 </X>
<X> 600 </X>
<Y> 424 </Y>
<State> ShowButtonClick2 </State>
<Filename> Var(DirImage + "/bn_main_page_member.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_main_page_member.png") </FilenamePress>
<Filename> "ROOT/taobin_project/image/page2_en/page2/bn_main_page_member.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2_en/page2/bp_main_page_member.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -612,23 +612,6 @@
</EventClick>
</Button>
<Button>
<X> 696 </X>
<Y> 424 </Y>
<State> ButtontoTopupMenu </State>
<Filename> Var(DirImage + "/bn_main_page_topup.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_main_page_topup.png") </FilenamePress>
<FilenameDisable> Var(DirImage + "/bp_main_page_topup.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Var PayDetail=""
Open "ROOT/taobin_project/xml/page_back_to_topup.xml"
</EventClick>
</Button>
<Button>
<X> 0 </X>
<Y> 1870 </Y>

21
inter/aus/xml/page_catalog_winter_warmers.lxml
View file

@ -598,8 +598,8 @@
<X> 225 </X>
<Y> 424 </Y>
<State> ShowButtonClick2 </State>
<Filename> Var(DirImage + "/bn_main_page_member.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_main_page_member.png") </FilenamePress>
<Filename> "ROOT/taobin_project/image/page2_en/page2/bn_main_page_member.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2_en/page2/bp_main_page_member.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -610,23 +610,6 @@
</EventClick>
</Button>
<Button>
<X> 696 </X>
<Y> 424 </Y>
<State> ButtontoTopupMenu </State>
<Filename> Var(DirImage + "/bn_main_page_topup.png") </Filename>
<FilenamePress> Var(DirImage + "/bp_main_page_topup.png") </FilenamePress>
<FilenameDisable> Var(DirImage + "/bp_main_page_topup.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Var PayDetail=""
Open "ROOT/taobin_project/xml/page_back_to_topup.xml"
</EventClick>
</Button>
<Button>
<X> 0 </X>
<Y> 1870 </Y>

420
inter/aus/xml/page_member_topup.lxml
View file

@ -8,10 +8,12 @@
<EventOpen>
; On open
Var TargetTimeout = 30
Var Timeout = 0
Var BlurBackgroundState = "Invisible"
Var SelectOptionPopupState = "Invisible"
Var SelectedPaymentMedthod = ""
Var SumCreditAmount = TaobinCredit
Var CashlessPayFlag = 0
@ -21,6 +23,17 @@
Var AdditionalAmount = 0
Var ChangeOK = 0
Var QRCODE99 = ""
Var QRCODEImageState = "Invisible"
Var CancelButtonPaymentPopupState = "Invisible"
Var CancelingState = 0
Var CancelingTime = 0
Var ReqPayInfoFlag = 0
Var WaitQRPay = 0
Var QRErrorState = "Invisible"
@ -34,8 +47,6 @@
Var text_4 = "/text_4-AUS.png"
Var PayCreditChannel = "credit-card"
Var OptionAmount1 = 2900
Var OptionAmount2 = 3900
Var OptionAmount3 = 4900
@ -61,7 +72,7 @@
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
If Timeout > TargetTimeout Then
Var alphaState = "Invisible"
Var LOADING_STATE = "Invisible"
@ -74,10 +85,26 @@
CashlessReq OFF
EndIf
VendingQR OFF
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
EndIf
If CancelingState = 1 Then
Var CancelingTime = CancelingTime + 1
If CancelingTime > 3 Then
Var Timeout = 0
Var TargetTimeout = 30
Var alphaState = "Invisible"
Var LOADING_STATE = "Invisible"
Var BlurBackgroundState = "Invisible"
Var CancelingState = 0
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
@ -89,9 +116,57 @@
</EventSecurity>
<EventActionOk>
If WaitQRPay = 1 Then
If VendingExtResult = "" Then
Else
Var PayCreditChannel = "fatzebra"
Var ToppupSuccessPage = CountryRootPath + "xml/page_member_topupSuccess.lxml"
Open ToppupSuccessPage
EndIf
Var ReqPayInfoFlag = 0
EndIf
If ReqPayInfoFlag = 1 Then
Var VendingQRTypeResult = ""
DEBUGVAR ECommerceQR
SPLIT ECommerceQR "/" 5 VendingQRTypeResult
If VendingQRTypeResult = "FZB:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99FZB = SessionID
Var QRCODE99FZB = QRCODE99FZB + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99FZB
Var QRCODE99FZB = QRCODE99FZB + Ext21
Var QRCODETMP = QRCODE99FZB
Var ReqPayInfoFlag = 0
SAVELOG QRCODE99FZB
SAVELOG Ext21
Var QRCODE99 = QRCODE99FZB
Var LOADING_STATE = "Invisible"
Var WaitQRPay = 1
Var TargetTimeout = 120
Var Timeout = 0
Var VendingExtResult = ""
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_mobile.mp3"
Refresh
EndIf
EndIf
If VendingCashless = "OK" Then
CashlessReq SUCCESS
Var PayCreditChannel = "credit-card"
Var ToppupSuccessPage = CountryRootPath + "xml/page_member_topupSuccess.lxml"
Open ToppupSuccessPage
EndIf
@ -100,7 +175,8 @@
<EventActionError>
If VendingCashless = "ERROR" Then
Var Timeout = 0
Var TargetTimeout = 30
Var Timeout = 0
;Var QRErrorFlag = 1
If alphaState = "Enable" Then
@ -112,6 +188,15 @@
EndIf
If ReqPayInfoFlag > 0 Then
Var TargetTimeout = 30
Var Timeout = 0
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var QRCODE99 = ""
EndIf
EndIf
Refresh
@ -148,41 +233,123 @@
<Image>
<Text>
<X> 70 </X>
<Y> 499 </Y>
<Filename> Var( DirImage + "/text_3.png" )</Filename>
</Image>
<Width> 940 </Width>
<Font> MontserratBold </Font>
<Size> 50 </Size>
<Color> 0x513C2F </Color>
<Align> Center </Align>
<Value> "Choose a payment method" </Value>
</Text>
<Button>
<X> 287 </X>
<Y> 637 </Y>
<Filename> Var( DirImage2 + "/bn_credit_card.png" ) </Filename>
<FilenamePress> Var( DirImage2 + "/bp_credit_card.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bd_credit_card.png" ) </FilenameDisable>
<EventOnClick>
Var Timeout = 0
Var SelectedPaymentMedthod = "credit_card"
Var SelectOptionPopupState = "Enable"
Var BlurBackgroundState = "Enable"
</EventOnClick>
</Button>
<Button>
<X> 287 </X>
<Y> 778 </Y>
<Filename> Var( DirImage2 + "/bn_fatzebra.png" ) </Filename>
<FilenamePress> Var( DirImage2 + "/bp_fatzebra.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bd_fatzebra.png" ) </FilenameDisable>
<EventOnClick>
Var Timeout = 0
Var SelectedPaymentMedthod = "fatzebra"
Var SelectOptionPopupState = "Enable"
Var BlurBackgroundState = "Enable"
</EventOnClick>
</Button>
<Text>
<X> 70 </X>
<Y> 1134 </Y>
<Width> 940 </Width>
<Font> MontserratBold </Font>
<Size> 64 </Size>
<Color> 0x513C2F </Color>
<Align> Center </Align>
<Value> "Total balance" </Value>
</Text>
<Image>
<X> 252 </X>
<Y> 1223 </Y>
<Y> 1272 </Y>
<Filename> Var( DirImage + text_4 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1280 </Y>
<Size> 120 </Size>
<X> 252 </X>
<Y> 1300 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Width> 566 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> TaobinCreditStr </Value>
</Text>
<Button>
<X> 397 </X>
<Y> 1622 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
<EventClick>
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> BlurBackgroundState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
; ================= select option =================
<Image>
<X> 213 </X>
<Y> 653 </Y>
<State> SelectOptionPopupState </State>
<Filename> Var( DirImage2 + "/popup_option_bg.png" ) </Filename>
</Image>
<Text>
<X> 249 </X>
<Y> 710 </Y>
<State> SelectOptionPopupState </State>
<Width> 583 </Width>
<Font> KanitSemiBold </Font>
<Size> 41 </Size>
<Color> 0x513C2F </Color>
<Align> Center </Align>
<Value> "Please Select Option" </Value>
</Text>
<Button>
<X> 287 </X>
<Y> 670 </Y>
<Filename> Var( DirImage2 + "/bn_topup_29.png") </Filename>
<FilenamePress> Var( DirImage2 + "/bp_topup_29.png") </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bp_topup_29.png") </FilenameDisable>
<Y> 836 </Y>
<State> SelectOptionPopupState </State>
<Filename> Var( DirImage2 + "/bn_topup_credit_option_29.png") </Filename>
<FilenamePress> Var( DirImage2 + "/bp_topup_credit_option_29.png") </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bd_topup_credit_option_29.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -191,26 +358,22 @@
Var Timeout = 0
If PromotionAdditionCredit = 1 Then
Var AdditionalAmount = AmountAdditionCredit1
EndIf
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Coin CARD
EndIf
If PromotionAdditionCredit = 1 Then
Var AdditionalAmount = AmountAdditionCredit1
EndIf
Function 2
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 800 </Y>
<Filename> Var( DirImage2 + "/bn_topup_39.png") </Filename>
<FilenamePress> Var( DirImage2 + "/bp_topup_39.png") </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bp_topup_39.png") </FilenameDisable>
<Y> 991 </Y>
<State> SelectOptionPopupState </State>
<Filename> Var( DirImage2 + "/bn_topup_credit_option_39.png") </Filename>
<FilenamePress> Var( DirImage2 + "/bp_topup_credit_option_39.png") </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bd_topup_credit_option_39.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -223,21 +386,18 @@
Var AdditionalAmount = AmountAdditionCredit2
EndIf
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Coin CARD
EndIf
Function 2
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 930 </Y>
<Filename> Var( DirImage2 + "/bn_topup_49.png") </Filename>
<FilenamePress> Var( DirImage2 + "/bp_topup_49.png") </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bp_topup_49.png") </FilenameDisable>
<Y> 1146 </Y>
<State> SelectOptionPopupState </State>
<Filename> Var( DirImage2 + "/bn_topup_credit_option_49.png") </Filename>
<FilenamePress> Var( DirImage2 + "/bp_topup_credit_option_49.png") </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bd_topup_credit_option_49.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -250,43 +410,31 @@
Var AdditionalAmount = AmountAdditionCredit3
EndIf
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Coin CARD
EndIf
Function 2
</EventClick>
</Button>
<Button>
<X> 397 </X>
<Y> 1622 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
<X> 438 </X>
<Y> 1345 </Y>
<State> SelectOptionPopupState </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
Open CheckMemberPage2
Var SelectedPaymentMedthod = ""
Var SelectOptionPopupState = "Invisible"
Var BlurBackgroundState = "Invisible"
Refresh
</EventClick>
</Button>
; QR popup
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
; ================ checkout ===========================
<Image>
<X> 249 </X>
@ -295,13 +443,18 @@
<Filename> Var( DirImage + QR_POPUP )</Filename>
</Image>
<Image>
<Text>
<X> 267 </X>
<Y> 1065 </Y>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image>
<Width> 546 </Width>
<Height> 75 </Height>
<Font> NotoSansThaiBold </Font>
<Size> 58 </Size>
<Color> 0x5A5A5A </Color>
<Value> LOADING_TEXT </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<GIF>
<X> 493 </X>
@ -314,32 +467,54 @@
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState </State>
<Y> 1365 </Y>
<State> CancelButtonPaymentPopupState </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
Var alphaState = "Invisible"
CashlessReq OFF
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
Var LOADING_STATE = "Enable"
Var QRErrorState = "Invisible"
Var CancelButtonPaymentPopupState = "Invisible"
Var QRCODEImageState = "Invisible"
Var QRCODE99 = ""
Var CancelingState = 1
Var CancelingTime = 0
Var LOADING_TEXT = "Canceling..."
If SelectedPaymentMedthod = "credit_card" Then
SAVELOG "Canceling credit card"
Var QR_POPUP = "/img_popup8-2.png"
CashlessReq OFF
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
EndIf
DEBUGVAR LOADING_STATE
DEBUGVAR QRErrorState
DEBUGVAR alphaState
If SelectedPaymentMedthod = "fatzebra" Then
SAVELOG "Canceling fatzebra"
VendingQR OFF
EndIf
Refresh
</EventClick>
</Button>
<QRCode>
<X> 445 </X>
<Y> 958 </Y>
<Width> 200 </Width>
<Height> 200 </Height>
<State> QRCODEImageState </State>
<Service> testservice </Service>
</QRCode>
<Button>
<X> 267 </X>
@ -354,10 +529,83 @@
</Button>
<Function2>
Var SelectOptionPopupState = "Invisible"
Var alphaState = "Enable"
Var CancelButtonPaymentPopupState = "Enable"
if SelectedPaymentMedthod = "credit_card" Then
Var QR_POPUP = "/img_popup8-AUS.png"
Coin CARD
EndIf
if SelectedPaymentMedthod = "fatzebra" Then
Var QR_POPUP = "/img_popup1-AUS.png"
Var LOADING_TEXT = "Just Moment Please"
Var LOADING_STATE = "Enable"
Var QRCODEImageState = "Enable"
VendingQR ON
Var QRCODE99 = ""
Var PriceDrink = PayAmount
Var DiscountDrink = 0
Var SelectDrink = "00-00-00-0000"
Var SelectSlot = "1"
Var QRCODE1 = "A000000677010112"
Var QRCODE2 = "010755600066301"
Var QRCODE3 = "VDGN"
Var QRCODE4 = BoxID
Var QRCODE5 = SelectSlot
Var QRCODE6 = SelectDrink
Var QRCODE7 = PriceDrink
Var QRCODE8 = ""
Var SessionID2 = "00" + ":"
Var SessionID2 = SessionID2 + ""
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 + "FZB:2/"
Var ECommerceQR = ECommerceQR + "CRX"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + TelephoneNumber
Var ECommerceQR = ECommerceQR + ":0:"
Var ECommerceQR = ECommerceQR + AdditionalAmount
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 = 1
EndIf
Refresh
</Function2>
<EventUnitTest4>
Var MemberToppupSuccessPage = CountryRootPath + "xml/page_member_topupSuccess.lxml"
Open MemberToppupSuccessPage
</EventUnitTest4>
</Popup>

22
xml/event/tricker.ev
View file

@ -160,6 +160,10 @@ Var JemilaToppingFreeFlag = 0
; Sugar Zero Cal Free every day, start 20 Nov
Var SugarZeroCalFreeFlag = 0
; 12 Day 12 Menu, 1 - 12 Dec
Var 12Day12MenuPro = 0
Var From12Day12MenuPro = 0
Var NewCollectPoint = 1
Var PayMentCodeShouldCollectPromotionPoint = 0
Var NotCollectPointPromotion = 0
@ -307,15 +311,23 @@ If SystemDateMonthInt > 11 Then
EndIf
If SystemDateMonthInt = 12 Then
If SystemDateDayInt <= 12 Then
Var 12Day12MenuPro = 1
EndIf
EndIf
If BoxID = 105005 Then
Var NewFlowPaymentCode = 1
Var New_Payment = 1
Var JemilaPro = 0
Var HalloweenPro = 0
Var WeekdayDiscountPro = 1
Var WeekdayDiscountProEventOn = 1
Var OreoDiscount11Pro = 1
Var HappyTriosPro = 1
Var WeekdayDiscountPro = 0
Var WeekdayDiscountProEventOn = 0
Var OreoDiscount11Pro = 0
Var HappyTriosPro = 0
Var 12Day12MenuPro = 1
Var JemilaToppingFlag = 1
Var JemilaToppingFreeFlag = 1
@ -484,6 +496,8 @@ If taobin_nopro = "true" Then
Var HalloweenPro = 0
Var WeekdayDiscountPro = 0
Var OreoDiscount11Pro = 0
Var HappyTriosPro = 0
Var 12Day12MenuPro = 0
Var HappyTriosPro = 0

12
xml/page_board.xml
View file

@ -95,6 +95,7 @@
Var KanitRegularTTF = "ROOT/taobin_project/font/Kanit/Kanit-Regular.ttf"
Var KanitThinTTF = "ROOT/taobin_project/font/Kanit/Kanit-Thin.ttf"
Var KanitLightTTF = "ROOT/taobin_project/font/Kanit/Kanit-Light.ttf"
Var KanitSemiBold = "ROOT/taobin_project/font/Kanit/Kanit-SemiBold.ttf"
Var OpunMediumTTF = "ROOT/taobin_project/font/Opun/Opun-Medium.ttf"
Var OpunThinTTF = "ROOT/taobin_project/font/Opun/Opun-Thin.ttf"
@ -114,6 +115,8 @@
Var ChivoMonoBold = "ROOT/taobin_project/font/ChivoMono/ChivoMono-Bold.ttf"
Var ChivoMonoSemiBold = "ROOT/taobin_project/font/ChivoMono/ChivoMono-SemiBold.ttf"
Var MontserratBold = "ROOT/taobin_project/font/Montserrat/Montserrat-Bold.ttf"
Var InterRegular = "ROOT/taobin_project/font/Inter/Inter-Regular.ttf"
@ -1323,7 +1326,12 @@
If CountryName = "Thailand" Then
Var InternationalEnable = 1
DEBUGVAR InternationalEnable
<<<<<<< HEAD
=======
;TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/video/script_video.ev"
>>>>>>> 4d7e488313173bec282db0015199ea5afb5d2418
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev"
@ -1384,6 +1392,7 @@
EndIf
EndIf
<<<<<<< HEAD
If MyanmarLangEnable = "false" Then
If CountryName = "Thailand" Then
Var InternationalEnable = 1
@ -1449,6 +1458,9 @@
EndIf
EndIf
=======
>>>>>>> 4d7e488313173bec282db0015199ea5afb5d2418
If UsePepsiTheme = 1 Then
If InternationalEnable = 1 Then
; enable-color

226
xml/page_payment_cash-AUS.xml
View file

@ -88,6 +88,8 @@
Var cancelState = "Invisible"
Var CameraState = "Invisible"
Var alphaState = "Invisible"
Var alphaState2 = "Invisible"
@ -402,14 +404,6 @@
Machine DoorClose
If ShoppyPayEnable = "true" Then
Else
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
If web_readyOK = "true" Then
Var web_readyOK = "false"
@ -432,7 +426,6 @@
Var PayState4 = "Invisible"
Var PayState5 = "Invisible"
Var PayState6 = "Invisible"
EndIf
</EventOpen>
@ -678,6 +671,28 @@
EndIf
EndIf
;If ReqPayInfoFlag = 6 Then
; If VendingQRTypeResult = "FZB: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 employeeName = "Jhon"
; Var
; ;Var QRCODE99 = QRCODE99Shoppy
; Var LOADING_STATE = "Invisible"
; EndIf
;EndIf
Else
Var PayInfoCFlag = 1
EndIf
@ -718,6 +733,7 @@
If ReqPayInfoFlag = 1 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
@ -725,6 +741,7 @@
If ReqPayInfoFlag = 2 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
@ -732,6 +749,7 @@
If ReqPayInfoFlag = 3 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
@ -739,10 +757,19 @@
If ReqPayInfoFlag = 4 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 6 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else
Var PayInfoCFlag = 1
EndIf
@ -827,11 +854,16 @@
If Timeout >= 120 Then
Var alphaState = "Invisible"
If CameraState = "Enable" Then
Var CameraState = "Invisible"
EndIf
If RoadShow = "true" Then
Else
Var PayState3 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
Var LOADING_STATE = "Invisible"
@ -1351,6 +1383,96 @@
EndIf
</EventVDCancle>
<EventScanQRResult>
DEBUGVAR scanresult
DEBUGVAR scanmsg
;If scanresult = "true" Then
; Var employeeCode = scanmsg
; Open "ROOT/taobin_project/inter/aus/xml/page_payment_employee_ping
;Else
;EndIf
If scanresult = "true" Then
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_AUS_QR.png"
Var QRCODE99 = ""
Var LOADING_STATE = "Enable"
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 + "FZB: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
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 6
Refresh
EndIf
EndIf
EndIf
Else
Var scanmsg = "Please try agin"
EndIf
Var CameraState = "Invisible"
CLOSESCANQR
Refresh
</EventScanQRResult>
;include="ROOT/taobin_project/inc/video.inc"
@ -1441,7 +1563,7 @@
If alphaState = "Invisible" Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png"
Var QR_POPUP = "/img_popup8-AUS.png"
Var alphaState = "Enable"
Coin CARD
EndIf
@ -1604,7 +1726,7 @@ EndIf
<Button>
<X> 552 </X>
<Y> 1499 </Y>
<State> "Enable" </State>
<State> "Invisible" </State>
<Filename> Var( DirImage + "/bn_pay_with_comingSoon.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenameDisable>
@ -1618,10 +1740,11 @@ EndIf
<Button>
<X> 552 </X>
<Y> 1499 </Y>
<State> "Invisible" </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_with_codeOther.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_with_codeOther.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_with_codeOther.png" </FilenameDisable>
<State> PayState6 </State>
;<State> "Invisible" </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_with_ema.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_with_ema.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_with_ema.png" </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -1631,68 +1754,18 @@ EndIf
If CancelFlag = 0 Then
If alphaState = "Invisible" Then
Var QR_POPUP = "/img_popup1.png"
Var QR_POPUP = "/img_popup_ema.png"
Var QRCODE99 = ""
Var LOADING_STATE = "Enable"
Var FlagQROpened = 1
Var alphaState = "Enable"
VendingQR ON
Var scanresult = ""
Var scanmsg = ""
INITSCANQR
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CameraState = "Enable"
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 + "FZB: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
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 1
Refresh
EndIf
EndIf
@ -1804,8 +1877,14 @@ EndIf
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image>
<CameraX>
<X> 50 </X>
<Y> 900 </Y>
<Name>"usbfront"</Name>
<Width> 1000 </Width>
<Height> 1000 </Height>
<State> CameraState </State>
</CameraX>
<Button>
@ -1822,6 +1901,7 @@ EndIf
Var QRErrorState = "Invisible"
Var CreditCardErrorState = "Invisible"
Var alphaState = "Invisible"
Var CameraState = "Invisible"
Var QRCODE99 = ""
If CashlessPayFlag = 1 Then
@ -2138,7 +2218,7 @@ EndIf
<X> 267 </X>
<Y> 960 </Y>
<State>QRErrorState</State>
<Filename> Var( DirImage + "/QRError.png" ) </Filename>
<Filename> Var( DirImage + QRErrorImg ) </Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

181
xml/page_payment_cash.xml
View file

@ -140,6 +140,10 @@
Var alphaState3 = "Invisible"
Var alphaState3_offline = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
Var CoinInFlag = 0
;Var CoinAmount = 0
@ -599,6 +603,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -665,6 +671,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -718,6 +726,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -741,6 +751,14 @@
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
@ -762,6 +780,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -785,6 +805,13 @@
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
@ -806,6 +833,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -829,6 +858,13 @@
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
@ -850,6 +886,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -873,6 +911,13 @@
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
@ -894,6 +939,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -918,6 +965,14 @@
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"
@ -938,6 +993,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -962,6 +1019,14 @@
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"
@ -982,6 +1047,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1005,6 +1072,13 @@
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
@ -1026,6 +1100,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1049,6 +1125,14 @@
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
@ -1063,6 +1147,60 @@
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
@ -1075,6 +1213,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
VendingQR ON
Var QRPopupOpenFlag = 1
@ -1833,6 +1973,8 @@
If Timeout >= 120 Then
Var alphaState = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
If RoadShow = "true" Then
@ -2104,20 +2246,6 @@
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
@ -2263,6 +2391,8 @@
If CoinInFlag = 0 Then
;VendingQR OFF
Var alphaState = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var QRCodeImageState = "Invisible"
EndIf
@ -2613,6 +2743,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -2753,6 +2885,7 @@
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Coin CARD
Var ReqPayInfoFromCashOther = 2
EndIf
@ -2941,7 +3074,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>
@ -2951,12 +3084,28 @@ eval(
If CancelingPopupFlag = "Invisible" Then
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>
@ -3244,7 +3393,7 @@ eval(
<Y> 958 </Y>
<Width> 200 </Width>
<Height> 200 </Height>
<State> alphaState </State>
<State> QRCodeImageState </State>
<Service> testservice </Service>
</QRCode>

43
xml/page_payment_cashOther.xml
View file

@ -184,6 +184,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -207,7 +209,7 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "TWN:2/"
;If IntVendingCampaign > 0 Then
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
@ -251,6 +253,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -274,7 +278,7 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA:2/"
;If IntVendingCampaign > 0 Then
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
@ -317,6 +321,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -340,7 +346,7 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "LPY:2/"
;If IntVendingCampaign > 0 Then
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
@ -386,6 +392,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -409,7 +417,7 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "AIR:2/"
;If IntVendingCampaign > 0 Then
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
@ -452,6 +460,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -475,7 +485,7 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "MAX:2/"
;If IntVendingCampaign > 0 Then
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
@ -518,6 +528,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -541,7 +553,7 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "WEC:2/"
;If IntVendingCampaign > 0 Then
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
@ -585,6 +597,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -608,7 +622,7 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA:2/"
;If IntVendingCampaign > 0 Then
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
@ -653,6 +667,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -676,7 +692,7 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "ALP:2/"
;If IntVendingCampaign > 0 Then
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
@ -720,6 +736,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -743,7 +761,7 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "UNP:2/"
;If IntVendingCampaign > 0 Then
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
@ -772,6 +790,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>
@ -788,6 +807,8 @@
Var FlagQROpened = 1
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Var QRCodeImageState = "Enable"
;CoinVending OFF
VendingQR ON
Var QRPopupOpenFlag = 1
@ -811,7 +832,7 @@
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "ACU:2/"
;If IntVendingCampaign > 0 Then
;If Seeker.IntVendingCampaign > 0 Then
; Var ECommerceQR = ECommerceQR + Seeker.VendingCode
; Var ECommerceQR = ECommerceQR + ":"
; Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
@ -897,6 +918,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"

12
xml/vending_info2.xml
View file

@ -212,6 +212,10 @@
Var alphaPasswordPromptWithKeyboard = "Invisible"
Var alphaPasswordPrompt = "Invisible"
Var tmpPassPhrase = PassPhrase
DEBUGVAR tmpPassPhrase
Var PassPhrase = ""
Var HiddenPassPhrase = ""
@ -239,6 +243,10 @@
Var alphaPasswordPromptWithKeyboard = "Invisible"
Var alphaPasswordPrompt = "Invisible"
Var tmpPassPhrase = PassPhrase
DEBUGVAR tmpPassPhrase
Var PassPhrase = ""
Var HiddenPassPhrase = ""
@ -950,10 +958,6 @@
; CallCMDFromXML
__CMD "check-password" PassPhrase "-" "-"
Var tmpPassPhrase = PassPhrase
Var PassPhrase = ""
Var HiddenPassPhrase = ""
Var WaitPopup = "Enable"
</EventClick>