"Enable" 1080 1920 "0xeae6e1" SoundVolume
; On open
Var Timeout = 0
DEBUGVAR PayAmount
DEBUGVAR TaobinCredit
INT TaobinCredit
INT PayAmount
Var SumCreditAmount = TaobinCredit + PayAmount
Var ServiceAmount2 = PayAmount
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
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 FlagPayCredit = 1
Var ExitState = "Disable"
1000
If Timeout > 1 Then
If FlagPayCredit = 1 Then
If PayCreditChannel = "cash" Then
Var SumCreditAmount = TaobinCredit + CoinAmount
Var TelephoneNumber = TelephoneNumber
Var PayO2 = PinNumber
DEBUGVAR TxRef1
Var TxReference = TxRef1
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
Var FlagPayCredit = 0
Else
EndIf
EndIf
Var ExitState = "Enable"
EndIf
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
TimerReset
Refresh
Open "/media/bt/xml/security_alarm.xml"
70 741 Var( DirImage + "/PaymentSuccess.png" ) 252 1053 Var( DirImage + "/text_4.png" ) 0 1123 144 Center 1080
KanitRegularTTF
0xDE794E SumCreditAmount