"Enable" 1080 1920 "0xeae6e1" SoundVolume
; 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 img_popup11 = "/img_popup11.png"
Var img_popup15 = "/img_popup15.png"
If CountryName = "Malaysia" Then
Var img_popup11 = "/img_popup11-MYR.png"
Var img_popup15 = "/img_popup15-MYR.png"
Var AmountNumber = AmountNumber * 100
EndIf
If CountryName = "Indonesia" Then
Var img_popup11 = "/img_popup11-IDR.png"
Var img_popup15 = "/img_popup15-IDR.png"
EndIf
Var PayAmount = AmountNumber
Var RemainAmount = PayAmount
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
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 = ""
1000
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
If ChangeStatus = "payout-end" Then
If ChangeFlag2 = 1 Then
Var ChangeOK = 1
EndIf
EndIf
Open "/media/bt/xml/security_alarm.xml"
TimerReset
Var CoinInFlag = 1
If ViewBill > 0 Then
Var RemainAmount = PayAmount - CoinAmount
If ViewBill > RemainAmount Then
Var RemainAmountKeep = ViewBill - RemainAmount
Var RemainAmountKeepStr !assigned StringFmt( RemainAmountKeep, DisplayFormat, PreScaleConvertShow )
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
Else
;CoinVending BILLSTACKALL
If ViewBill = RemainAmount Then
CoinVending BILLSTACKALL
Else
Var RemainAmountKeep = 0
Var RemainAmountKeepStr !assigned StringFmt( RemainAmountKeep, DisplayFormat, PreScaleConvertShow )
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
EndIf
EndIf
Var Timeout = 0
Var RemainAmountStr = "" + RemainAmount
Var showRemaining = charOfBaht + RemainAmountStr
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
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
Var RemainAmountStr !assigned StringFmt( 0, DisplayFormat, PreScaleConvertShow )
Else
If show_eng = "true" Then
Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Change " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = 0
Var RemainAmountStr !assigned StringFmt( 0, DisplayFormat, PreScaleConvertShow )
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
Var TxRef1 = ""
CreateTxRef1 TxRef1
Else
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
EndIf
Var Timeout = 0
Var showRemaining = charOfBaht + RemainAmountStr
EndIf
EndIf
Refresh
If CoinInFlag = 1 Then
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "VDCancle > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
If CoinAmount = 0 Then
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
EndIf
If Seeker.StoreCreditFlag = 1 Then
If show_eng = "true" Then
Var RemainAmountStr = "keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
EndIf
Refresh
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
EndIf
70 499 Var( DirImage + "/text_3.png" ) 252 1223 Var( DirImage + "/text_4.png" ) 0 1280 144 Center 1080
KanitRegularTTF
0xDE794E SumCreditAmount
; QR popup
0 380 "ROOT/taobin_project/image/page_payment/alpha.png" 182 748 Var( DirImage2 + img_popup11 ) 0 1023 144 Center 1080
KanitRegularTTF
0xDE794E RemainAmountStr 181 658 alphaState3 Var( DirImage2 + img_popup15 ) 0 1010 120 Center 1080
KanitRegularTTF
alphaState3 0xDE794E RemainAmountKeepStr