MYS: add page for case void credit card finexus + (dev) enable next cup for credit card
This commit is contained in:
Pakin
parent
48ea2c7bb3
commit
fe8721ab9c
6 changed files with 2112 additions and 1938 deletions
File diff suppressed because it is too large
Load diff
File diff suppressed because it is too large
Load diff
813
inter/mys/xml/page_brewing3Conti_event.lxml
Normal file
813
inter/mys/xml/page_brewing3Conti_event.lxml
Normal file
|
|
@ -0,0 +1,813 @@
|
|||
<EventActionOk>
|
||||
|
||||
If CreditCardVoid = 1 Then
|
||||
Var ChangeOK = 2
|
||||
EndIf
|
||||
|
||||
If ActionOKCase = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
DEBUGVAR SessionID2
|
||||
|
||||
Var CreditAmount1 = ""
|
||||
Var ServiceAmountFlow = ""
|
||||
Var TelephoneNumber = "0899999999"
|
||||
Var ServiceType = "coffee"
|
||||
Var ECommerce = ""
|
||||
Var ECommerce = ECommerce + PriceDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.VendingCode
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.CodeNumber
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + "C:"
|
||||
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
|
||||
Var ServiceParameter = "max"
|
||||
Var ServiceCharge = 0
|
||||
Var AccountType = "new"
|
||||
Var testservice = "kbank"
|
||||
Var tc = ""
|
||||
Var GetScore = ""
|
||||
Var OperatorName = ""
|
||||
Var SessionID = ""
|
||||
|
||||
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
|
||||
;Var Timeout = 0
|
||||
Var ActionOKCase = 2
|
||||
|
||||
SAVELOG "back_to_main from line > 142."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
|
||||
Else
|
||||
|
||||
SAVELOG "back_to_main from line > 147."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
Else
|
||||
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
If waitAckPay = 1 Then
|
||||
SAVELOG "waitAckPay = 1"
|
||||
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
|
||||
EndIf
|
||||
|
||||
</EventActionOk>
|
||||
|
||||
<EventActionError>
|
||||
If ActionOKCase = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
DEBUGVAR SessionID2
|
||||
|
||||
Var CreditAmount1 = ""
|
||||
Var ServiceAmountFlow = ""
|
||||
Var TelephoneNumber = "0899999999"
|
||||
Var ServiceType = "coffee"
|
||||
Var ECommerce = ""
|
||||
Var ECommerce = ECommerce + PriceDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.VendingCode
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.CodeNumber
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + "C:"
|
||||
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
|
||||
Var ServiceParameter = "max"
|
||||
Var ServiceCharge = 0
|
||||
Var AccountType = "new"
|
||||
Var testservice = "kbank"
|
||||
Var tc = ""
|
||||
Var GetScore = ""
|
||||
Var OperatorName = ""
|
||||
Var SessionID = ""
|
||||
|
||||
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
|
||||
;Var Timeout = 0
|
||||
Var ActionOKCase = 2
|
||||
|
||||
SAVELOG "back_to_main from line > 204."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
|
||||
Else
|
||||
SAVELOG "back_to_main from line > 173."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
Else
|
||||
|
||||
|
||||
|
||||
EndIf
|
||||
</EventActionError>
|
||||
|
||||
|
||||
<Timeout> 1000 </Timeout>
|
||||
<EventTimeout>
|
||||
|
||||
Var Timeout = Timeout + 1
|
||||
|
||||
If MOVE_CUP_TO_DOOR = "true" Then
|
||||
Var MOVE_CUP_TO_DOOR = "false"
|
||||
EndIf
|
||||
|
||||
If BREW_COUNT_DOWN_FROM_APP = "on" Then
|
||||
Var CountDownBrewing = BREW_CNT
|
||||
Else
|
||||
|
||||
If CountDownBrewing > 0 Then
|
||||
Var CountDownBrewing = CountDownBrewing - 1
|
||||
EndIf
|
||||
Endif
|
||||
|
||||
If Simulation = "true" Then
|
||||
If CountDownBrewing = 0 Then
|
||||
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Timeout = 4 Then
|
||||
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
|
||||
EndIf
|
||||
|
||||
; run test;
|
||||
;If CountDownBrewing = 40 Then
|
||||
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
;EndIf
|
||||
If CountDownBrewing = 0 Then
|
||||
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
EndIf
|
||||
|
||||
Var ShowCountDownBrewing = CountDownBrewing
|
||||
|
||||
|
||||
If Timeout > 540 Then
|
||||
SAVELOG "back_to_main from line > 217."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
|
||||
If Timeout > 480 Then
|
||||
Var MachineState_Result = 2
|
||||
EndIf
|
||||
|
||||
If ChangeFlag = 1 Then
|
||||
Var ChangeTimeout = ChangeTimeout + 1
|
||||
EndIf
|
||||
|
||||
If waitAckPay = 1 Then
|
||||
If Timeout > 60 Then
|
||||
Var VendingTSIDTmp1 = ""
|
||||
SAVELOG "waitAckPay = 1 tineout > 60"
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If waitAckPay = 2 Then
|
||||
If Timeout > TimeoutWaitPay Then
|
||||
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
DEBUGVAR SessionID2
|
||||
|
||||
Var CreditAmount1 = ""
|
||||
Var ServiceAmountFlow = ""
|
||||
Var TelephoneNumber = "0899999999"
|
||||
Var ServiceType = "coffee"
|
||||
Var ECommerce = ""
|
||||
Var ECommerce = ECommerce + PriceDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.VendingCode
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.CodeNumber
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + "C:"
|
||||
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
|
||||
Var ServiceParameter = "max"
|
||||
Var ServiceCharge = 0
|
||||
Var AccountType = "new"
|
||||
Var testservice = "kbank"
|
||||
Var tc = ""
|
||||
Var GetScore = ""
|
||||
Var OperatorName = ""
|
||||
Var SessionID = ""
|
||||
|
||||
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"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If ChangeOK = 2 Then
|
||||
If ActionOKCase = 0 Then
|
||||
|
||||
If Seeker.TNumberTaobinCredit = "" Then
|
||||
Var TelephoneNumber = "0899999999"
|
||||
Var PayO2 = ""
|
||||
|
||||
If Seeker.TNumberTaobinMember = "" Then
|
||||
Else
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinMember
|
||||
EndIf
|
||||
|
||||
Else
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinCredit
|
||||
Var PayO2 = Seeker.CoffeePinNumber
|
||||
EndIf
|
||||
|
||||
|
||||
If HURR_FOREVER = "S:0" Then
|
||||
Var HURR_FOREVER = "F:1303"
|
||||
EndIf
|
||||
|
||||
|
||||
Var PayDetail = "2/" + HURR_FOREVER
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + SAMESALARY
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + NOBONUS
|
||||
Var PayDetail = PayDetail + "/XML|"
|
||||
Var PayDetail = PayDetail + Seeker.OrderChanel
|
||||
|
||||
|
||||
|
||||
;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
|
||||
|
||||
Var ServiceType = "coffee"
|
||||
Var ServiceCredit = SelectDrink
|
||||
Var SuggestID = ""
|
||||
Var SessionID2 = ""
|
||||
|
||||
|
||||
Var PayDetail2 = Seeker.PayDetail2
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
||||
|
||||
|
||||
;If Seeker.CodeChannel = 0 Then
|
||||
; SAVELOG "back_to_main from line > 315."
|
||||
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
;EndIf
|
||||
|
||||
Var waitAckPay = 2
|
||||
Var TimeoutWaitPay = 45
|
||||
Var Timeout = 5
|
||||
Var ActionOKCase = 1
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If ChangeTimeout > 30 Then
|
||||
If ActionOKCase = 0 Then
|
||||
If Seeker.TNumberTaobinCredit = "" Then
|
||||
Var TelephoneNumber = "0899999999"
|
||||
Var PayO2 = ""
|
||||
|
||||
If Seeker.TNumberTaobinMember = "" Then
|
||||
Else
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinMember
|
||||
EndIf
|
||||
|
||||
Else
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinCredit
|
||||
Var PayO2 = Seeker.CoffeePinNumber
|
||||
EndIf
|
||||
|
||||
|
||||
If HURR_FOREVER = "S:0" Then
|
||||
Var HURR_FOREVER = "F:1303"
|
||||
EndIf
|
||||
|
||||
Var PayDetail = "2/" + HURR_FOREVER
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + SAMESALARY
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + NOBONUS
|
||||
Var PayDetail = PayDetail + "/XML|"
|
||||
Var PayDetail = PayDetail + Seeker.OrderChanel
|
||||
|
||||
;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
|
||||
|
||||
|
||||
Var ServiceType = "coffee"
|
||||
Var ServiceCredit = SelectDrink
|
||||
Var SuggestID = ""
|
||||
Var SessionID2 = ""
|
||||
|
||||
|
||||
Var PayDetail2 = Seeker.PayDetail2
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
||||
|
||||
;If Seeker.CodeChannel = 0 Then
|
||||
; SAVELOG "back_to_main from line > 357."
|
||||
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
;EndIf
|
||||
|
||||
Var waitAckPay = 2
|
||||
Var TimeoutWaitPay = 45
|
||||
Var Timeout = 5
|
||||
Var ActionOKCase = 1
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If ChangeOK = 3 Then
|
||||
If ActionOKCase = 0 Then
|
||||
|
||||
Var SVT = "coffee"
|
||||
Var ACC = "0899999999"
|
||||
|
||||
If Seeker.TNumberTaobinMember = "" Then
|
||||
Else
|
||||
Var ACC = Seeker.TNumberTaobinMember
|
||||
EndIf
|
||||
|
||||
|
||||
If HURR_FOREVER = "S:0" Then
|
||||
Var HURR_FOREVER = "F:1303"
|
||||
EndIf
|
||||
|
||||
Var PayDetail = "2/" + HURR_FOREVER
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + SAMESALARY
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + NOBONUS
|
||||
Var PayDetail = PayDetail + "/XML|"
|
||||
Var PayDetail = PayDetail + Seeker.OrderChanel
|
||||
|
||||
|
||||
|
||||
|
||||
Var DEE = PayDetail
|
||||
|
||||
PAYEXT SVT ACC VendingTSIDTmp DEE
|
||||
|
||||
CoinBack
|
||||
|
||||
|
||||
Var ActionOKCase = 1
|
||||
If Seeker.CodeChannel = 0 Then
|
||||
SAVELOG "back_to_main from line > 391."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
Var waitAckPay = 2
|
||||
Var TimeoutWaitPay = 45
|
||||
Var Timeout = 5
|
||||
|
||||
|
||||
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If MachineState_Result = 1 Then
|
||||
|
||||
;Var MachineState_Result = 2
|
||||
|
||||
EndIf
|
||||
|
||||
If MachineState_Result = 1 Then
|
||||
DEBUGVAR PaySuccessWithDaemonTask
|
||||
|
||||
If waitAckPay = 0 Then
|
||||
|
||||
Var waitAckPay = 0
|
||||
Var Timeout = 0
|
||||
|
||||
Var ProcessText = ""
|
||||
|
||||
If Seeker.TNumberTaobinCredit = "" Then
|
||||
Var TelephoneNumber = "0899999999"
|
||||
Var PayO2 = ""
|
||||
|
||||
If Seeker.TNumberTaobinMember = "" Then
|
||||
Else
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinMember
|
||||
EndIf
|
||||
|
||||
Else
|
||||
Var TelephoneNumber = Seeker.TNumberTaobinCredit
|
||||
Var PayO2 = Seeker.CoffeePinNumber
|
||||
EndIf
|
||||
|
||||
If AddData = 1 Then
|
||||
Var Cid = 26
|
||||
DEBUGVAR "Brewing3Conti"
|
||||
DEBUGVAR Seeker
|
||||
DEBUGVAR Seeker.UseGet15Discount
|
||||
If NewCollectPoint = 1 Then
|
||||
If Seeker.UseGet15Discount = 1 Then
|
||||
Var Cid = 39
|
||||
Else
|
||||
Var Cid = 40
|
||||
Var PreviousSeeker.UseGetDrink5Bath = 0
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
|
||||
EndIf
|
||||
|
||||
Var ServiceType = "coffee"
|
||||
Var ServiceCredit = SelectDrink
|
||||
Var SuggestID = ""
|
||||
|
||||
Var PayDetail = "2/" + HURR_FOREVER
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + SAMESALARY
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + NOBONUS
|
||||
Var PayDetail = PayDetail + "/XML|"
|
||||
Var PayDetail = PayDetail + Seeker.OrderChanel
|
||||
|
||||
|
||||
;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
|
||||
|
||||
If GetFreeFromError = 1 Then
|
||||
Var Seeker.CodeChannel = 1
|
||||
Var Seeker.VendingCode = "C48"
|
||||
Var Seeker.CodeNumber = "0000000000"
|
||||
Var VendingCampaign = ServiceAmount2
|
||||
EndIf
|
||||
|
||||
If Seeker.PayWithQR = 0 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SessionID2 + "/"
|
||||
Var SessionID2 = SessionID2 + ""
|
||||
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 + "/"
|
||||
|
||||
If Seeker.CreditCard = 1 Then
|
||||
|
||||
CashlessReq SUCCESS
|
||||
;CashlessReq FAIL
|
||||
|
||||
EndIf
|
||||
Var PayDetail2 = Seeker.PayDetail2
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
||||
Else
|
||||
|
||||
|
||||
If Seeker.CreditCard = 1 Then
|
||||
|
||||
|
||||
CashlessReq SUCCESS
|
||||
;CashlessReq FAIL
|
||||
|
||||
EndIf
|
||||
Var PayDetail2 = Seeker.PayDetail2
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
Else
|
||||
|
||||
;no wait ack pay
|
||||
Var waitAckPay = 0
|
||||
|
||||
Var SVT = "coffee"
|
||||
Var ACC = "0899999999"
|
||||
Var DEE = PayDetail
|
||||
|
||||
If Seeker.TNumberTaobinMember = "" Then
|
||||
Else
|
||||
Var ACC = Seeker.TNumberTaobinMember
|
||||
EndIf
|
||||
|
||||
PAYEXT SVT ACC VendingTSIDTmp DEE
|
||||
|
||||
CoinBack
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
|
||||
__CMD "clear-stock-data" 0 "-" "-"
|
||||
|
||||
Var ServiceSuccess = "yes"
|
||||
If waitAckPay = 0 Then
|
||||
|
||||
SAVELOG "waitAckPay = 0 Timeout"
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
|
||||
If MachineState_Result = 2 Then
|
||||
|
||||
SAVELOG MachineStage
|
||||
|
||||
If ErrTimeout = 0 Then
|
||||
Var ErrTimeout = 1
|
||||
|
||||
If AddData = 1 Then
|
||||
Var Cid = 26
|
||||
|
||||
If NewCollectPoint = 1 Then
|
||||
If Seeker.UseGet15Discount = 1 Then
|
||||
Var Cid = 39
|
||||
Else
|
||||
Var Cid = 40
|
||||
Var PreviousSeeker.UseGetDrink5Bath = 0
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
|
||||
EndIf
|
||||
|
||||
|
||||
If Seeker.PayWithQR = 0 Then
|
||||
|
||||
If Seeker.CreditCard = 1 Then
|
||||
|
||||
Open "ROOT/taobin_project/inter/mys/xml/page_void_credit_cardConti.lxml"
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
If Seeker.CodeChannel = 0 Then
|
||||
If ChangeFlag = 0 Then
|
||||
Var ChangeFlag = 1
|
||||
|
||||
If Seeker.StoreCreditFlag = 1 Then
|
||||
Var ChangeOK = 2
|
||||
Else
|
||||
If GetFreeFromError = 1 Then
|
||||
Var ChangeOK = 2
|
||||
Else
|
||||
Change ServiceAmount2
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
|
||||
Else
|
||||
|
||||
If Seeker.VendingCode = "MKFOO" Then
|
||||
Var Cid = 33
|
||||
Var PointCrm = "0"
|
||||
Var GetScore = "1"
|
||||
Var TelephoneNumberx = "0899999999"
|
||||
AddData Cid Seeker.TNumberTaobinMember Seeker.CodeNumber PointCrm GetScore
|
||||
Var Seeker.CodeChannel = 0
|
||||
EndIf
|
||||
|
||||
If CoinAmount > 0 Then
|
||||
|
||||
If ChangeFlag = 0 Then
|
||||
Var ChangeFlag = 1
|
||||
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
|
||||
|
||||
If Seeker.StoreCreditFlag = 1 Then
|
||||
Var ChangeOK = 2
|
||||
Else
|
||||
Change ServiceAmount3
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
Else
|
||||
Var ChangeOK = 2
|
||||
EndIf
|
||||
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
Else
|
||||
Var ChangeOK = 3
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"
|
||||
|
||||
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
|
||||
|
||||
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"
|
||||
;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
DEBUGVAR LastMakeDrinkResult
|
||||
DEBUGVAR MachineStage
|
||||
|
||||
|
||||
If LastMakeDrinkResult = "success" Then
|
||||
Var MachineState_Result = 1
|
||||
EndIf
|
||||
|
||||
If LastMakeDrinkResult = "fail" Then
|
||||
Var MachineState_Result = 2
|
||||
EndIf
|
||||
|
||||
If MachineStage = "drink-success" Then
|
||||
Var MachineState_Result = 1
|
||||
EndIf
|
||||
|
||||
If MachineStage = "drink-failed" Then
|
||||
If RoadShow = "true" Then
|
||||
Open "ROOT/taobin_project/xml/page_back_to_error.xml"
|
||||
Else
|
||||
Var MachineState_Result = 2
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If MachineState_Result > 0 Then
|
||||
Var EnableSelectMenuBetweenBrew = "Invisible"
|
||||
Var EnableTopupCreditBetweenBrew = "Invisible"
|
||||
EndIf
|
||||
|
||||
If EnableSelectMenuBetweenBrew = "Enable" Then
|
||||
If EnableSelectMenuBetweenBrewBlink = "Enable" Then
|
||||
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
|
||||
Else
|
||||
Var EnableSelectMenuBetweenBrewBlink = "Enable"
|
||||
EndIf
|
||||
|
||||
Else
|
||||
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
|
||||
EndIf
|
||||
|
||||
DEBUGVAR CountUpBrewing
|
||||
; animation video loop
|
||||
If AnimationOn = "true" Then
|
||||
Var CountUpBrewing = CountUpBrewing + 1
|
||||
|
||||
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
|
||||
|
||||
If PreviseStepVideo = SlotVideo Then
|
||||
;SAVELOG SlotVideo
|
||||
Else
|
||||
Var PreviseStepVideo = SlotVideo
|
||||
;SAVELOG PreviseStepVideo
|
||||
;SAVELOG SlotVideo
|
||||
;SAVELOG CountUpBrewing
|
||||
|
||||
;Var CountDownVideoTime = CountDownVideoTimeReload
|
||||
|
||||
Var StepVideo = SlotVideo + 2
|
||||
|
||||
;SAVELOG StepVideo
|
||||
|
||||
If StepVideo = 1 Then
|
||||
Var videoID = VideoID1
|
||||
EndIf
|
||||
If StepVideo = 2 Then
|
||||
Var videoID = VideoID2
|
||||
EndIf
|
||||
If StepVideo = 3 Then
|
||||
Var videoID = VideoID3
|
||||
EndIf
|
||||
If StepVideo = 4 Then
|
||||
Var videoID = VideoID4
|
||||
EndIf
|
||||
If StepVideo = 5 Then
|
||||
Var videoID = VideoID5
|
||||
EndIf
|
||||
If StepVideo = 6 Then
|
||||
Var videoID = VideoID6
|
||||
EndIf
|
||||
If StepVideo = 7 Then
|
||||
Var videoID = VideoID7
|
||||
EndIf
|
||||
If StepVideo = 8 Then
|
||||
Var videoID = VideoID8
|
||||
EndIf
|
||||
If StepVideo = 9 Then
|
||||
Var videoID = VideoID9
|
||||
EndIf
|
||||
|
||||
;SAVELOG videoID
|
||||
|
||||
If videoID = 0 Then
|
||||
|
||||
Else
|
||||
If videoID = "---" Then
|
||||
|
||||
Else
|
||||
|
||||
Var VideoPlayFile = VideoPath
|
||||
Var VideoPlayFile = VideoPlayFile + VideoFileBegin
|
||||
Var VideoPlayFile = VideoPlayFile + videoID
|
||||
Var VideoPlayFile = VideoPlayFile + VideoFileEnd
|
||||
|
||||
Var PictureFile = PicturePath
|
||||
Var PictureFile = PictureFile + PictureBegin
|
||||
Var PictureFile = PictureFile + videoID
|
||||
Var PictureFile = PictureFile + PictureEnd
|
||||
|
||||
DEBUGVAR VideoPlayFile
|
||||
DEBUGVAR PictureFile
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If IgnoreNetCore = "true" Then
|
||||
If CountDownBrewing = 0 Then
|
||||
SAVELOG "CountDownBrewing = 0"
|
||||
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If ButtonGameCountDown > 0 Then
|
||||
If ButtonGameCountDown = 1 Then
|
||||
Var ButtonGameCountDownState = "Invisible"
|
||||
Var ButtonGamePressToPlayState = "Enable"
|
||||
EndIf
|
||||
Var ButtonGameCountDown = ButtonGameCountDown - 1
|
||||
DEBUGVAR ButtonGameCountDown
|
||||
EndIf
|
||||
|
||||
|
||||
DEBUGVAR BREW_CNT
|
||||
DEBUGVAR ButtonGamePressToPlayState
|
||||
If BREW_CNT > 60 Then
|
||||
|
||||
Else
|
||||
Var ButtonGamePressToPlayState = "Invisible"
|
||||
Var Game01Enable = 0
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Refresh
|
||||
TimerReset
|
||||
|
||||
</EventTimeout>
|
||||
|
||||
<EventMachine>
|
||||
|
||||
</EventMachine>
|
||||
|
||||
; this copy in file menu_brew2.xml and menu_lid_straw.xml
|
||||
<EventChangeStatus>
|
||||
If ChangeStatus = "payout-end" Then
|
||||
If ChangeFlag = 1 Then
|
||||
Var ChangeOK = 2
|
||||
EndIf
|
||||
EndIf
|
||||
</EventChangeStatus>
|
||||
1105
inter/mys/xml/page_brewing3_event.lxml
Normal file
1105
inter/mys/xml/page_brewing3_event.lxml
Normal file
File diff suppressed because it is too large
Load diff
65
inter/mys/xml/page_void_credit_card.lxml
Normal file
65
inter/mys/xml/page_void_credit_card.lxml
Normal file
|
|
@ -0,0 +1,65 @@
|
|||
<Popup>
|
||||
<Cache> "Enable" </Cache>
|
||||
<Width> 1080 </Width>
|
||||
<Height> 1920 </Height>
|
||||
;<Background> "0xeae6e1" </Background>
|
||||
<Volume> SoundVolume </Volume>
|
||||
|
||||
<EventOpen>
|
||||
|
||||
If ChangeTimeout = "" Then
|
||||
Var ChangeTimeout = 0
|
||||
EndIf
|
||||
|
||||
|
||||
DEBUGVAR "Credit::void.switch(app: finexus)"
|
||||
WRITE_FILE "/mnt/sdcard/app_run_flag" "1"
|
||||
CashlessReq FAIL
|
||||
Var ChangeFlag = 1
|
||||
Var CreditCardVoid = 1
|
||||
</EventOpen>
|
||||
|
||||
;include="ROOT/taobin_project/inter/mys/xml/page_brewing3_event.lxml"
|
||||
|
||||
;include="ROOT/taobin_project/inc/video.inc"
|
||||
|
||||
|
||||
<Image>
|
||||
<X> 0 </X>
|
||||
<Y> 380 </Y>
|
||||
<State> "Enable" </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
|
||||
</Image>
|
||||
|
||||
<GIF>
|
||||
<X> 493 </X>
|
||||
<Y> 968 </Y>
|
||||
<Width> 94 </Width>
|
||||
<Height> 94 </Height>
|
||||
<State> "Enable" </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_payment_en/page_payment/loading.gif" </Filename>
|
||||
</GIF>
|
||||
|
||||
<Text>
|
||||
<X> 50 </X>
|
||||
<Y> 865 </Y>
|
||||
<Size> 72 </Size>
|
||||
<Align> Center </Align>
|
||||
<Width> 1080 </Width>
|
||||
<Font> KanitRegularTTF </Font>
|
||||
<State> DisplayQR </State>
|
||||
<Color> 0xFF0000 </Color>
|
||||
<Value> "Please wait ..." </Value>
|
||||
</Text>
|
||||
|
||||
<EventUnitTest5>
|
||||
DEBUGVAR "TestVoidCredit"
|
||||
TestSwitchApp "com.finexuscards.yippiepos.VOID" "true" "page_brewing3.lxml::EventUnitTest5"
|
||||
;com.forthvending.newui
|
||||
;TestSwitchApp "com.forthvending.newui" "true" "page_brewing3.lxml::EventUnitTest5"
|
||||
|
||||
|
||||
</EventUnitTest5>
|
||||
|
||||
|
||||
</Popup>
|
||||
65
inter/mys/xml/page_void_credit_cardConti.lxml
Normal file
65
inter/mys/xml/page_void_credit_cardConti.lxml
Normal file
|
|
@ -0,0 +1,65 @@
|
|||
<Popup>
|
||||
<Cache> "Enable" </Cache>
|
||||
<Width> 1080 </Width>
|
||||
<Height> 1920 </Height>
|
||||
;<Background> "0xeae6e1" </Background>
|
||||
<Volume> SoundVolume </Volume>
|
||||
|
||||
<EventOpen>
|
||||
|
||||
If ChangeTimeout = "" Then
|
||||
Var ChangeTimeout = 0
|
||||
EndIf
|
||||
|
||||
|
||||
DEBUGVAR "Credit::void.switch(app: finexus).next(true)"
|
||||
WRITE_FILE "/mnt/sdcard/app_run_flag" "1"
|
||||
CashlessReq FAIL
|
||||
Var ChangeFlag = 1
|
||||
Var CreditCardVoid = 1
|
||||
</EventOpen>
|
||||
|
||||
;include="ROOT/taobin_project/inter/mys/xml/page_brewing3Conti_event.lxml"
|
||||
|
||||
;include="ROOT/taobin_project/inc/video.inc"
|
||||
|
||||
|
||||
<Image>
|
||||
<X> 0 </X>
|
||||
<Y> 380 </Y>
|
||||
<State> "Enable" </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
|
||||
</Image>
|
||||
|
||||
<GIF>
|
||||
<X> 493 </X>
|
||||
<Y> 968 </Y>
|
||||
<Width> 94 </Width>
|
||||
<Height> 94 </Height>
|
||||
<State> "Enable" </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_payment_en/page_payment/loading.gif" </Filename>
|
||||
</GIF>
|
||||
|
||||
<Text>
|
||||
<X> 50 </X>
|
||||
<Y> 865 </Y>
|
||||
<Size> 72 </Size>
|
||||
<Align> Center </Align>
|
||||
<Width> 1080 </Width>
|
||||
<Font> KanitRegularTTF </Font>
|
||||
<State> DisplayQR </State>
|
||||
<Color> 0xFF0000 </Color>
|
||||
<Value> "Please wait ..." </Value>
|
||||
</Text>
|
||||
|
||||
<EventUnitTest5>
|
||||
DEBUGVAR "TestVoidCredit"
|
||||
TestSwitchApp "com.finexuscards.yippiepos.VOID" "true" "page_brewing3Conti.lxml::EventUnitTest5"
|
||||
;com.forthvending.newui
|
||||
;TestSwitchApp "com.forthvending.newui" "true" "page_brewing3.lxml::EventUnitTest5"
|
||||
|
||||
|
||||
</EventUnitTest5>
|
||||
|
||||
|
||||
</Popup>
|
||||
Loading…
Add table
Add a link
Reference in a new issue