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

THAI: Reset service charge then refund

Browse source
This commit is contained in:
Kenta420 2025-03-27 18:48:33 +07:00
parent 9de9305343
commit f29680f2b4
3 changed files with 204 additions and 198 deletions
Download patch file Download diff file Expand all files Collapse all files

14
xml/page_NewBrewing3.xml
View file

@ -59,16 +59,16 @@
;inter-image ;inter-image
Var DirImageDoing = "ROOT/taobin_project/image/page_doing" Var DirImageDoing = "ROOT/taobin_project/image/page_doing"
If show_eng = "true" Then If show_eng = "true" Then
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_en" Var DirImageDoing = "ROOT/taobin_project/image/page_doing_en"
EndIf EndIf
;inter-image ;inter-image
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_mmr/" Var DirImageDoing = "ROOT/taobin_project/image/page_doing_mmr/"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImageDoing = "ROOT/taobin_project/inter/hkg/image/page_doing/" Var DirImageDoing = "ROOT/taobin_project/inter/hkg/image/page_doing/"
EndIf EndIf
@ -155,7 +155,7 @@
Var XStraw = 142 Var XStraw = 142
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3" Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
@ -473,7 +473,7 @@
Var LangString = "LANG: &#34TH&#34\r\n" Var LangString = "LANG: &#34TH&#34\r\n"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var LangString = "LANG: &#34TH&#34\r\n" Var LangString = "LANG: &#34TH&#34\r\n"
EndIf EndIf
@ -508,7 +508,7 @@
Var LangString = "LANG: &#34TH&#34\r\n" Var LangString = "LANG: &#34TH&#34\r\n"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var LangString = "LANG: &#34TH&#34\r\n" Var LangString = "LANG: &#34TH&#34\r\n"
EndIf EndIf
@ -911,6 +911,7 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2
@ -949,6 +950,7 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2

228
xml/page_NewBrewing3Conti.xml
View file

