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/xml/page_payment_credit2.xml b/xml/page_payment_credit2.xml index 3c727b5c..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 @@ -982,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..c08785ca --- /dev/null +++ b/xml/page_payment_credit3-1.xml @@ -0,0 +1,198 @@ + + + "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-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..5bfc6ea9 --- /dev/null +++ b/xml/page_payment_credit3-TopupSuccess.xml @@ -0,0 +1,160 @@ + + "Enable" + 1080 + 1920 + "0xeae6e1" + SoundVolume + + + ; On open + + Var Timeout = 0 + + If PayCreditChannel = "cash" Then + Var SumCreditAmount = SumCreditAmount + CoinAmount + Else + INT 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