pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

miggaze fix

Browse source
This commit is contained in:
miggaze 2020-10-26 21:00:16 +07:00
parent 2c35ff0504
commit dc74a9c5ad
9 changed files with 586 additions and 163 deletions
Download patch file Download diff file Expand all files Collapse all files

221
xml/page_brewing2.xml
View file

@ -10,10 +10,117 @@
Var StarwState = "Enable"
Var countClick2 = 0
Var Timeout = 0
</EventOpen>
<EventActionOk>
If ActionOKCase = 1 Then
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
Var ActionOKCase = 2
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Else
If ActionOKCase = 2 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 1 Then
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
Var ActionOKCase = 2
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Else
If ActionOKCase = 2 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
</EventActionError>
<Timeout> 800 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
Var CountDownBrewing = CountDownBrewing - 1
; run test;
@ -21,11 +128,26 @@
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
If CountDownBrewing = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
Var ShowCountDownBrewing = CountDownBrewing
If Timeout > 120 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If Timeout > 60 Then
Var MachineState_Result = 2
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
Var TelephoneNumber = "0899999999"
@ -40,6 +162,61 @@
EndIf
EndIf
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
Var TelephoneNumber = "0899999999"
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;Open "ROOT/xml/menu_closeMaintenance.xml"
Var ActionOKCase = 1
EndIf
EndIf
If ChangeOK = 3 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If ChangeOK = 4 Then
If ActionOKCase = 0 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
Var ActionOKCase = 2
EndIf
EndIf
If MachineState_Result = 1 Then
Var Timeout = 0
Var ProcessText = ""
@ -84,7 +261,7 @@
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Change ServiceAmount2
Var ChangeOK = 0
EndIf
Else
If CoinAmount > 0 Then
@ -92,20 +269,50 @@
Var ChangeFlag = 1
Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
Change ServiceAmount2
Var ChangeOK = 0
EndIf
Else
Var ChangeOK = 4
EndIf
EndIf
Else
Var ChangeOK = 3
If CodeChannel = 0 Then
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = CoinAmount
Change CoinAmount
EndIf
Else
Var ChangeOK = 3
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = CoinAmount
Change CoinAmount
EndIf
Else
Var ChangeOK = 4
EndIf
EndIf
EndIf
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
EndIf
EndIf
@ -162,7 +369,9 @@
; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var ChangeOK = 2
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
EndIf
</EventChangeStatus>

30
xml/page_catalog.xml
View file

@ -31,27 +31,27 @@
If CancelFlag = 1 Then
If ChangeOK = 1 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
Var ChangeOK = 0
Var CancelFlag = 0
EndIf
EndIf
;If CancelFlag = 1 Then
; If ChangeOK = 1 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
; Var ChangeOK = 0
; Var CancelFlag = 0
; EndIf
;EndIf
Refresh
TimerReset
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var ChangeOK = 1
EndIf
;If ChangeStatus = "payout-end" Then
; Var ChangeOK = 1
;EndIf
</EventChangeStatus>
<Image>

8
xml/page_collect_point_1.xml
View file

@ -23,9 +23,9 @@
;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
If CountDownBrewing = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
;If CountDownBrewing = 0 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
Var ShowCountDownBrewing = CountDownBrewing
@ -38,7 +38,7 @@
Var Timeout = Timeout + 1
If Timeout > 20 Then
;Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset

10
xml/page_collect_point_2.xml
View file

@ -11,7 +11,7 @@
Var Timeout = 0
;Open "ROOT/taobin_project/xml/page_show_consent.xml"
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
;Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
</EventOpen>
<Timeout> 1000 </Timeout>
@ -22,15 +22,15 @@
;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
If CountDownBrewing = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
;If CountDownBrewing = 0 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
If Timeout > 30 Then
;Var CoffeePoint = 1
;Open "ROOT/taobin_project/xml/page_show_consent.xml"

8
xml/page_collect_point_3.xml
View file

@ -10,7 +10,7 @@
Var Timeout = 0
;CoffeePoint
Var CoffeePoint = 5
;Var CoffeePoint = 5
Var BmiYear = "0/0/0/1/0/0"
Var PointCrm = "pdpa1"
Var GetScore = ""
@ -32,9 +32,9 @@
;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
If CountDownBrewing = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
;If CountDownBrewing = 0 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
Var ShowCountDownBrewing = CountDownBrewing

