"Enable" 1080 1920 "0xeae6e1" SoundVolume ; On open Var Timeout = 0 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 alphaState = "Invisible" Var alphaState2 = "Enable" Var alphaState3 = "Invisible" INT AmountNumber Var img_popup11 = "/img_popup11.png" Var img_popup15 = "/img_popup15.png" ;inter-image If CountryName = "Malaysia" Then Var img_popup11 = "/img_popup11-MYR.png" Var img_popup15 = "/img_popup15-MYR.png" Var AmountNumber = AmountNumber * 100 EndIf ;inter-image If CountryName = "Indonesia" Then Var img_popup11 = "/img_popup11-IDR.png" Var img_popup15 = "/img_popup15-IDR.png" EndIf ;inter-image If CountryName = "Singapore" Then Var img_popup11 = "/img_popup11-SGP.png" Var img_popup15 = "/img_popup15-SGP.png" Var AmountNumber = AmountNumber * 100 EndIf Var CreditAmount = AmountNumber Var RemainAmount = CreditAmount - CoinAmount 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 ChangeTimeout = 0 Var CancelCounter = 0 Var ServiceAmount2 = CreditAmount Var ServiceCharge = 0 Var Donate = "" Var SuggestID = "" Var Seeker.StoreCreditFlag = 0 Var DrinkAmountStr !assigned StringFmt( PayAmountSubDiscount, DisplayFormat, PreScaleConvertShow ) Var NamePriceShow = showname + " " Var NamePriceShow = NamePriceShow + DrinkAmountStr If CoinInOK = 0 Then Var RemainAmount = CreditAmount - CoinAmount Var SumCoinAmount = CoinAmount If SumCoinAmount >= CreditAmount Then CoinVending OFF Var Canout = SumCoinAmount - CreditAmount 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 1000 Var Timeout = Timeout + 1 If Timeout > 180 Then If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "ButtonCancleAlpha2 > Timeout Order." If ReqPayWithCash = 1 Then Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 24 TelephoneNumber BmiYear PointCrm GetScore EndIf Var CancelFlag = 1 Var CancelCounter = 0 Var RemainAmountStr = "คืนเงิน" If CoinAmount = 0 Then Var RemainAmountStr = "ยกเลิก" Else CoinVending OFF 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_payment_credit3-TopupSuccess.xml" Else Var payCreditFlag = 0 If CoinAmount > 0 Then Var payCreditFlag = 1 EndIf If ChangeFlag2 = 1 Then Var payCreditFlag = 1 EndIf If payCreditFlag = 1 Then Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Var Seeker.CoffeePinNumber 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 PayCredit = 1 If Seeker = "curr" Then Open "ROOT/taobin_project/xml/page_catalog.xml" Else Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf Else Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" EndIf 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 >= CreditAmount Then Var Canout = SumCoinAmount - CreditAmount 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 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 TimerReset Var CoinInFlag = 1 DEBUGVAR ViewBill If ViewBill > 0 Then Var RemainAmount = CreditAmount - 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 = CreditAmount - CoinAmount Var SumCoinAmount = CoinAmount If SumCoinAmount >= CreditAmount Then CoinVending OFF Var Canout = SumCoinAmount - CreditAmount 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 Refresh Refresh 990 416 show_btn show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 0 380 "ROOT/taobin_project/image/collectiing/alpha.png" 182 748 Var( DirImage2 + img_popup11 ) 0 1041 144 Center 1080 KanitRegularTTF alphaState2 0xDE794E RemainAmountStr 253 1271 25 Right 500 KanitRegularTTF alphaState2 0x746253 NamePriceShow 397 1380 Var( DirImage + "/bn_cancel2.png" ) Var( DirImage + "/bn_cancel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "ButtonCancleAlpha2 > Cancle Order." If ReqPayWithCash = 1 Then Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 24 TelephoneNumber BmiYear PointCrm GetScore EndIf 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 Else CoinVending OFF EndIf If Seeker.StoreCreditFlag = 1 Then If show_eng = "true" Then Var RemainAmountStr = "Keep credit" Else Var RemainAmountStr = "เก็บเครดิต" EndIf EndIf If ViewBill > 0 Then CoinVending BILLREJECT EndIf EndIf EndIf Refresh 181 658 alphaState3 Var( DirImage2 + img_popup15 ) 0 1010 120 Center 1080 KanitRegularTTF alphaState3 0xDE794E RemainAmountKeepStr 330 1303 alphaState3 Var( DirImage + "/bn_confirm2.png" ) Var( DirImage + "/bp_confirm2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume CoinVending BILLSTACKALL Var Seeker.StoreCreditFlag = 1 Var alphaState3 = "Invisible" Refresh 330 1419 alphaState3 Var( DirImage + "/bn_cancel3.png" ) Var( DirImage + "/bp_cancel3.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If ViewBill > 0 Then CoinVending BILLREJECT EndIf Var alphaState3 = "Invisible" Refresh 145 820 ShowErrorText "Enable" Var( DirImage + text_show_error ) ;include="ROOT/taobin_project/inc/video.inc" Open "/media/bt/xml/security_alarm.xml"