This commit is contained in:
miggaze 2020-11-09 18:45:33 +07:00
parent 86dd371865
commit 1e2b19dc5f
5 changed files with 105 additions and 26 deletions

View file

@ -246,12 +246,45 @@
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else Else
If CodeChannel = 2 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + ""
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + VendingCode
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + BoxID
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + "/"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
Else
If ChangeFlag2 = 1 Then
Var TelephoneNumber = "0899999999"
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf EndIf
EndIf EndIf
Var ServiceSuccess = "yes" Var ServiceSuccess = "yes"
Open "ROOT/taobin_project/xml/page_drinkok.xml" Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf EndIf
If MachineState_Result = 2 Then If MachineState_Result = 2 Then
@ -299,7 +332,11 @@
EndIf EndIf
Else Else
Var ChangeOK = 3 If ChangeFlag2 = 1 Then
Var ChangeOK = 2
Else
Var ChangeOK = 3
EndIf
EndIf EndIf
Else Else

View file

@ -26,10 +26,10 @@
Var QRCODE3 = "VDGN" Var QRCODE3 = "VDGN"
Var QRCODE4 = BoxID Var QRCODE4 = BoxID
Var QRCODE5 = SelectSlot Var QRCODE5 = SelectSlot
Var QRCODE6 = ServiceCredit Var QRCODE6 = SelectDrink
Var QRCODE7 = ServiceAmount2 Var QRCODE7 = PriceDrink
Var QRCODE8 = "" Var QRCODE8 = ""
Var CountStepPackPayment = 0 Var CountStepPackPayment = 0

View file

@ -219,6 +219,7 @@
;Var VendingQRCode = "ERROR" ;Var VendingQRCode = "ERROR"
;Coin STANDBY ;Coin STANDBY
VendingQR OFF VendingQR OFF
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" ;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
@ -335,7 +336,7 @@
If CancelFlag = 1 Then If CancelFlag = 1 Then
Var CancelCounter = CancelCounter + 1 Var CancelCounter = CancelCounter + 1
If CancelCounter = 3 Then If CancelCounter = 2 Then
;Change CoinAmount ;Change CoinAmount
If CoinAmount > 0 Then If CoinAmount > 0 Then
Change CoinAmount Change CoinAmount
@ -413,7 +414,7 @@
TimerReset TimerReset
If CoinInFlag = 0 Then If CoinInFlag = 0 Then
VendingQR OFF ;VendingQR OFF
EndIf EndIf
Var CoinInFlag = 1 Var CoinInFlag = 1
@ -426,6 +427,7 @@
If SumCoinAmount >= PayAmount Then If SumCoinAmount >= PayAmount Then
;Var VendingQRCode = "ERROR" ;Var VendingQRCode = "ERROR"
CoinVending OFF CoinVending OFF
VendingQR OFF
Var Canout = SumCoinAmount - PayAmount Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then If Canout = 0 Then
Var RemainAmountStr = 0 Var RemainAmountStr = 0
@ -460,9 +462,9 @@
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var CancelCounter = 0 Var CancelCounter = 0
If CoinAmount = 0 Then ;If CoinAmount = 0 Then
Open "ROOT/taobin_project/xml/page_catalog.xml" ; Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf ;EndIf
Var showRemaining = "คืนเงิน" Var showRemaining = "คืนเงิน"
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
@ -552,11 +554,11 @@
<EventClick> <EventClick>
If CoinInFlag = 0 Then If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var TelephoneNumber = "" Var TelephoneNumber = ""
Var Tel_Confirm_State = "Disable" Var Tel_Confirm_State = "Disable"
Open "ROOT/taobin_project/xml/page_payment_code.xml" Open "ROOT/taobin_project/xml/page_payment_code.xml"
EndIf
EndIf EndIf
</EventClick> </EventClick>
</Button> </Button>
@ -572,6 +574,7 @@
<EventClick> <EventClick>
If CoinInFlag = 0 Then If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var alphaState = "Enable" Var alphaState = "Enable"
;CoinVending OFF ;CoinVending OFF
VendingQR ON VendingQR ON
@ -585,6 +588,7 @@
Var NoGotoMenupage = "true" Var NoGotoMenupage = "true"
EndIf EndIf
EndIf
EndIf EndIf
; If CoinInFlag = 0 Then ; If CoinInFlag = 0 Then
@ -617,11 +621,7 @@
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var CancelCounter = 0 Var CancelCounter = 0
If CoinAmount = 0 Then
If IntVendingCampaign = 0 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
EndIf
EndIf EndIf
EndIf EndIf
@ -654,6 +654,8 @@
<Value> showRemaining </Value> <Value> showRemaining </Value>
</Text> </Text>
<Text> <Text>
<X> 0 </X> <X> 0 </X>
<Y> 938 </Y> <Y> 938 </Y>

View file

@ -38,14 +38,41 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 30 Then If Timeout > 30 Then
VendingQR OFF ;VendingQR OFF
Open menu_back_to_main ;Open menu_back_to_main
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf EndIf
TimerReset TimerReset
Refresh Refresh
</EventTimeout> </EventTimeout>
<EventIDCard>
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "DONE" Then
CoinVending OFF
Open "ROOT/taobin_project/xml/page_show_consent2.xml"
EndIf
EndIf
EndIf
</EventIDCard>
<EventActionOk> <EventActionOk>
@ -71,6 +98,9 @@
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml" Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf EndIf
Var SessionID2 = SelectSlot + ":" Var SessionID2 = SelectSlot + ":"

View file

@ -25,16 +25,26 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout = 3 Then If Timeout = 3 Then
If FreeVendingCampaign = 0 Then If PayWithQR = 0 Then
If IntVendingCampaign < PayAmount Then If FreeVendingCampaign = 0 Then
Var SumCoinAmount = CoinAmount + IntVendingCampaign If IntVendingCampaign < PayAmount Then
If SumCoinAmount >= PayAmount Then Var SumCoinAmount = CoinAmount + IntVendingCampaign
Var Canout = SumCoinAmount - PayAmount If SumCoinAmount >= PayAmount Then
If Canout > 0 Then Var Canout = SumCoinAmount - PayAmount
Change Canout If Canout > 0 Then
Var ChangeFlag2 = 1 Change Canout
Var ChangeFlag2 = 1
EndIf
EndIf EndIf
EndIf EndIf
Else
Var Canout = CoinAmount
If Canout > 0 Then
Change Canout
Var ChangeFlag2 = 1
EndIf
EndIf EndIf
Else Else