pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

new payment

Browse source
This commit is contained in:
miggaze 2024-07-01 16:09:38 +07:00
parent e57b8cedf0
commit 1301258344
26 changed files with 43 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

2
xml/page_NewBrewing3.xml
View file

@ -6,7 +6,7 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payext_setup.ev"
Var SendNotiPaySuccess = 2 Var SendNotiPaySuccess = 2

1
xml/page_payment.xml
View file

@ -462,6 +462,7 @@
__CMD "CLEAR_TIME_BLINK_DISPLAY" 0 "-" "-" __CMD "CLEAR_TIME_BLINK_DISPLAY" 0 "-" "-"
;new payment coffee-payment ;new payment coffee-payment
Var New_Payment = 1
If New_Payment = 1 Then If New_Payment = 1 Then
Var Seeker.ORDER_ID = "" Var Seeker.ORDER_ID = ""
GenHashWithTimeStamp Seeker.ORDER_ID GenHashWithTimeStamp Seeker.ORDER_ID

16
xml/page_payment_cash.xml
View file

@ -367,7 +367,7 @@
CoinVending OFF CoinVending OFF
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1
@ -390,7 +390,7 @@
CoinVending OFF CoinVending OFF
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1
@ -1129,14 +1129,16 @@
Var Seeker.PayWithQR = 1
Var Seeker.VendingTSID = VendingTSID
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
;Var TxRef1 = "" ;Var TxRef1 = ""
;CreateTxRef1 TxRef1 ;CreateTxRef1 TxRef1
EndIf EndIf
Var Seeker.PayWithQR = 1
Var Seeker.VendingTSID = VendingTSID
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
@ -1629,7 +1631,7 @@
Refresh Refresh
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
EndIf EndIf
Var Seeker.CreditCard = 1 Var Seeker.CreditCard = 1
@ -1853,7 +1855,7 @@
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_code.xml
View file

@ -255,7 +255,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeAEON.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeAIS.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeDtac.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeGLX.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeGrab.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeInfinyx.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeKBANK.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeLH.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeLotus.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeMCard.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeRabbit.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeSCG.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeThe1.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_codeTrue.xml
View file

@ -140,7 +140,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_credit2.xml
View file

@ -197,7 +197,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_credit3-0.xml
View file

@ -111,7 +111,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_credit3-TopupSuccess.xml
View file

@ -81,7 +81,7 @@
If Seeker = "curr" Then If Seeker = "curr" Then
DEBUGVAR "MakeDrinkV1" DEBUGVAR "MakeDrinkV1"
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_payment_credit3.xml
View file

@ -190,7 +190,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""

2
xml/page_payment_storeCredit3.xml
View file

@ -93,7 +93,7 @@
Var CART_INDEX = 0 Var CART_INDEX = 0
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

2
xml/page_thankyouConti.xml
View file

@ -309,7 +309,7 @@
Else Else
Var LastMakeDrinkResult = "-" Var LastMakeDrinkResult = "-"
__CMD "SetPay" "Coffee" Seeker.VendingTSID Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
MakeDrinkV1 Seeker.selected_a_drink SelectSugarID MakeDrinkV1 Seeker.selected_a_drink SelectSugarID
EndIf EndIf

13
xml/process/payext_setup.ev
View file

@ -1,7 +1,6 @@
DEBUGVAR TelephoneNumber
Var SVT = "coffee" Var TelephoneNumberExt = TelephoneNumber
Var ACC = TelephoneNumber If TelephoneNumberExt = "" Then
Var DEE = PayDetail Var TelephoneNumberExt = "0899999999"
EndIf
Var PayDetail2 = Seeker.PayDetail2 __CMD "SetTelNum" TelephoneNumberExt Seeker.ORDER_ID Seeker.VendingTSID
PAYEXT_SETUP SVT ACC Seeker.VendingTSID Seeker.ORDER_ID

11
xml/process/payment.ev
View file

@ -1,8 +1,6 @@
DEBUGVAR "MIGGAZE0"
If Seeker.PayWithQR = 1 Then
If Seeker.PayWithQR = 1 Then
;pay credit if coinAmount > 0
Var ServiceAmount2 = Seeker.ServiceAmount2 Var ServiceAmount2 = Seeker.ServiceAmount2
Var CreditReference = "" Var CreditReference = ""
@ -37,12 +35,13 @@
EndIf EndIf
EndIf EndIf
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev" ;TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"
Else Else
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"
Var SelectDrink = Seeker.selected_a_drink Var SelectDrink = Seeker.selected_a_drink
Var ExtendData = Seeker.ExtendData Var ExtendData = Seeker.ExtendData
Var ServiceAmount2 = Seeker.ServiceAmount2 Var ServiceAmount2 = Seeker.ServiceAmount2