"Enable" 1080 1920 "0xeae6e1" SoundVolume Var Timeout = 0 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 Var DirImage = "ROOT/taobin_project/image/collectiing_mmr" EndIf RootLayoutVisible 3 "hide" Var ReqPayWithCash = 0 1000 Var Timeout = Timeout + 1 If Timeout > 30 Then If TopupFromPage = "member" Then Open "ROOT/taobin_project/xml/page_member_topup3.xml" Else If TopupFromPage = "payment" Then Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" Else Open "ROOT/taobin_project/xml/page_topup_credit3-1.xml" EndIf EndIf EndIf Refresh TimerReset If ViewBill > 0 Then CoinVending BILLREJECT EndIf If ReqPayWithCash = 1 Then Var Seeker.CreditReferenceTmp = "" + useCreditAmount Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/" Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm Var Seeker.StoreCreditFlag = 1 Var Seeker.CreditNotEnoughRefID = PointCrm Open "ROOT/taobin_project/xml/page_payment_credit3-TopupCash.xml" EndIf 0 380 "ROOT/taobin_project/image/collectiing/alpha.png" 157 803 "ROOT/taobin_project/image/collectiing/cash_warning_bg.png" 172 839 Var( DirImage + "/cash_warning_text.png" ) 218 1150 Var( DirImage + "/bn_cancel2.png" ) Var( DirImage + "/bp_cancel2.png" ) If TopupFromPage = "member" Then Open "ROOT/taobin_project/xml/page_member_topup3.xml" Else If TopupFromPage = "payment" Then Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" Else Open "ROOT/taobin_project/xml/page_topup_credit3-1.xml" EndIf EndIf 577 1150 Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var PayCreditChannel = "cash" If TopupFromPage = "member" Then Open "ROOT/taobin_project/xml/page_member_topupCash.xml" Else If TopupFromPage = "payment" Then If ReqPayWithCash = 0 Then Var TelephoneNumber = Seeker.TNumberTaobinCredit If NotEnoughPayment = 1 Then Var useCreditAmount = SumCreditAmount Else Var useCreditAmount = PayAmountSubDiscount EndIf Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ReqPayWithCash = 1 EndIf Else Open "ROOT/taobin_project/xml/page_topup_credit3-TopupCash.xml" EndIf EndIf ;include="ROOT/taobin_project/inc/video.inc" Open "/media/bt/xml/security_alarm.xml"