diff --git a/image/collectiing/bn_cancel4.png b/image/collectiing/bn_cancel4.png new file mode 100644 index 00000000..34de69fb Binary files /dev/null and b/image/collectiing/bn_cancel4.png differ diff --git a/image/collectiing/bn_cancel5.png b/image/collectiing/bn_cancel5.png new file mode 100644 index 00000000..dc847a5f Binary files /dev/null and b/image/collectiing/bn_cancel5.png differ diff --git a/image/collectiing/bn_topup_with_cash.png b/image/collectiing/bn_topup_with_cash.png new file mode 100644 index 00000000..c4043053 Binary files /dev/null and b/image/collectiing/bn_topup_with_cash.png differ diff --git a/image/collectiing/bn_topup_with_code.png b/image/collectiing/bn_topup_with_code.png new file mode 100644 index 00000000..b9b98ad4 Binary files /dev/null and b/image/collectiing/bn_topup_with_code.png differ diff --git a/image/collectiing/bn_topup_with_qr.png b/image/collectiing/bn_topup_with_qr.png new file mode 100644 index 00000000..8ba86e22 Binary files /dev/null and b/image/collectiing/bn_topup_with_qr.png differ diff --git a/image/collectiing/bn_useCredit2.png b/image/collectiing/bn_useCredit2.png new file mode 100644 index 00000000..b13dbfdf Binary files /dev/null and b/image/collectiing/bn_useCredit2.png differ diff --git a/image/collectiing/bn_useCredit3.png b/image/collectiing/bn_useCredit3.png new file mode 100644 index 00000000..6791b446 Binary files /dev/null and b/image/collectiing/bn_useCredit3.png differ diff --git a/image/collectiing/bp_cancel4.png b/image/collectiing/bp_cancel4.png new file mode 100644 index 00000000..b3b6efed Binary files /dev/null and b/image/collectiing/bp_cancel4.png differ diff --git a/image/collectiing/bp_cancel5.png b/image/collectiing/bp_cancel5.png new file mode 100644 index 00000000..191e7fb6 Binary files /dev/null and b/image/collectiing/bp_cancel5.png differ diff --git a/image/collectiing/bp_topup_with_cash.png b/image/collectiing/bp_topup_with_cash.png new file mode 100644 index 00000000..ba33555d Binary files /dev/null and b/image/collectiing/bp_topup_with_cash.png differ diff --git a/image/collectiing/bp_topup_with_code.png b/image/collectiing/bp_topup_with_code.png new file mode 100644 index 00000000..3d1daea0 Binary files /dev/null and b/image/collectiing/bp_topup_with_code.png differ diff --git a/image/collectiing/bp_topup_with_qr.png b/image/collectiing/bp_topup_with_qr.png new file mode 100644 index 00000000..acf8954e Binary files /dev/null and b/image/collectiing/bp_topup_with_qr.png differ diff --git a/image/collectiing/bp_useCredit2.png b/image/collectiing/bp_useCredit2.png new file mode 100644 index 00000000..b847d9f4 Binary files /dev/null and b/image/collectiing/bp_useCredit2.png differ diff --git a/image/collectiing/bp_useCredit3.png b/image/collectiing/bp_useCredit3.png new file mode 100644 index 00000000..eded710d Binary files /dev/null and b/image/collectiing/bp_useCredit3.png differ diff --git a/image/collectiing/img_popup18.png b/image/collectiing/img_popup18.png new file mode 100644 index 00000000..24d8c151 Binary files /dev/null and b/image/collectiing/img_popup18.png differ diff --git a/image/collectiing/img_popup19.png b/image/collectiing/img_popup19.png new file mode 100644 index 00000000..6078075a Binary files /dev/null and b/image/collectiing/img_popup19.png differ diff --git a/image/collectiing/img_popup20-Failed.png b/image/collectiing/img_popup20-Failed.png new file mode 100644 index 00000000..deb67819 Binary files /dev/null and b/image/collectiing/img_popup20-Failed.png differ diff --git a/image/collectiing/img_popup20.png b/image/collectiing/img_popup20.png new file mode 100644 index 00000000..008830b8 Binary files /dev/null and b/image/collectiing/img_popup20.png differ diff --git a/image/collectiing/text_44.png b/image/collectiing/text_44.png new file mode 100644 index 00000000..f3bae95d Binary files /dev/null and b/image/collectiing/text_44.png differ diff --git a/image/collectiing/text_show_notEnough2.png b/image/collectiing/text_show_notEnough2.png new file mode 100644 index 00000000..fb61f501 Binary files /dev/null and b/image/collectiing/text_show_notEnough2.png differ diff --git a/image/collectiing/text_show_notOperate.png b/image/collectiing/text_show_notOperate.png new file mode 100644 index 00000000..6e7da0c8 Binary files /dev/null and b/image/collectiing/text_show_notOperate.png differ diff --git a/image/collectiing_en/bn_cancel4.png b/image/collectiing_en/bn_cancel4.png new file mode 100644 index 00000000..b44928d1 Binary files /dev/null and b/image/collectiing_en/bn_cancel4.png differ diff --git a/image/collectiing_en/bn_topup_with_cash.png b/image/collectiing_en/bn_topup_with_cash.png new file mode 100644 index 00000000..ec0aad49 Binary files /dev/null and b/image/collectiing_en/bn_topup_with_cash.png differ diff --git a/image/collectiing_en/bn_topup_with_code.png b/image/collectiing_en/bn_topup_with_code.png new file mode 100644 index 00000000..6fbcdb8b Binary files /dev/null and b/image/collectiing_en/bn_topup_with_code.png differ diff --git a/image/collectiing_en/bn_topup_with_qr.png b/image/collectiing_en/bn_topup_with_qr.png new file mode 100644 index 00000000..389bca2b Binary files /dev/null and b/image/collectiing_en/bn_topup_with_qr.png differ diff --git a/image/collectiing_en/bn_useCredit2.png b/image/collectiing_en/bn_useCredit2.png new file mode 100644 index 00000000..571f2c84 Binary files /dev/null and b/image/collectiing_en/bn_useCredit2.png differ diff --git a/image/collectiing_en/bn_useCredit3.png b/image/collectiing_en/bn_useCredit3.png new file mode 100644 index 00000000..532cc4c1 Binary files /dev/null and b/image/collectiing_en/bn_useCredit3.png differ diff --git a/image/collectiing_en/bp_cancel4.png b/image/collectiing_en/bp_cancel4.png new file mode 100644 index 00000000..19b9d246 Binary files /dev/null and b/image/collectiing_en/bp_cancel4.png differ diff --git a/image/collectiing_en/bp_topup_with_cash.png b/image/collectiing_en/bp_topup_with_cash.png new file mode 100644 index 00000000..3e29eae5 Binary files /dev/null and b/image/collectiing_en/bp_topup_with_cash.png differ diff --git a/image/collectiing_en/bp_topup_with_code.png b/image/collectiing_en/bp_topup_with_code.png new file mode 100644 index 00000000..9da659d9 Binary files /dev/null and b/image/collectiing_en/bp_topup_with_code.png differ diff --git a/image/collectiing_en/bp_topup_with_qr.png b/image/collectiing_en/bp_topup_with_qr.png new file mode 100644 index 00000000..9a3e3168 Binary files /dev/null and b/image/collectiing_en/bp_topup_with_qr.png differ diff --git a/image/collectiing_en/bp_useCredit2.png b/image/collectiing_en/bp_useCredit2.png new file mode 100644 index 00000000..5f664622 Binary files /dev/null and b/image/collectiing_en/bp_useCredit2.png differ diff --git a/image/collectiing_en/bp_useCredit3.png b/image/collectiing_en/bp_useCredit3.png new file mode 100644 index 00000000..331debbb Binary files /dev/null and b/image/collectiing_en/bp_useCredit3.png differ diff --git a/image/collectiing_en/img_popup18.png b/image/collectiing_en/img_popup18.png new file mode 100644 index 00000000..1c35eaf0 Binary files /dev/null and b/image/collectiing_en/img_popup18.png differ diff --git a/image/collectiing_en/img_popup19.png b/image/collectiing_en/img_popup19.png new file mode 100644 index 00000000..74db3d10 Binary files /dev/null and b/image/collectiing_en/img_popup19.png differ diff --git a/image/collectiing_en/img_popup20-Failed.png b/image/collectiing_en/img_popup20-Failed.png new file mode 100644 index 00000000..658abbea Binary files /dev/null and b/image/collectiing_en/img_popup20-Failed.png differ diff --git a/image/collectiing_en/img_popup20.png b/image/collectiing_en/img_popup20.png new file mode 100644 index 00000000..0dcc9399 Binary files /dev/null and b/image/collectiing_en/img_popup20.png differ diff --git a/image/collectiing_en/text_44.png b/image/collectiing_en/text_44.png new file mode 100644 index 00000000..73b02aac Binary files /dev/null and b/image/collectiing_en/text_44.png differ diff --git a/image/collectiing_en/text_show_notEnough2.png b/image/collectiing_en/text_show_notEnough2.png new file mode 100644 index 00000000..df090dcd Binary files /dev/null and b/image/collectiing_en/text_show_notEnough2.png differ diff --git a/image/page_payment/bn_codeS.png b/image/page_payment/bn_codeS.png new file mode 100644 index 00000000..62689666 Binary files /dev/null and b/image/page_payment/bn_codeS.png differ diff --git a/image/page_payment/bp_codeS.png b/image/page_payment/bp_codeS.png new file mode 100644 index 00000000..9b152d1e Binary files /dev/null and b/image/page_payment/bp_codeS.png differ diff --git a/image/page_payment_en/page_payment/bn_codeS.png b/image/page_payment_en/page_payment/bn_codeS.png new file mode 100644 index 00000000..7bd79275 Binary files /dev/null and b/image/page_payment_en/page_payment/bn_codeS.png differ diff --git a/image/page_payment_en/page_payment/bp_codeS.png b/image/page_payment_en/page_payment/bp_codeS.png new file mode 100644 index 00000000..7f78a74d Binary files /dev/null and b/image/page_payment_en/page_payment/bp_codeS.png differ diff --git a/xml/page_brewing3.xml b/xml/page_brewing3.xml index 8b64ed6e..dcb51011 100644 --- a/xml/page_brewing3.xml +++ b/xml/page_brewing3.xml @@ -22,7 +22,7 @@ Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" Else Var PayReference = "" - Var PayType = "" + Var PayType = "newpay" EndIf Var SelectDrink = Seeker.selected_a_drink diff --git a/xml/page_brewing3Conti.xml b/xml/page_brewing3Conti.xml index d80fbf28..a4a1b2fa 100644 --- a/xml/page_brewing3Conti.xml +++ b/xml/page_brewing3Conti.xml @@ -56,7 +56,7 @@ Var TimeoutWaitPay = 10 Var PayReference = "" - Var PayType = "" + Var PayType = "newpay" Var MachineState_Result = 0 If LastMakeDrinkResult = "success" Then diff --git a/xml/page_member_topup3.xml b/xml/page_member_topup3.xml index 47731347..5e6b71ae 100644 --- a/xml/page_member_topup3.xml +++ b/xml/page_member_topup3.xml @@ -174,6 +174,23 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + +; +; 0 +; 0 +; "ROOT/taobin_project/image/ad_medium_2.png" +; + + + + + + + Open "/media/bt/xml/security_alarm.xml" + + + + Open "ROOT/taobin_project/xml/page_member_topupCode.xml" + + + + + diff --git a/xml/page_payment.xml b/xml/page_payment.xml index a7e84744..556c236c 100644 --- a/xml/page_payment.xml +++ b/xml/page_payment.xml @@ -139,6 +139,7 @@ Var Seeker.VendingCampaign = 0 Var Seeker.VendingTSID = "" + Var Seeker.CreditNotEnoughRefID = "" Var PayType = "" Var CART_INDEX = 0 diff --git a/xml/page_payment_credit.xml b/xml/page_payment_credit.xml index 77e1850e..a33be64d 100644 --- a/xml/page_payment_credit.xml +++ b/xml/page_payment_credit.xml @@ -127,21 +127,6 @@ DEBUGVAR PinNumberUser - - If Seeker = "next" Then - Var Curr = "curr" - - DEBUGVAR CoffeeCredit - DEBUGVAR Curr.CurrCreditUse - - If TelephoneNumber = Curr.CurrCreditTelNum Then - - Var CoffeeCredit = CoffeeCredit - Curr.CurrCreditUse - If CoffeeCredit < 0 Then - Var CoffeeCredit = 0 - EndIf - EndIf - EndIf Open "ROOT/taobin_project/xml/page_payment_credit2.xml" Else @@ -151,7 +136,7 @@ DEBUGVAR Curr.CurrCreditTelNum If Seeker = "next" Then - If Ext1a = "new customer" Then + If Ext1a = "new customer" Then Var Curr = "curr" diff --git a/xml/page_payment_credit2.xml b/xml/page_payment_credit2.xml index 91996ffc..9fcd93c9 100644 --- a/xml/page_payment_credit2.xml +++ b/xml/page_payment_credit2.xml @@ -936,6 +936,43 @@ Var ShowSentSmsText = "Invisible" Var Timeout = 0 + If PinNumberUser = PinNumber Then + + Var SumCreditAmount = CoffeeCredit + + + If SumCreditAmount >= PayAmountSubDiscount Then + + Open "ROOT/taobin_project/xml/page_payment_credit3-0.xml" + Else + Var ShowNotEnoughText = "Enable" + Var Seeker.TNumberTaobinCredit = TelephoneNumber + Var Seeker.CoffeePinNumber = PinNumber + Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" + EndIf + + Else + + Var ShowErrorText = "Enable" + Var PinNumber = "" + Var ShowTextNumber1 = "Invisible" + Var ShowTextNumber2 = "Invisible" + Var ShowTextNumber3 = "Invisible" + Var ShowTextNumber4 = "Invisible" + + EndIf + + Var ReqFlag = 0 + Refresh + + + + + + + Var ShowSentSmsText = "Invisible" + Var Timeout = 0 + If PinNumberUser = PinNumber Then Var SumCreditAmount = CoffeeCredit @@ -944,12 +981,12 @@ If ReqAdddata22 = 0 Then - If Seeker = "next" Then - Var Curr = "curr" - If TelephoneNumber = Curr.CurrCreditTelNum Then - Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount - EndIf - EndIf + ;If Seeker = "next" Then + ; Var Curr = "curr" + ; If TelephoneNumber = Curr.CurrCreditTelNum Then + ; Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount + ; EndIf + ;EndIf Var useCreditAmount = PayAmountSubDiscount Var BmiYear = useCreditAmount @@ -960,31 +997,7 @@ Else - If Seeker = "next" Then - Var Curr = "curr" - If TelephoneNumber = Curr.CurrCreditTelNum Then - - Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount - If SumCreditAmount >= PayAmountSubDiscount Then - If ReqAdddata22 = 0 Then - - Var useCreditTemp = PayAmountSubDiscount - CoffeeCredit - - Var useCreditAmount = CoffeeCredit - Var BmiYear = useCreditAmount - Var GetScore = "useCredit" - AddData 22 TelephoneNumber BmiYear PointCrm GetScore - Var ReqAdddata22 = 1 - EndIf - Else - Open "ROOT/taobin_project/xml/page_payment_credit3.xml" - EndIf - Else - Open "ROOT/taobin_project/xml/page_payment_credit3.xml" - EndIf - Else - Open "ROOT/taobin_project/xml/page_payment_credit3.xml" - EndIf + Open "ROOT/taobin_project/xml/page_payment_credit3.xml" EndIf Else @@ -1006,9 +1019,7 @@ Refresh - - - + diff --git a/xml/page_payment_credit3-0.xml b/xml/page_payment_credit3-0.xml new file mode 100644 index 00000000..7eb0fc69 --- /dev/null +++ b/xml/page_payment_credit3-0.xml @@ -0,0 +1,243 @@ + + + "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_popup18.png" + + If CountryName = "Malaysia" Then + Var img_popup11 = "/img_popup18.png" + EndIf + + If CountryName = "Indonesia" Then + Var img_popup11 = "/img_popup18.png" + EndIf + + Var showRemaining !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow ) + + Var ShowErrorText = "Invisible" + Var ReqAdddata22 = 0 + Var timeout_Adddata22 = 0 + GenHashWithTimeStamp PointCrm + + Var Seeker.TNumberTaobinCredit = TelephoneNumber + Var Seeker.CoffeePinNumber = PinNumber + + + + 1000 + + + Var Timeout = Timeout + 1 + + If Timeout > 60 Then + Var PayState1 = "PressForever" + Var PayState2 = "Enable" + Var QRChannel = 0 + Var Seeker.CodeChannel = 0 + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + Else + Open "ROOT/taobin_project/xml/page_payment_cash.xml" + EndIf + EndIf + + + Refresh + TimerReset + + + + + If ReqAdddata22 = 1 Then + + Var Seeker.CreditReferenceTmp = "" + useCreditAmount + Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/" + Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm + + CoinVending OFF + + Var Seeker.TNumberTaobinCredit = TelephoneNumber + Var Seeker.CoffeePinNumber = PinNumber + + Var Seeker.StoreCreditFlag = 1 + Var SumCreditAmount = SumCreditAmount - PayAmountSubDiscount + Var VendingCreditRemain = "" + SumCreditAmount + + If CART_COUNT >= 1 Then + + Cart "PreparID" 1 + Var CART_INDEX = 1 + Var PayReference = "" + GenHashWithTimeStamp PayReference + Cart "MakeID" CART_INDEX + Open "ROOT/taobin_project/xml/page_thankyou.xml" + Else + Var CART_INDEX = 0 + + If Seeker = "curr" Then + MakeDrinkV1 SelectDrink SelectSugarID + Var TxRef1 = "" + CreateTxRef1 TxRef1 + + Else + DEBUGVAR Seeker + Var TxRef1 = "" + CreateTxRef1 TxRef1 + + Var DrinkPaid = SelectDrink + Var PaidPaymentFromNextStage = 1 + EndIf + Open "ROOT/taobin_project/xml/page_thankyou.xml" + EndIf + + Var ReqAdddata22 = 0 + EndIf + + + + + Var ShowErrorText = "Enable" + Refresh + + If ReqAdddata22 = 1 Then + Var ReqAdddata22 = 0 + EndIf + + + + + + If ViewBill > 0 Then + CoinVending BILLREJECT + Else + + EndIf + + + + + + + 0 + 380 + "ROOT/taobin_project/image/collectiing/alpha.png" + + + + + 181 + 647 + Var( DirImage + img_popup11 ) + + + + 0 + 845 + 144 + Center + 1080 + KanitRegularTTF + + 0xDE794E + showRemaining + + + + + + + + + + + + 156 + 1050 + "Enable" + ShowErrorText + Var( DirImage + "/text_show_notOperate.png") + + + + + + Open "/media/bt/xml/security_alarm.xml" + + + diff --git a/xml/page_payment_credit3-1.xml b/xml/page_payment_credit3-1.xml new file mode 100644 index 00000000..54f7ffce --- /dev/null +++ b/xml/page_payment_credit3-1.xml @@ -0,0 +1,199 @@ + + + "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" + + If CountryName = "Malaysia" Then + Var img_popup11 = "/img_popup19.png" + EndIf + + 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 + Var PayState1 = "PressForever" + Var PayState2 = "Enable" + Var QRChannel = 0 + Var Seeker.CodeChannel = 0 + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + Else + Open "ROOT/taobin_project/xml/page_payment_cash.xml" + EndIf + 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 + + + + + + + + + + + + + + + + + + Open "/media/bt/xml/security_alarm.xml" + + + diff --git a/xml/page_payment_credit3-Topup.xml b/xml/page_payment_credit3-Topup.xml new file mode 100644 index 00000000..3cb39f2b --- /dev/null +++ b/xml/page_payment_credit3-Topup.xml @@ -0,0 +1,712 @@ + + + "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 + + Var posX = 400 + + 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" + + Var posX = 430 + + + 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 TextWaiting = "" + + Var text_44 = "/text_44.png" + Var text_show_amountInvalid = "/text_show_amountInvalid.png" + Var text_show_amountInvalid2 = "/text_show_amountInvalid2.png" + + Var Min = PayAmountSubDiscount + Var Max = 5000 + + 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 + + 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 + + Var PayState1 = "PressForever" + Var PayState2 = "Enable" + Var QRChannel = 0 + Var Seeker.CodeChannel = 0 + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + Else + Open "ROOT/taobin_project/xml/page_payment_cash.xml" + EndIf + 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_payment_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" + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + posX + 680 + 60 + Right + 250 + KanitRegularTTF + 0xDE794E + PayAmountSubDiscount + + + + + + + 217 + 802 + Var( DirImage + "/img3.png" ) + + + + + 188 + 640 + "Enable" + Var( DirImage + text_44 ) + + + + + 0 + 817 + 1080 + Center + 62 + RobotoBlack + 0x513C2F + "Enable" + AmountNumber + + + + + 145 + 820 + ShowErrorText + "Enable" + Var( DirImage + text_show_error ) + + + + + +; +; 0 +; 0 +; "ROOT/taobin_project/image/ad_medium_2.png" +; + + + + + + + 5 + 940 + "Enable" + 30 + Center + 1080 + RobotoRegular + 0xFF0000 + TextWaiting + + + + + + + + Open "/media/bt/xml/security_alarm.xml" + + + + + + + diff --git a/xml/page_payment_credit3-TopupCash.xml b/xml/page_payment_credit3-TopupCash.xml new file mode 100644 index 00000000..4e5a6f63 --- /dev/null +++ b/xml/page_payment_credit3-TopupCash.xml @@ -0,0 +1,614 @@ + + + "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" + + 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 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." + + 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 + + + + + + + + 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 + + + + + + + + + + 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 ) + + + + + + + + Open "/media/bt/xml/security_alarm.xml" + + + diff --git a/xml/page_payment_credit3-TopupCode.xml b/xml/page_payment_credit3-TopupCode.xml new file mode 100644 index 00000000..9050a3f9 --- /dev/null +++ b/xml/page_payment_credit3-TopupCode.xml @@ -0,0 +1,671 @@ + + + "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 = "" + + + 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 + + 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 + + Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml" + Else + Var ShowErrorText = "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 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 + + + +; +; 0 +; 0 +; "ROOT/taobin_project/image/ad_medium_2.png" +; + + + + + + + Open "/media/bt/xml/security_alarm.xml" + + + + diff --git a/xml/page_payment_credit3-TopupQR.xml b/xml/page_payment_credit3-TopupQR.xml new file mode 100644 index 00000000..db06ce23 --- /dev/null +++ b/xml/page_payment_credit3-TopupQR.xml @@ -0,0 +1,227 @@ + + + "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 + + Var PayState1 = "PressForever" + Var PayState2 = "Enable" + Var QRChannel = 0 + Var Seeker.CodeChannel = 0 + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + Else + Open "ROOT/taobin_project/xml/page_payment_cash.xml" + EndIf + EndIf + + If ReqAdddata22_Error = 1 Then + + Var Timeout_Error = Timeout_Error + 1 + If Timeout_Error >= 5 Then + + Var PayState1 = "PressForever" + Var PayState2 = "Enable" + Var QRChannel = 0 + Var Seeker.CodeChannel = 0 + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + Else + Open "ROOT/taobin_project/xml/page_payment_cash.xml" + EndIf + + EndIf + + EndIf + + + TimerReset + + + + + + + +If ViewBill > 0 Then + CoinVending BILLREJECT + EndIf + + + + + + If VendingExtResult = "" Then + Else + Var VendingExtResult = "" + + If ReqAdddata22 = 0 Then + 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 + + + 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 + + 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" ) + + + + + + Open "/media/bt/xml/security_alarm.xml" + + + diff --git a/xml/page_payment_credit3-TopupSuccess.xml b/xml/page_payment_credit3-TopupSuccess.xml new file mode 100644 index 00000000..90767d2f --- /dev/null +++ b/xml/page_payment_credit3-TopupSuccess.xml @@ -0,0 +1,160 @@ + + "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 - PayAmountSubDiscount + Var VendingCreditRemain = "" + SumCreditAmount + Var SumCreditAmountStr !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow ) + + Var text_4 = "/text_4.png" + + If CountryName = "Malaysia" Then + Var PayState3 = "Invisible" + Var text_4 = "/text_4-MYR.png" + EndIf + + 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 + + + + + If FlagPayCredit = 1 Then + Var FlagPayCredit = 0 + + If Seeker = "curr" Then + + DEBUGVAR "MakeDrinkV1" + + MakeDrinkV1 SelectDrink SelectSugarID + Var TxRef1 = "" + CreateTxRef1 TxRef1 + Else + Var TxRef1 = "" + CreateTxRef1 TxRef1 + Var DrinkPaid = SelectDrink + Var PaidPaymentFromNextStage = 1 + + EndIf + + Var Seeker.StoreCreditFlag = 1 + EndIf + + + + + Var Timeout = Timeout + 1 + If Timeout > 3 Then + Open "ROOT/taobin_project/xml/page_thankyou.xml" + EndIf + + TimerReset + Refresh + + + + + + + + Open "/media/bt/xml/security_alarm.xml" + + + + + + + + + + + + + + + 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 diff --git a/xml/page_payment_credit3.xml b/xml/page_payment_credit3.xml index e068b777..72ee6064 100644 --- a/xml/page_payment_credit3.xml +++ b/xml/page_payment_credit3.xml @@ -46,12 +46,12 @@ Var AcceptAuto = "false" - If Seeker = "next" Then - Var Curr = "curr" - If TelephoneNumber = Curr.CurrCreditTelNum Then - Var SumCreditAmount2 = SumCreditAmount + Curr.CurrCreditAmount - EndIf - EndIf + ;If Seeker = "next" Then + ; Var Curr = "curr" + ; If TelephoneNumber = Curr.CurrCreditTelNum Then + ; Var SumCreditAmount2 = SumCreditAmount + Curr.CurrCreditAmount + ; EndIf + ;EndIf If show_eng = "true" Then @@ -215,6 +215,7 @@ Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/" Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm + Var Seeker.CreditNotEnoughRefID = PointCrm Var Seeker.StoreCreditFlag = 1 diff --git a/xml/page_payment_storeCredit.xml b/xml/page_payment_storeCredit.xml index 55a1ade2..fa80c1a5 100644 --- a/xml/page_payment_storeCredit.xml +++ b/xml/page_payment_storeCredit.xml @@ -100,27 +100,6 @@ INT CoffeeCredit Var Seeker.CoffeePinNumber = Ext1c - - If Seeker = "next" Then - Var Curr = "curr" - - DEBUGVAR CoffeeCredit - DEBUGVAR Curr.CurrCreditAmount - - If TelephoneNumber = Curr.CurrCreditTelNum Then - - Var CoffeeCredit = CoffeeCredit + Curr.CurrCreditAmount - - If Curr.CurrCreditUse > 0 Then - Var CoffeeCredit = CoffeeCredit - Curr.CurrCreditUse - If CoffeeCredit < 0 Then - Var CoffeeCredit = 0 - EndIf - EndIf - - EndIf - EndIf - Var Seeker.TNumberTaobinCredit = TelephoneNumber If Seeker.pageStoreCredit0 = 1 Then diff --git a/xml/page_payment_storeCredit3.xml b/xml/page_payment_storeCredit3.xml index 51b3608b..9fc72712 100644 --- a/xml/page_payment_storeCredit3.xml +++ b/xml/page_payment_storeCredit3.xml @@ -58,7 +58,13 @@ Var Seeker.CurrCreditPinNum = Seeker.CoffeePinNumber DEBUGVAR Seeker.CurrCreditAmount - + + Var CurrAmount = Seeker.CurrCreditAmount + Var CurrTelePhoneNum = Seeker.CurrCreditTelNum + Var CurrPinNum = Seeker.CurrCreditPinNum + Var RefID = "" + + AddData 41 CurrTelePhoneNum CurrAmount CurrPinNum RefID If Seeker.FreeVendingCampaign = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" diff --git a/xml/page_thankyou.xml b/xml/page_thankyou.xml index 698ecfb6..a5506013 100644 --- a/xml/page_thankyou.xml +++ b/xml/page_thankyou.xml @@ -360,6 +360,34 @@ DEBUGVAR Seeker.CurrCreditAmount + If Seeker.CreditNotEnoughRefID = "" Then + Var CurrAmount = Seeker.CurrCreditAmount + Var CurrTelePhoneNum = Seeker.CurrCreditTelNum + Var CurrPinNum = Seeker.CurrCreditPinNum + Var RefID = "" + AddData 41 CurrTelePhoneNum CurrAmount CurrPinNum RefID + Else + + Var ServiceAmountSupCampain = Seeker.ServiceAmount2 - Seeker.IntVendingCampaign + + If CoinAmount >= ServiceAmountSupCampain Then + Var CurrAmount = Seeker.CurrCreditAmount + Var RefID = "0/" + Seeker.CreditNotEnoughRefID + Var Seeker.CreditReferenceTmp = RefID + Else + Var CurrAmount = CoinAmount + Var RefID = "" + ServiceAmountSupCampain + Var RefID = RefID + "/" + Var RefID = RefID + Seeker.CreditNotEnoughRefID + Var Seeker.CreditReferenceTmp = RefID + EndIf + + Var CurrTelePhoneNum = Seeker.CurrCreditTelNum + Var CurrPinNum = Seeker.CurrCreditPinNum + + AddData 41 CurrTelePhoneNum CurrAmount CurrPinNum RefID + EndIf + If Seeker.FreeVendingCampaign = 1 Then Open "ROOT/taobin_project/xml/page_lid_straw.xml" Else