From 3afa3e0396f341e2ceaa2d1f98adf13d78a8f050 Mon Sep 17 00:00:00 2001 From: Kenta420 Date: Thu, 8 May 2025 22:27:56 +0700 Subject: [PATCH] THAI: Added pay fail when user not open door in time --- .../page_smoothie_suggest_and_process_3.xml | 60 +++++++++++++++++++ 1 file changed, 60 insertions(+) diff --git a/inter/tha/xml/page_smoothie_suggest_and_process_3.xml b/inter/tha/xml/page_smoothie_suggest_and_process_3.xml index ebf57a84..28711569 100644 --- a/inter/tha/xml/page_smoothie_suggest_and_process_3.xml +++ b/inter/tha/xml/page_smoothie_suggest_and_process_3.xml @@ -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 ============================= + + 1000