THAI: payment code with loading

This commit is contained in:
Kenta420 2024-12-20 18:34:29 +07:00
parent de007de327
commit 44c0f852dc
15 changed files with 1755 additions and 1324 deletions

View file

@ -13,29 +13,30 @@
Var Seeker.FreeVendingCampaign = 0
Var Timeout = 0
Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0
;Var VendingQRCode = "ERROR"
;VendingQR ON
;Var QRCODE99 = ""
;CoinVending OFF
Var ShowLoadingText = "Invisible"
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var ErrorCause = ""
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
@ -43,24 +44,31 @@
Var Mode# = 0
Var Str# = ""
Var TelephoneNumber# = ""
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_payment_codeOther.xml"
Refresh
If GetPayInfoFlag = 1 Then
Var ShowLoadingText = "Invisible"
Open "ROOT/taobin_project/xml/page_payment_codeOther.xml"
Else
Var ShowLoadingText = "Invisible"
Var text_show_error = DirImage + "/text_show_error2.png"
Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0
Var Timeout = 0
EndIf
Refresh
EndIf
TimerReset
</EventTimeout>
</EventTimeout>
<EventCoin>
@ -72,12 +80,14 @@
<EventActionOk>
If Seeker.CodeChannel = 1 Then
SAVELOG "Seeker.CodeChannel 1 > ActOK."
Var ShowLoadingText = "Invisible"
SAVELOG ECommerce
SPLIT ECommerce "/" 5 Seeker.VendingCode
@ -85,19 +95,19 @@
SPLIT ECommerce "/" 8 VendingCampaign1
If Seeker.VendingCode = "" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "KBA:2" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "AIR:2" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "TWN:2" Then
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCode = "C00"
EndIf
SAVELOG Seeker.VendingCode
@ -114,37 +124,37 @@
If IntVendingCampaign1 > 0 Then
Var VendingCreditRemain = VendingCampaign1
EndIf
EndIf
Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3
INT Seeker.IntVendingCampaign
Var VendingREFID = SessionID
If Seeker.IntVendingCampaign > 0 Then
Var QRChannel = 0
If Seeker.IntVendingCampaign >= PayAmount Then
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
If Seeker.IntVendingCampaign >= PayAmount Then
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var Seeker.VendingCampaign = PayAmount
Var Seeker.FreeVendingCampaign = 1
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
If CART_COUNT >= 1 Then
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
If CART_COUNT >= 1 Then
Cart "PreparID" 1
Var CART_INDEX = 1
Var PayReference = ""
GenHashWithTimeStamp PayReference
Cart "MakeID" CART_INDEX
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
@ -158,16 +168,16 @@
Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1
EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
EndIf
Var Seeker.CodeChannel = 1
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
@ -182,10 +192,10 @@
EndIf
EndIf
Else
Else
EndIf
@ -193,8 +203,11 @@
<EventActionError>
If Seeker.CodeChannel = 1 Then
Var ShowLoadingText = "Invisible"
Var TelephoneNumber = ""
Var ShowErrorText = "Enable"
SAVELOG ShowErrorText
@ -253,7 +266,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
@ -264,7 +277,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -278,7 +291,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
@ -289,7 +302,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -303,7 +316,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
@ -314,7 +327,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -328,7 +341,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_A.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "A"
Var ShowTextNumber = "Invisible"
@ -339,7 +352,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -353,7 +366,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
@ -364,7 +377,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -378,7 +391,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
@ -389,7 +402,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -403,7 +416,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
@ -414,7 +427,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -428,7 +441,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_B.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "B"
Var ShowTextNumber = "Invisible"
@ -439,7 +452,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -453,7 +466,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
@ -464,7 +477,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -478,7 +491,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
@ -489,7 +502,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -503,7 +516,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
@ -514,7 +527,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -528,7 +541,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_C.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "C"
Var ShowTextNumber = "Invisible"
@ -539,7 +552,7 @@
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
@ -553,7 +566,7 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 8
@ -561,7 +574,7 @@
Var TelephoneNumber# = Str# + TelephoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
@ -579,21 +592,21 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
Var Timeout = 0
Var Clear# = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
If TelNumLen = 0 Then
Var Clear# = 1
EndIf
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
If TelNumLen = 0 Then
If Clear# = 1 Then
Var ShowTextNumber = "Enable"
Var Mode# = 0
@ -606,7 +619,7 @@
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
@ -618,11 +631,11 @@
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_codeOther.xml"
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_codeOther.xml"
</EventClick>
</Button>
@ -631,28 +644,37 @@
<X> 577 </X>
<Y> 1673 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<State>
eval(
If ShowLoadingText = "Enable" Then
Var return = "Press"
Else
Var return = Tel_Confirm_State
EndIf
)
</State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
If UnitTestType = "2" Then
If TelephoneNumber = "00000001" Then
Var ShowErrorText = "Enable"
EndIf
Else
If GetPayInfoFlag = 0 Then
Var GetPayInfoFlag = 1
Var ShowLoadingText = "Enable"
VendingQR OFF
Var Seeker.CodeNumber = TelephoneNumber
Var RemainAmount = 0
;PrepareDrink SelectDrink SelectSugarID
@ -669,13 +691,13 @@
Var ECommerce = ECommerce + ":"
Var ECommerce = ECommerce + TOPPING_PRICE
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
@ -685,13 +707,13 @@
Var ECommerce = ECommerce + "C00"
EndIf
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + ":"
Var ECommerce = ECommerce + PromotionIDCurrentOrder
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
@ -704,17 +726,17 @@
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var TelephoneNumber = Seeker.CodeNumber
Var Seeker.CodeChannel = 1
EndIf
EndIf
SAVELOG ShowTextNumber
Refresh
</EventClick>
</Button>
@ -746,7 +768,7 @@
</Text>
<Image>
<X> 188 </X>
@ -754,6 +776,14 @@
<Filename> Var( DirImage + "/text_34.png" )</Filename>
</Image>
<Image>
<X> 260 </X>
<Y> 990 </Y>
<State> ShowLoadingText </State>
<Filename> Var( DirImage + "/loadingText.png") </Filename>
</Image>
<Image>
<X> 152 </X>
<Y> 1001 </Y>
@ -785,9 +815,9 @@
</Video>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>