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

fix bug new payment

Browse source
This commit is contained in:
pichet 2024-07-14 10:38:17 +07:00
parent 57564c47ae
commit 8ea7112037
22 changed files with 78 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

20
xml/page_payment_cash.xml
View file

@ -368,7 +368,9 @@
CoinVending OFF CoinVending OFF
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1
@ -391,7 +393,9 @@
CoinVending OFF CoinVending OFF
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1
@ -1135,7 +1139,9 @@
Var Seeker.VendingTSID = VendingTSID Var Seeker.VendingTSID = VendingTSID
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
;Var TxRef1 = "" ;Var TxRef1 = ""
;CreateTxRef1 TxRef1 ;CreateTxRef1 TxRef1
@ -1632,7 +1638,9 @@
Refresh Refresh
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
EndIf EndIf
Var Seeker.CreditCard = 1 Var Seeker.CreditCard = 1
@ -1856,7 +1864,9 @@
If Seeker = "curr" Then If Seeker = "curr" Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = "" Var TxRef1 = ""
CreateTxRef1 TxRef1 CreateTxRef1 TxRef1

4
xml/page_payment_code.xml
View file

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

4
xml/page_payment_codeAEON.xml
View file

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

4
xml/page_payment_codeAIS.xml
View file

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

4
xml/page_payment_codeDtac.xml
View file

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

4
xml/page_payment_codeGLX.xml
View file

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

4
xml/page_payment_codeGrab.xml
View file

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

4
xml/page_payment_codeInfinyx.xml
View file

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

4
xml/page_payment_codeKBANK.xml
View file

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

4
xml/page_payment_codeLH.xml
View file

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

4
xml/page_payment_codeLotus.xml
View file

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

4
xml/page_payment_codeMCard.xml
View file

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

4
xml/page_payment_codeRabbit.xml
View file

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

4
xml/page_payment_codeSCG.xml
View file

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

4
xml/page_payment_codeThe1.xml
View file

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

4
xml/page_payment_codeTrue.xml
View file

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

4
xml/page_payment_credit2.xml
View file

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

4
xml/page_payment_credit3-0.xml
View file

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

4
xml/page_payment_credit3-TopupSuccess.xml
View file

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

4
xml/page_payment_credit3.xml
View file

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

4
xml/page_payment_storeCredit3.xml
View file

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

4
xml/page_thankyouConti.xml
View file

@ -309,7 +309,9 @@
Else Else
Var LastMakeDrinkResult = "-" Var LastMakeDrinkResult = "-"
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 Seeker.selected_a_drink SelectSugarID MakeDrinkV1 Seeker.selected_a_drink SelectSugarID
EndIf EndIf