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

...

Browse source
This commit is contained in:
miggaze 2023-11-03 14:45:33 +07:00
parent f168e1f2da
commit 34eb1b9663
2 changed files with 21 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
xml/page_payment_cash.xml
View file

@ -226,6 +226,12 @@
Var PayState4 = "Disable" Var PayState4 = "Disable"
Var PayState5 = "Enable" Var PayState5 = "Enable"
Var PayState6 = "Disable" Var PayState6 = "Disable"
If From15THBPro = 1 Then
Var PayState4 = "Enable"
EndIf
EndIf EndIf
Var PayState3 = "Enable" Var PayState3 = "Enable"
@ -234,7 +240,7 @@
Var PayState3 = "Enable" Var PayState3 = "Enable"
Var PayState5 = "Disable" Var PayState5 = "Disable"
Var PayState6 = "Disable" Var PayState6 = "Disable"
Var PayState4 = "Disable" ;Var PayState4 = "Disable"
EndIf EndIf
@ -255,6 +261,11 @@
Var PayState4 = "Disable" Var PayState4 = "Disable"
Var PayState5 = "Disable" Var PayState5 = "Disable"
Var PayState6 = "Disable" Var PayState6 = "Disable"
If From15THBPro = 1 Then
Var PayState4 = "Disable"
EndIf
EndIf EndIf

16
xml/page_payment_credit2.xml
View file

@ -10,6 +10,8 @@
<EventOpen> <EventOpen>
; On open ; On open
Var PayAmountSubDiscount = PayAmount - Seeker.IntVendingCampaign
Var useCreditAmount = 0; Var useCreditAmount = 0;
Var useCreditTemp = 0; Var useCreditTemp = 0;
@ -66,10 +68,10 @@
Var SumCreditAmount = CoffeeCredit Var SumCreditAmount = CoffeeCredit
If SumCreditAmount >= PayAmount Then If SumCreditAmount >= PayAmountSubDiscount Then
If ReqAdddata22 = 0 Then If ReqAdddata22 = 0 Then
Var useCreditAmount = PayAmount Var useCreditAmount = PayAmountSubDiscount
Var BmiYear = useCreditAmount Var BmiYear = useCreditAmount
Var GetScore = "useCredit" Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore AddData 22 TelephoneNumber BmiYear PointCrm GetScore
@ -173,7 +175,7 @@
Var Seeker.StoreCreditFlag = 1 Var Seeker.StoreCreditFlag = 1
Var SumCreditAmount = SumCreditAmount - PayAmount Var SumCreditAmount = SumCreditAmount - PayAmountSubDiscount
Var VendingCreditRemain = "" + SumCreditAmount Var VendingCreditRemain = "" + SumCreditAmount
@ -938,7 +940,7 @@
Var SumCreditAmount = CoffeeCredit Var SumCreditAmount = CoffeeCredit
If SumCreditAmount >= PayAmount Then If SumCreditAmount >= PayAmountSubDiscount Then
If ReqAdddata22 = 0 Then If ReqAdddata22 = 0 Then
@ -949,7 +951,7 @@
EndIf EndIf
EndIf EndIf
Var useCreditAmount = PayAmount Var useCreditAmount = PayAmountSubDiscount
Var BmiYear = useCreditAmount Var BmiYear = useCreditAmount
Var GetScore = "useCredit" Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore AddData 22 TelephoneNumber BmiYear PointCrm GetScore
@ -963,10 +965,10 @@
If TelephoneNumber = Curr.CurrCreditTelNum Then If TelephoneNumber = Curr.CurrCreditTelNum Then
Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount
If SumCreditAmount >= PayAmount Then If SumCreditAmount >= PayAmountSubDiscount Then
If ReqAdddata22 = 0 Then If ReqAdddata22 = 0 Then
Var useCreditTemp = PayAmount - CoffeeCredit Var useCreditTemp = PayAmountSubDiscount - CoffeeCredit
Var useCreditAmount = CoffeeCredit Var useCreditAmount = CoffeeCredit
Var BmiYear = useCreditAmount Var BmiYear = useCreditAmount