taobin_project/xml/page_drinkfail2Multi.xml
2022-02-24 14:45:26 +07:00

422 lines
8.2 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xEFEDEA" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var buttonRemoveCup = "Enable"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/complete_en/"
Else
Var DirImage = "ROOT/taobin_project/image/complete/"
EndIf
Var Timeout = 0
Var Timeout2 = 0
StopLongPlay
Var FailedCount = FailedCount + 1
Var MachineErrorDetailAll = MachineErrorDetail + " / "
Var MachineErrorDetailAll = MachineErrorDetailAll + MachineErrorDetailEng
Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2
Var sendPayMultiFlag = 0
Var next_pic = ""
Var next_name = ""
Var nextCount = ""
Var next_pic_bg = ""
Var next_ready = "true"
Var cart_next = 0
DEBUGVAR CART1_READY
DEBUGVAR CART2_READY
DEBUGVAR CART3_READY
If show_eng = "true" Then
If CART_COUNT > 0 Then
If CART_INDEX < CART_COUNT Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var cart_next = CART_INDEX + 1
Var nextCount = "" + cart_next
Var nextCount = nextCount + "/"
Var nextCount = nextCount + CART_COUNT
If cart_next = 2 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE
Var next_name = CART2_NAME_ENG
Var next_ready = CART2_READY
SAVELOG cart_next
EndIf
If cart_next = 3 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE
Var next_name = CART3_NAME_ENG
Var next_ready = CART3_READY
EndIf
EndIf
EndIf
Else
If CART_COUNT > 0 Then
If CART_INDEX < CART_COUNT Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var cart_next = CART_INDEX + 1
Var nextCount = "" + cart_next
Var nextCount = nextCount + "/"
Var nextCount = nextCount + CART_COUNT
If cart_next = 2 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE
Var next_name = CART2_NAME_THAI
Var next_ready = CART2_READY
SAVELOG cart_next
EndIf
If cart_next = 3 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE
Var next_name = CART3_NAME_THAI
Var next_ready = CART3_READY
EndIf
EndIf
EndIf
EndIf
SAVELOG next_ready
;Var next_ready = "false"
Var MultiGo = 1
If next_ready = "false" Then
Var next_pic = ""
Var next_name = ""
Var nextCount = ""
Var next_pic_bg = ""
If cart_next = 2 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
Var PayDetail="1/F:1221/0/"
Var ServiceType = "coffee"
Var ServiceCredit = CART2_PDCODE
Var SuggestID = ""
Var SessionID2 = ""
DEBUGVAR CART2_PRICE
DEBUGVAR ServiceAmountSum
Var ServiceAmount2 = CART2_PRICE
Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
If Seeker.PayWithQR = 0 Then
If Seeker.CodeChannel = 0 Then
If Seeker.StoreCreditFlag = 1 Then
Else
Var ChangeAmountSum = ChangeAmountSum + ServiceAmount2
Var MultiGo = 0
EndIf
EndIf
EndIf
EndIf
If cart_next < CART_COUNT Then
Var cart_next = cart_next + 1
EndIf
If cart_next = 3 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
Var PayDetail="1/F:1221/0/"
Var ServiceType = "coffee"
Var ServiceCredit = CART3_PDCODE
Var SuggestID = ""
Var SessionID2 = ""
DEBUGVAR CART3_PRICE
DEBUGVAR ServiceAmountSum
Var ServiceAmount2 = CART3_PRICE
Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
If Seeker.PayWithQR = 0 Then
If Seeker.CodeChannel = 0 Then
If Seeker.StoreCreditFlag = 1 Then
Else
Var ChangeAmountSum = ChangeAmountSum + ServiceAmount2
Var MultiGo = 0
EndIf
EndIf
EndIf
EndIf
Var CART_INDEX = CART_COUNT
EndIf
If CART_INDEX = CART_COUNT Then
If ChangeAmountSum > 0 Then
Change ChangeAmountSum
Var MultiGo = 0
EndIf
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
SAVELOG MachineStage
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var MultiGo = 1
EndIf
If MultiGo = 1 Then
If CART_INDEX = CART_COUNT Then
;Pay Multi
If sendPayMultiFlag = 0 Then
If Seeker.PayWithQR = 0 Then
Var ServiceType = "coffee-multi"
Else
Var ServiceType = "coffee-multiQR"
EndIf
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
Var ServiceCredit = "00-00-00-0000"
Var SuggestID = ""
Var PayDetail="1/S:0/0/"
Var SessionID3 = "" + CART_COUNT
Var SessionID3 = SessionID3 + ":00000"
SAVELOG PayO2
Var VendingCampaign = Seeker.IntVendingCampaign
If ServiceAmountSum = 0 Then
Var VendingCampaign = 0
EndIf
Var CreditReference = CreditReferenceTmp
Var PayType = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate
Var sendPayMultiFlag = 1
EndIf
EndIf
EndIf
If MachineStage = "show-menu" Then
If CART_INDEX < CART_COUNT Then
Var CART_INDEX = CART_INDEX + 1
Cart "PreparID" CART_INDEX
Cart "MakeID" CART_INDEX
Open "ROOT/taobin_project/xml/page_thankyouMore.xml"
Else
If sendPayMultiFlag = 1 Then
Var Seeker.TNumberTaobinMember = ""
;Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
EndIf
EndIf
DEBUGVAR MachineStage
If MachineStage = "remove-cup" Then
Var buttonRemoveCup = "Enable"
;DEBUGVAR buttonRemoveCup
;Open "ROOT/taobin_project/xml/page_drinkfail3.xml"
Var Timeout2 = Timeout2 + 1
If Timeout2 > 15 Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3"
Var Timeout2 = 0
EndIf
Else
;Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Refresh
TimerReset
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var MultiGo = 1
EndIf
</EventChangeStatus>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<X> 46 </X>
<Y> 592 </Y>
<Filename> Var( DirImage + "/imgDrinkFailed.png" ) </Filename>
</Image>
<Image>
<X> 22 </X>
<Y> 1384 </Y>
<Filename> Var( DirImage + "/txtDrinkFailed.png" ) </Filename>
</Image>
<Image>
<X> 757 </X>
<Y> 424 </Y>
<Filename> next_pic_bg </Filename>
</Image>
<Text>
<X> 757 </X>
<Y> 448 </Y>
<Size> 20 </Size>
<Width> 280</Width>
<Align> Center </Align>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> nextCount </Value>
</Text>
<Text>
<X> 757 </X>
<Y> 538 </Y>
<Size> 20 </Size>
<Width> 280</Width>
<Align> Center </Align>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> next_name </Value>
</Text>
<Image>
<X> 823 </X>
<Y> 600 </Y>
<Width> 148 </Width>
<Height> 200 </Height>
<Filename> next_pic </Filename>
</Image>
<Button>
<X> 160 </X>
<Y> 1673 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> Var( DirImage + "/bn_open_door.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_open_door.png" ) </FilenamePress>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
</EventClick>
</Button>
</Popup>