taobin_project/xml/page_payment.xml
wanlop run cd78d3bb90 update
2025-04-10 15:56:44 +07:00

681 lines
15 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"
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
If Seeker = "curr" 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
Else
EndIf
Var IndoQR = 0
Var PaymentEnableAll = "true"
; value from remote
Var CSH_CashEnable = ""
Var TAO_CreditEnable = ""
Var CRD_CreditCardEnable = ""
Var TWN_CashOtherEnable = ""
Var KBA_CashOtherEnable = ""
Var LPY_CashOtherEnable = ""
Var AIR_CashOtherEnable = ""
Var MAX_CashOtherEnable = ""
Var WEC_CashOtherEnable = ""
Var ALP_CashOtherEnable = ""
Var UNP_CashOtherEnable = ""
Var ACU_CashOtherEnable = ""
; value depend on other
Var CPD_CouponCodeEnable = ""
Var E_WalletEnable = ""
Var GetPayInfoFlag = 0
Var SessionID2 = ""
Var testservice = "kbank"
Var QRCODE99 = ""
Var QRCODETMP = ""
Var QRPopupOpenFlag = 0
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 FromOreoDiscount11Pro = 1 Then
Var PriceDrink = OriginalPrice + TOPPING_PRICE
EndIf
If From12Day12MenuPro = 1 Then
Var PriceDrink = OriginalPrice + TOPPING_PRICE
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.RedeemSwensenCoupon = 0
Var Seeker.RedeemSwensenCouponDrinkPrice = PriceDrink
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.CashlessVendingTrackNumber = "0"
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 EMAMemberID = ""
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"
DEBUGVAR show_eng
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"
Var PlaySoundCodeLang = "ROOT/sounds/Code8digit.m4a"
If SongkranSoundCampaign = 1 Then
Var PlaySoundLag = SelectPayMethodSound[SoundCampaignIndex]
EndIf
If CountryName = "HongKong" Then
Var PlaySoundLag = "ROOT/taobin_project/sound_eng/How_would_you_like_to_pay.mp3"
Var PlaySoundCodeLang = "ROOT/taobin_project/sound_eng/Code8digit.mp3"
EndIf
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"
If RoadShowMarketCode = "" Then
Var RoadShowMarketCode = "EFR01"
EndIf
Var Seeker.VendingCode = RoadShowMarketCode
DEBUGVAR RoadShowMarketCode
Var Seeker.IntVendingCampaign = PriceDrink
Var Seeker.FreeVendingCampaign = 1
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
If New_Payment = 1 Then
Var Seeker.ORDER_ID = ""
GenHashWithTimeStamp Seeker.ORDER_ID
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
If ModeFreeEnable = 2 Then
Var RemainAmountStr = "Free###size=150"
Var RoadShowMarketCode = ""
Var Seeker.VendingCode = RoadShowMarketCode
DEBUGVAR RoadShowMarketCode
Var Seeker.IntVendingCampaign = PriceDrink
Var Seeker.FreeVendingCampaign = 1
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
SAVELOG "ModeFreeEnable ModeFreeEnable ModeFreeEnable ModeFreeEnable ModeFreeEnable"
If New_Payment = 1 Then
Var Seeker.ORDER_ID = ""
GenHashWithTimeStamp Seeker.ORDER_ID
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
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 ConnectWithPOSMachine = 1 Then
Var SELLONLINE = 0
If SELLSTATUS = "SELLONLINE" Then
Var SELLONLINE = 1
EndIf
If SELLSTATUS = "SELLNOCASH" Then
Var SELLONLINE = 1
EndIf
If SELLONLINE = 0 Then
SAVELOG "POS-MACHINE: OFFLINE in page_payment.xml"
;include="ROOT/taobin_project/inc/return_condition.ev"
EndIf
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
DEBUGVAR show_eng
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
DEBUGVAR show_eng
TimerReset
Refresh
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
<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>