5
xml/page_payment.xml
View file

@ -32,6 +32,11 @@
Var CountStepPackPayment = 0
Var IntVendingCampaign = 0
Var CodeChannel = 0
</EventOpen>
<Timeout> 900 </Timeout>

336
xml/page_payment_cash.xml
View file

@ -16,6 +16,11 @@
;SAVELOG topping2
;SAVELOG topping3
Var PayInfoCFlag = 0
Var ActionOKCase = 0
Var VendingCampaign = IntVendingCampaign
Var PayAmount = PriceDrink
@ -30,7 +35,7 @@
Var CoinInCounter = 0
Var PayAmount = PriceDrink
Var RemainAmount = PayAmount
Var RemainAmount = PayAmount - IntVendingCampaign
Var RemainAmountStr = "" + RemainAmount
Var Timeout = 0
Var PayOK = 0
@ -52,7 +57,7 @@
Var CancleState = "Enable"
Var VendingDiscount = DiscountDrink
Var VendingCampaign = 0
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
@ -99,11 +104,17 @@
Else
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
If IntVendingCampaign = 0 Then
Var PayState2 = "Enable"
Else
Var PayState2 = "Disable"
EndIf
Var PayState3 = "Enable"
Var showRemaining = charOfBaht + RemainAmountStr
EndIf
Var PayWithQR = 0
Var NoGotoMenupage = "false"
@ -116,38 +127,55 @@
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash_2.png"
EndIf
If IntVendingCampaign >= PayAmount Then
Var RemainAmount = 0
Var RemainAmountStr = "" + RemainAmount
CoinVending OFF
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
</EventOpen>
<EventActionOk>
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
;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"
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
EndIf
;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"
If ReqPayInfoFlag = 1 Then
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
SAVELOG QRCODE99
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Var ReqPayInfoFlag = 0
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Var BrewingTextThai = "เตรียมแก้ว"
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
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
EndIf
</EventActionOk>
@ -155,95 +183,149 @@
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 120 Then
;
If Timeout > 90 Then
If ActionOKCase = 1 Then
Var PayInfoCFlag = 1
EndIf
EndIf
If PayInfoCFlag = 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
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
If CoinInOK = 1 Then
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
Var ChangeOK = 1
Var Timeout = 60
Var PayOK = 1
EndIf
EndIf
If Timeout > 60 Then
If PayOK = 1 Then
If ChangeOK = 1 Then
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
If Timeout > 180 Then
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
EndIf
Else
If CancelFlag = 0 Then
VendingQR OFF
CoinVending OFF
If CoinAmount > 0 Then
Var CancelFlag = 1
Var CancelCounter = 0
Else
Open "ROOT/taobin_project/xml/page_catalog.xml"
Var CancelFlag = 1
Var CancelCounter = 0
If CoinAmount = 0 Then
If IntVendingCampaign = 0 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
EndIf
EndIf
EndIf
EndIf
Var CancelCounter = CancelCounter + 1
If CancelFlag = 1 Then
;Var VendingQRCode = "ERROR"
Var CancelCounter = CancelCounter + 1
If CancelCounter = 3 Then
;Change CoinAmount
If CoinAmount > 0 Then
Change CoinAmount
Else
Open "ROOT/taobin_project/xml/page_catalog.xml"
If ActionOKCase = 0 Then
Var ActionOKCase = 1
Var PayInfoCFlag = 1
EndIf
EndIf
EndIf
EndIf
If CancelCounter >= 33 Then
Var ChangeOK = 1
EndIf
; This copy in file menu_catalog.xml
If CancelFlag = 1 Then
If ChangeOK = 1 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
EndIf
EndIf
Var CoinInCounter = CoinInCounter + 1
If CoinInOK = 1 Then
If CoinInCounter = 1 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"
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
EndIf
EndIf
EndIf
;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
Refresh
TimerReset
</EventTimeout>
@ -257,17 +339,22 @@
<EventCoin>
TimerReset
If CoinInFlag = 0 Then
VendingQR OFF
EndIf
Var CoinInFlag = 1
If CoinInOK = 0 Then
Var RemainAmount = PayAmount - CoinAmount
If CoinAmount >= PayAmount Then
Var RemainAmount = RemainAmount - IntVendingCampaign
Var SumCoinAmount = CoinAmount + IntVendingCampaign
If SumCoinAmount >= PayAmount Then
;Var VendingQRCode = "ERROR"
CoinVending OFF
Var Canout = CoinAmount - PayAmount
Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Else
Var RemainAmountStr = "ทอน " + Canout
@ -300,8 +387,12 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If CoinAmount = 0 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
Var showRemaining = "คืนเงิน"
Open "ROOT/taobin_project/xml/page_catalog.xml"
;Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
EndIf
@ -417,18 +508,21 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
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"
If CoinInFlag = 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
; If CoinInFlag = 0 Then
@ -454,21 +548,33 @@
<EventClick>
VendingQR OFF
CoinVending OFF
If CoinAmount > 0 Then
Change CoinAmount
Var ChangeOK = 0
Var CancelFlag = 1
Var CancelCounter = 0
Else
Var ChangeOK = 1
If CoinInOK = 0 Then
If CancelFlag = 0 Then
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If CoinAmount = 0 Then
If IntVendingCampaign = 0 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
EndIf
EndIf
EndIf
Open "ROOT/taobin_project/xml/page_catalog.xml"
;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"
</EventClick>
</Button>

