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

do between order

Browse source
This commit is contained in:
wanlop run 2025-01-07 19:36:31 +07:00
parent 8991619abd
commit 8b4dfb62d9
17 changed files with 2690 additions and 351 deletions
Download patch file Download diff file Expand all files Collapse all files

56
xml/page_NewCannotConti.xml
View file

@ -3,10 +3,13 @@
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payext_setup.ev"
Var CountDownThankyou = 4
Var CountDownBrewing = BrewTime
Var CountUpBrewing = 0
@ -25,7 +28,6 @@
Var ChangeAmountSum = 0
Var Tel_Confirm_Flag = 0
Var LastMakeDrinkResult = "-"
DEBUGVAR MachineStage
DEBUGVAR NextOrderStatus
@ -149,8 +151,8 @@
DEBUGVAR VendingCampaign
Var CreditCardVoid = 0
__CMD "PayWasSent" Seeker.ORDER_ID "-" "-"
</EventOpen>
<EventActionOk>
@ -399,7 +401,9 @@
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
__CMD "send-pay-detail-now" error_code_stop_now PayDetail "-"
EndIf
EndIf
@ -418,6 +422,8 @@
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
SAVELOG " Cannot conti with new payment ChangeTimeout > 30 "
Var ServiceType = "coffee-refund"
Var ServiceCredit = SelectDrink
@ -439,6 +445,10 @@
EndIf
EndIf
DEBUGVAR MachineState_Result
DEBUGVAR ChangeOK
If ChangeOK = 3 Then
If ActionOKCase = 0 Then
@ -451,32 +461,24 @@
EndIf
If NextOrderStatus = "Disable" Then
Var PayDetail="1/F:1221/0/"
DEBUGVAR error_code_stop_now
If error_code_stop_now > 0 Then
Var PayDetail="1/F:" + error_code_stop_now
Var PayDetail = PayDetail + "/0/"
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
Else
DEBUGVAR error_code_stop_now
If error_code_stop_now > 0 Then
Var PayDetail="1/F:" + error_code_stop_now
Var PayDetail = PayDetail + "/0/"
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
Else
Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + ""
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + ""
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
EndIf
EndIf
Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + ""
Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + ""
Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel
EndIf
Var DEE = PayDetail
@ -488,8 +490,8 @@
DEBUGVAR VendingTSIDTmp
PAYEXT SVT ACC VendingTSIDTmp DEE
__CMD "send-pay-detail-now" error_code_stop_now PayDetail "-"
;PAYEXT SVT ACC VendingTSIDTmp DEE
Var ActionOKCase = 1