@ -9,7 +9,7 @@
Var ActionOKCase = 0 Var ActionOKCase = 0
Var Seeker = "curr" Var Seeker = "curr"
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_en" Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
@ -20,7 +20,7 @@
EndIf EndIf
;inter-image ;inter-image
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment" Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr" Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
EndIf EndIf
@ -60,12 +60,12 @@
Var EnableTopupCreditBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then If EnableSelectMenuBetweenBrew = "Enable" Then
Var EnableSelectMenuBetweenBrewBlink = "Enable" Var EnableSelectMenuBetweenBrewBlink = "Enable"
Else Else
Var EnableSelectMenuBetweenBrewBlink = "Invisible" Var EnableSelectMenuBetweenBrewBlink = "Invisible"
EndIf EndIf
Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png" Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png"
If Seeker.thankLidFlag = 1 Then If Seeker.thankLidFlag = 1 Then
@ -73,8 +73,8 @@
Var LidStateX = "Invisible" Var LidStateX = "Invisible"
EndIf EndIf
Var TimeoutWaitPay = 10 Var TimeoutWaitPay = 10
Var PayReference = "" Var PayReference = ""
Var PayType = "newpay" Var PayType = "newpay"
Var MachineState_Result = 0 Var MachineState_Result = 0
@ -99,11 +99,11 @@
DEBUGVAR Seeker.CashlessVendingTrackNumber DEBUGVAR Seeker.CashlessVendingTrackNumber
DEBUGVAR Seeker.CodeNumber DEBUGVAR Seeker.CodeNumber
Var SessionID2 = SelectSlot + ":" Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData Var SessionID2 = SessionID2 + ExtendData
; On open move from page_brewing3.xml ; On open move from page_brewing3.xml
Var countClick2 = 0 Var countClick2 = 0
@ -111,7 +111,7 @@
Var PrintCoinAmount = 0 Var PrintCoinAmount = 0
DEBUGVAR Seeker.TNumberTaobinMember DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.PointTaobinStr DEBUGVAR Seeker.PointTaobinStr
If LedLidBlink = "true" Then If LedLidBlink = "true" Then
@ -136,18 +136,18 @@
Var LidStateX = "Invisible" Var LidStateX = "Invisible"
If Seeker.CreditCard = 1 Then If Seeker.CreditCard = 1 Then
Var EnableSelectMenuBetweenBrew = "Invisible" Var EnableSelectMenuBetweenBrew = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf EndIf
If MachineState_Result > 0 Then If MachineState_Result > 0 Then
Var EnableTopupCreditBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf EndIf
Var CreditCardVoid = 0 Var CreditCardVoid = 0
DEBUGVAR ButtonGameCountDownState DEBUGVAR ButtonGameCountDownState
SAVELOG "New brewing3 conti" SAVELOG "New brewing3 conti"
</EventOpen> </EventOpen>
@ -158,9 +158,9 @@
If CreditCardVoid = 1 Then If CreditCardVoid = 1 Then
Var ChangeOK = 2 Var ChangeOK = 2
EndIf EndIf
If ActionOKCase = 1 Then If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":" Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData Var SessionID2 = SessionID2 + ExtendData
@ -173,11 +173,11 @@
Var ECommerce = "" Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
@ -199,17 +199,17 @@
Var ActionOKCase = 2 Var ActionOKCase = 2
SAVELOG "back_to_main from line > 142." SAVELOG "back_to_main from line > 142."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else Else
SAVELOG "back_to_main from line > 147." SAVELOG "back_to_main from line > 147."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf EndIf
Else Else
EndIf EndIf
@ -217,7 +217,7 @@
<EventActionError> <EventActionError>
If ActionOKCase = 1 Then If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":" Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData Var SessionID2 = SessionID2 + ExtendData
@ -230,11 +230,11 @@
Var ECommerce = "" Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
@ -256,23 +256,23 @@
Var ActionOKCase = 2 Var ActionOKCase = 2
SAVELOG "back_to_main from line > 204." SAVELOG "back_to_main from line > 204."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else Else
SAVELOG "back_to_main from line > 173." SAVELOG "back_to_main from line > 173."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf EndIf
Else Else
EndIf EndIf
</EventActionError> </EventActionError>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
@ -293,16 +293,16 @@
If Timeout = 4 Then If Timeout = 4 Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3" PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
EndIf EndIf
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing
If Timeout > 540 Then If Timeout > 540 Then
SAVELOG "back_to_main from line > 217." SAVELOG "back_to_main from line > 217."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf EndIf
If Timeout > 480 Then If Timeout > 480 Then
Var MachineState_Result = 2 Var MachineState_Result = 2
@ -312,16 +312,16 @@
Var ChangeTimeout = ChangeTimeout + 1 Var ChangeTimeout = ChangeTimeout + 1
EndIf EndIf
If waitAckPay = 2 Then If waitAckPay = 2 Then
If Timeout > TimeoutWaitPay Then If Timeout > TimeoutWaitPay Then
If Seeker.CodeChannel = 1 Then If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":" Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData Var SessionID2 = SessionID2 + ExtendData
DEBUGVAR SessionID2 DEBUGVAR SessionID2
Var CreditAmount1 = "" Var CreditAmount1 = ""
Var ServiceAmountFlow = "" Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999" Var TelephoneNumber = "0899999999"
@ -329,11 +329,11 @@
Var ECommerce = "" Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
@ -353,9 +353,9 @@
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0 ;Var Timeout = 0
EndIf EndIf
SAVELOG "back_to_main from line > 309." SAVELOG "back_to_main from line > 309."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf EndIf
EndIf EndIf
@ -376,7 +376,7 @@
Var TelephoneNumber = Seeker.TNumberTaobinCredit Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber Var PayO2 = Seeker.CoffeePinNumber
EndIf EndIf
Var ServiceType = "coffee-refund" Var ServiceType = "coffee-refund"
Var ServiceCredit = SelectDrink Var ServiceCredit = SelectDrink
Var SuggestID = "" Var SuggestID = ""
@ -388,10 +388,11 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2
Var TimeoutWaitPay = 45 Var TimeoutWaitPay = 45
Var Timeout = 5 Var Timeout = 5
Var ActionOKCase = 1 Var ActionOKCase = 1
@ -426,10 +427,11 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2
Var TimeoutWaitPay = 45 Var TimeoutWaitPay = 45
Var Timeout = 5 Var Timeout = 5
Var ActionOKCase = 1 Var ActionOKCase = 1
@ -438,15 +440,15 @@
If ChangeOK = 3 Then If ChangeOK = 3 Then
If ActionOKCase = 0 Then If ActionOKCase = 0 Then
Var ActionOKCase = 1 Var ActionOKCase = 1
If Seeker.CodeChannel = 0 Then If Seeker.CodeChannel = 0 Then
SAVELOG "back_to_main from line > 391." SAVELOG "back_to_main from line > 391."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf EndIf
Var waitAckPay = 2 Var waitAckPay = 2
Var TimeoutWaitPay = 45 Var TimeoutWaitPay = 45
Var Timeout = 5 Var Timeout = 5
EndIf EndIf
@ -460,10 +462,10 @@
If MachineState_Result = 1 Then If MachineState_Result = 1 Then
DEBUGVAR PaySuccessWithDaemonTask DEBUGVAR PaySuccessWithDaemonTask
If waitAckPay = 0 Then
Var waitAckPay = 0 If waitAckPay = 0 Then
Var waitAckPay = 0
Var Timeout = 0 Var Timeout = 0
If Seeker.PayWithQR = 0 Then If Seeker.PayWithQR = 0 Then
@ -475,7 +477,7 @@
Else Else
EndIf EndIf
EndIf EndIf
__CMD "clear-stock-data" 0 "-" "-" __CMD "clear-stock-data" 0 "-" "-"
@ -483,7 +485,7 @@
Var ServiceSuccess = "yes" Var ServiceSuccess = "yes"
If waitAckPay = 0 Then If waitAckPay = 0 Then
SAVELOG "waitAckPay = 0 Timeout" SAVELOG "waitAckPay = 0 Timeout"
Open "ROOT/taobin_project/xml/page_drinkok.xml" Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf EndIf
EndIf EndIf
@ -496,18 +498,18 @@
Var ErrTimeout = 1 Var ErrTimeout = 1
If Seeker.PayWithQR = 0 Then If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then If Seeker.CreditCard = 1 Then
CashlessReq FAIL Seeker.CashlessVendingTrackNumber CashlessReq FAIL Seeker.CashlessVendingTrackNumber
Var ChangeFlag = 1 Var ChangeFlag = 1
Var CreditCardVoid = 1 Var CreditCardVoid = 1
Else Else
If Seeker.CodeChannel = 0 Then If Seeker.CodeChannel = 0 Then
If ChangeFlag = 0 Then If ChangeFlag = 0 Then
Var ChangeFlag = 1 Var ChangeFlag = 1
If Seeker.StoreCreditFlag = 1 Then If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2 Var ChangeOK = 2
@ -517,17 +519,17 @@
Else Else
Change ServiceAmount2 Change ServiceAmount2
EndIf EndIf
EndIf EndIf
EndIf EndIf
Else Else
If ChangeFlag = 0 Then If ChangeFlag = 0 Then
Var ChangeFlag = 1 Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
If Seeker.StoreCreditFlag = 1 Then If Seeker.StoreCreditFlag = 1 Then
@ -535,9 +537,9 @@
Else Else
Change ServiceAmount3 Change ServiceAmount3
EndIf EndIf
EndIf EndIf
EndIf EndIf
@ -547,7 +549,7 @@
Var ChangeOK = 3 Var ChangeOK = 3
EndIf EndIf
EndIf EndIf
EndIf EndIf
@ -582,13 +584,13 @@
Var EnableTopupCreditBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then If EnableSelectMenuBetweenBrew = "Enable" Then
If EnableSelectMenuBetweenBrewBlink = "Enable" Then If EnableSelectMenuBetweenBrewBlink = "Enable" Then
Var EnableSelectMenuBetweenBrewBlink = "Invisible" Var EnableSelectMenuBetweenBrewBlink = "Invisible"
Else Else
Var EnableSelectMenuBetweenBrewBlink = "Enable" Var EnableSelectMenuBetweenBrewBlink = "Enable"
EndIf EndIf
Else Else
Var EnableSelectMenuBetweenBrewBlink = "Invisible" Var EnableSelectMenuBetweenBrewBlink = "Invisible"
EndIf EndIf
@ -599,7 +601,7 @@
Var CountUpBrewing = CountUpBrewing + 1 Var CountUpBrewing = CountUpBrewing + 1
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
If PreviseStepVideo = SlotVideo Then If PreviseStepVideo = SlotVideo Then
;SAVELOG SlotVideo ;SAVELOG SlotVideo
Else Else
@ -609,9 +611,9 @@
;SAVELOG CountUpBrewing ;SAVELOG CountUpBrewing
;Var CountDownVideoTime = CountDownVideoTimeReload ;Var CountDownVideoTime = CountDownVideoTimeReload
Var StepVideo = SlotVideo + 2 Var StepVideo = SlotVideo + 2
;SAVELOG StepVideo ;SAVELOG StepVideo
If StepVideo = 1 Then If StepVideo = 1 Then
@ -660,7 +662,7 @@
Var PictureFile = PictureFile + PictureBegin Var PictureFile = PictureFile + PictureBegin
Var PictureFile = PictureFile + videoID Var PictureFile = PictureFile + videoID
Var PictureFile = PictureFile + PictureEnd Var PictureFile = PictureFile + PictureEnd
DEBUGVAR VideoPlayFile DEBUGVAR VideoPlayFile
DEBUGVAR PictureFile DEBUGVAR PictureFile
EndIf EndIf
@ -669,7 +671,7 @@
EndIf EndIf
If IgnoreNetCore = "true" Then If IgnoreNetCore = "true" Then
If CountDownBrewing = 0 Then If CountDownBrewing = 0 Then
SAVELOG "CountDownBrewing = 0" SAVELOG "CountDownBrewing = 0"
Open "ROOT/taobin_project/xml/page_drinkok.xml" Open "ROOT/taobin_project/xml/page_drinkok.xml"
@ -696,7 +698,7 @@
Var Game01Enable = 0 Var Game01Enable = 0
EndIf EndIf
; TODO ; TODO
DEBUGVAR EnableDoubleCupNoError DEBUGVAR EnableDoubleCupNoError
DEBUGVAR HURR_FOREVER DEBUGVAR HURR_FOREVER
@ -706,25 +708,25 @@
EndIf EndIf
;include="ROOT/taobin_project/inc/timeout_lid_and_straw_step.inc" ;include="ROOT/taobin_project/inc/timeout_lid_and_straw_step.inc"
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventMachine> <EventMachine>
</EventMachine> </EventMachine>
; this copy in file menu_brew2.xml and menu_lid_straw.xml ; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus> <EventChangeStatus>
If ChangeStatus = "payout-end" Then If ChangeStatus = "payout-end" Then
If ChangeFlag = 1 Then If ChangeFlag = 1 Then
Var ChangeOK = 2 Var ChangeOK = 2
EndIf EndIf
@ -825,9 +827,9 @@
<State>EnableSelectMenuBetweenBrew</State> <State>EnableSelectMenuBetweenBrew</State>
<Filename> next_pic_bn </Filename> <Filename> next_pic_bn </Filename>
<FilenamePress> next_pic_bp </FilenamePress> <FilenamePress> next_pic_bp </FilenamePress>
<EventClick> <EventClick>
If MachineState_Result = 0 Then If MachineState_Result = 0 Then
SAVELOG "User click next button" SAVELOG "User click next button"
Var Seeker = "next" Var Seeker = "next"
@ -835,9 +837,9 @@
;CoinPause ;CoinPause
Var PayCredit = 0 Var PayCredit = 0
Open "ROOT/taobin_project/xml/page_catalog.xml" Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf EndIf
</EventClick> </EventClick>
</Button> </Button>
<Button> <Button>
@ -846,7 +848,7 @@
<State>EnableTopupCreditBetweenBrew</State> <State>EnableTopupCreditBetweenBrew</State>
<Filename> topup_credit_bn </Filename> <Filename> topup_credit_bn </Filename>
<FilenamePress> topup_credit_bp </FilenamePress> <FilenamePress> topup_credit_bp </FilenamePress>
<EventClick> <EventClick>
If MachineState_Result = 0 Then If MachineState_Result = 0 Then
If NextOrder = "true" Then If NextOrder = "true" Then
@ -862,20 +864,20 @@
;CoinPause ;CoinPause
EndIf EndIf
SAVELOG "User click topup-credit button" SAVELOG "User click topup-credit button"
Var Seeker = "topupCredit" Var Seeker = "topupCredit"
Var PayCredit = 0 Var PayCredit = 0
If TelephoneNumber = "" Then If TelephoneNumber = "" Then
Open "ROOT/taobin_project/xml/page_topup_credit.xml" Open "ROOT/taobin_project/xml/page_topup_credit.xml"
Else Else
Open "ROOT/taobin_project/xml/page_topup_credit-ChooseNumber.xml" Open "ROOT/taobin_project/xml/page_topup_credit-ChooseNumber.xml"
EndIf EndIf
EndIf EndIf
</EventClick> </EventClick>
</Button> </Button>
@ -893,7 +895,7 @@
<X> 526 </X> <X> 526 </X>
<Y> 1680 </Y> <Y> 1680 </Y>
<Width> 241 </Width> <Width> 241 </Width>
<Height> 204 </Height> <Height> 204 </Height>
<State> ButtonGamePressToPlayState </State> <State> ButtonGamePressToPlayState </State>
<EventClick> <EventClick>
DEBUGVAR Game01Enable DEBUGVAR Game01Enable
@ -911,9 +913,9 @@
<Y> 500 </Y> <Y> 500 </Y>
<State>bg_strawlid_ST</State> <State>bg_strawlid_ST</State>
<Filename> bg_strawlid </Filename> <Filename> bg_strawlid </Filename>
<EventClick> <EventClick>
</EventClick> </EventClick>
</Button> </Button>
; straw left ; straw left
@ -925,14 +927,14 @@
<Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename> <Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable> <FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable>
<EventClick> <EventClick>
SAVELOG "Click straw cb" SAVELOG "Click straw cb"
If StrawStateX = "Press" Then If StrawStateX = "Press" Then
;Var StrawStateX = "Enable" ;Var StrawStateX = "Enable"
Else Else
Var StrawStateX = "Press" Var StrawStateX = "Press"
Var Seeker.strawAction = 1 Var Seeker.strawAction = 1
EndIf EndIf
Refresh Refresh
</EventClick> </EventClick>
@ -946,10 +948,10 @@
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename> <Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable> <FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick> <EventClick>
SAVELOG "Click straw cb" SAVELOG "Click straw cb"
If StrawStateX = "Press" Then If StrawStateX = "Press" Then
;Var StrawStateX = "Enable" ;Var StrawStateX = "Enable"
Else Else
Var StrawStateX = "Press" Var StrawStateX = "Press"
Var Seeker.strawAction = 1 Var Seeker.strawAction = 1
@ -969,18 +971,18 @@
<Filename> "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename> <Filename> "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable> <FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable>
<EventClick> <EventClick>
If Seeker.thankLidFlag = 0 Then If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID pic" SAVELOG "Click LID pic"
If LidStateX = "Press" Then If LidStateX = "Press" Then
;Var LidStateX = "Enable" ;Var LidStateX = "Enable"
Else Else
Var LidStateX = "Press" Var LidStateX = "Press"
Var Seeker.lidAction = 1 Var Seeker.lidAction = 1
EndIf EndIf
DEBUGVAR SugarState1 DEBUGVAR SugarState1
Refresh Refresh
@ -998,19 +1000,19 @@
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename> <Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable> <FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick> <EventClick>
If Seeker.thankLidFlag = 0 Then If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID cb" SAVELOG "Click LID cb"
If LidStateX = "Press" Then If LidStateX = "Press" Then
;Var LidStateX = "Enable" ;Var LidStateX = "Enable"
Else Else
Var LidStateX = "Press" Var LidStateX = "Press"
Var Seeker.lidAction = 1 Var Seeker.lidAction = 1
EndIf EndIf
Refresh Refresh
EndIf EndIf
</EventClick> </EventClick>
@ -1023,7 +1025,7 @@
<State> ButtonGameCountDownState </State> <State> ButtonGameCountDownState </State>
<Filename> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </Filename> <Filename> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </FilenamePress>
<EventClick> <EventClick>
</EventClick> </EventClick>
<Text> <Text>