106
xml/page_payment_code.xml
View file

@ -55,8 +55,49 @@
Var VendingREFID = SessionID
If IntVendingCampaign > 0 Then
;Var QRChannel = 0
;Open "ROOT/xml/menu_Page4-WithCode.xml"
Var QRChannel = 0
If IntVendingCampaign >= PayAmount Then
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
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 + "KBA/"
Var ECommerce = ECommerce + VendingCode
Var ECommerce = ECommerce + ":"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + ":"
Var ECommerce = ECommerce + VendingCampaignRI3
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
Var CodeChannel = 2
Else
If VendingCode = "C13" Then
@ -65,10 +106,39 @@
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C24" Then
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C25" Then
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If VendingCode = "C30" Then
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
Var ShowErrorText = "Enable"
EndIf
Else
Var CreditAmount = 0
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Var CodeChannel = 1
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
@ -78,8 +148,17 @@
<EventActionError>
If CodeChannel = 1 Then
Var ShowErrorText = "Enable"
Refresh
EndIf
If CodeChannel = 2 Then
Var CodeChannel = 1
Var QRCODE99 = ""
Var QRCODETMP = ""
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
</EventActionError>
<Button>
@ -332,6 +411,7 @@
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventClick>
</Button>
@ -342,21 +422,23 @@
<Y> 1783 </Y>
<State> Tel_Confirm_State </State>
<Filename> "ROOT/taobin_project/image/enter_point/bn_confirm.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/enter_point/bp_confirm.bmp" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/enter_point/bn_confirm.bmp" </FilenameDisable>
<FilenamePress> "ROOT/taobin_project/image/enter_point/bp_confirm.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/enter_point/bn_confirm.png" </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If RoadShow = "true" Then
If RoadShow = "true" Then
Else
If TelephoneNumber = "00000000"
Var ShowErrorText = "Enable"
EndIf
If TelephoneNumber = "99999999"
Var ShowErrorText = "Enable"
EndIf
;If TelephoneNumber = "00000000" Then
; Var ShowErrorText = "Enable"
;EndIf
;If TelephoneNumber = "99999999" Then
; Var ShowErrorText = "Enable"
;EndIf
If GetPayInfoFlag = 0 Then

25
xml/page_thankyou.xml
View file

@ -10,15 +10,36 @@
Var CountDownThankyou = 3
Var CountDownBrewing = 99
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = 0
Var ChangeFlag = 0
Var ErrTimeout = 0
Var ActionOKCase = 0
</EventOpen>
<Timeout> 800 </Timeout>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = CountDownBrewing - 1
Var CountDownThankyou = CountDownThankyou - 1
Var Timeout = Timeout + 1
If Timeout = 3 Then
If IntVendingCampaign < PayAmount Then
Var SumCoinAmount = CoinAmount + IntVendingCampaign
If SumCoinAmount >= PayAmount Then
Var Canout = SumCoinAmount - PayAmount
If Canout > 0 Then
Change Canout
EndIf
EndIf
EndIf
EndIf
; run test;
If CountDownThankyou = 0 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
;Open "ROOT/taobin_project/xml/page_lid_straw.xml"
;Open "ROOT/taobin_project/xml/page_brewing.xml"
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
EndIf
Var ShowCountDownBrewing = CountDownBrewing