THAI: update promptpay QR code support discount and use remain credit in same time

This commit is contained in:
Kenta420 2024-05-21 15:41:19 +07:00
parent df2e4915bc
commit 838bc92fc2
3 changed files with 12 additions and 8 deletions

View file

@ -49,6 +49,10 @@
Var PayCreditChannel = "cash"
If SELLSTATUS = "SELLNOCASH" Then
Var PayState1 = "Disable"
EndIf
Var text_4 = "/text_4.png"

View file

@ -301,7 +301,7 @@
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = PromoPriceDrink
@ -315,7 +315,7 @@
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = PromotionPriceDrink
EndIf
@ -326,7 +326,7 @@
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = PromotionPriceDrink
EndIf
@ -349,7 +349,7 @@
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = PriceDrink - PriceDiff
EndIf
@ -363,7 +363,7 @@
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = 1
Else
@ -373,7 +373,7 @@
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = 1
EndIf
@ -388,7 +388,7 @@
Var Seeker.IntVendingCampaign = PriceDiff
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum
Var Seeker.CodeNumber = "00000000"
Var Seeker.VendingCampaignRI3 = PriceDiff
Var Seeker.CampaignPPrice = 1
EndIf

View file

@ -2548,7 +2548,7 @@
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"