taobin_project/xml/page_member_topupCash.xml
2022-06-21 11:31:13 +07:00

633 lines
No EOL
11 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var SumCreditAmount = TaobinCredit
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
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 PayState1 = "Enable"
Var PayState3 = "Enable"
Var alphaState = "Invisible"
Var alphaState2 = "Enable"
Var alphaState3 = "Invisible"
INT AmountNumber
Var PayAmount = AmountNumber
Var RemainAmount = PayAmount
Var RemainAmountStr = "" + RemainAmount
Var CoinInFlag = 0
Var CoinInOK = 0
Var ChangeOK = 0
Var PayOK = 0
Var CancelFlag = 0
Var ChangeFlag2 = 0
Var Seeker.StoreCreditFlag = 0
CoinVending XBILL
Var ChangeTimeout = 0
Var CancelCounter = 0
Var ServiceAmount2 = PayAmount
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 180 Then
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Timeout Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
EndIf
EndIf
EndIf
If ChangeOK = 1 Then
If CancelFlag = 0 Then
Open "ROOT/taobin_project/xml/page_member_topupSuccess.xml"
Else
Var TelephoneNumber = TelephoneNumber
Var PayO2 = PinNumber
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = "00-00-00-0000"
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Else
EndIf
If PayOK = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
If ChangeTimeout > 30 Then
Var ChangeOK = 1
EndIf
EndIf
If CoinInOK = 1 Then
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
Var PayOK = 1
Var SumCoinAmount = CoinAmount
If SumCoinAmount >= PayAmount Then
Var Canout = SumCoinAmount - PayAmount
If Canout > 0 Then
If Seeker.StoreCreditFlag = 0 Then
Change Canout
Var ChangeFlag2 = 1
Else
Var ChangeOK = 1
EndIf
Else
Var ChangeOK = 1
EndIf
EndIf
EndIf
EndIf
If CancelFlag = 1 Then
Var CancelCounter = CancelCounter + 1
If CancelCounter = 2 Then
;Change CoinAmount
If CoinAmount > 0 Then
If Seeker.StoreCreditFlag = 0 Then
Change CoinAmount
Var ChangeFlag2 = 1
Else
Var ChangeOK = 1
EndIf
Else
Var ChangeOK = 1
EndIf
EndIf
Var ChangeTimeout = ChangeTimeout + 1
If ChangeTimeout > 30 Then
Var ChangeOK = 1
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeFlag2 = 1 Then
Var ChangeOK = 1
EndIf
EndIf
</EventChangeStatus>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
</EventActionOk>
<EventMachine>
</EventMachine>
<EventCoin>
TimerReset
Var CoinInFlag = 1
If ViewBill > 0 Then
Var RemainAmount = PayAmount - CoinAmount
If ViewBill > RemainAmount Then
Var RemainAmountKeep = ViewBill - RemainAmount
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
Else
;CoinVending BILLSTACKALL
Var RemainAmountKeep = 0
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
EndIf
Var Timeout = 0
Var RemainAmountStr = "" + RemainAmount
Var showRemaining = charOfBaht + RemainAmountStr
Else
Var alphaState2 = "Enable"
If CoinInOK = 0 Then
Var RemainAmount = PayAmount - CoinAmount
Var SumCoinAmount = CoinAmount
If SumCoinAmount >= PayAmount Then
CoinVending OFF
Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = 0
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
Else
Var RemainAmountStr = "" + RemainAmount
EndIf
Var Timeout = 0
Var showRemaining = charOfBaht + RemainAmountStr
EndIf
EndIf
Refresh
</EventCoin>
<EventVDCancle>
If CoinInFlag = 1 Then
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "VDCancle > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
Refresh
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
EndIf
</EventVDCancle>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<X> 70 </X>
<Y> 499 </Y>
<Filename> Var( DirImage + "/text_3.png" )</Filename>
</Image>
<Image>
<X> 252 </X>
<Y> 1223 </Y>
<Filename> Var( DirImage + "/text_4.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1280 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> SumCreditAmount </Value>
</Text>
<Button>
<X> 287 </X>
<Y> 638 </Y>
<State> PayState1</State>
<Filename> Var( DirImage + "/bn_cashS.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cashS.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cashS.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 819 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_payS.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_payS.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_prompt_payS.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Button>
<X> 397 </X>
<Y> 1622 </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>
</EventClick>
</Button>
<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>
; QR popup
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 182 </X>
<Y> 748 </Y>
<Filename> Var( DirImage2 + "/img_popup11.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1023 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
</Text>
<Button>
<X> 398 </X>
<Y> 1338 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + "/bn_edit.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_edit.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_member_topupAmount.xml"
</EventClick>
</Button>
<Button>
<X> 397 </X>
<Y> 1338 </Y>
<State> alphaState2 </State>
<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>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
Refresh
</EventClick>
</Button>
<Button>
<X> 829 </X>
<Y> 777 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Cancle Order2."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Image>
<X> 181 </X>
<Y> 658 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/img_popup15.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1010 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState3 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountKeep </Value>
</Text>
<Button>
<X> 330 </X>
<Y> 1303 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage + "/bn_confirm2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_confirm2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
CoinVending BILLSTACKALL
Var Seeker.StoreCreditFlag = 1
Var alphaState3 = "Invisible"
Refresh
</EventClick>
</Button>
<Button>
<X> 330 </X>
<Y> 1419 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage + "/bn_cancel3.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel3.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
EndIf
EndIf
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
Var alphaState3 = "Invisible"
Refresh
</EventClick>
</Button>
</Popup>