free from problem,credit with cash qr

This commit is contained in:
miggaze 2021-07-23 17:27:25 +07:00
parent 6c68e86ca1
commit 0eb70b24f7
12 changed files with 212 additions and 26 deletions

View file

@ -13,14 +13,24 @@
Var Timeout = 0
Var Tel_Confirm_State = "Disable"
Var ShowNotEnoughText = "Invisible"
Var CoffeeCredit = Ext1b
INT CoffeeCredit
Var SumCreditAmount = CoffeeCredit
;Var SumCreditAmount = 5
Var NotEnoughFlag = 0
If SumCreditAmount >= PayAmount Then
Var Tel_Confirm_State = "Enable"
Else
Var Tel_Confirm_State = "Enable"
Var ShowNotEnoughText = "Enable"
Var NotEnoughFlag = 1
EndIf
@ -123,19 +133,77 @@
<EventClick>
If NotEnoughFlag = 0 Then
CoinVending OFF
CoinVending OFF
Var TNumberTaobinCredit = TelephoneNumber
Var CoffeePinNumber = PinNumber
Var TNumberTaobinCredit = TelephoneNumber
Var CoffeePinNumber = PinNumber
Var StoreCreditFlag = 1
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Var StoreCreditFlag = 1
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Var TNumberTaobinCredit = TelephoneNumber
Var CoffeePinNumber = PinNumber
Var IntVendingCredit = SumCreditAmount
;Var PriceDrinkWithCredit = PriceDrink - SumCreditAmount
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA:2/"
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + SumCreditAmount
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var QRCODE99 = ""
Var QRCODETMP = ""
Var ReqPayInfoFlag = 1
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
</EventClick>
</Button>
@ -144,7 +212,13 @@
<Image>
<X> 230 </X>
<Y> 920 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowNotEnoughText </State>
<Filename> Var( DirImage + "/text_show_notEnough.png") </Filename>
</Image>