diff --git a/image/collectiing/bn_number.png b/image/collectiing/bn_number.png new file mode 100644 index 00000000..19ebfdcc Binary files /dev/null and b/image/collectiing/bn_number.png differ diff --git a/image/collectiing/bn_other.png b/image/collectiing/bn_other.png new file mode 100644 index 00000000..8fcc3244 Binary files /dev/null and b/image/collectiing/bn_other.png differ diff --git a/image/collectiing/bp_number.png b/image/collectiing/bp_number.png new file mode 100644 index 00000000..36b10928 Binary files /dev/null and b/image/collectiing/bp_number.png differ diff --git a/image/collectiing/bp_other.png b/image/collectiing/bp_other.png new file mode 100644 index 00000000..4f4bd468 Binary files /dev/null and b/image/collectiing/bp_other.png differ diff --git a/image/collectiing/img_popup21.png b/image/collectiing/img_popup21.png new file mode 100644 index 00000000..3aa5a297 Binary files /dev/null and b/image/collectiing/img_popup21.png differ diff --git a/image/collectiing/text_13-2.png b/image/collectiing/text_13-2.png new file mode 100644 index 00000000..e3f5b2b6 Binary files /dev/null and b/image/collectiing/text_13-2.png differ diff --git a/image/collectiing_en/bn_number.png b/image/collectiing_en/bn_number.png new file mode 100644 index 00000000..19ebfdcc Binary files /dev/null and b/image/collectiing_en/bn_number.png differ diff --git a/image/collectiing_en/bn_other.png b/image/collectiing_en/bn_other.png new file mode 100644 index 00000000..62cc6247 Binary files /dev/null and b/image/collectiing_en/bn_other.png differ diff --git a/image/collectiing_en/bp_number.png b/image/collectiing_en/bp_number.png new file mode 100644 index 00000000..36b10928 Binary files /dev/null and b/image/collectiing_en/bp_number.png differ diff --git a/image/collectiing_en/bp_other.png b/image/collectiing_en/bp_other.png new file mode 100644 index 00000000..9ce45ee6 Binary files /dev/null and b/image/collectiing_en/bp_other.png differ diff --git a/image/collectiing_en/img_popup21.png b/image/collectiing_en/img_popup21.png new file mode 100644 index 00000000..40e6fd88 Binary files /dev/null and b/image/collectiing_en/img_popup21.png differ diff --git a/image/collectiing_en/text_13-2.png b/image/collectiing_en/text_13-2.png new file mode 100644 index 00000000..6d9aeceb Binary files /dev/null and b/image/collectiing_en/text_13-2.png differ diff --git a/image/page_payment/bn_topup_credit.png b/image/page_payment/bn_topup_credit.png new file mode 100644 index 00000000..d65dc018 Binary files /dev/null and b/image/page_payment/bn_topup_credit.png differ diff --git a/image/page_payment/bp_topup_credit.png b/image/page_payment/bp_topup_credit.png new file mode 100644 index 00000000..43f07a84 Binary files /dev/null and b/image/page_payment/bp_topup_credit.png differ diff --git a/image/page_payment_en/page_payment/bn_topup_credit.png b/image/page_payment_en/page_payment/bn_topup_credit.png new file mode 100644 index 00000000..db94981b Binary files /dev/null and b/image/page_payment_en/page_payment/bn_topup_credit.png differ diff --git a/image/page_payment_en/page_payment/bp_topup_credit.png b/image/page_payment_en/page_payment/bp_topup_credit.png new file mode 100644 index 00000000..7f35e388 Binary files /dev/null and b/image/page_payment_en/page_payment/bp_topup_credit.png differ diff --git a/xml/page_brewing3.xml b/xml/page_brewing3.xml index 109ba26b..5d45b8b4 100644 --- a/xml/page_brewing3.xml +++ b/xml/page_brewing3.xml @@ -307,8 +307,11 @@ Var next_pic_bp = DirImage + "/bp_add_order.png" Var text_next_order = DirImage + "/text_next_order.png" Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" - + Var topup_credit_bn = DirImage + "/bn_topup_credit.png" + Var topup_credit_bp = DirImage + "/bp_topup_credit.png" + Var EnableTopupCreditBetweenBrew = "Invisible" + Var Seeker.strawAction = 0 Var Seeker.lidAction = 0 @@ -1887,6 +1890,35 @@ EndIf + + + + + diff --git a/xml/page_topup_credit-ChooseNumber.xml b/xml/page_topup_credit-ChooseNumber.xml new file mode 100644 index 00000000..2c4bb8f5 --- /dev/null +++ b/xml/page_topup_credit-ChooseNumber.xml @@ -0,0 +1,228 @@ + + + "Enable" + 1080 + 1920 + "0xeae6e1" + + SoundVolume + "Partial" + + ; On open + + + + Var Timeout = 0 + + ;Var TelephoneNumber = "0617944956" + + Var ShowTextNumber = "Enable" + Var ShowErrorText = "Invisible" + Var ShowErrorText2 = "Invisible" + Var Tel_Confirm_State = "Invisible" + + Var GetCreditFlag = 0 + + If show_eng = "true" Then + Var DirImage = "ROOT/taobin_project/image/collectiing_en" + Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en" + Else + Var DirImage = "ROOT/taobin_project/image/collectiing" + Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend" + EndIf + + + Var Ext1a = "" + + Var GetAccFlag = 0 + + Var AcceptAuto = "false" + + + Var PosX_Cancel = 397 + + + + 1000 + + + Var Timeout = Timeout + 1 + If Timeout > 60 Then + + ;Open "ROOT/taobin_project/xml/page_catalog2.xml" + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + + EndIf + + + TimerReset + + + + + + + + If ViewBill > 0 Then + CoinVending BILLREJECT + EndIf + + + + + + + If GetAccFlag = 1 Then + If Ext1a = "ok" Then + Var PinNumberUser = Ext1c + Var CoffeeCredit = Ext1b + INT CoffeeCredit + + + + + DEBUGVAR PinNumberUser + + Open "ROOT/taobin_project/xml/page_topup_credit2.xml" + Else + DEBUGVAR Ext1a + + Var ShowErrorText = "Enable" + EndIf + EndIf + + Refresh + + + + If GetAccFlag = 1 Then + Var ShowErrorText = "Enable" + EndIf + Refresh + + + + + + 0 + 380 + "ROOT/taobin_project/image/collectiing/alpha.png" + + + + 182 + 748 + Var( DirImage + "/img_popup21.png" ) + + + + + + 444 + 945 + ShowErrorText + "Enable" + Var( DirImage + "/text_show_notOperate.png") + + + + + + + + + + + + + + + + 0 + 1225 + 1080 + Center + 38 + RobotoBlack + 0xFFFFFF + "Enable" + TelephoneNumber + Telnum-mask-1 + + + +;include="ROOT/taobin_project/inc/video.inc" + + + + Open "/media/bt/xml/security_alarm.xml" + + + + + Var Tel2DFlag = 0 + + Var Tel2D = TelephoneNumber + Trim Tel2D 1 + + If Tel2D = "0" Then + Var Tel2DFlag = 1 + EndIf + + + If Tel2DFlag = 1 Then + + + + Var GetAccFlag = 1 + GETACCEXT TelephoneNumber 19 + Else + + Var ShowErrorText2 = "Enable" + ;Var TelephoneNumber = "" + Var Tel_Confirm_State = "Invisible" + Refresh + + EndIf + + + + diff --git a/xml/page_topup_credit.xml b/xml/page_topup_credit.xml new file mode 100644 index 00000000..7685dc99 --- /dev/null +++ b/xml/page_topup_credit.xml @@ -0,0 +1,624 @@ + + + "Enable" + 1080 + 1920 + "0xeae6e1" + + SoundVolume + "Partial" + + ; On open + + VendingQR OFF + + Var Timeout = 0 + + Var TelephoneNumber = "" + + Var ShowTextNumber = "Enable" + Var ShowErrorText = "Invisible" + Var ShowErrorText2 = "Invisible" + Var Tel_Confirm_State = "Invisible" + + Var GetCreditFlag = 0 + + If show_eng = "true" Then + Var DirImage = "ROOT/taobin_project/image/collectiing_en" + Else + Var DirImage = "ROOT/taobin_project/image/collectiing" + EndIf + + + Var Ext1a = "" + + Var GetAccFlag = 0 + + Var AcceptAuto = "false" + + + + If show_eng = "true" Then + PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_phone_for_credits.mp3" + Else + PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_phone_for_credits.mp3" + EndIf + + + + + Var MaxNumber = 10 + Var PosX_Cancel = 397 + + ;Var CountryName = "Malaysia" + + ;inter-max-number + If CountryName = "Malaysia" Then + Var MaxNumber = 11 + Var PosX_Cancel = 218 + EndIf + + ;inter-max-number + If CountryName = "Indonesia" Then + Var MaxNumber = 12 + Var PosX_Cancel = 218 + EndIf + + + + + + + + 1000 + + + Var Timeout = Timeout + 1 + If Timeout > 30 Then + + ;Open "ROOT/taobin_project/xml/page_catalog2.xml" + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + + EndIf + + + TimerReset + + + + + + + + If ViewBill > 0 Then + CoinVending BILLREJECT + EndIf + + + + + + + If GetAccFlag = 1 Then + If Ext1a = "ok" Then + Var PinNumberUser = Ext1c + Var CoffeeCredit = Ext1b + INT CoffeeCredit + + + + + DEBUGVAR PinNumberUser + + Open "ROOT/taobin_project/xml/page_topup_credit2.xml" + Else + DEBUGVAR Ext1a + + Var ShowErrorText = "Enable" + EndIf + EndIf + + Refresh + + + + If GetAccFlag = 1 Then + Var ShowErrorText = "Enable" + EndIf + Refresh + + + + + + 0 + 380 + "ROOT/taobin_project/image/collectiing/alpha.png" + + + + + 158 + 601 + "ROOT/taobin_project/image/collectiing/img_popup1.png" + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 217 + 802 + Var( DirImage + "/img3.png" ) + + + + 244 + 817 + ShowTextNumber + "Enable" + Var( DirImage + "/text14.png" ) + + + + 248 + 836 + ShowTextNumber + "Enable" + Var( DirImage + "/Group.png" ) + + + + + 0 + 817 + 1080 + Center + 62 + RobotoBlack + 0x513C2F + "Enable" + TelephoneNumber + Telnum-mask-1 + + + + + + + 188 + 626 + Var( DirImage + "/text_13-2.png" ) + + + + 444 + 945 + ShowErrorText + "Enable" + Var( DirImage + "/text_show_notfound.png") + + + + 152 + 920 + ShowErrorText2 + "Enable" + Var( DirImage + "/text_show_error5.png") + + +;include="ROOT/taobin_project/inc/video.inc" + + + + Open "/media/bt/xml/security_alarm.xml" + + + + + Var Tel2DFlag = 0 + + Var Tel2D = TelephoneNumber + Trim Tel2D 1 + + If Tel2D = "0" Then + Var Tel2DFlag = 1 + EndIf + + + If Tel2DFlag = 1 Then + + + + Var GetAccFlag = 1 + GETACCEXT TelephoneNumber 19 + Else + + Var ShowErrorText2 = "Enable" + ;Var TelephoneNumber = "" + Var Tel_Confirm_State = "Invisible" + Refresh + + EndIf + + + + diff --git a/xml/page_topup_credit2.xml b/xml/page_topup_credit2.xml new file mode 100644 index 00000000..a67a2dfa --- /dev/null +++ b/xml/page_topup_credit2.xml @@ -0,0 +1,826 @@ + + + "Enable" + 1080 + 1920 + "0xeae6e1" + + SoundVolume + "Partial" + + ; On open + + + + Var useCreditAmount = 0; + Var useCreditTemp = 0; + + Var Timeout = 0 + Var TimeoutSMS = 0 + Var StateBGetSMS = "Enable" + + + Var ShowSentSmsText = "Invisible" + + Var ShowTextNumber1 = "Invisible" + Var ShowTextNumber2 = "Invisible" + Var ShowTextNumber3 = "Invisible" + Var ShowTextNumber4 = "Invisible" + + Var ShowErrorText = "Invisible" + Var Tel_Confirm_State = "Invisible" + + Var PinNumber = "" + + Var ReqFlag = 0 + + Var Xtext = 246 + + + If show_eng = "true" Then + Var DirImage = "ROOT/taobin_project/image/collectiing_en" + Var Xtext = 246 + Else + Var DirImage = "ROOT/taobin_project/image/collectiing" + EndIf + + Var Ext1a = "" + + Var ReqAdddata22 = 0 + Var timeout_Adddata22 = 0 + + + + + If show_eng = "true" Then + PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_4_digits_pin.mp3" + Else + PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_4_digits_pin.mp3" + EndIf + + + + + + + 1000 + + + + Var Timeout = Timeout + 1 + If Timeout > 30 Then + Open "ROOT/taobin_project/xml/page_topup_credit.xml" + EndIf + + If StateBGetSMS = "Disable" Then + + Var TimeoutSMS = TimeoutSMS + 1 + If TimeoutSMS > 30 Then + + Var StateBGetSMS = "Enable" + Var TimeoutSMS = 0 + + Refresh + + EndIf + + EndIf + + TimerReset + + + + + + + + + + + + If ViewBill > 0 Then + CoinVending BILLREJECT + EndIf + + + + + + + + If ReqFlag = 0 Then + Else + EndIf + + Refresh + + + + Var ShowErrorText = "Enable" + Refresh + + + + + + + + + 0 + 380 + "ROOT/taobin_project/image/collectiing/alpha.png" + + + + + 158 + 601 + "ROOT/taobin_project/image/collectiing/img_popup1.png" + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 242 + 830 + Var( DirImage + "/img4.png" ) + + + + 289 + 870 + ShowTextNumber1 + "Enable" + Var( DirImage + "/text_X.png" ) + + + + 446 + 870 + ShowTextNumber2 + "Enable" + Var( DirImage + "/text_X.png" ) + + + + 603 + 870 + ShowTextNumber3 + "Enable" + Var( DirImage + "/text_X.png" ) + + + + 758 + 870 + ShowTextNumber4 + "Enable" + Var( DirImage + "/text_X.png" ) + + + + + + + + + + + + 188 + 699 + Var( DirImage + "/text_16.png" ) + + + + 444 + 945 + "Enable" + ShowErrorText + Var( DirImage + "/text_show_notfound.png") + + + + Xtext + 945 + "Enable" + ShowSentSmsText + Var( DirImage + "/text_show_sentSMS.png") + + + +;include="ROOT/taobin_project/inc/video.inc" + + + + + Open "/media/bt/xml/security_alarm.xml" + + + + + + Var ShowSentSmsText = "Invisible" + Var Timeout = 0 + + If PinNumberUser = PinNumber Then + + Var SumCreditAmount = CoffeeCredit + + + + Var ShowNotEnoughText = "Invisible" + Var Seeker.TNumberTaobinCredit = TelephoneNumber + Var Seeker.CoffeePinNumber = PinNumber + Open "ROOT/taobin_project/xml/page_topup_credit3-1.xml" + + + Else + + Var ShowErrorText = "Enable" + Var PinNumber = "" + Var ShowTextNumber1 = "Invisible" + Var ShowTextNumber2 = "Invisible" + Var ShowTextNumber3 = "Invisible" + Var ShowTextNumber4 = "Invisible" + + EndIf + + Var ReqFlag = 0 + Refresh + + + + + + + + + + + + + + + diff --git a/xml/page_topup_credit3-1.xml b/xml/page_topup_credit3-1.xml new file mode 100644 index 00000000..06cbadc8 --- /dev/null +++ b/xml/page_topup_credit3-1.xml @@ -0,0 +1,182 @@ + + + "Enable" + 1080 + 1920 + "0xeae6e1" + + SoundVolume + + + ; On open + + 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 + + + Var img_popup11 = "/img_popup19.png" + + ;inter-image + If CountryName = "Malaysia" Then + Var img_popup11 = "/img_popup19.png" + EndIf + + ;inter-image + If CountryName = "Indonesia" Then + Var img_popup11 = "/img_popup19.png" + EndIf + + Var showRemaining !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow ) + + Var ShowErrorText = "Enable" + Var ReqAdddata22 = 0 + Var timeout_Adddata22 = 0 + GenHashWithTimeStamp PointCrm + + + + 1000 + + + Var Timeout = Timeout + 1 + + If Timeout > 60 Then + + Open "ROOT/taobin_project/xml/page_catalog2.xml" + + EndIf + + + Refresh + TimerReset + + + + + + + + + + + + + If ViewBill > 0 Then + CoinVending BILLREJECT + Else + + EndIf + + + + + + + 0 + 380 + "ROOT/taobin_project/image/collectiing/alpha.png" + + + + + 181 + 672 + Var( DirImage + img_popup11 ) + + + + 181 + 1044 + ShowNotEnoughText + Var( DirImage + "/text_show_notEnough2.png") + + + + 0 + 845 + 144 + Center + 1080 + KanitRegularTTF + + 0xDE794E + showRemaining + + + + + + + + + + + + +;include="ROOT/taobin_project/inc/video.inc" + + + Open "/media/bt/xml/security_alarm.xml" + + + diff --git a/xml/page_topup_credit3-Topup.xml b/xml/page_topup_credit3-Topup.xml new file mode 100644 index 00000000..3b49890a --- /dev/null +++ b/xml/page_topup_credit3-Topup.xml @@ -0,0 +1,714 @@ + + + "Enable" + 1080 + 1920 + "0xeae6e1" + + SoundVolume + "Partial" + + ; On open + + VendingQR OFF + + Var Timeout = 0 + + Var AmountNumber = "" + + Var ShowTextNumber = "Enable" + Var ShowErrorText = "Invisible" + Var Tel_Confirm_State = "Invisible" + + Var GetCreditFlag = 0 + + + If show_eng = "true" Then + Var DirImage = "ROOT/taobin_project/image/collectiing_en" + Else + Var DirImage = "ROOT/taobin_project/image/collectiing" + 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 Ext1a = "" + + Var GetAccFlag = 0 + + Var GetPayInfoFlag = 0 + + Var ReqPayWithCash = 0 + + Var TextWaiting = "" + + GenHashWithTimeStamp PointCrm + + Var text_44 = "/text_27.png" + Var text_show_amountInvalid = "/text_show_amountInvalid.png" + Var text_show_amountInvalid2 = "/text_show_amountInvalid2.png" + + + Var text_44 = "/text_27.png" + If show_eng = "true" Then + Var Text_X = 188 + Var posX = 350 + Else + Var Text_X = 188 + Var posX = 380 + EndIf + + + + Var Min = 20 + + Var Max = 5000 + + ;inter-image + If CountryName = "Malaysia" Then + Var text_44 = "/text_44-MYR.png" + Var text_show_amountInvalid = "/text_show_amountInvalid-MYR.png" + Var text_show_amountInvalid2 = "/text_show_amountInvalid2-MYR.png" + + Var Min = 2 + Var Max = 500 + + EndIf + + ;inter-image + If CountryName = "Singapore" Then + Var text_44 = "/text_44-SGP.png" + Var text_show_amountInvalid = "/text_show_amountInvalid-SGP.png" + Var text_show_amountInvalid2 = "/text_show_amountInvalid2-SGP.png" + + Var Min = 2 + Var Max = 500 + + EndIf + + ;inter-image + If CountryName = "Indonesia" Then + Var text_44 = "/text_44-IDR.png" + Var text_show_amountInvalid = "/text_show_amountInvalid-IDR.png" + Var text_show_amountInvalid2 = "/text_show_amountInvalid2-IDR.png" + + Var Min = 9000 + Var Max = 2000000 + + EndIf + + + + 1000 + + + Var Timeout = Timeout + 1 + If Timeout > 60 Then + + + Open "ROOT/taobin_project/xml/page_topup_credit3-1.xml" + + EndIf + + + TimerReset + + + + + + + +If ViewBill > 0 Then + CoinVending BILLREJECT + EndIf + + + + + + If GetPayInfoFlag = 1 Then + Var VendingQRCode = "OK" + Var CashTextWarning = "" + Var QRErrorState = "Invisible" + Var QRCODE99 = SessionID + Var QRCODE99 = QRCODE99 + Ext1a + Var QRCODE99 = QRCODE99 + Ext21 + Var QRCODETMP = QRCODE99 + Var ReqPayInfoFlag = 0 + Var VendingExtResult = "" + Open "ROOT/taobin_project/xml/page_topup_credit3-TopupQR.xml" + EndIf + + + + Refresh + + + + If GetPayInfoFlag = 1 Then + Var QRCODE99 = "" + If show_eng = "true" Then + Var TextWaiting = "Unable to use QR, please try again later." + Else + Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง." + EndIf + + + Var AmountNumber = "" + Var Tel_Confirm_State = "Invisible" + + + EndIf + Refresh + + + + + + + + 0 + 380 + "ROOT/taobin_project/image/collectiing/alpha.png" + + + + + 158 + 601 + "ROOT/taobin_project/image/collectiing/img_popup1.png" + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 217 + 802 + Var( DirImage + "/img3.png" ) + + + + + Text_X + 650 + "Enable" + Var( DirImage + text_44 ) + + + + + 0 + 817 + 1080 + Center + 62 + RobotoBlack + 0x513C2F + "Enable" + AmountNumber + + + + + 145 + 820 + ShowErrorText + "Enable" + Var( DirImage + text_show_error ) + + + + + +;include="ROOT/taobin_project/inc/video.inc" + + + + 5 + 940 + "Enable" + 30 + Center + 1080 + RobotoRegular + 0xFF0000 + TextWaiting + + + + + + + + Open "/media/bt/xml/security_alarm.xml" + + + + + + + diff --git a/xml/page_topup_credit3-TopupCash.xml b/xml/page_topup_credit3-TopupCash.xml new file mode 100644 index 00000000..12d83493 --- /dev/null +++ b/xml/page_topup_credit3-TopupCash.xml @@ -0,0 +1,624 @@ + + + "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." + + CoinVending OFF + + Var CancelFlag = 1 + Var CancelCounter = 0 + Var RemainAmountStr = "คืนเงิน" + If CoinAmount = 0 Then + Var RemainAmountStr = "ยกเลิก" + Else + + 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 + + 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" + Var PayDetail = "" + + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + Var PayCredit = 1 + + + + Open "ROOT/taobin_project/xml/page_topup_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" + Var PayDetail = "" + + Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate + Var PayCredit = 1 + + + ;Open "ROOT/taobin_project/xml/page_catalog2.xml" + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + + Else + + Open "ROOT/taobin_project/xml/page_topup_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 + + + + + + + + 0 + 380 + "ROOT/taobin_project/image/collectiing/alpha.png" + + + + + 182 + 748 + Var( DirImage2 + img_popup11 ) + + + + + + + 0 + 1041 + 144 + Center + 1080 + KanitRegularTTF + alphaState2 + 0xDE794E + RemainAmountStr + + + + + + + + + + + + + + 181 + 658 + alphaState3 + Var( DirImage2 + img_popup15 ) + + + + 0 + 1010 + 120 + Center + 1080 + KanitRegularTTF + alphaState3 + 0xDE794E + RemainAmountKeepStr + + + + + + + + + + 145 + 820 + ShowErrorText + "Enable" + Var( DirImage + text_show_error ) + + + +;include="ROOT/taobin_project/inc/video.inc" + + + Open "/media/bt/xml/security_alarm.xml" + + + diff --git a/xml/page_topup_credit3-TopupCode.xml b/xml/page_topup_credit3-TopupCode.xml new file mode 100644 index 00000000..dc2ebd57 --- /dev/null +++ b/xml/page_topup_credit3-TopupCode.xml @@ -0,0 +1,696 @@ + + + "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_topup_credit3-1.xml" + + EndIf + + If ReqAdddata42 = 1 Then + If Timeout = 3 Then + + Open "ROOT/taobin_project/xml/page_topup_credit3-TopupSuccess.xml" + + EndIf + EndIf + + TimerReset + Refresh + + + + + 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" + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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" + + + + diff --git a/xml/page_topup_credit3-TopupQR.xml b/xml/page_topup_credit3-TopupQR.xml new file mode 100644 index 00000000..ceab470a --- /dev/null +++ b/xml/page_topup_credit3-TopupQR.xml @@ -0,0 +1,190 @@ + + + "Enable" + 1080 + 1920 + "0xeae6e1" + SoundVolume + + ; On open + + 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 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 = "Enable" + Var ReqAdddata22 = 0 + Var PayCreditOK = 0 + + Var ReqAdddata22_Error = 0 + Var Timeout_Error = 0 + + + + If ViewBill > 0 Then + CoinVending BILLREJECT + EndIf + + + + + + 1000 + + + Var Timeout = Timeout + 1 + If Timeout > 60 Then + + + + Open "ROOT/taobin_project/xml/page_topup_credit3-1.xml" + + EndIf + + If ReqAdddata22_Error = 1 Then + + Var Timeout_Error = Timeout_Error + 1 + If Timeout_Error >= 5 Then + + + Open "ROOT/taobin_project/xml/page_topup_credit3-1.xml" + + EndIf + + EndIf + + + TimerReset + + + + + + + +If ViewBill > 0 Then + CoinVending BILLREJECT + EndIf + + + + + + If VendingExtResult = "" Then + Else + Var VendingExtResult = "" + + Open "ROOT/taobin_project/xml/page_topup_credit3-TopupSuccess.xml" + + EndIf + + Refresh + + + + + If ReqAdddata22 = 1 Then + Var ShowErrorText = "Enable" + Var ReqAdddata22_Error = 1 + EndIf + + Refresh + + + + + + + + 0 + 380 + "ROOT/taobin_project/image/collectiing/alpha.png" + + + + + 249 + 748 + Var( DirImage + "/img_popup20.png") + + + + + + + + + + + + + + + + + + + 445 + 958 + 200 + 200 + alphaState + testservice + + + + 181 + 758 + ShowErrorText + Var( DirImage + "/img_popup20-Failed.png" ) + + +;include="ROOT/taobin_project/inc/video.inc" + + + + Open "/media/bt/xml/security_alarm.xml" + + + diff --git a/xml/page_topup_credit3-TopupSuccess.xml b/xml/page_topup_credit3-TopupSuccess.xml new file mode 100644 index 00000000..6a9769a4 --- /dev/null +++ b/xml/page_topup_credit3-TopupSuccess.xml @@ -0,0 +1,129 @@ + + "Enable" + 1080 + 1920 + "0xeae6e1" + SoundVolume + + + ; On open + + Var Timeout = 0 + DEBUGVAR SumCreditAmount + If PayCreditChannel = "cash" Then + Var SumCreditAmount = SumCreditAmount + CoinAmount + Else + INT CreditAmount + DEBUGVAR CreditAmount + Var SumCreditAmount = SumCreditAmount + CreditAmount + EndIf + Var SumCreditAmount = SumCreditAmount + Var VendingCreditRemain = "" + SumCreditAmount + Var SumCreditAmountStr !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow ) + + Var text_4 = "/text_4.png" + + ;inter-image + If CountryName = "Malaysia" Then + Var PayState3 = "Invisible" + Var text_4 = "/text_4-MYR.png" + EndIf + + ;inter-image + If CountryName = "Indonesia" Then + Var text_4 = "/text_4-IDR.png" + EndIf + + + + + 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 DirImage3 = "ROOT/taobin_project/image/collectiing_en" + Else + Var DirImage3 = "ROOT/taobin_project/image/collectiing" + 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 + + + + 1000 + + + Var Timeout = Timeout + 1 + If Timeout > 3 Then + ;Open "ROOT/taobin_project/xml/page_catalog2.xml" + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + EndIf + + TimerReset + Refresh + + + + + + + + Open "/media/bt/xml/security_alarm.xml" + + + + + + + + + +;include="ROOT/taobin_project/inc/video.inc" + + + + 70 + 741 + Var( DirImage + "/PaymentSuccess.png" ) + + + + 252 + 1053 + Var( DirImage + text_4 ) + + + + + 0 + 1123 + 120 + Center + 1080 + KanitRegularTTF + 0xDE794E + SumCreditAmountStr + + + + \ No newline at end of file