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

7
xml/page_payment_credit.xml
View file

@ -74,6 +74,13 @@
;Open "ROOT/taobin_project/xml/page_payment_credit2.xml"
If GetAccFlag = 1 Then
If Ext1a = "ok" Then
Var PinNumberUser = Ext1c
Var CoffeeCredit = Ext1b
INT CoffeeCredit
;Var CoffeeCredit = 5
Open "ROOT/taobin_project/xml/page_payment_credit2.xml"
Else
Var ShowErrorText = "Enable"

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

4
xml/page_payment_credit3.xml
View file

@ -15,8 +15,8 @@
Var Tel_Confirm_State = "Disable"
Var ShowNotEnoughText = "Invisible"
Var CoffeeCredit = Ext1b
INT CoffeeCredit
;Var CoffeeCredit = Ext1b
;INT CoffeeCredit
Var SumCreditAmount = CoffeeCredit
;Var SumCreditAmount = 5

6
xml/page_thankyou.xml
View file

@ -43,11 +43,15 @@
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var BottomText = PicturePath + "text_bottom_eng.png"
Var DirImage = "ROOT/taobin_project/image/page_thankyou_en"
Else
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var BottomText = PicturePath + "text_bottom_thai2.png"
Var DirImage = "ROOT/taobin_project/image/page_thankyou"
EndIf
DEBUGVAR StarwState
@ -248,7 +252,7 @@
<X> 760 </X>
<Y> 413 </Y>
<State>RemainCreditST</State>
<Filename> "ROOT/taobin_project/image/page_thankyou/remainCredit.png" </Filename>
<Filename> Var( DirImage + "/remainCredit.png" ) </Filename>
</Image>
<Text>