taobin_project/xml/page_payment_credit2.xml
2021-05-24 15:35:03 +07:00

804 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
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
Var ShowSentSmsText = "Invisible"
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var PinNumber = ""
Var ReqFlag = 0
Var Xtext = 246
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext = 246
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var Ext1a = ""
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
If StateBGetSMS = "Disable" Then
Var TimeoutSMS = TimeoutSMS + 1
If TimeoutSMS > 30 Then
Var StateBGetSMS = "Enable"
Var TimeoutSMS = 0
Refresh
EndIf
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventCoin>
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
</EventCoin>
<EventActionOk>
If ReqFlag = 0 Then
If Ext1a = "ok" Then
If Ext1c = "" Then
Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
Else
EndIf
Else
Var ShowErrorText = "Enable"
Var PinNumber = ""
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
EndIf
Else
EndIf
Refresh
</EventActionOk>
<EventActionError>
Var ShowErrorText = "Enable"
Refresh
</EventActionError>
<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
Var PinNumber = PinNumber + "1"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</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
Var PinNumber = PinNumber + "2"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</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
Var PinNumber = PinNumber + "3"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</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
Var PinNumber = PinNumber + "4"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</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
Var PinNumber = PinNumber + "5"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</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
Var PinNumber = PinNumber + "6"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</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
Var PinNumber = PinNumber + "7"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</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
Var PinNumber = PinNumber + "8"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</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
Var PinNumber = PinNumber + "9"
Var ShowTextNumber = "Invisible"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1432 </Y>
<State> StateBGetSMS </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/bn_getPin.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_getPin.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Var ShowSentSmsText = "Enable"
Var StateBGetSMS = "Disable"
Var BmiYear = ""
Var PointCrm = ""
Var GetScore = ""
AddData 13 TelephoneNumber BmiYear PointCrm GetScore
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
Var PinNumber = ""
Var ShowErrorText = "Invisible"
Var ReqFlag = 1
TimerReset
Refresh
</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
Var PinNumber = PinNumber + "0"
Trim PinNumber 4
StrLen PinNumber TelNumLen
If TelNumLen >= 4 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
Var ShowErrorText = "Invisible"
If TelNumLen > 0 Then
Var ShowTextNumber1 = "Enable"
EndIf
If TelNumLen > 1 Then
Var ShowTextNumber2= "Enable"
EndIf
If TelNumLen > 2 Then
Var ShowTextNumber3= "Enable"
EndIf
If TelNumLen > 3 Then
Var ShowTextNumber4= "Enable"
EndIf
Var ShowSentSmsText = "Invisible"
TimerReset
Refresh
</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 PinNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen PinNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
If TelNumLen < 1 Then
Var ShowTextNumber1 = "Invisible"
EndIf
If TelNumLen < 2 Then
Var ShowTextNumber2= "Invisible"
EndIf
If TelNumLen < 3 Then
Var ShowTextNumber3= "Invisible"
EndIf
If TelNumLen < 4 Then
Var ShowTextNumber4= "Invisible"
EndIf
Var ShowSentSmsText = "Invisible"
Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_credit.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 ShowSentSmsText = "Invisible"
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
GETACCEXT DataTmp 13
Var ReqFlag = 0
Refresh
</EventClick>
</Button>
<Image>
<X> 242 </X>
<Y> 830 </Y>
<Filename> Var( DirImage + "/img4.png" ) </Filename>
</Image>
<Image>
<X> 289 </X>
<Y> 870 </Y>
<State> ShowTextNumber1 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 446 </X>
<Y> 870 </Y>
<State> ShowTextNumber2 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 603 </X>
<Y> 870 </Y>
<State> ShowTextNumber3 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 758 </X>
<Y> 870 </Y>
<State> ShowTextNumber4 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>
<Image>
<X> 188 </X>
<Y> 626 </Y>
<Filename> Var( DirImage + "/text_16.png" )</Filename>
</Image>
<Image>
<X> 444 </X>
<Y> 945 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/text_show_notfound.png") </Filename>
</Image>
<Image>
<X> Xtext </X>
<Y> 945 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowSentSmsText </State>
<Filename> Var( DirImage + "/text_show_sentSMS.png") </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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>