160
xml/page_NewCannotConti.xml
View file

@ -21,26 +21,26 @@
Var ActionOKCase = 0 Var ActionOKCase = 0
Var ChangeTimeout = 0 Var ChangeTimeout = 0
Var ChangeOK = 0 Var ChangeOK = 0
Var MachineState_Result = 0 Var MachineState_Result = 0
Var FailedCount = 0 Var FailedCount = 0
Var ChangeAmountSum = 0 Var ChangeAmountSum = 0
Var Tel_Confirm_Flag = 0 Var Tel_Confirm_Flag = 0
DEBUGVAR MachineStage DEBUGVAR MachineStage
DEBUGVAR NextOrderStatus DEBUGVAR NextOrderStatus
If show_eng = "true" Then If show_eng = "true" Then
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png" Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var BottomText = PicturePath + "text_bottom_eng.png" Var BottomText = PicturePath + "text_bottom_eng.png"
Var TextErrorShow = "Sorry, unable to produce the next order" Var TextErrorShow = "Sorry, unable to produce the next order"
Else Else
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png" Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var BottomText = PicturePath + "text_bottom_thai2.png" Var BottomText = PicturePath + "text_bottom_thai2.png"
@ -65,11 +65,11 @@
If Seeker = "curr" Then If Seeker = "curr" Then
SAVELOG " cannot on curr" SAVELOG " cannot on curr"
Var ExtendData = Seeker.ExtendData Var ExtendData = Seeker.ExtendData
Var SessionID2 = SelectSlot + ":" Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData Var SessionID2 = SessionID2 + Seeker.ExtendData
DEBUGVAR SessionID2 DEBUGVAR SessionID2
Topping "ClearNextOrder" "-" Topping "ClearNextOrder" "-"
@ -89,7 +89,7 @@
Var PayReference = "" Var PayReference = ""
Var PayType = "" Var PayType = ""
Var SelectDrink = Seeker.selected_a_drink Var SelectDrink = Seeker.selected_a_drink
Var ServiceAmount2 = Seeker.ServiceAmount2 Var ServiceAmount2 = Seeker.ServiceAmount2
@ -102,7 +102,7 @@
Var Timeout = 0 Var Timeout = 0
Var PrintCoinAmount = 0 Var PrintCoinAmount = 0
Var waitAckPay = 0 Var waitAckPay = 0
Var VendingTSIDTmp = "" Var VendingTSIDTmp = ""
Var VendingTSIDProblem = "" Var VendingTSIDProblem = ""
@ -116,7 +116,7 @@
Else Else
Var TelephoneNumberProblem = Seeker.TNumberTaobinMember Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
EndIf EndIf
Else Else
Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit
EndIf EndIf
@ -130,7 +130,7 @@
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_en" Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
Else Else
@ -138,7 +138,7 @@
Var DirImage2 = "ROOT/taobin_project/image/topping2" Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf EndIf
DEBUGVAR show_eng DEBUGVAR show_eng
If LastMakeDrinkResult = "success" Then If LastMakeDrinkResult = "success" Then
Var MachineState_Result = 1 Var MachineState_Result = 1
@ -153,7 +153,7 @@
Var CreditCardVoid = 0 Var CreditCardVoid = 0
__CMD "PayWasSent" Seeker.ORDER_ID "-" "-" __CMD "PayWasSent" Seeker.ORDER_ID "-" "-"
</EventOpen> </EventOpen>
<EventActionOk> <EventActionOk>
@ -162,9 +162,9 @@
Var ChangeOK = 2 Var ChangeOK = 2
EndIf EndIf
If ActionOKCase = 1 Then If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":" Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData Var SessionID2 = SessionID2 + Seeker.ExtendData
@ -175,11 +175,11 @@
Var ECommerce = "" Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
@ -201,27 +201,27 @@
Var ActionOKCase = 2 Var ActionOKCase = 2
SAVELOG "back_to_main from line > 142." SAVELOG "back_to_main from line > 142."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else Else
SAVELOG "back_to_main from line > 147." SAVELOG "back_to_main from line > 147."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf EndIf
Else Else
EndIf EndIf
</EventActionOk> </EventActionOk>
<EventActionError> <EventActionError>
If ActionOKCase = 1 Then If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":" Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData Var SessionID2 = SessionID2 + Seeker.ExtendData
@ -232,11 +232,11 @@
Var ECommerce = "" Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
@ -258,32 +258,32 @@
Var ActionOKCase = 2 Var ActionOKCase = 2
SAVELOG "back_to_main from line > 204." SAVELOG "back_to_main from line > 204."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else Else
SAVELOG "back_to_main from line > 173." SAVELOG "back_to_main from line > 173."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf EndIf
Else Else
EndIf EndIf
</EventActionError> </EventActionError>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 540 Then If Timeout > 540 Then
SAVELOG "back_to_main from line > 217." SAVELOG "back_to_main from line > 217."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf EndIf
If Timeout > 480 Then If Timeout > 480 Then
Var MachineState_Result = 2 Var MachineState_Result = 2
@ -295,10 +295,10 @@
If waitAckPay = 2 Then If waitAckPay = 2 Then
If Timeout > 10 Then If Timeout > 10 Then
If Seeker.CodeChannel = 1 Then If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":" Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData Var SessionID2 = SessionID2 + Seeker.ExtendData
@ -309,11 +309,11 @@
Var ECommerce = "" Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
@ -333,9 +333,9 @@
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0 ;Var Timeout = 0
EndIf EndIf
SAVELOG "back_to_main from line > 309." SAVELOG "back_to_main from line > 309."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf EndIf
EndIf EndIf
@ -360,7 +360,7 @@
; Reject by app close order ; Reject by app close order
; XML must send pay detail by myself. ; XML must send pay detail by myself.
SAVELOG " Cannot conti with new payment" SAVELOG " Cannot conti with new payment"
If NextOrderStatus = "Disable" Then If NextOrderStatus = "Disable" Then
Var PayDetail="1/F:1221/0/" Var PayDetail="1/F:1221/0/"
Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + "/XML|"
@ -376,7 +376,7 @@
Else Else
Var PayDetail = "1/" + HURR_FOREVER Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "" Var PayDetail = PayDetail + ""
Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "" Var PayDetail = PayDetail + ""
@ -397,12 +397,13 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2
Var Timeout = 5 Var Timeout = 5
Var ActionOKCase = 1 Var ActionOKCase = 1
__CMD "send-pay-detail-now" error_code_stop_now PayDetail "-" __CMD "send-pay-detail-now" error_code_stop_now PayDetail "-"
EndIf EndIf
@ -425,7 +426,7 @@
EndIf EndIf
SAVELOG " Cannot conti with new payment ChangeTimeout > 30 " SAVELOG " Cannot conti with new payment ChangeTimeout > 30 "
Var ServiceType = "coffee-refund" Var ServiceType = "coffee-refund"
Var ServiceCredit = SelectDrink Var ServiceCredit = SelectDrink
Var SuggestID = "" Var SuggestID = ""
@ -437,6 +438,7 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2
@ -448,7 +450,7 @@
DEBUGVAR MachineState_Result DEBUGVAR MachineState_Result
DEBUGVAR ChangeOK DEBUGVAR ChangeOK
If ChangeOK = 3 Then If ChangeOK = 3 Then
If ActionOKCase = 0 Then If ActionOKCase = 0 Then
@ -469,9 +471,9 @@
Var PayDetail = PayDetail + "/XML|" Var PayDetail = PayDetail + "/XML|"
Var PayDetail = PayDetail + Seeker.OrderChanel Var PayDetail = PayDetail + Seeker.OrderChanel
Else Else
Var PayDetail = "1/" + HURR_FOREVER Var PayDetail = "1/" + HURR_FOREVER
Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "" Var PayDetail = PayDetail + ""
Var PayDetail = PayDetail + "/" Var PayDetail = PayDetail + "/"
Var PayDetail = PayDetail + "" Var PayDetail = PayDetail + ""
@ -479,28 +481,28 @@
Var PayDetail = PayDetail + Seeker.OrderChanel Var PayDetail = PayDetail + Seeker.OrderChanel
EndIf EndIf
Var DEE = PayDetail Var DEE = PayDetail
DEBUGVAR PayDetail DEBUGVAR PayDetail
DEBUGVAR PayDetail2 DEBUGVAR PayDetail2
DEBUGVAR SVT DEBUGVAR SVT
DEBUGVAR ACC DEBUGVAR ACC
DEBUGVAR VendingTSIDTmp DEBUGVAR VendingTSIDTmp
__CMD "send-pay-detail-now" error_code_stop_now PayDetail "-" __CMD "send-pay-detail-now" error_code_stop_now PayDetail "-"
;PAYEXT SVT ACC VendingTSIDTmp DEE ;PAYEXT SVT ACC VendingTSIDTmp DEE
Var ActionOKCase = 1 Var ActionOKCase = 1
If Seeker.CodeChannel = 0 Then If Seeker.CodeChannel = 0 Then
SAVELOG "back_to_main from line > 391." SAVELOG "back_to_main from line > 391."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf EndIf
Var waitAckPay = 2 Var waitAckPay = 2
Var Timeout = 5 Var Timeout = 5
@ -508,7 +510,7 @@
EndIf EndIf
If MachineState_Result = 2 Then If MachineState_Result = 2 Then
@ -517,18 +519,18 @@
If ErrTimeout = 0 Then If ErrTimeout = 0 Then
Var ErrTimeout = 1 Var ErrTimeout = 1
If Seeker.PayWithQR = 0 Then If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then If Seeker.CreditCard = 1 Then
CashlessReq FAIL Seeker.CashlessVendingTrackNumber CashlessReq FAIL Seeker.CashlessVendingTrackNumber
Var ChangeFlag = 1 Var ChangeFlag = 1
Var CreditCardVoid = 1 Var CreditCardVoid = 1
Else Else
If Seeker.CodeChannel = 0 Then If Seeker.CodeChannel = 0 Then
If ChangeFlag = 0 Then If ChangeFlag = 0 Then
Var ChangeFlag = 1 Var ChangeFlag = 1
If Seeker.StoreCreditFlag = 1 Then If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2 Var ChangeOK = 2
@ -538,19 +540,19 @@
Else Else
Change ServiceAmount2 Change ServiceAmount2
EndIf EndIf
EndIf EndIf
EndIf EndIf
Else Else
If CoinAmount > 0 Then If CoinAmount > 0 Then
If ChangeFlag = 0 Then If ChangeFlag = 0 Then
Var ChangeFlag = 1 Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
If Seeker.StoreCreditFlag = 1 Then If Seeker.StoreCreditFlag = 1 Then
@ -558,7 +560,7 @@
Else Else
Change ServiceAmount3 Change ServiceAmount3
EndIf EndIf
EndIf EndIf
Else Else
Var ChangeOK = 2 Var ChangeOK = 2
@ -572,18 +574,18 @@
Var ChangeOK = 3 Var ChangeOK = 3
EndIf EndIf
EndIf EndIf
EndIf EndIf
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;<Image> ;<Image>
@ -634,7 +636,7 @@
</Text> </Text>
<EventChangeStatus> <EventChangeStatus>
If ChangeStatus = "payout-end" Then If ChangeStatus = "payout-end" Then
If ChangeFlag = 1 Then If ChangeFlag = 1 Then
Var ChangeOK = 2 Var ChangeOK = 2
EndIf EndIf