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

@ -244,14 +244,47 @@
Var SessionID2 = SessionID2 + CodeNumber Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + "/"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
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 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf EndIf
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
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
@ -298,9 +331,13 @@
Change CoinAmount Change CoinAmount
EndIf EndIf
Else
If ChangeFlag2 = 1 Then
Var ChangeOK = 2
Else Else
Var ChangeOK = 3 Var ChangeOK = 3
EndIf EndIf
EndIf
Else Else

View file

@ -26,8 +26,8 @@
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
@ -586,6 +589,7 @@
EndIf EndIf
EndIf EndIf
EndIf
; If CoinInFlag = 0 Then ; If CoinInFlag = 0 Then
; Var BG_Menu_Page4 = "ROOT/image/BG_PromptPay_Page4.bmp" ; Var BG_Menu_Page4 = "ROOT/image/BG_PromptPay_Page4.bmp"
@ -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>
@ -73,6 +100,9 @@
EndIf EndIf
Var SessionID2 = SelectSlot + ":" Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData Var SessionID2 = SessionID2 + ExtendData

View file

@ -25,6 +25,7 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout = 3 Then If Timeout = 3 Then
If PayWithQR = 0 Then
If FreeVendingCampaign = 0 Then If FreeVendingCampaign = 0 Then
If IntVendingCampaign < PayAmount Then If IntVendingCampaign < PayAmount Then
Var SumCoinAmount = CoinAmount + IntVendingCampaign Var SumCoinAmount = CoinAmount + IntVendingCampaign
@ -44,6 +45,15 @@
Var ChangeFlag2 = 1 Var ChangeFlag2 = 1
EndIf EndIf
EndIf
Else
Var Canout = CoinAmount
If Canout > 0 Then
Change Canout
Var ChangeFlag2 = 1
EndIf
EndIf EndIf
EndIf EndIf