"Enable" 1080 1920 "0xeae6e1" PlaySoundCodeLang SoundVolume "Partial" ; On open Var ECommerce = "" Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 Var GetPayInfoFlag = 0 ;Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" ;CoinVending OFF VendingQR OFF Var ShowTextNumber = "Enable" Var ShowErrorText = "Invisible" Var Tel_Confirm_State = "Invisible" Var ErrorCause = "" Var TextWaiting = "" Var ReqAdddata42 = 0 Var ReqAdddata22 = 0 Var goBackBtnState = "Enable" If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Else Var DirImage = "ROOT/taobin_project/image/collectiing" EndIf Var CouponNumber = "" 1000 ;Open "ROOT/xml/page_board.xml" Var Timeout = Timeout + 1 If Timeout > 120 Then Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" EndIf If ReqAdddata42 = 1 Then If Timeout = 3 Then If ReqAdddata22 = 0 Then Var SumCreditAndCouponAmount = IntAmoutCoupon + SumCreditAmount If SumCreditAndCouponAmount < PayAmountSubDiscount Then Var SumCreditAmount = SumCreditAndCouponAmount Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" Else GenHashWithTimeStamp PointCrm Var useCreditAmount = PayAmountSubDiscount Var BmiYear = useCreditAmount Var GetScore = "useCredit" AddData 22 TelephoneNumber BmiYear PointCrm GetScore Var ReqAdddata22 = 1 Var Timeout = 0 EndIf EndIf EndIf EndIf TimerReset Refresh If ReqAdddata22 = 1 Then Var Seeker.CreditReferenceTmp = "" + useCreditAmount Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/" Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm CoinVending OFF Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml" EndIf If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." DEBUGVAR ECommerce SAVELOG ECommerce SPLIT ECommerce "/" 5 CampaignID SPLIT ECommerce "/" 6 CampaignCode SPLIT ECommerce "/" 7 AmoutCoupon Var IntAmoutCoupon = AmoutCoupon INT IntAmoutCoupon If IntAmoutCoupon > 0 Then DEBUGVAR AmoutCoupon DEBUGVAR CampaignID DEBUGVAR CampaignCode Var PayAmount = AmoutCoupon Var CreditAmount = AmoutCoupon DEBUGVAR CreditAmount AddData 42 TelephoneNumber CampaignCode CampaignID AmoutCoupon Var Timeout = 0 Var ReqAdddata42 = 1 Var ReqAdddata22 = 0 Else Var ShowErrorText = "Enable" Var goBackBtnState = "Enable" Var text_show_error = DirImage + "/text_show_error.png" Var GetPayInfoFlag = 0 ;Var Seeker.CodeChannel = 0 EndIf EndIf If Seeker.CodeChannel = 1 Then Var CouponNumber = "" Var TextWaiting = "" Var goBackBtnState = "Enable" Var ShowErrorText = "Enable" SAVELOG ShowErrorText Var text_show_error = DirImage + "/text_show_error2.png" If ErrorCause = "failed_fromoper_0002" Then Var text_show_error = DirImage + "/text_show_error.png" EndIf If ErrorCause = "failed_fromoper_0005" Then Var text_show_error = DirImage + "/text_show_error3.png" EndIf If ErrorCause = "failed_fromoper_0006" Then Var text_show_error = DirImage + "/text_show_error4.png" EndIf If ErrorCause = "failed_fromoper_0007" Then Var text_show_error = DirImage + "/text_show_error7.png" EndIf If ErrorCause = "failed_fromoper_0008" Then Var text_show_error = DirImage + "/text_show_error8.png" EndIf Var GetPayInfoFlag = 0 ;Var Seeker.CodeChannel = 0 Var Tel_Confirm_State = "Disable" Refresh EndIf 0 380 "ROOT/taobin_project/image/collectiing/alpha.png" 158 601 "ROOT/taobin_project/image/collectiing/img_popup1.png" 263 1004 "ROOT/taobin_project/image/collectiing/bn_1.png" "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "1" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 405 1004 "ROOT/taobin_project/image/collectiing/bn_2.png" "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "2" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 547 1004 "ROOT/taobin_project/image/collectiing/bn_3.png" "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "3" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 691 1004 "ROOT/taobin_project/image/collectiing/bn_A.png" "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "A" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 263 1148 "ROOT/taobin_project/image/collectiing/bn_4.png" "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "4" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 405 1148 "ROOT/taobin_project/image/collectiing/bn_5.png" "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "5" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 547 1148 "ROOT/taobin_project/image/collectiing/bn_6.png" "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "6" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 691 1148 "ROOT/taobin_project/image/collectiing/bn_B.png" "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "B" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 263 1292 "ROOT/taobin_project/image/collectiing/bn_7.png" "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "7" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 405 1292 "ROOT/taobin_project/image/collectiing/bn_8.png" "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "8" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 547 1292 "ROOT/taobin_project/image/collectiing/bn_9.png" "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "9" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 691 1292 "ROOT/taobin_project/image/collectiing/bn_C.png" "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "C" Var ShowTextNumber = "Invisible" Trim CouponNumber 8 TimerReset Refresh StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 405 1432 "ROOT/taobin_project/image/collectiing/bn_0.png" "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var CouponNumber = CouponNumber + "0" Trim CouponNumber 8 StrLen CouponNumber CodeNumLen If CodeNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowTextNumber = "Invisible" TimerReset Refresh Var ShowErrorText = "Invisible" 263 1432 "ROOT/taobin_project/image/collectiing/bn_sh.png" "ROOT/taobin_project/image/collectiing/bp_sh.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 ;Var CouponNumber = CouponNumber + "0" Trim CouponNumber 8 StrLen CouponNumber CodeNumLen If CodeNumLen = 0 Then Var ShowTextNumber = "Invisible" Var Mode# = 1 Var Str# = "#" EndIf TimerReset Refresh Var ShowErrorText = "Invisible" 547 1432 "ROOT/taobin_project/image/collectiing/bn_back-1.png" "ROOT/taobin_project/image/collectiing/bp_back-1.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var Tel_Confirm_State = "Invisible" StrLen CouponNumber CodeNumLen If CodeNumLen > 0 Then Trim CouponNumber -1 If CodeNumLen = 1 Then Var ShowTextNumber = "Enable" EndIf Else Var ShowTextNumber = "Enable" EndIf ;Var ShowErrorText = "Invisible" TimerReset Refresh 218 1607 Var( DirImage + "/bn_back.png") Var( DirImage + "/bp_back.png") Var( DirImage + "/bp_back.png") goBackBtnState "ROOT/sounds/codebuttom.wav" SoundVolume If goBackBtnState = "Enable" Then Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" EndIf 577 1607 "Enable" Tel_Confirm_State Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume If UnitTestType = "2" Then If CouponNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else If CouponNumber = "00000002" Then Var ShowErrorText = "Enable" EndIf If CouponNumber = "99999999" Then Var ShowErrorText = "Enable" EndIf If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 VendingQR OFF Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber2 = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + "0" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "0" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "1" Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + "000001" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "00-00-00-0000" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C00" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + CouponNumber Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "A" Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc Var Timeout = 0 If show_eng = "true" Then Var TextWaiting = "Please wait..." Else Var TextWaiting = "กรุณารอซักครู่..." EndIf Var goBackBtnState = "Disable" Var Seeker.CodeChannel = 1 EndIf EndIf SAVELOG ShowTextNumber Refresh 217 802 Var( DirImage + "/img3.png" ) 244 816 ShowTextNumber "Enable" Var( DirImage + "/text_12.png" ) 0 817 1080 Center 62 RobotoBlack 0x513C2F "Enable" CouponNumber 188 636 Var( DirImage + "/text_11.png" ) 152 935 "Enable" ShowErrorText text_show_error 5 940 "Enable" 30 Center 1080 RobotoRegular 0xFF0000 TextWaiting ;include="ROOT/taobin_project/inc/video.inc" Open "/media/bt/xml/security_alarm.xml"