THAI: PaymentCode move actionOk to EventTimeout

This commit is contained in:
Kenta420 2025-05-28 12:46:38 +07:00
parent d9da7fee97
commit 8dbb50cd0f

View file

@ -10,6 +10,7 @@
<EventOpen>
; On open
Var ECommerce = ""
Var CodeActionOK = 0
Var Seeker.FreeVendingCampaign = 0
Var Timeout = 0
@ -56,7 +57,7 @@
Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
EndIf
EndIf
If web_readyOK = "true" Then
Var web_readyOK = "false"
@ -159,6 +160,261 @@
Refresh
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
</EventTimeout>
@ -192,282 +448,12 @@
<EventActionOk>
If Seeker.CodeChannel = 1 Then
Var ShowLoadingText = "Invisible"
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>
<EventActionError>
@ -1063,8 +1049,8 @@
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + ":"
Var ECommerce = ECommerce + PromotionIDCurrentOrder
Var ECommerce = ECommerce + ":"
Var ECommerce = ECommerce + PromotionIDCurrentOrder
Var ServiceParameter = "max"
Var ServiceCharge = 0
@ -1081,6 +1067,7 @@
Var TelephoneNumber = Seeker.CodeNumber
Var Seeker.CodeChannel = 1
Var CodeActionOK = 0
EndIf