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

creditReferecnce o3

Browse source
This commit is contained in:
miggaze 2021-12-07 12:02:02 +07:00
parent eb861cf23c
commit 744134e271
15 changed files with 558 additions and 114 deletions
Download patch file Download diff file Expand all files Collapse all files

250
xml/page_payment_credit3.xml
View file

@ -40,6 +40,9 @@
EndIf
Var ShowLoadingText = "Invisible"
Var ShowErrorText = "Invisible"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
@ -50,16 +53,84 @@
Var PrepareFlag = 0
Var PrepareTime = 0
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
GenHashWithTimeStamp PointCrm
;Var Tel_Confirm_State = "Invisible"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If ReqAdddata22 = 0 Then
Var Timeout = Timeout + 1
Else
Var timeout_Adddata22 = timeout_Adddata22 + 1
If timeout_Adddata22 > 30 Then
Var Tel_Confirm_State = "Enable"
Var ShowLoadingText = "Invisible"
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
Var ShowErrorText = "Enable"
EndIf
EndIf
If AcceptAuto = "true" Then
If Timeout > 2 Then
If Timeout > 3 Then
Var AcceptAuto = "false"
Var BmiYear = PayAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
EndIf
If Timeout > 60 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
If ReqAdddata22 = 1 Then
If NotEnoughFlag = 0 Then
Var CreditReferenceTmp = "" + PayAmount
Var CreditReferenceTmp = CreditReferenceTmp + "/"
Var CreditReferenceTmp = CreditReferenceTmp + PointCrm
CoinVending OFF
@ -81,34 +152,45 @@
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
EndIf
EndIf
If Timeout > 30 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Var TNumberTaobinCredit = TelephoneNumber
Var CoffeePinNumber = PinNumber
Var IntVendingCredit = SumCreditAmount
Var CreditReferenceTmp = "" + SumCreditAmount
Var CreditReferenceTmp = CreditReferenceTmp + "/"
Var CreditReferenceTmp = CreditReferenceTmp + PointCrm
Var StoreCreditFlag = 1
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventActionOk>
</EventActionOk>
<EventActionError>
If ReqAdddata22 = 1 Then
Var Tel_Confirm_State = "Enable"
Var ShowLoadingText = "Invisible"
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
Var ShowErrorText = "Enable"
EndIf
</EventActionError>
@ -182,97 +264,44 @@
<Volume> SoundVolume </Volume>
<EventClick>
If NotEnoughFlag = 0 Then
CoinVending OFF
Var TNumberTaobinCredit = TelephoneNumber
Var CoffeePinNumber = PinNumber
Var StoreCreditFlag = 1
If CART_COUNT >= 1 Then
Cart "PreparID" 1
Var CART_INDEX = 1
Var PayReference = ""
GenHashWithTimeStamp PayReference
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
Var CART_INDEX = 0
Var BmiYear = PayAmount
Var GetScore = "useCredit"
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
Else
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Var TNumberTaobinCredit = TelephoneNumber
Var CoffeePinNumber = PinNumber
Var IntVendingCredit = SumCreditAmount
;Var SessionID2 = SelectSlot + ":"
;Var SessionID2 = SessionID2 + ExtendData
;Var CreditAmount1 = ""
;Var ServiceAmountFlow = ""
;Var TelephoneNumberQR = "0899999999"
;If CART_COUNT >= 1 Then
; Var ServiceType = "coffee-multi"
;Else
; Var ServiceType = "coffee"
;EndIf
;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
Var StoreCreditFlag = 1
SAVELOG "payment_credit3-p227."
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
Var BmiYear = SumCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
Var ShowNotEnoughText = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowLoadingText = "Enable"
Var Tel_Confirm_State = "Disable"
Var Timeout = 0
Refresh
</EventClick>
</Button>
@ -290,6 +319,23 @@
</Image>
<Image>
<X> 260 </X>
<Y> 920 </Y>
<State> ShowLoadingText </State>
<Filename> Var( DirImage + "/loadingText.png") </Filename>
</Image>
<Image>
<X> 260 </X>
<Y> 920 </Y>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/loadingTextError.png") </Filename>
</Image>