taobin_project/xml/page_payment.xml
2022-08-23 16:44:48 +07:00

455 lines
9.3 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<EventOpen>
; On open
Var GetPayInfoFlag = 0
Var SessionID2 = ""
Var testservice = "kbank"
Var QRCODE99 = ""
Var QRCODETMP = ""
Var QRChannel = 0
;Var PriceDrink = 5
Var DiscountDrink = 0
Var SelectSlot = "1"
SAVELOG BoxID
Var ServiceCharge = 0
Var AdultFlag = 0
If SelectDrink = "12-05-02-0028" Then
Var AdultFlag = 1
EndIf
If SelectDrink = "12-05-02-0029" Then
Var AdultFlag = 1
EndIf
If SelectDrink = "12-05-03-0028" Then
Var AdultFlag = 1
EndIf
If SelectDrink = "12-05-03-0029" Then
Var AdultFlag = 1
EndIf
If SelectDrink = "12-02-01-0017" Then
Var AdultFlag = 1
EndIf
If SelectDrink = "12-05-02-0027" Then
Var AdultFlag = 1
EndIf
If SelectDrink = "12-05-03-0027" Then
Var AdultFlag = 1
EndIf
If CustomerFilterEnable = "YES" Then
Var AdultFlag = 1
DEBUGVAR CustomerFilterType
EndIf
;Var AdultFlag = 1
Var QRCODE1 = "A000000677010112"
Var QRCODE2 = "010755600066301"
Var QRCODE3 = "VDGN"
Var QRCODE4 = BoxID
Var QRCODE5 = SelectSlot
Var QRCODE6 = SelectDrink
Var QRCODE7 = PriceDrink
Var QRCODE8 = ""
Var CountStepPackPayment = 0
Var CountStepForCupFlagDelay = 1
Var VendingBank = "other"
Var ReqPayInfoFromCashOther = 0
Var Seeker.TxRef1 = ""
Var Seeker.OrderChanel = "Normal"
Var Seeker.CurrCreditAmount = 0
Var Seeker.CurrCreditUse = 0
Var Seeker.CurrCreditTelNum = ""
Var Seeker.CurrCreditPinNum = ""
Var Seeker.TaobinErrorNetwork = 0
Var Seeker.VendingCode = "C00"
Var Seeker.VendingCampaignRI3 = 0
Var Seeker.IntVendingCampaign = 0
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 0
Var CoinVendingOnFlag = 0
Var Seeker.IntVendingCredit = 0
Var Seeker.StoreCreditFlag = 0
Var Seeker.pageStoreCredit0 = 0
Var Seeker.TNumberTaobinCredit = ""
Var Seeker.TNumberTaobinMember = ""
Var Seeker.CoffeePinNumber = ""
Var Seeker.VendingDiscount = 0
Var Seeker.VendingCampaign = 0
Var Seeker.VendingTSID = ""
Var PayType = ""
Var CART_INDEX = 0
Var QRCODE99KBANK = ""
Var QRCODE99Shoppy = ""
Var LOADING_STATE = "Invisible"
Var QR_POPUP = "/img_popup2.png"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var PlaySoundLag = "ROOT/taobin_project/sound_eng/How_would_you_like_to_pay.mp3"
Var PlaySoundCodeLang = "ROOT/sounds_eng/Code8digit.m4a"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3"
Var PlaySoundCodeLang = "ROOT/sounds/Code8digit.m4a"
EndIf
SAVELOG MachineStage
If AdultFlag = 1 Then
If CameraCount = 1 Then
CameraSetting "usbfront" "default" "Rotate=270,Resolution=1280x720,scaleX=1.0,scaleY=1.0"
EndIf
Var PlaySoundLag = ""
EndIf
READ_FILE "/mnt/sdcard/can_sell" ReadyForBrew
If ReadyForBrew = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Var ReadyForBrew = "false"
EndIf
; Test
;Var MachineStage = "-"
Var PayReference = ""
Var Seeker.CreditReferenceTmp = ""
If web_app_prepar = "true" Then
Var web_app_prepar = "false"
__CMD "ui-load-playlist" 0 SelectDrink "-"
EndIf
Var ServiceAmount2 = PriceDrink
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var VendingCreditRemain = ""
DEBUGVAR Seeker.thankLidFlag
DEBUGVAR Seeker.thankStrawFlag
Var Seeker.PayWithQR = 0
Var Seeker.CampaignPayChanel = "cash"
Var Seeker.CampaignPCode = SelectDrink
Var Seeker.CampaignPPrice = PriceDrink
If CupChecking = "true" Then
Var StageShowAlias = "Invisible"
Var StageShowLoading = "Enable"
Else
Var StageShowAlias = "Enable"
Var StageShowLoading = "Invisible"
EndIf
Var Delay = 0
Var DelayCount = 0
DEBUGVAR SelectDrink
If RoadShow = "true" Then
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
Var NOCashFlag = 0
If SELLSTATUS = "SELLNOCASH" Then
Var NOCashFlag = 1
EndIf
</EventOpen>
<Timeout> 900 </Timeout>
<EventTimeout>
If Seeker = "curr" Then
If web_ready = "false" Then
If MachineStage = "remove-cup" Then
SAVELOG "MachineStage = remove-cup"
If HaveCup = "true" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
EndIf
EndIf
If CupChecking = "true" Then
If HaveCup = "true" Then
SAVELOG "Have cup"
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
EndIf
EndIf
If DoorCupPosition = "bottom" Then
Else
SAVELOG "DoorCupPosition not bottom"
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
EndIf
EndIf
Else
EndIf
;If CupChecking = "true" Then
; Var CountStepForCupFlagDelay = 3
;EndIf
If HaveCup = "true" Then
Var CountStepForCupFlagDelay = 3
EndIf
If ReadyForBrew = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Var ReadyForBrew = "false"
EndIf
If Seeker = "curr" Then
If MachineStage = "remove-cup" Then
SAVELOG "MachineStage = remove-cup 2"
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
EndIf
EndIf
If CupChecking = "false" Then
Var CountStepPackPayment = CountStepPackPayment + 1
EndIf
;Var CountStepPackPayment = 1
DEBUGVAR Seeker
DEBUGVAR HaveCup
DEBUGVAR CupChecking
DEBUGVAR CountStepPackPayment
DEBUGVAR CountStepForCupFlagDelay
If CountStepPackPayment = CountStepForCupFlagDelay Then
If Seeker = "curr" Then
Var Seeker.ExtendData = ExtendDataCurr
Else
Var Seeker.ExtendData = ExtendDataNext
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
If GetPayInfoFlag = 0 Then
SaveLog "RoadShow test"
If RoadShow = "false" Then
;CoinVending ON
If AdultFlag = 1 Then
Var CoinAmount = 0
Else
If NOCashFlag = 0 Then
CoinVending XBILL
Else
Var CoinAmount = 0
EndIf
EndIf
;Var CoinAmount = 0
Var Delay = 1
Else
Var Delay = 1
EndIf
Var RemainAmount = 0
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
;Var CreditAmount1 = ""
;Var ServiceAmountFlow = ""
;Var TelephoneNumberQR = "0899999999"
;Var ServiceType = "coffee"
;Var ECommerceQR = ""
;Var ECommerceQR = ECommerceQR + PriceDrink
;Var ECommerceQR = ECommerceQR + "/"
;Var ECommerceQR = ECommerceQR + DiscountDrink
;Var ECommerceQR = ECommerceQR + "/"
;Var ECommerceQR = ECommerceQR + SessionID2
;Var ECommerceQR = ECommerceQR + "/"
;Var ECommerceQR = ECommerceQR + SelectDrink
;Var ECommerceQR = ECommerceQR + "/"
;Var ECommerceQR = ECommerceQR + "KBA:2"
;Var ServiceParameter = "max"
;Var ServiceCharge = 0
;Var AccountType = "new"
;Var testservice = "kbank"
;Var tc = ""
;Var GetScore = ""
;Var OperatorName = ""
;Var SessionID = ""
;GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
;Var GetPayInfoFlag = 1
;Var ReqPayInfoFlag = 1
EndIf
; Reset
Var MachineState_Result = 0
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
EndIf
If Delay = 1 Then
Var DelayCount = DelayCount + 1
If DelayCount >= 2 Then
If web_readyOK = "true" Then
Var Seeker.OrderChanel = "WebApp"
Var Seeker.selected_a_drink = SelectDrink
Var Seeker.ServiceAmount2 = PriceDrink
Var PayAmount = PriceDrink
If web_payment = "CODE" Then
Open "ROOT/taobin_project/xml/page_payment_code.xml"
EndIf
If web_payment = "CREDIT" Then
Open "ROOT/taobin_project/xml/page_payment_credit.xml"
EndIf
EndIf
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<State> StageShowAlias</State>
<X> 375 </X>
<Y> 623 </Y>
<Width> 331 </Width>
<Height> 435 </Height>
<Filename> PictureDrink </Filename>
</Image>
<Text>
<State> StageShowAlias</State>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> showname </Value>
</Text>
<Text>
<State> StageShowAlias</State>
<X> 0 </X>
<Y> 1022 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 24 </Size>
<Font> KanitLightTTF </Font>
<Color> 0x6F5F51 </Color>
<Value> showdesc </Value>
</Text>
<Image>
<State> StageShowAlias</State>
<X> 144 </X>
<Y> 413 </Y>
<Filename> Var( DirImage + "/text_1.png" ) </Filename>
</Image>
<GIF>
<X> 493 </X>
<Y> 968 </Y>
<State>StageShowLoading</State>
<Width> 94 </Width>
<Height> 94 </Height>
<Filename> Var( DirImage + "/loading.gif" )</Filename>
</GIF>
<Image>
<State>StageShowLoading</State>
<X> 267 </X>
<Y> 1065 </Y>
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image>
</Popup>