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

THAI: Added pay fail when user not open door in time

Browse source
This commit is contained in:
Kenta420 2025-05-08 22:27:56 +07:00
parent ce80902ee8
commit 3afa3e0396
1 changed files with 60 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

60
inter/tha/xml/page_smoothie_suggest_and_process_3.xml
View file

@ -50,6 +50,66 @@
Var SmoothieProcessState = "idle"
Var CountDownCertainConfuse = 5
; ======================== send pay =============================
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"
Var SelectDrink = Seeker.selected_a_drink
Var ExtendData = Seeker.ExtendData
Var ServiceAmount2 = Seeker.ServiceAmount2
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditReference = Seeker.CreditReferenceTmp
Var VendingDiscount = Seeker.VendingDiscount
Var VendingCampaign = Seeker.VendingCampaign
Var TxReference = Seeker.TxRef1
Var VendingOrderID = Seeker.ORDER_ID
Var PayType = "newpay"
Var ServiceType = "coffee-payment"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
DEBUGVAR Seeker.sprial_pay_detail
Var PayDetail = "2/F:0/0/|" + Seeker.sprial_pay_detail
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + ""
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + Seeker.VendingCode
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + BoxID
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + Seeker.CodeNumber
Var SessionID2 = SessionID2 + "/"
DEBUGVAR PayDetail
DEBUGVAR Seeker.PayDetail2
DEBUGVAR SessionID2
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
DEBUGVAR PayDetail
DEBUGVAR Seeker.PayDetail2
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
; ======================== end send pay =============================
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>