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

Update Sprial pay detail

Browse source
This commit is contained in:
Kenta420 2025-04-30 16:56:49 +07:00
parent 1fc56b5375
commit bdd26faaa8
4 changed files with 93 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

87
xml/page_spiral_sell.xml
View file

@ -6,12 +6,12 @@
;<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
Var LastMakeSpiralResult = 0
Var ShowSwapVDO = "ROOT/taobin_project/spiral/video/sp01.mp4"
Var ShowSwapVDO = "ROOT/taobin_project/spiral/video/sp01.mp4"
GenHashWithTimeStamp SpiralRef
Var ServiceCredit = "03-02-00-6001"
Var ServiceCredit = Seeker.sprial_frozen_fruit_select_product_code
SPIRAL_SELL ServiceCredit SpiralRef
Var TimeOutSmoothiesProcess = 120
@ -19,10 +19,15 @@
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var Timeout = Timeout + 1
; test
;If Timeout > 10 Then
; Var LastMakeSpiralResult = 2
;EndIf
If LastMakeSpiralResult = 1 Then
Var SessionID4 = MachineSpiralID
@ -31,88 +36,38 @@
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralSlotID
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + ServiceCredit
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="S:0:"
Var PayDetail = PayDetail + SessionID4
Var PayDetail = PayDetail + SessionID4
Var Cid = 27
Var PointCrm = CounterOrderId
If FromCounterMulti = 1 Then
Var PointCrm = PayReference
EndIf
Var GetScore = Seeker.VendingTSID
Var param1 = PayDetail
Var ACC = "0899999999"
AddData Cid ACC param1 PointCrm GetScore
;Open "ROOT/taobin_project/xml/page_spiral_success.xml"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
__CMD "SprialPayDetail" PayDetail "-" "-"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
EndIf
If LastMakeSpiralResult = 2 Then
Var SessionID4 = MachineSpiralID
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralVMName
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralSlotID
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + ServiceCredit
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + 1
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralRemaining
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/spiral_pay_fail.ev"
Var PayDetail="F:"
Var PayDetail = PayDetail + MachineSpiralErrorCode
Var PayDetail = PayDetail + ":"
Var PayDetail = PayDetail + SessionID4
Open "ROOT/taobin_project/xml/page_spiral_failed.xml"
Var Cid = 27
Var PointCrm = CounterOrderId
If FromCounterMulti = 1 Then
Var PointCrm = PayReference
EndIf
Var GetScore = Seeker.VendingTSID
Var param1 = PayDetail
Var ACC = "0899999999"
AddData Cid ACC param1 PointCrm GetScore
Open "ROOT/taobin_project/xml/page_spiral_failed.xml"
EndIf
If BoxID = 210699 Then
;If Timeout > 10 Then
;Open "ROOT/taobin_project/xml/page_spiral_failed.xml"
;EndIf
If Timeout > 10 Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
EndIf
EndIf
If BoxID = 105005 Then
If Timeout > 10 Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
;Open "ROOT/taobin_project/xml/page_spiral_failed.xml"
EndIf
EndIf
If Timeout > 120 Then
Open "ROOT/taobin_project/xml/page_back_to_failed.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/spiral_pay_fail.ev"
Open "ROOT/taobin_project/xml/page_back_to_failed.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
</EventTimeout>