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