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

make drink when set pin

Browse source
This commit is contained in:
miggaze 2022-01-20 14:49:01 +07:00
parent 8138624cb0
commit 731c6ae334
5 changed files with 101 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

105
xml/page_payment_credit2.xml
View file

@ -65,6 +65,9 @@
GETACCEXT DataTmp 19
EndIf
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
</EventOpen>
<Timeout> 1000 </Timeout>
@ -121,26 +124,64 @@
If ReqFlag = 0 Then
If ReqAdddata22 = 1 Then
Var Seeker.CreditReferenceTmp = "" + PayAmount
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
CoinVending OFF
Var Seeker.TNumberTaobinCredit = TelephoneNumber
Var Seeker.CoffeePinNumber = PinNumber
Var Seeker.StoreCreditFlag = 1
Var SumCreditAmount = SumCreditAmount - PayAmount
Var VendingCreditRemain = "" + SumCreditAmount
If CART_COUNT >= 1 Then
Cart "PreparID" 1
Var CART_INDEX = 1
Var PayReference = ""
GenHashWithTimeStamp PayReference
Cart "MakeID" CART_INDEX
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
Var CART_INDEX = 0
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
Else
DEBUGVAR Seeker
EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
EndIf
If Ext1a = "ok" Then
;If Ext1a = "ok" Then
If Ext1c = "" Then
Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
Else
; If Ext1c = "" Then
;
; Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
; Else
EndIf
Else
Var ShowErrorText = "Enable"
Var PinNumber = ""
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
EndIf
; EndIf
;Else
; Var ShowErrorText = "Enable"
; Var PinNumber = ""
; Var ShowTextNumber1 = "Invisible"
; Var ShowTextNumber2 = "Invisible"
; Var ShowTextNumber3 = "Invisible"
; Var ShowTextNumber4 = "Invisible"
;EndIf
Else
EndIf
@ -720,13 +761,41 @@
<EventClick>
Var ShowSentSmsText = "Invisible"
Var Timeout = 0
Var DataTmp = TelephoneNumber + "/"
Var DataTmp = DataTmp + PinNumber
If PinNumberUser = PinNumber Then
GETACCEXT DataTmp 19
Var SumCreditAmount = CoffeeCredit
Var ReqFlag = 0
If SumCreditAmount >= PayAmount Then
GenHashWithTimeStamp PointCrm
Var BmiYear = PayAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
Else
Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
EndIf
Else
Var ShowErrorText = "Enable"
Var PinNumber = ""
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
EndIf
;Var DataTmp = TelephoneNumber + "/"
;Var DataTmp = DataTmp + PinNumber
;GETACCEXT DataTmp 19
Var ReqFlag = 0
Refresh