taobin_project/xml/page_payment.xml
2024-10-17 16:57:17 +07:00

609 lines
13 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> BackgroundColor </Background>
<EventOpen>
; On open
;world-class
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
;Open "ROOT/taobin_project/xml/page_display_ExclusiveGift.xml"
Var IndoQR = 0
Var GetPayInfoFlag = 0
Var SessionID2 = ""
Var testservice = "kbank"
Var QRCODE99 = ""
Var QRCODETMP = ""
Var QRChannel = 0
;Var PriceDrink = 2
Var DiscountDrink = 0
Var DiscountCampaignCode = ""
Var SelectSlot = "1"
SAVELOG BoxID
Var ServiceCharge = 0
Var AdultFlag = 0
If Only18 = "true" Then
DEBUGVAR AdultState1
DEBUGVAR AdultFlag
Else
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
EndIf
If CustomerFilterEnable = "YES" Then
Var AdultFlag = 1
DEBUGVAR CustomerFilterType
EndIf
If NightTime = 1 Then
If SelectDrink = "12-99-03-0066" Then
Var PriceDrink = 60
EndIf
EndIf
If From15THBPro = 1 Then
Var PriceDrink = OriginalPrice
EndIf
If FromRerunPro = 1 Then
Var PromoPriceDrink = PriceDrink
Var PriceDrink = OldPrice
EndIf
If FromMondayBananaPro = 1 Then
Var PriceDrink = OriginalPrice
EndIf
If FromWednesdayMelonPro = 1 Then
Var PriceDrink = OriginalPrice + TOPPING_PRICE
EndIf
If FromPowerUpPro = 1 Then
Var PriceDrink = OriginalPrice
EndIf
DEBUGVAR PriceDrink
DEBUGVAR PromotionPriceDrink
Var PriceFromCatalog = PromotionPriceDrink
;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 = 0
Var VendingBank = "other"
Var ReqPayInfoFromCashOther = 0
Var Seeker.PromotionIDCurrentOrder = 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.CreditCard = 0
Var Seeker.CreditCardRef = ""
Var Seeker.UseCreditPayFullDrinkPrice = 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 Seeker.CreditNotEnoughRefID = ""
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/taobin_project/sound_eng/Code8digit.mp3"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/payment.m4a"
EndIf
; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "payment.wav"
EndIf
Var PlaySoundCodeLang = "ROOT/sounds/Code8digit.m4a"
EndIf
SAVELOG MachineStage
If AdultFlag = 1 Then
If CameraCount = 1 Then
CameraSetting "usbfront" "default" "Rotate=90,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
Var NOCashFlag = 0
DEBUGVAR SELLSTATUS
If SELLSTATUS = "SELLNOCASH" Then
Var NOCashFlag = 1
EndIf
;
DEBUGVAR PromotionIDCurrentOrder
Var RemainAmountStr = ""
If ModeFreeEnable = 1 Then
Var RemainAmountStr = "Free###size=150"
Var Seeker.VendingCode = "MKF"
Var Seeker.IntVendingCampaign = PriceDrink
Var Seeker.FreeVendingCampaign = 1
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
DEBUGVAR PriceDrink
DEBUGVAR PriceDrinkTmp
DEBUGVAR OriginalPrice
DEBUGVAR TOPPING_PRICE
TRY "ROOT/taobin_project/xml/process/discount_from_promotion.ev"
DEBUGVAR PromotionIDCurrentOrder
Var CoundDownStillOnPage = 240
__CMD "CLEAR_TIME_BLINK_DISPLAY" 0 "-" "-"
Var WaitPOSStatus = 0
;new payment coffee-payment
If New_Payment = 1 Then
SAVELOG "NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT "
Var Seeker.ORDER_ID = ""
GenHashWithTimeStamp Seeker.ORDER_ID
DEBUGVAR Seeker.NameDrinkTH
DEBUGVAR Seeker.NameDrinkEN
Var param1 = Seeker.ORDER_ID
Var param2 = Seeker.NameDrinkEN
Var param3 = DiscountCampaignCode
STRCONTAIN "size" Seeker.NameDrinkEN SizeFromSheet
If SizeFromSheet = "true" Then
SPLIT Seeker.NameDrinkEN "###" 1 PureName
Var param2 = PureName
EndIf
If ConnectWithPOSMachine = 1 Then
Var WaitPOSStatus = 1
Var TimeWaitPOSStatus = 0
Var POS_SELL_STATUS = "-"
GetPOSStatus param1 param2 param3
EndIf
EndIf
</EventOpen>
<Timeout> 900 </Timeout>
<EventTimeout>
If stop_now = "true" Then
SAVELOG "stop_now is true page_payment"
;include="ROOT/taobin_project/inc/return_condition.ev"
EndIf
If SELLSTATUS = "DEACTIVE" Then
SAVELOG "DEACTIVE in page_payment.xml"
;include="ROOT/taobin_project/inc/return_condition.ev"
EndIf
If SELLSTATUS = "DEACTIVE" Then
SAVELOG "DEACTIVE in page_payment.xml"
;include="ROOT/taobin_project/inc/return_condition.ev"
EndIf
If Seeker = "curr" Then
If web_ready = "false" Then
If Delay = 0 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
EndIf
Else
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
DEBUGVAR Seeker
DEBUGVAR HaveCup
;DEBUGVAR CupChecking
;DEBUGVAR CountStepPackPayment
;DEBUGVAR CountStepForCupFlagDelay
DEBUGVAR ToppingDetailCurr
DEBUGVAR ToppingDetailNext
If WaitPOSStatus = 1 Then
If TimeWaitPOSStatus < 10 Then
Var TimeWaitPOSStatus = TimeWaitPOSStatus + 1
If POS_SELL_STATUS = "READY" Then
Var WaitPOSStatus = 0
EndIf
Else
If POS_SELL_STATUS = "READY" Then
Var WaitPOSStatus = 0
Else
Open "ROOT/taobin_project/xml/pos_fail.xml"
EndIf
EndIf
Else
If CountStepPackPayment = CountStepForCupFlagDelay Then
If Seeker = "curr" Then
Var Seeker.ExtendData = ExtendDataCurr
Var Seeker.PayDetail2 = ToppingDetailCurr
Else
Var Seeker.ExtendData = ExtendDataNext
Var Seeker.PayDetail2 = ToppingDetailNext
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
SAVELOG "CoinVending XBILL from page_payment"
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
EndIf
; Reset
Var MachineState_Result = 0
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
Var CountStepPackPayment = 1
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
If Only18 = "true" Then
Var AdultFlag = 0
EndIf
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
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> 66 </Size>
<Font> KanitMediumTTF </Font>
<Color> HeadlineColor </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> SubHeadlineColor </Color>
<Value> showdesc </Value>
</Text>
<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>
<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> "Enable" </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
</Text>
</Popup>