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

fix Can use credit from current for next order

Browse source
This commit is contained in:
miggaze 2022-05-24 14:07:55 +07:00
parent 6dc2c89b7a
commit b45738d20e
13 changed files with 360 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

96
xml/page_payment_credit2.xml
View file

@ -10,6 +10,9 @@
<EventOpen>
; On open
Var useCreditAmount = 0;
Var useCreditTemp = 0;
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -66,7 +69,8 @@
If SumCreditAmount >= PayAmount Then
If ReqAdddata22 = 0 Then
Var BmiYear = PayAmount
Var useCreditAmount = PayAmount
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
@ -149,7 +153,7 @@
If ReqFlag = 0 Then
If ReqAdddata22 = 1 Then
Var Seeker.CreditReferenceTmp = "" + PayAmount
Var Seeker.CreditReferenceTmp = "" + useCreditAmount
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
@ -165,6 +169,12 @@
Var VendingCreditRemain = "" + SumCreditAmount
If useCreditTemp > 0 Then
Var Seeker.CurrCreditUse = useCreditTemp
EndIf
If CART_COUNT >= 1 Then
Cart "PreparID" 1
@ -787,7 +797,7 @@
DEBUGVAR "USER BN_BACK"
If ReqAdddata22 = 1 Then
Var BmiYear = PayAmount
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 24 TelephoneNumber BmiYear PointCrm GetScore
EndIf
@ -806,48 +816,7 @@
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var ShowSentSmsText = "Invisible"
Var Timeout = 0
If PinNumberUser = PinNumber Then
Var SumCreditAmount = CoffeeCredit
If SumCreditAmount >= PayAmount Then
If ReqAdddata22 = 0 Then
Var BmiYear = PayAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
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
<EventClick>
</EventClick>
</Button>
@ -956,7 +925,16 @@
If SumCreditAmount >= PayAmount Then
If ReqAdddata22 = 0 Then
Var BmiYear = PayAmount
If Seeker = "next" Then
Var Curr = "curr"
If TelephoneNumber = Curr.CurrCreditTelNum Then
Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount
EndIf
EndIf
Var useCreditAmount = PayAmount
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
@ -964,7 +942,31 @@
Else
Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
If Seeker = "next" Then
Var Curr = "curr"
If TelephoneNumber = Curr.CurrCreditTelNum Then
Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount
If SumCreditAmount >= PayAmount Then
If ReqAdddata22 = 0 Then
Var useCreditTemp = PayAmount - CoffeeCredit
Var useCreditAmount = CoffeeCredit
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
Else
Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_payment_credit3.xml"
EndIf
EndIf
Else