fix bug Event OK

This commit is contained in:
miggaze 2021-05-24 15:35:03 +07:00
parent 7321a4aa50
commit a406ec83f8
3 changed files with 151 additions and 135 deletions

View file

@ -91,6 +91,14 @@
SPLIT ECommerce "/" 7 VendingCampaignRI3 SPLIT ECommerce "/" 7 VendingCampaignRI3
SPLIT ECommerce "/" 8 VendingCampaign1 SPLIT ECommerce "/" 8 VendingCampaign1
If VendingCode = "" Then
Var VendingCode = "C00"
EndIf
If VendingCode = "C00" Then
Else
Var IntVendingCampaign = VendingCampaignRI3 Var IntVendingCampaign = VendingCampaignRI3
INT IntVendingCampaign INT IntVendingCampaign
@ -129,7 +137,7 @@
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "KBA:1/" Var ECommerce = ECommerce + "KBA:2/"
Var ECommerce = ECommerce + VendingCode Var ECommerce = ECommerce + VendingCode
Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + ":"
Var ECommerce = ECommerce + CodeNumber Var ECommerce = ECommerce + CodeNumber
@ -235,6 +243,8 @@
EndIf EndIf
EndIf
Else Else
Var CreditAmount = 0 Var CreditAmount = 0
@ -585,6 +595,7 @@
If GetPayInfoFlag = 0 Then If GetPayInfoFlag = 0 Then
Var GetPayInfoFlag = 1
VendingQR OFF VendingQR OFF
@ -625,7 +636,7 @@
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0 Var Timeout = 0
Var GetPayInfoFlag = 1
Var TelephoneNumber = CodeNumber Var TelephoneNumber = CodeNumber
Var CodeChannel = 1 Var CodeChannel = 1

View file

@ -33,6 +33,8 @@
Var number9 = "" Var number9 = ""
Var number10 = "" Var number10 = ""
Var Ext1a = ""
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>

View file

@ -38,6 +38,9 @@
Else Else
Var DirImage = "ROOT/taobin_project/image/collectiing" Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf EndIf
Var Ext1a = ""
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>