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 StarwState = "Enable"
Var countClick2 = 0 Var countClick2 = 0
Var Timeout = 0
</EventOpen> </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> <Timeout> 800 </Timeout>
<EventTimeout> <EventTimeout>
Var Timeout = Timeout + 1
Var CountDownBrewing = CountDownBrewing - 1 Var CountDownBrewing = CountDownBrewing - 1
; run test; ; run test;
@ -21,11 +128,26 @@
; Open "ROOT/taobin_project/xml/page_drinkok.xml" ; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf ;EndIf
If CountDownBrewing = 0 Then If CountDownBrewing = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml" ;Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf EndIf
Var ShowCountDownBrewing = CountDownBrewing 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 ChangeOK = 2 Then
If ActionOKCase = 0 Then If ActionOKCase = 0 Then
Var TelephoneNumber = "0899999999" Var TelephoneNumber = "0899999999"
@ -40,6 +162,61 @@
EndIf EndIf
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 If MachineState_Result = 1 Then
Var Timeout = 0 Var Timeout = 0
Var ProcessText = "" Var ProcessText = ""
@ -84,7 +261,7 @@
If ChangeFlag = 0 Then If ChangeFlag = 0 Then
Var ChangeFlag = 1 Var ChangeFlag = 1
Change ServiceAmount2 Change ServiceAmount2
Var ChangeOK = 0
EndIf EndIf
Else Else
If CoinAmount > 0 Then If CoinAmount > 0 Then
@ -92,20 +269,50 @@
Var ChangeFlag = 1 Var ChangeFlag = 1
Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
Change ServiceAmount2 Change ServiceAmount2
Var ChangeOK = 0
EndIf EndIf
Else Else
Var ChangeOK = 4 Var ChangeOK = 4
EndIf EndIf
EndIf EndIf
Else 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 EndIf
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml" OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.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
EndIf EndIf
@ -162,7 +369,9 @@
; this copy in file menu_brew2.xml and menu_lid_straw.xml ; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus> <EventChangeStatus>
If ChangeStatus = "payout-end" Then If ChangeStatus = "payout-end" Then
Var ChangeOK = 2 If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
EndIf EndIf
</EventChangeStatus> </EventChangeStatus>

30
xml/page_catalog.xml
View file

@ -31,27 +31,27 @@
If CancelFlag = 1 Then ;If CancelFlag = 1 Then
If ChangeOK = 1 Then ; If ChangeOK = 1 Then
Var VendingDiscount = 0 ; Var VendingDiscount = 0
Var VendingCampaign = 0 ; Var VendingCampaign = 0
Var ServiceType = "credit" ; Var ServiceType = "credit"
Var SessionID2 = SelectDrink ; Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee" ; Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate ; Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var ChangeOK = 0 ; Var ChangeOK = 0
Var CancelFlag = 0 ; Var CancelFlag = 0
EndIf ; EndIf
EndIf ;EndIf
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventChangeStatus> <EventChangeStatus>
If ChangeStatus = "payout-end" Then ;If ChangeStatus = "payout-end" Then
Var ChangeOK = 1 ; Var ChangeOK = 1
EndIf ;EndIf
</EventChangeStatus> </EventChangeStatus>
<Image> <Image>

8
xml/page_collect_point_1.xml
View file

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

10
xml/page_collect_point_2.xml
View file

@ -11,7 +11,7 @@
Var Timeout = 0 Var Timeout = 0
;Open "ROOT/taobin_project/xml/page_show_consent.xml" ;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> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
@ -22,15 +22,15 @@
;If CountDownBrewing = 40 Then ;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml" ; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf ;EndIf
If CountDownBrewing = 0 Then ;If CountDownBrewing = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml" ; Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf ;EndIf
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 5 Then If Timeout > 30 Then
;Var CoffeePoint = 1 ;Var CoffeePoint = 1
;Open "ROOT/taobin_project/xml/page_show_consent.xml" ;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 Var Timeout = 0
;CoffeePoint ;CoffeePoint
Var CoffeePoint = 5 ;Var CoffeePoint = 5
Var BmiYear = "0/0/0/1/0/0" Var BmiYear = "0/0/0/1/0/0"
Var PointCrm = "pdpa1" Var PointCrm = "pdpa1"
Var GetScore = "" Var GetScore = ""
@ -32,9 +32,9 @@
;If CountDownBrewing = 40 Then ;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml" ; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf ;EndIf
If CountDownBrewing = 0 Then ;If CountDownBrewing = 0 Then
Open "ROOT/taobin_project/xml/page_drinkok.xml" ; Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf ;EndIf
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing

5
xml/page_payment.xml
View file

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

336
xml/page_payment_cash.xml
View file

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

106
xml/page_payment_code.xml
View file

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

25
xml/page_thankyou.xml
View file

@ -10,15 +10,36 @@
Var CountDownThankyou = 3 Var CountDownThankyou = 3
Var CountDownBrewing = 99 Var CountDownBrewing = 99
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = 0
Var ChangeFlag = 0
Var ErrTimeout = 0
Var ActionOKCase = 0
</EventOpen> </EventOpen>
<Timeout> 800 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var CountDownBrewing = CountDownBrewing - 1 Var CountDownBrewing = CountDownBrewing - 1
Var CountDownThankyou = CountDownThankyou - 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; ; run test;
If CountDownThankyou = 0 Then 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_brewing.xml"
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
EndIf EndIf
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing