pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions
taobin_project/xml/menu_page5.xml
Wanlop a497d17fc2 First start TaoBin
2020-09-14 15:09:29 +07:00

366 lines
8.3 KiB
XML
Raw Blame History

<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Loading_Page5.bmp" </Background>
<EventOpen>
; On open
Var Timeout = 0
Var Change3Timeout = 0
Var ActionOKCase = 0
</EventOpen>
<EventActionOk>
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
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 + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
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
Else
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
EndIf
If ActionOKCase = 2 Then
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
</EventActionOk>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If ActionOKCase > 0 Then
If Timeout > 150 Then
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
EndIf
If Timeout > 60 Then
If ErrTimeout = 0 Then
Var ErrTimeout = 1
Var BrewingTextEng = ""
Var BrewingTextThai = ""
Var ProcessText = "ระบบขัดข้อง"
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_failed.gif"
If PayWithQR = 0 Then
If CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Change ServiceAmount2
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
Change ServiceAmount2
EndIf
Else
Var ChangeOK = 4
EndIf
EndIf
Else
Var ChangeOK = 3
EndIf
Open "ROOT/xml/menu_page5.xml"
EndIf
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
Var TelephoneNumber = "0899999999"
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;Open "ROOT/xml/menu_closeMaintenance.xml"
Var ActionOKCase = 1
EndIf
EndIf
If ChangeTimeout > 60 Then
If ActionOKCase = 0 Then
Var TelephoneNumber = "0899999999"
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;Open "ROOT/xml/menu_closeMaintenance.xml"
Var ActionOKCase = 1
EndIf
EndIf
If ChangeOK = 3 Then
Var Change3Timeout = Change3Timeout + 1
If Change3Timeout > 3 Then
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
EndIf
If ChangeOK = 4 Then
If ActionOKCase = 0 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
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 + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
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
EndIf
EndIf
If MachineState_Result = 1 Then
Var Timeout = 0
Var ProcessText = ""
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_ready.gif"
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
If PayWithQR = 0 Then
If CodeChannel = 1 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + 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 + CodeNumber
Var SessionID2 = SessionID2 + "/"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
Var ServiceSuccess = "yes"
Open "ROOT/xml/menu_page6.xml"
EndIf
If MachineState_Result = 2 Then
If ErrTimeout = 0 Then
Var ErrTimeout = 1
Var BrewingTextEng = ""
Var BrewingTextThai = ""
Var ProcessText = "ระบบขัดข้อง"
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_failed.gif"
If PayWithQR = 0 Then
If CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Change ServiceAmount2
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
Change ServiceAmount2
EndIf
Else
Var ChangeOK = 4
EndIf
EndIf
Else
Var ChangeOK = 3
EndIf
Open "ROOT/xml/menu_page5.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "make-drink" Then
Var Timeout = 0
Var ProcessText = ""
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Open "ROOT/xml/menu_page5.xml"
EndIf
If MachineStage = "prepar-cup" Then
Var Timeout = 0
Var ProcessText = ""
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Open "ROOT/xml/menu_page5.xml"
EndIf
If MachineStage = "ice-out" Then
Var Timeout = 0
Var ProcessText = ""
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_ice.gif"
Open "ROOT/xml/menu_page5.xml"
EndIf
If MachineStage = "brewing" Then
Var Timeout = 0
Var ProcessText = ""
Open "ROOT/xml/menu_page5.xml"
EndIf
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var ChangeOK = 2
EndIf
</EventChangeStatus>
<GIF>
<X> 183 </X>
<Y> 350 </Y>
<Filename> GIFShowProcess </Filename>
</GIF>
<Text>
<X> 420 </X>
<Y> 250 </Y>
<Width>250</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> ProcessText </Value>
</Text>
<Text>
<X> 420 </X>
<Y> 250 </Y>
<Width>250</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> BrewingTextEng </Value>
</Text>
<Text>
<X> 420 </X>
<Y> 315 </Y>
<Width>250</Width>
<Align> Center </Align>
<Size> 25 </Size>
<Font> fontType1 </Font>
<Color> 0xB78F24 </Color>
<Value> BrewingTextThai </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>
Reference in a new issue View git blame Copy permalink