taobin_project/xml/page_member_topupAmount.xml
2023-01-16 14:44:05 +07:00

704 lines
15 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
VendingQR OFF
Var Timeout = 0
Var AmountNumber = ""
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
Var Ext1a = ""
Var GetAccFlag = 0
Var GetPayInfoFlag = 0
Var TextWaiting = ""
Var text_27 = "/text_27.png"
Var text_show_amountInvalid = "/text_show_amountInvalid.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2.png"
Var Min = 20
Var Max = 5000
If CountryName = "Malaysia" Then
Var text_27 = "/text_27-MYR.png"
Var text_show_amountInvalid = "/text_show_amountInvalid-MYR.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2-MYR.png"
Var Min = 2
Var Max = 500
EndIf
If CountryName = "Indonesia" Then
Var text_27 = "/text_27-IDR.png"
Var text_show_amountInvalid = "/text_show_amountInvalid-IDR.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2-IDR.png"
Var Min = 9000
Var Max = 2000000
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_member_topup3.xml"
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventCoin>
</EventCoin>
<EventActionOk>
If GetPayInfoFlag = 1 Then
Var VendingQRCode = "OK"
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Var ReqPayInfoFlag = 0
Open "ROOT/taobin_project/xml/page_member_topupQR.xml"
EndIf
Refresh
</EventActionOk>
<EventActionError>
If GetPayInfoFlag = 1 Then
Var QRCODE99 = ""
If show_eng = "true" Then
Var TextWaiting = "Unable to use QR, please try again later."
Else
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
EndIf
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
EndIf
Refresh
</EventActionError>
<Button>
<X> 990 </X>
<Y> 416 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 601 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "1"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "2"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "3"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "4"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "5"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "6"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "7"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "8"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "9"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen > 0 Then
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "0"
Trim AmountNumber 10
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim AmountNumber -1
;Var Tel_Confirm_State = "Invisible"
StrLen AmountNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
Var Tel_Confirm_State = "Invisible"
EndIf
Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_member_topup3.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Amount = AmountNumber
INT Amount
If Amount < Min Then
Var ShowErrorText = "Enable"
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
Var text_show_error = text_show_amountInvalid
Refresh
Else
If Amount > Max Then
Var ShowErrorText = "Enable"
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
Var text_show_error = text_show_amountInvalid2
Refresh
Else
If PayCreditChannel = "cash" Then
Open "ROOT/taobin_project/xml/page_member_topupCash.xml"
Else
If GetPayInfoFlag = 0 Then
Var PriceDrink = AmountNumber
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 RemainAmount = 0
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 + "/"
If CountryName = "Indonesia" Then
Var ECommerceQR = ECommerceQR + "IND:2/"
Else
Var ECommerceQR = ECommerceQR + "KBA:2/"
EndIf
Var ECommerceQR = ECommerceQR + "CRX"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + TelephoneNumber
Var ECommerceQR = ECommerceQR + ":0"
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 Timeout = 0
Var GetPayInfoFlag = 1
Var ReqPayInfoFlag = 1
If show_eng = "true" Then
Var TextWaiting = "Please wait..."
Else
Var TextWaiting = "กรุณารอซักครู่..."
EndIf
Refresh
EndIf
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Image>
<X> 217 </X>
<Y> 802 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>
<Image>
<X> 188 </X>
<Y> 640 </Y>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + text_27 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 817 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> AmountNumber </Value>
</Text>
<Image>
<X> 145 </X>
<Y> 820 </Y>
<State> ShowErrorText </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + text_show_error ) </Filename>
</Image>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Button>
<X> 859 </X>
<Y> 628 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventClick>
</Button>
<Text>
<X> 5 </X>
<Y> 940 </Y>
<Refresh> "Enable" </Refresh>
<Size> 30 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xFF0000 </Color>
<Value> TextWaiting </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>