keep trans, status sell, error code 1303

This commit is contained in:
miggaze 2022-08-01 16:00:47 +07:00
parent 928e1c98ce
commit af4b96322d
29 changed files with 436 additions and 71 deletions

View file

@ -234,6 +234,52 @@
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
If Seeker.PayWithQR = 0 Then
Var ServiceAmount2 = Seeker.ServiceAmount2
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var PdpaAccept = 0
Var CreditReference = Seeker.CreditReferenceTmp
Var VendingDiscount = Seeker.VendingDiscount
Var VendingCampaign = Seeker.VendingCampaign
Var PayDetail = "2/F:1115/0//XML|" + Seeker.OrderChanel
Var PayType = ""
Var Seeker.TxRef1 = TxRef1
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + Seeker.CodeNumber
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 + "/"
UpdateTxRef1 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail
Else
DEBUGVAR TxRef1
UpdateTxRef1 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail
EndIf
EndIf
If PayOfflineMode = 1 Then
If StoreCreditAmount > 0 Then