THAI: PaymentCode move actionOk to EventTimeout
This commit is contained in:
Kenta420
parent
d9da7fee97
commit
8dbb50cd0f
1 changed files with 262 additions and 275 deletions
|
|
@ -10,6 +10,7 @@
|
||||||
<EventOpen>
|
<EventOpen>
|
||||||
; On open
|
; On open
|
||||||
Var ECommerce = ""
|
Var ECommerce = ""
|
||||||
|
Var CodeActionOK = 0
|
||||||
Var Seeker.FreeVendingCampaign = 0
|
Var Seeker.FreeVendingCampaign = 0
|
||||||
|
|
||||||
Var Timeout = 0
|
Var Timeout = 0
|
||||||
|
|
@ -56,7 +57,7 @@
|
||||||
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
|
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
|
||||||
EndIf
|
EndIf
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
If web_readyOK = "true" Then
|
If web_readyOK = "true" Then
|
||||||
Var web_readyOK = "false"
|
Var web_readyOK = "false"
|
||||||
|
|
@ -159,6 +160,261 @@
|
||||||
Refresh
|
Refresh
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
If Seeker.CodeChannel = 1 Then
|
||||||
|
If CodeActionOK = 1 Then
|
||||||
|
|
||||||
|
DEBUGVAR CodeActionOK
|
||||||
|
DEBUGVAR ECommerce
|
||||||
|
|
||||||
|
If ECommerce = "" Then
|
||||||
|
|
||||||
|
Else
|
||||||
|
Var ShowLoadingText = "Invisible"
|
||||||
|
|
||||||
|
SPLIT ECommerce "/" 5 Seeker.VendingCode
|
||||||
|
SPLIT ECommerce "/" 7 Seeker.VendingCampaignRI3
|
||||||
|
SPLIT ECommerce "/" 8 VendingCampaign1
|
||||||
|
SPLIT ECommerce "/" 9 ShouldCollectPoint
|
||||||
|
SPLIT ECommerce "/" 10 PaymentButtonControl
|
||||||
|
|
||||||
|
DEBUGVAR PaymentButtonControl
|
||||||
|
|
||||||
|
If PaymentButtonControl = "" Then
|
||||||
|
Var PaymentEnableAll = "true"
|
||||||
|
Else
|
||||||
|
If PaymentButtonControl = "*" Then
|
||||||
|
Var PaymentEnableAll = "true"
|
||||||
|
Else
|
||||||
|
Var PaymentEnableAll = "false"
|
||||||
|
STRCONTAIN "TWN" PaymentButtonControl TWN_CashOtherEnable
|
||||||
|
STRCONTAIN "KBA" PaymentButtonControl KBA_CashOtherEnable
|
||||||
|
STRCONTAIN "LPY" PaymentButtonControl LPY_CashOtherEnable
|
||||||
|
STRCONTAIN "AIR" PaymentButtonControl AIR_CashOtherEnable
|
||||||
|
STRCONTAIN "MAX" PaymentButtonControl MAX_CashOtherEnable
|
||||||
|
STRCONTAIN "WEC" PaymentButtonControl WEC_CashOtherEnable
|
||||||
|
STRCONTAIN "ALP" PaymentButtonControl ALP_CashOtherEnable
|
||||||
|
STRCONTAIN "UNP" PaymentButtonControl UNP_CashOtherEnable
|
||||||
|
STRCONTAIN "ACU" PaymentButtonControl ACU_CashOtherEnable
|
||||||
|
STRCONTAIN "TAO" PaymentButtonControl TAO_CreditEnable
|
||||||
|
STRCONTAIN "CSH" PaymentButtonControl CSH_CashEnable
|
||||||
|
STRCONTAIN "CRD" PaymentButtonControl CRD_CreditCardEnable
|
||||||
|
|
||||||
|
If CSH_CashEnable = "true" Then
|
||||||
|
|
||||||
|
Else
|
||||||
|
CoinVending OFF
|
||||||
|
Var CPD_CouponCodeEnable = "true"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If TWN_CashOtherEnable = "true" Then
|
||||||
|
Var E_WalletEnable = "true"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If KBA_CashOtherEnable = "true" Then
|
||||||
|
Var E_WalletEnable = "true"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If LPY_CashOtherEnable = "true" Then
|
||||||
|
Var E_WalletEnable = "true"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If AIR_CashOtherEnable = "true" Then
|
||||||
|
Var E_WalletEnable = "true"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If MAX_CashOtherEnable = "true" Then
|
||||||
|
Var E_WalletEnable = "true"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If WEC_CashOtherEnable = "true" Then
|
||||||
|
Var E_WalletEnable = "true"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If ALP_CashOtherEnable = "true" Then
|
||||||
|
Var E_WalletEnable = "true"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If UNP_CashOtherEnable = "true" Then
|
||||||
|
Var E_WalletEnable = "true"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If ACU_CashOtherEnable = "true" Then
|
||||||
|
Var E_WalletEnable = "true"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
DEBUGVAR CSH_CashEnable
|
||||||
|
DEBUGVAR TAO_CreditEnable
|
||||||
|
DEBUGVAR CPD_CouponCodeEnable
|
||||||
|
DEBUGVAR CRD_CreditCardEnable
|
||||||
|
DEBUGVAR E_WalletEnable
|
||||||
|
DEBUGVAR TWN_CashOtherEnable
|
||||||
|
DEBUGVAR KBA_CashOtherEnable
|
||||||
|
DEBUGVAR LPY_CashOtherEnable
|
||||||
|
DEBUGVAR AIR_CashOtherEnable
|
||||||
|
DEBUGVAR MAX_CashOtherEnable
|
||||||
|
DEBUGVAR WEC_CashOtherEnable
|
||||||
|
DEBUGVAR ALP_CashOtherEnable
|
||||||
|
DEBUGVAR UNP_CashOtherEnable
|
||||||
|
DEBUGVAR ACU_CashOtherEnable
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
If Seeker.VendingCode = "" Then
|
||||||
|
Var Seeker.VendingCode = "C00"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If Seeker.VendingCode = "KBA:2" Then
|
||||||
|
Var Seeker.VendingCode = "C00"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If Seeker.VendingCode = "AIR:2" Then
|
||||||
|
Var Seeker.VendingCode = "C00"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If Seeker.VendingCode = "TWN:2" Then
|
||||||
|
Var Seeker.VendingCode = "C00"
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
SAVELOG Seeker.VendingCode
|
||||||
|
SAVELOG Seeker.VendingCampaignRI3
|
||||||
|
|
||||||
|
SAVELOG ShouldCollectPoint
|
||||||
|
INT ShouldCollectPoint
|
||||||
|
|
||||||
|
If Seeker.VendingCode = "C00" Then
|
||||||
|
|
||||||
|
Else
|
||||||
|
Var VendingCreditRemain = ""
|
||||||
|
|
||||||
|
If VendingCampaign1 = "" Then
|
||||||
|
Var IntVendingCampaign1 = -1
|
||||||
|
Else
|
||||||
|
Var IntVendingCampaign1 = VendingCampaign1
|
||||||
|
INT IntVendingCampaign1
|
||||||
|
|
||||||
|
If IntVendingCampaign1 > 0 Then
|
||||||
|
Var VendingCreditRemain = VendingCampaign1
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3
|
||||||
|
INT Seeker.IntVendingCampaign
|
||||||
|
|
||||||
|
Var VendingREFID = SessionID
|
||||||
|
|
||||||
|
|
||||||
|
DEBUGVAR IntVendingCampaign1
|
||||||
|
DEBUGVAR PayAmount
|
||||||
|
DEBUGVAR Seeker.IntVendingCampaign
|
||||||
|
|
||||||
|
If Seeker.IntVendingCampaign > 0 Then
|
||||||
|
Var QRChannel = 0
|
||||||
|
|
||||||
|
If Seeker.IntVendingCampaign >= PayAmount Then
|
||||||
|
|
||||||
|
If ShouldCollectPoint = 1 Then
|
||||||
|
Var Seeker.CollectPointMain = 1
|
||||||
|
|
||||||
|
If PaymentCodeShouldCollectPromotionPoint = 1 Then
|
||||||
|
Var Seeker.CollectPointPromotion = 1
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
TRY "ROOT/taobin_project/xml/event/collect_promotion_point_condition.ev"
|
||||||
|
|
||||||
|
|
||||||
|
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
|
||||||
|
Var Seeker.VendingCampaign = PayAmount
|
||||||
|
Var Seeker.FreeVendingCampaign = 1
|
||||||
|
CoinVending OFF
|
||||||
|
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
|
||||||
|
If CART_COUNT >= 1 Then
|
||||||
|
|
||||||
|
Cart "PreparID" 1
|
||||||
|
Var CART_INDEX = 1
|
||||||
|
Var PayReference = ""
|
||||||
|
GenHashWithTimeStamp PayReference
|
||||||
|
Cart "MakeID" CART_INDEX
|
||||||
|
Open "ROOT/taobin_project/xml/page_thankyou.xml"
|
||||||
|
Else
|
||||||
|
Var CART_INDEX = 0
|
||||||
|
|
||||||
|
;include="ROOT/taobin_project/xml/sometime/make_drink.xml"
|
||||||
|
EndIf
|
||||||
|
Else
|
||||||
|
If ShouldCollectPoint = 1 Then
|
||||||
|
Var Seeker.CollectPointMain = 1
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
If PaymentCodeShouldCollectPromotionPoint = 1 Then
|
||||||
|
Var Seeker.CollectPointPromotion = 1
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
;Var SessionID2 = SelectSlot + ":"
|
||||||
|
;Var SessionID2 = SessionID2 + Seeker.ExtendData
|
||||||
|
|
||||||
|
;Var CreditAmount1 = ""
|
||||||
|
;Var ServiceAmountFlow = ""
|
||||||
|
;Var TelephoneNumber2 = "0899999999"
|
||||||
|
;Var ServiceType = "coffee"
|
||||||
|
;Var ECommerce = ""
|
||||||
|
;Var ECommerce = ECommerce + PriceDrink
|
||||||
|
;Var ECommerce = ECommerce + "/"
|
||||||
|
;Var ECommerce = ECommerce + DiscountDrink
|
||||||
|
;Var ECommerce = ECommerce + "/"
|
||||||
|
;Var ECommerce = ECommerce + SessionID2
|
||||||
|
;Var ECommerce = ECommerce + "/"
|
||||||
|
;Var ECommerce = ECommerce + SelectDrink
|
||||||
|
;Var ECommerce = ECommerce + "/"
|
||||||
|
;Var ECommerce = ECommerce + "KBA:2/"
|
||||||
|
;Var ECommerce = ECommerce + Seeker.VendingCode
|
||||||
|
;Var ECommerce = ECommerce + ":"
|
||||||
|
;Var ECommerce = ECommerce + Seeker.CodeNumber
|
||||||
|
;Var ECommerce = ECommerce + ":"
|
||||||
|
;Var ECommerce = ECommerce + Seeker.VendingCampaignRI3
|
||||||
|
;Var ServiceParameter = "max"
|
||||||
|
;Var ServiceCharge = 0
|
||||||
|
;Var AccountType = "new"
|
||||||
|
;Var testservice = "kbank"
|
||||||
|
;Var tc = ""
|
||||||
|
;Var GetScore = ""
|
||||||
|
;Var OperatorName = ""
|
||||||
|
;Var SessionID = ""
|
||||||
|
|
||||||
|
|
||||||
|
;GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
|
||||||
|
;Var Timeout = 0
|
||||||
|
;Var Seeker.CodeChannel = 2
|
||||||
|
|
||||||
|
Var Seeker.CodeChannel = 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
|
||||||
|
Else
|
||||||
|
|
||||||
|
Var ShowErrorText = "Enable"
|
||||||
|
Var text_show_error = DirImage + "/text_show_error.png"
|
||||||
|
Var GetPayInfoFlag = 0
|
||||||
|
Var Seeker.CodeChannel = 0
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
EndIf
|
||||||
|
|
||||||
TimerReset
|
TimerReset
|
||||||
</EventTimeout>
|
</EventTimeout>
|
||||||
|
|
||||||
|
|
@ -192,282 +448,12 @@
|
||||||
|
|
||||||
<EventActionOk>
|
<EventActionOk>
|
||||||
|
|
||||||
|
|
||||||
If Seeker.CodeChannel = 1 Then
|
If Seeker.CodeChannel = 1 Then
|
||||||
|
|
||||||
Var ShowLoadingText = "Invisible"
|
|
||||||
|
|
||||||
SAVELOG "Seeker.CodeChannel 1 > ActOK."
|
SAVELOG "Seeker.CodeChannel 1 > ActOK."
|
||||||
|
Var CodeActionOK = 1
|
||||||
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
DEBUGVAR ECommerce
|
|
||||||
SAVELOG ECommerce
|
|
||||||
|
|
||||||
SPLIT ECommerce "/" 5 Seeker.VendingCode
|
|
||||||
SPLIT ECommerce "/" 7 Seeker.VendingCampaignRI3
|
|
||||||
SPLIT ECommerce "/" 8 VendingCampaign1
|
|
||||||
SPLIT ECommerce "/" 9 ShouldCollectPoint
|
|
||||||
SPLIT ECommerce "/" 10 PaymentButtonControl
|
|
||||||
|
|
||||||
DEBUGVAR PaymentButtonControl
|
|
||||||
|
|
||||||
If PaymentButtonControl = "" Then
|
|
||||||
Var PaymentEnableAll = "true"
|
|
||||||
Else
|
|
||||||
If PaymentButtonControl = "*" Then
|
|
||||||
Var PaymentEnableAll = "true"
|
|
||||||
Else
|
|
||||||
Var PaymentEnableAll = "false"
|
|
||||||
STRCONTAIN "TWN" PaymentButtonControl TWN_CashOtherEnable
|
|
||||||
STRCONTAIN "KBA" PaymentButtonControl KBA_CashOtherEnable
|
|
||||||
STRCONTAIN "LPY" PaymentButtonControl LPY_CashOtherEnable
|
|
||||||
STRCONTAIN "AIR" PaymentButtonControl AIR_CashOtherEnable
|
|
||||||
STRCONTAIN "MAX" PaymentButtonControl MAX_CashOtherEnable
|
|
||||||
STRCONTAIN "WEC" PaymentButtonControl WEC_CashOtherEnable
|
|
||||||
STRCONTAIN "ALP" PaymentButtonControl ALP_CashOtherEnable
|
|
||||||
STRCONTAIN "UNP" PaymentButtonControl UNP_CashOtherEnable
|
|
||||||
STRCONTAIN "ACU" PaymentButtonControl ACU_CashOtherEnable
|
|
||||||
STRCONTAIN "TAO" PaymentButtonControl TAO_CreditEnable
|
|
||||||
STRCONTAIN "CSH" PaymentButtonControl CSH_CashEnable
|
|
||||||
STRCONTAIN "CRD" PaymentButtonControl CRD_CreditCardEnable
|
|
||||||
|
|
||||||
If CSH_CashEnable = "true" Then
|
|
||||||
|
|
||||||
Else
|
|
||||||
CoinVending OFF
|
|
||||||
Var CPD_CouponCodeEnable = "true"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If TWN_CashOtherEnable = "true" Then
|
|
||||||
Var E_WalletEnable = "true"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If KBA_CashOtherEnable = "true" Then
|
|
||||||
Var E_WalletEnable = "true"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If LPY_CashOtherEnable = "true" Then
|
|
||||||
Var E_WalletEnable = "true"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If AIR_CashOtherEnable = "true" Then
|
|
||||||
Var E_WalletEnable = "true"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If MAX_CashOtherEnable = "true" Then
|
|
||||||
Var E_WalletEnable = "true"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If WEC_CashOtherEnable = "true" Then
|
|
||||||
Var E_WalletEnable = "true"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If ALP_CashOtherEnable = "true" Then
|
|
||||||
Var E_WalletEnable = "true"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If UNP_CashOtherEnable = "true" Then
|
|
||||||
Var E_WalletEnable = "true"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If ACU_CashOtherEnable = "true" Then
|
|
||||||
Var E_WalletEnable = "true"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
|
|
||||||
DEBUGVAR CSH_CashEnable
|
|
||||||
DEBUGVAR TAO_CreditEnable
|
|
||||||
DEBUGVAR CPD_CouponCodeEnable
|
|
||||||
DEBUGVAR CRD_CreditCardEnable
|
|
||||||
DEBUGVAR E_WalletEnable
|
|
||||||
DEBUGVAR TWN_CashOtherEnable
|
|
||||||
DEBUGVAR KBA_CashOtherEnable
|
|
||||||
DEBUGVAR LPY_CashOtherEnable
|
|
||||||
DEBUGVAR AIR_CashOtherEnable
|
|
||||||
DEBUGVAR MAX_CashOtherEnable
|
|
||||||
DEBUGVAR WEC_CashOtherEnable
|
|
||||||
DEBUGVAR ALP_CashOtherEnable
|
|
||||||
DEBUGVAR UNP_CashOtherEnable
|
|
||||||
DEBUGVAR ACU_CashOtherEnable
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
|
|
||||||
If Seeker.VendingCode = "" Then
|
|
||||||
Var Seeker.VendingCode = "C00"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If Seeker.VendingCode = "KBA:2" Then
|
|
||||||
Var Seeker.VendingCode = "C00"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If Seeker.VendingCode = "AIR:2" Then
|
|
||||||
Var Seeker.VendingCode = "C00"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If Seeker.VendingCode = "TWN:2" Then
|
|
||||||
Var Seeker.VendingCode = "C00"
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
SAVELOG Seeker.VendingCode
|
|
||||||
SAVELOG Seeker.VendingCampaignRI3
|
|
||||||
|
|
||||||
SAVELOG ShouldCollectPoint
|
|
||||||
INT ShouldCollectPoint
|
|
||||||
|
|
||||||
If Seeker.VendingCode = "C00" Then
|
|
||||||
|
|
||||||
Else
|
|
||||||
Var VendingCreditRemain = ""
|
|
||||||
|
|
||||||
If VendingCampaign1 = "" Then
|
|
||||||
Var IntVendingCampaign1 = -1
|
|
||||||
Else
|
|
||||||
Var IntVendingCampaign1 = VendingCampaign1
|
|
||||||
INT IntVendingCampaign1
|
|
||||||
|
|
||||||
If IntVendingCampaign1 > 0 Then
|
|
||||||
Var VendingCreditRemain = VendingCampaign1
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3
|
|
||||||
INT Seeker.IntVendingCampaign
|
|
||||||
|
|
||||||
Var VendingREFID = SessionID
|
|
||||||
|
|
||||||
|
|
||||||
DEBUGVAR IntVendingCampaign1
|
|
||||||
DEBUGVAR PayAmount
|
|
||||||
DEBUGVAR Seeker.IntVendingCampaign
|
|
||||||
|
|
||||||
If Seeker.IntVendingCampaign > 0 Then
|
|
||||||
Var QRChannel = 0
|
|
||||||
|
|
||||||
If Seeker.IntVendingCampaign >= PayAmount Then
|
|
||||||
|
|
||||||
If ShouldCollectPoint = 1 Then
|
|
||||||
Var Seeker.CollectPointMain = 1
|
|
||||||
|
|
||||||
If PaymentCodeShouldCollectPromotionPoint = 1 Then
|
|
||||||
Var Seeker.CollectPointPromotion = 1
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
TRY "ROOT/taobin_project/xml/event/collect_promotion_point_condition.ev"
|
|
||||||
|
|
||||||
|
|
||||||
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
|
|
||||||
Var Seeker.VendingCampaign = PayAmount
|
|
||||||
Var Seeker.FreeVendingCampaign = 1
|
|
||||||
CoinVending OFF
|
|
||||||
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
|
|
||||||
If CART_COUNT >= 1 Then
|
|
||||||
|
|
||||||
Cart "PreparID" 1
|
|
||||||
Var CART_INDEX = 1
|
|
||||||
Var PayReference = ""
|
|
||||||
GenHashWithTimeStamp PayReference
|
|
||||||
Cart "MakeID" CART_INDEX
|
|
||||||
Open "ROOT/taobin_project/xml/page_thankyou.xml"
|
|
||||||
Else
|
|
||||||
Var CART_INDEX = 0
|
|
||||||
|
|
||||||
;include="ROOT/taobin_project/xml/sometime/make_drink.xml"
|
|
||||||
EndIf
|
|
||||||
Else
|
|
||||||
If ShouldCollectPoint = 1 Then
|
|
||||||
Var Seeker.CollectPointMain = 1
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
If PaymentCodeShouldCollectPromotionPoint = 1 Then
|
|
||||||
Var Seeker.CollectPointPromotion = 1
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;Var SessionID2 = SelectSlot + ":"
|
|
||||||
;Var SessionID2 = SessionID2 + Seeker.ExtendData
|
|
||||||
|
|
||||||
;Var CreditAmount1 = ""
|
|
||||||
;Var ServiceAmountFlow = ""
|
|
||||||
;Var TelephoneNumber2 = "0899999999"
|
|
||||||
;Var ServiceType = "coffee"
|
|
||||||
;Var ECommerce = ""
|
|
||||||
;Var ECommerce = ECommerce + PriceDrink
|
|
||||||
;Var ECommerce = ECommerce + "/"
|
|
||||||
;Var ECommerce = ECommerce + DiscountDrink
|
|
||||||
;Var ECommerce = ECommerce + "/"
|
|
||||||
;Var ECommerce = ECommerce + SessionID2
|
|
||||||
;Var ECommerce = ECommerce + "/"
|
|
||||||
;Var ECommerce = ECommerce + SelectDrink
|
|
||||||
;Var ECommerce = ECommerce + "/"
|
|
||||||
;Var ECommerce = ECommerce + "KBA:2/"
|
|
||||||
;Var ECommerce = ECommerce + Seeker.VendingCode
|
|
||||||
;Var ECommerce = ECommerce + ":"
|
|
||||||
;Var ECommerce = ECommerce + Seeker.CodeNumber
|
|
||||||
;Var ECommerce = ECommerce + ":"
|
|
||||||
;Var ECommerce = ECommerce + Seeker.VendingCampaignRI3
|
|
||||||
;Var ServiceParameter = "max"
|
|
||||||
;Var ServiceCharge = 0
|
|
||||||
;Var AccountType = "new"
|
|
||||||
;Var testservice = "kbank"
|
|
||||||
;Var tc = ""
|
|
||||||
;Var GetScore = ""
|
|
||||||
;Var OperatorName = ""
|
|
||||||
;Var SessionID = ""
|
|
||||||
|
|
||||||
|
|
||||||
;GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
|
|
||||||
;Var Timeout = 0
|
|
||||||
;Var Seeker.CodeChannel = 2
|
|
||||||
|
|
||||||
Var Seeker.CodeChannel = 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
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Else
|
|
||||||
|
|
||||||
Var ShowErrorText = "Enable"
|
|
||||||
Var text_show_error = DirImage + "/text_show_error.png"
|
|
||||||
Var GetPayInfoFlag = 0
|
|
||||||
Var Seeker.CodeChannel = 0
|
|
||||||
|
|
||||||
EndIf
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
Else
|
|
||||||
|
|
||||||
;SAVELOG "Seeker.CodeChannel 2 > ActOK."
|
|
||||||
;
|
|
||||||
;Var CreditAmount = 0
|
|
||||||
;Var QRCODE99 = SessionID
|
|
||||||
;Var QRCODE99 = QRCODE99 + Ext1a
|
|
||||||
;Var QRCODE99 = QRCODE99 + Ext21
|
|
||||||
;Var QRCODETMP = QRCODE99
|
|
||||||
;Var Seeker.CodeChannel = 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
|
|
||||||
|
|
||||||
</EventActionOk>
|
</EventActionOk>
|
||||||
|
|
||||||
<EventActionError>
|
<EventActionError>
|
||||||
|
|
@ -1063,8 +1049,8 @@
|
||||||
Var ECommerce = ECommerce + "/"
|
Var ECommerce = ECommerce + "/"
|
||||||
Var ECommerce = ECommerce + Seeker.CodeNumber
|
Var ECommerce = ECommerce + Seeker.CodeNumber
|
||||||
|
|
||||||
Var ECommerce = ECommerce + ":"
|
Var ECommerce = ECommerce + ":"
|
||||||
Var ECommerce = ECommerce + PromotionIDCurrentOrder
|
Var ECommerce = ECommerce + PromotionIDCurrentOrder
|
||||||
|
|
||||||
Var ServiceParameter = "max"
|
Var ServiceParameter = "max"
|
||||||
Var ServiceCharge = 0
|
Var ServiceCharge = 0
|
||||||
|
|
@ -1081,6 +1067,7 @@
|
||||||
|
|
||||||
Var TelephoneNumber = Seeker.CodeNumber
|
Var TelephoneNumber = Seeker.CodeNumber
|
||||||
Var Seeker.CodeChannel = 1
|
Var Seeker.CodeChannel = 1
|
||||||
|
Var CodeActionOK = 0
|
||||||
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue