taobin_project/xml/process/spiral_pay_fail.ev
2025-04-30 16:56:51 +07:00

66 lines
No EOL
2.1 KiB
Text

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 = ""
Var PayDetail = "2/S:0/0/"
Var SessionID4 = MachineSpiralID
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralVMName
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralSlotID
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + Seeker.sprial_frozen_fruit_select_product_code
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + 1
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralRemaining
Var PayDetail = PayDetail + "|locker:F:"
Var PayDetail = PayDetail + MachineSpiralErrorCode
Var PayDetail = PayDetail + ":"
Var PayDetail = PayDetail + SessionID4
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
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 + "/"
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf