taobin_project/xml/page_payment_cash.xml

891 lines
19 KiB
XML
Raw Normal View History

2020-09-16 18:42:32 +07:00
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Sound> "ROOT/sounds/selectPayment.wav" </Sound>
<EventOpen>
2020-10-20 11:54:27 +07:00
Var countClick2 = 0
2020-10-12 19:09:05 +07:00
;SAVELOG SelectDrink
;SAVELOG NameDrink
;SAVELOG NameDrinkTH
;SAVELOG DrinkDescription
2020-09-28 18:29:11 +07:00
SAVELOG PriceDrink
2020-10-12 19:09:05 +07:00
;SAVELOG topping1
;SAVELOG topping2
;SAVELOG topping3
2020-10-26 21:00:16 +07:00
Var PayInfoCFlag = 0
Var ActionOKCase = 0
Var VendingCampaign = IntVendingCampaign
2020-09-25 12:59:30 +07:00
2020-09-29 17:02:36 +07:00
Var PayAmount = PriceDrink
; Below original
2020-09-16 18:42:32 +07:00
; On open
2020-09-16 20:05:55 +07:00
Var alphaState = "Invisible"
2020-11-15 23:14:16 +07:00
Var alphaState2 = "Invisible"
2020-09-16 18:42:32 +07:00
Var CoinInFlag = 0
2020-10-28 16:59:31 +07:00
;Var CoinAmount = 0
2020-09-16 18:42:32 +07:00
Var CancelFlag = 0
Var CancelCounter = 0
Var CoinInCounter = 0
Var PayAmount = PriceDrink
2020-10-28 16:59:31 +07:00
Var RemainAmount = PayAmount - IntVendingCampaign
Var RemainAmount = RemainAmount - CoinAmount
2020-09-16 18:42:32 +07:00
Var RemainAmountStr = "" + RemainAmount
Var Timeout = 0
Var PayOK = 0
Var ChangeOK = 0
Var CoinInOK = 0
2020-10-12 19:09:05 +07:00
Var showRemaining = charOfBaht + RemainAmountStr
2020-09-16 18:42:32 +07:00
Var VendingREFID = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var ServiceAmount2 = PayAmount
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
Var CancleState = "Enable"
Var VendingDiscount = DiscountDrink
2020-10-26 21:00:16 +07:00
2020-09-16 18:42:32 +07:00
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
2020-10-12 19:09:05 +07:00
2020-11-22 21:50:53 +07:00
SAVELOG SelectDrink
2020-10-12 19:09:05 +07:00
SAVELOG QRChannel
SAVELOG QRCODE99
2020-10-14 17:33:55 +07:00
If RoadShow = "false" Then
If QRChannel = 0 Then
;Var VendingQRCode = "ERROR"
VendingQR ON
2020-10-28 16:59:31 +07:00
If CoinVendingOnFlag = 0 Then
2020-11-20 13:23:31 +07:00
;CoinVending ON
2020-10-28 16:59:31 +07:00
Var CoinVendingOnFlag = 1
Else
EndIf
2020-10-14 17:33:55 +07:00
;Var QRCODE99 = ""
2020-09-16 18:42:32 +07:00
2020-10-14 17:33:55 +07:00
Else
;Var VendingQRCode = "OK"
VendingQR ON
CoinVending OFF
Var QRCODE99 = QRCODETMP
Var RemainAmountStr = ""
Var CashTextWarning = ""
2020-09-16 18:42:32 +07:00
2020-10-14 17:33:55 +07:00
If QRCODE99 = "" Then
Var CashTextWarning = "ระบบ Promtpay ไม่สามารถใช้งานได้ในขณะนี้"
Var QRErrorState = "Enable"
Else
Var QRErrorState = "Invisible"
EndIf
2020-09-16 18:42:32 +07:00
2020-10-14 17:33:55 +07:00
2020-09-16 18:42:32 +07:00
2020-10-14 17:33:55 +07:00
EndIf
2020-09-16 18:42:32 +07:00
EndIf
2020-10-08 11:54:55 +07:00
If RoadShow = "true" Then
Var PayState1 = "Enable"
Var PayState2 = "Disable"
Var PayState3 = "Disable"
Var showRemaining = "Free"
Else
2020-11-15 23:14:16 +07:00
Var PayState1 = "Enable"
2020-10-26 21:00:16 +07:00
If IntVendingCampaign = 0 Then
Var PayState2 = "Enable"
Else
Var PayState2 = "Disable"
EndIf
2020-10-08 11:54:55 +07:00
Var PayState3 = "Enable"
2020-11-02 21:30:39 +07:00
2020-10-28 16:59:31 +07:00
If CoinAmount > 0 Then
Var PayState2 = "Disable"
Var PayState3 = "Disable"
2020-10-29 16:21:09 +07:00
Var CoinInFlag = 1
2020-10-28 16:59:31 +07:00
EndIf
2020-11-12 17:53:04 +07:00
Var showRemaining = charOfBaht + RemainAmountStr
2020-11-02 21:30:39 +07:00
2020-10-29 16:34:12 +07:00
If show_eng = "true" Then
Var showRemaining = charOfBaht + RemainAmountStr
Else
Var showRemaining = RemainAmountStr + " บาท"
EndIf
2020-10-08 11:54:55 +07:00
EndIf
2020-09-16 18:42:32 +07:00
2020-10-26 21:00:16 +07:00
2020-10-12 19:09:05 +07:00
2020-09-16 18:42:32 +07:00
Var PayWithQR = 0
2020-10-12 19:09:05 +07:00
Var NoGotoMenupage = "false"
2020-10-29 16:34:12 +07:00
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
EndIf
2020-10-14 17:33:55 +07:00
If RoadShow = "true" Then
2020-10-29 16:34:12 +07:00
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash_2.png"
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash_2.png"
EndIf
2020-10-14 17:33:55 +07:00
EndIf
2020-09-16 18:42:32 +07:00
2020-10-26 21:00:16 +07:00
If IntVendingCampaign >= PayAmount Then
Var RemainAmount = 0
Var RemainAmountStr = "" + RemainAmount
CoinVending OFF
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
2020-10-29 16:21:09 +07:00
If CoinInOK = 0 Then
Var RemainAmount = PayAmount - CoinAmount
Var RemainAmount = RemainAmount - IntVendingCampaign
Var SumCoinAmount = CoinAmount + IntVendingCampaign
If SumCoinAmount >= PayAmount Then
;Var VendingQRCode = "ERROR"
CoinVending OFF
Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
Else
Var RemainAmountStr = "" + RemainAmount
EndIf
;Var RemainAmount = 0
Var showRemaining = charOfBaht + RemainAmountStr
EndIf
2020-10-26 21:00:16 +07:00
2020-10-29 16:34:12 +07:00
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
2020-11-15 23:14:16 +07:00
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
2020-10-30 18:21:06 +07:00
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
2020-10-29 16:34:12 +07:00
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
2020-11-15 23:14:16 +07:00
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
2020-10-30 18:21:06 +07:00
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
2020-10-29 16:34:12 +07:00
EndIf
2020-10-26 21:00:16 +07:00
2020-09-16 18:42:32 +07:00
</EventOpen>
<EventActionOk>
2020-10-12 19:09:05 +07:00
2020-10-26 21:00:16 +07:00
If ActionOKCase = 0 Then
If VendingREFID = "" Then
SAVELOG "menu_page4-QR.xml > ActOK_REFID"
Refresh
Else
SAVELOG "menu_page4-QR.xml > ActOK_make"
;Var VendingQRCode = "ERROR"
;Coin STANDBY
VendingQR OFF
2020-11-09 18:45:33 +07:00
CoinVending OFF
2020-10-12 19:09:05 +07:00
2020-10-26 21:00:16 +07:00
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Var PayWithQR = 1
;Open "/media/bt/xml/page_page4-1.xml"
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Var BrewingTextThai = "เตรียมแก้ว"
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
2020-10-12 19:09:05 +07:00
2020-10-26 21:00:16 +07:00
If ReqPayInfoFlag = 1 Then
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
SAVELOG QRCODE99
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Var ReqPayInfoFlag = 0
EndIf
Else
Var PayInfoCFlag = 1
EndIf
2020-10-12 19:09:05 +07:00
2020-09-16 18:42:32 +07:00
</EventActionOk>
2020-10-12 19:09:05 +07:00
2020-09-16 18:42:32 +07:00
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
2020-10-26 21:00:16 +07:00
2020-12-14 12:59:56 +07:00
If Timeout >= 180 Then
Var alphaState = "Invisible"
EndIf
If Timeout > 210 Then
2020-10-26 21:00:16 +07:00
If ActionOKCase = 1 Then
Var PayInfoCFlag = 1
EndIf
EndIf
If PayInfoCFlag = 1 Then
2020-10-27 18:23:58 +07:00
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
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
EndIf
2020-10-26 21:00:16 +07:00
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
2020-12-04 13:35:13 +07:00
If TestLoopMakeDrink = 1 Then
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
2020-10-26 21:00:16 +07:00
If CoinInOK = 1 Then
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
Var ChangeOK = 1
2020-12-14 12:59:56 +07:00
Var Timeout = 180
2020-10-26 21:00:16 +07:00
Var PayOK = 1
EndIf
EndIf
2020-11-22 21:50:53 +07:00
Var stringLog = "Timeout " + Timeout
Var stringLog = stringLog + " PayOK"
Var stringLog = stringLog + PayOK
2020-12-14 12:59:56 +07:00
If Timeout > 180 Then
2020-09-16 18:42:32 +07:00
If PayOK = 1 Then
2020-10-26 21:00:16 +07:00
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
2020-09-16 18:42:32 +07:00
Else
If CancelFlag = 0 Then
VendingQR OFF
CoinVending OFF
2020-10-26 21:00:16 +07:00
Var CancelFlag = 1
Var CancelCounter = 0
If CoinAmount = 0 Then
If IntVendingCampaign = 0 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
2020-09-16 18:42:32 +07:00
EndIf
2020-10-26 21:00:16 +07:00
2020-09-16 18:42:32 +07:00
EndIf
EndIf
EndIf
If CancelFlag = 1 Then
2020-10-26 21:00:16 +07:00
Var CancelCounter = CancelCounter + 1
2020-11-09 18:45:33 +07:00
If CancelCounter = 2 Then
2020-09-16 18:42:32 +07:00
;Change CoinAmount
If CoinAmount > 0 Then
Change CoinAmount
Else
2020-10-26 21:00:16 +07:00
If ActionOKCase = 0 Then
Var ActionOKCase = 1
Var PayInfoCFlag = 1
EndIf
2020-09-16 18:42:32 +07:00
EndIf
EndIf
2020-10-26 21:00:16 +07:00
If CancelCounter >= 33 Then
Var ChangeOK = 1
EndIf
2020-10-12 19:09:05 +07:00
; This copy in file menu_catalog.xml
2020-10-26 21:00:16 +07:00
2020-09-16 18:42:32 +07:00
If ChangeOK = 1 Then
2020-10-26 21:00:16 +07:00
If ActionOKCase = 0 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;If NoGotoMenupage = "false" Then
;
; Open "ROOT/taobin_project/xml/page_catalog.xml"
;EndIf
Var ActionOKCase = 1
2020-10-27 18:23:58 +07:00
If IntVendingCampaign = 0 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
2020-10-12 19:09:05 +07:00
EndIf
2020-09-16 18:42:32 +07:00
EndIf
2020-10-26 21:00:16 +07:00
2020-09-16 18:42:32 +07:00
EndIf
2020-10-26 21:00:16 +07:00
;Var CoinInCounter = CoinInCounter + 1
;If CoinInOK = 1 Then
; If CoinInCounter = 3 Then
;
; Var RemainAmount = PayAmount - CoinAmount
; If CoinAmount >= PayAmount Then
; Var Canout = CoinAmount - PayAmount
; If Canout > 0 Then
; Change Canout
; Else
; Var ChangeOK = 1
; EndIf
;
; Var Timeout = 118
; Var PayOK = 1
;
; MakeDrinkV1 SelectDrink SelectSugarID
;
; Open "ROOT/taobin_project/xml/page_thankyou.xml"
;
; EndIf
; EndIf
;EndIf
2020-09-16 18:42:32 +07:00
Refresh
TimerReset
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
2020-10-12 19:09:05 +07:00
Var ChangeOK = 1
2020-09-16 18:42:32 +07:00
EndIf
</EventChangeStatus>
<EventCoin>
TimerReset
2020-10-26 21:00:16 +07:00
If CoinInFlag = 0 Then
2020-11-09 18:45:33 +07:00
;VendingQR OFF
2020-10-26 21:00:16 +07:00
EndIf
2020-09-16 18:42:32 +07:00
Var CoinInFlag = 1
If CoinInOK = 0 Then
Var RemainAmount = PayAmount - CoinAmount
2020-10-26 21:00:16 +07:00
Var RemainAmount = RemainAmount - IntVendingCampaign
Var SumCoinAmount = CoinAmount + IntVendingCampaign
If SumCoinAmount >= PayAmount Then
2020-09-16 18:42:32 +07:00
;Var VendingQRCode = "ERROR"
CoinVending OFF
2020-11-09 18:45:33 +07:00
VendingQR OFF
2020-10-26 21:00:16 +07:00
Var Canout = SumCoinAmount - PayAmount
2020-10-12 19:09:05 +07:00
If Canout = 0 Then
Var RemainAmountStr = 0
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
2020-09-16 18:42:32 +07:00
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
2020-10-12 19:09:05 +07:00
2020-09-16 18:42:32 +07:00
Else
Var RemainAmountStr = "" + RemainAmount
EndIf
Var Timeout = 0
2020-09-29 17:02:36 +07:00
;Var RemainAmount = 0
Var showRemaining = charOfBaht + RemainAmountStr
2020-11-15 23:14:16 +07:00
Var alphaState2 = "Enable"
2020-09-29 17:02:36 +07:00
2020-09-16 18:42:32 +07:00
EndIf
Refresh
</EventCoin>
<EventVDCancle>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
2020-11-09 18:45:33 +07:00
;If CoinAmount = 0 Then
; Open "ROOT/taobin_project/xml/page_catalog.xml"
;EndIf
2020-10-26 21:00:16 +07:00
2020-10-12 19:09:05 +07:00
Var showRemaining = "คืนเงิน"
2020-10-26 21:00:16 +07:00
;Open "ROOT/taobin_project/xml/page_catalog.xml"
2020-10-12 19:09:05 +07:00
2020-09-16 18:42:32 +07:00
EndIf
EndIf
VendingQR OFF
2020-10-27 18:23:58 +07:00
Refresh
2020-09-16 18:42:32 +07:00
</EventVDCancle>
2020-11-22 21:50:53 +07:00
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
2020-09-16 18:42:32 +07:00
<X> 0 </X>
<Y> 0 </Y>
2020-11-22 21:50:53 +07:00
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> "ROOT/taobin_project/video/taobin_adv2.mp4" </Filename>
</Video>
2020-09-16 18:42:32 +07:00
<Image>
2020-10-29 16:34:12 +07:00
<X> 199 </X>
<Y> 413 </Y>
<Filename> Var( DirImage + "/text_1.png" ) </Filename>
2020-09-16 18:42:32 +07:00
</Image>
; back
2020-10-29 16:34:12 +07:00
;<Button>
;<X> 19 </X>
;<Y> 420 </Y>
;<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </Filename>
;<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
;<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick>
; Open "ROOT/taobin_project/xml/page_back_to_main.xml"
;
;</EventClick>
;</Button>
2020-09-16 18:42:32 +07:00
<Image>
<X> 375 </X>
<Y> 623 </Y>
2020-09-17 17:35:58 +07:00
<Width> 331 </Width>
<Height> 435 </Height>
2020-09-16 18:42:32 +07:00
<Filename> PictureDrink </Filename>
</Image>
<Button>
<X> 287 </X>
2020-10-29 16:34:12 +07:00
<Y> 1254 </Y>
2020-09-29 17:02:36 +07:00
<State> PayState1</State>
2020-10-14 17:33:55 +07:00
<Filename> FilenameShowbuttonCashBN </Filename>
<FilenamePress> FilenameShowbuttonCashBP </FilenamePress>
2020-09-16 18:42:32 +07:00
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
2020-09-18 15:24:35 +07:00
;Var PayState1 = "PressForever"
;Var PayState2 = "Enable"
;Var QRChannel = 0
2020-10-15 13:14:09 +07:00
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
2020-11-15 23:14:16 +07:00
Var alphaState2 = "Enable"
2020-09-18 15:24:35 +07:00
2020-10-08 11:54:55 +07:00
If RoadShow = "true" Then
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Var MachineStage = "make-drink"
Var BrewingTextThai = "เตรียมแก้ว"
MakeDrinkV1 SelectDrink SelectSugarID
2020-10-15 13:14:09 +07:00
Open "ROOT/taobin_project/xml/page_thankyou.xml"
2020-10-12 19:09:05 +07:00
;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
2020-10-08 11:54:55 +07:00
EndIf
2020-09-16 18:42:32 +07:00
</EventClick>
</Button>
<Button>
<X> 287 </X>
2020-10-29 16:34:12 +07:00
<Y> 1549</Y>
2020-10-20 13:58:08 +07:00
<State> PayState2</State>
2020-10-29 16:34:12 +07:00
<Filename> Var( DirImage + "/bn_pay_with_code.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_code.png") </FilenamePress>
2020-09-16 18:42:32 +07:00
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInFlag = 0 Then
2020-11-09 18:45:33 +07:00
If CancelFlag = 0 Then
2020-09-16 18:42:32 +07:00
Var TelephoneNumber = ""
Var Tel_Confirm_State = "Disable"
2020-10-15 13:14:09 +07:00
Open "ROOT/taobin_project/xml/page_payment_code.xml"
2020-11-09 18:45:33 +07:00
EndIf
2020-09-16 18:42:32 +07:00
EndIf
</EventClick>
</Button>
<Button>
<X> 287 </X>
2020-10-29 16:34:12 +07:00
<Y> 1400 </Y>
2020-09-29 17:02:36 +07:00
<State> PayState3</State>
2020-10-29 16:34:12 +07:00
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>
2020-09-16 18:42:32 +07:00
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
2020-09-16 20:05:55 +07:00
2020-10-26 21:00:16 +07:00
2020-12-14 12:59:56 +07:00
If Timeout < 180 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
Refresh
If CoinAmount > 0 Then
Change CoinAmount
Var ChangeOK = 0
Var CancelFlag = 1
Var CancelCounter = 0
Var NoGotoMenupage = "true"
EndIf
EndIf
2020-11-09 18:45:33 +07:00
EndIf
2020-10-12 19:09:05 +07:00
EndIf
2020-09-16 18:42:32 +07:00
; If CoinInFlag = 0 Then
; Var BG_Menu_Page4 = "ROOT/image/BG_PromptPay_Page4.bmp"
; Var PayState1 = "Enable"
; Var PayState2 = "PressForever"
; Var QRChannel = 1
2020-10-15 13:14:09 +07:00
; Open "ROOT/taobin_project/xml/page_payment_qr.xml"
2020-09-16 18:42:32 +07:00
;
; EndIf
</EventClick>
</Button>
<Button>
<X> 438 </X>
<Y> 1786 </Y>
<State>CancleState</State>
2020-10-29 16:34:12 +07:00
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel.png" ) </FilenameDisable>
2020-09-16 18:42:32 +07:00
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
2020-10-12 19:09:05 +07:00
2020-09-16 18:42:32 +07:00
VendingQR OFF
2020-10-26 21:00:16 +07:00
2020-09-16 18:42:32 +07:00
2020-10-26 21:00:16 +07:00
If CoinInOK = 0 Then
If CancelFlag = 0 Then
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
2020-11-09 18:45:33 +07:00
2020-10-26 21:00:16 +07:00
EndIf
2020-10-12 19:09:05 +07:00
EndIf
2020-10-26 21:00:16 +07:00
;If CoinAmount > 0 Then
; Change CoinAmount
; Var ChangeOK = 0
; Var CancelFlag = 1
; Var CancelCounter = 0
;
;Else
; ;Var ChangeOK = 1
;EndIf
;Open "ROOT/taobin_project/xml/page_catalog.xml"
2020-10-27 18:23:58 +07:00
Refresh
2020-09-17 17:35:58 +07:00
2020-09-16 18:42:32 +07:00
</EventClick>
</Button>
<Text>
2020-09-17 17:35:58 +07:00
<X> 0 </X>
2020-09-16 18:42:32 +07:00
<Y> 1132 </Y>
2020-09-17 17:35:58 +07:00
<Width> 1080</Width>
<Align> Center </Align>
2020-09-16 18:42:32 +07:00
<Size> 72 </Size>
2020-09-25 12:59:30 +07:00
<Font> KanitMediumTTF </Font>
2020-09-17 17:35:58 +07:00
<Color> 0xB78F24 </Color>
2020-09-29 17:02:36 +07:00
<Value> showRemaining </Value>
2020-09-16 18:42:32 +07:00
</Text>
2020-11-09 18:45:33 +07:00
2020-09-17 17:35:58 +07:00
<Text>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
2020-09-25 12:59:30 +07:00
<Font> KanitMediumTTF </Font>
2020-09-17 17:35:58 +07:00
<Color> 0x513C2F </Color>
2020-10-29 16:34:12 +07:00
<Value> showname </Value>
2020-09-17 17:35:58 +07:00
</Text>
2020-09-25 12:59:30 +07:00
<Text>
<X> 0 </X>
<Y> 1022 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 24 </Size>
<Font> KanitLightTTF </Font>
<Color> 0x6F5F51 </Color>
2020-10-29 16:34:12 +07:00
<Value> showdesc </Value>
2020-09-25 12:59:30 +07:00
</Text>
2020-11-15 23:14:16 +07:00
; QR popup
2020-09-16 20:05:55 +07:00
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 748 </Y>
<State> alphaState </State>
2020-10-29 16:34:12 +07:00
<Filename> Var( DirImage + "/img_popup1.png" )</Filename>
2020-09-16 20:05:55 +07:00
</Image>
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState </State>
2020-10-29 16:34:12 +07:00
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
2020-09-16 20:05:55 +07:00
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var alphaState = "Invisible"
2020-10-28 16:59:31 +07:00
;CoinVending ON
2020-12-14 12:59:56 +07:00
;VendingQR OFF
2020-09-16 20:05:55 +07:00
Refresh
</EventClick>
</Button>
2020-11-15 23:14:16 +07:00
; begin cash popup
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState2 </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 182 </X>
<Y> 748 </Y>
<State> alphaState2 </State>
<Filename> Var( DirImage2 + "/img_popup11.png" )</Filename>
</Image>
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState2 </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
VendingQR OFF
If CoinInOK = 0 Then
If CancelFlag = 0 Then
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
EndIf
EndIf
Var alphaState2 = "Invisible"
Refresh
</EventClick>
</Button>
<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState2 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
</Text>
; end case popup
2020-09-18 10:49:19 +07:00
<QRCode>
2020-09-29 17:02:36 +07:00
<X> 399 </X>
<Y> 912 </Y>
2020-10-12 19:09:05 +07:00
<Width> 185 </Width>
<Height> 185 </Height>
2020-09-18 10:49:19 +07:00
<State> alphaState </State>
2020-10-12 19:09:05 +07:00
<Service> testservice </Service>
2020-09-18 10:49:19 +07:00
</QRCode>
2020-09-16 18:42:32 +07:00
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
2020-10-20 11:54:27 +07:00
2020-11-22 21:50:53 +07:00
;<Text>
;<X> 0 </X>
;<Y> 1880 </Y>
;<Size> 14 </Size>
;<Align> "Left" </Align>
;<Width> 1080 </Width>
;<Font> KanitThinTTF </Font>
;<Color> 0x513C2F </Color>
;<Value> SelectDrink </Value>
;</Text>
2020-09-16 18:42:32 +07:00
2020-10-20 11:54:27 +07:00
<Button>
<X> 870 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var countClick2 = countClick2 + 1
If countClick2 = 3 Then
EndIf
If countClick2 = 5 Then
2020-11-01 22:09:26 +07:00
2020-10-29 22:13:35 +07:00
Var MachineStage = "make-drink"
2020-11-01 22:09:26 +07:00
; make drink
2020-12-03 14:21:46 +07:00
MakeDrinkV1 SelectDrink ExtendData
Open "ROOT/taobin_project/xml/page_thankyou.xml"
2020-11-02 18:12:01 +07:00
;Var UnitTestType = "1"
Var UnitTestType = "2"
2020-12-03 14:21:46 +07:00
;Open "ROOT/taobin_project/xml/page_show_consent2.xml"
2020-11-02 18:12:01 +07:00
;Open "ROOT/taobin_project/xml/page_payment_code.xml"
2020-11-01 22:09:26 +07:00
2020-11-02 18:12:01 +07:00
;Open "ROOT/taobin_project/xml/page_thankyou.xml"
2020-11-01 22:09:26 +07:00
;Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
; show consent
2020-10-29 22:13:35 +07:00
;Open "ROOT/taobin_project/xml/page_show_consent.xml"
2020-10-30 18:21:06 +07:00
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
2020-10-29 22:13:35 +07:00
2020-11-01 22:09:26 +07:00
2020-11-01 19:18:47 +07:00
;Var CoffeePoint = 11
;Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
2020-10-30 18:21:06 +07:00
;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_back_to_error.xml"
2020-10-20 11:54:27 +07:00
EndIf
Refresh
</EventClick>
</Button>
2020-11-22 21:50:53 +07:00
;<Text>
;<X> 0 </X>
;<Y> 1886 </Y>
;<Size> 20 </Size>
;<Width> 1080</Width>
;<Align> end </Align>
;<Font> RobotoBlack </Font>
;<Color> 0x513C2F </Color>
;<Value> countClick2 </Value>
;</Text>
2020-10-20 11:54:27 +07:00
2020-09-16 18:42:32 +07:00
</Popup>