THAI: Reset service charge then refund
This commit is contained in:
Kenta420
parent
9de9305343
commit
f29680f2b4
3 changed files with 204 additions and 198 deletions
|
|
@ -59,16 +59,16 @@
|
|||
;inter-image
|
||||
Var DirImageDoing = "ROOT/taobin_project/image/page_doing"
|
||||
|
||||
If show_eng = "true" Then
|
||||
If show_eng = "true" Then
|
||||
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_en"
|
||||
EndIf
|
||||
|
||||
;inter-image
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_mmr/"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
If LanguageShow = "MSC" Then
|
||||
Var DirImageDoing = "ROOT/taobin_project/inter/hkg/image/page_doing/"
|
||||
EndIf
|
||||
|
||||
|
|
@ -155,7 +155,7 @@
|
|||
Var XStraw = 142
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
If LanguageShow = "MSC" Then
|
||||
|
||||
Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
|
||||
|
||||
|
|
@ -473,7 +473,7 @@
|
|||
Var LangString = "LANG: "TH"\r\n"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
If LanguageShow = "MSC" Then
|
||||
Var LangString = "LANG: "TH"\r\n"
|
||||
EndIf
|
||||
|
||||
|
|
@ -508,7 +508,7 @@
|
|||
Var LangString = "LANG: "TH"\r\n"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
If LanguageShow = "MSC" Then
|
||||
Var LangString = "LANG: "TH"\r\n"
|
||||
EndIf
|
||||
|
||||
|
|
@ -911,6 +911,7 @@
|
|||
Var PayDetail2 = ""
|
||||
Var VendingOrderID = Seeker.ORDER_ID
|
||||
Var ServiceRefund = 0
|
||||
Var ServiceCharge = 0
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
|
||||
|
||||
Var waitAckPay = 2
|
||||
|
|
@ -949,6 +950,7 @@
|
|||
Var PayDetail2 = ""
|
||||
Var VendingOrderID = Seeker.ORDER_ID
|
||||
Var ServiceRefund = 0
|
||||
Var ServiceCharge = 0
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
|
||||
|
||||
Var waitAckPay = 2
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@
|
|||
Var ActionOKCase = 0
|
||||
Var Seeker = "curr"
|
||||
|
||||
If show_eng = "true" Then
|
||||
If show_eng = "true" Then
|
||||
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
|
||||
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
|
||||
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
|
||||
|
|
@ -20,7 +20,7 @@
|
|||
EndIf
|
||||
|
||||
;inter-image
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
|
||||
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
|
||||
EndIf
|
||||
|
|
@ -60,12 +60,12 @@
|
|||
Var EnableTopupCreditBetweenBrew = "Invisible"
|
||||
EndIf
|
||||
|
||||
If EnableSelectMenuBetweenBrew = "Enable" Then
|
||||
If EnableSelectMenuBetweenBrew = "Enable" Then
|
||||
Var EnableSelectMenuBetweenBrewBlink = "Enable"
|
||||
Else
|
||||
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png"
|
||||
If Seeker.thankLidFlag = 1 Then
|
||||
|
|
@ -73,8 +73,8 @@
|
|||
Var LidStateX = "Invisible"
|
||||
EndIf
|
||||
|
||||
Var TimeoutWaitPay = 10
|
||||
|
||||
Var TimeoutWaitPay = 10
|
||||
|
||||
Var PayReference = ""
|
||||
Var PayType = "newpay"
|
||||
Var MachineState_Result = 0
|
||||
|
|
@ -99,11 +99,11 @@
|
|||
DEBUGVAR Seeker.CashlessVendingTrackNumber
|
||||
|
||||
DEBUGVAR Seeker.CodeNumber
|
||||
|
||||
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
|
||||
|
||||
|
||||
; On open move from page_brewing3.xml
|
||||
Var countClick2 = 0
|
||||
|
||||
|
|
@ -111,7 +111,7 @@
|
|||
|
||||
Var PrintCoinAmount = 0
|
||||
|
||||
DEBUGVAR Seeker.TNumberTaobinMember
|
||||
DEBUGVAR Seeker.TNumberTaobinMember
|
||||
DEBUGVAR Seeker.PointTaobinStr
|
||||
|
||||
If LedLidBlink = "true" Then
|
||||
|
|
@ -136,18 +136,18 @@
|
|||
Var LidStateX = "Invisible"
|
||||
|
||||
If Seeker.CreditCard = 1 Then
|
||||
Var EnableSelectMenuBetweenBrew = "Invisible"
|
||||
Var EnableSelectMenuBetweenBrew = "Invisible"
|
||||
Var EnableTopupCreditBetweenBrew = "Invisible"
|
||||
EndIf
|
||||
|
||||
If MachineState_Result > 0 Then
|
||||
Var EnableTopupCreditBetweenBrew = "Invisible"
|
||||
If MachineState_Result > 0 Then
|
||||
Var EnableTopupCreditBetweenBrew = "Invisible"
|
||||
EndIf
|
||||
|
||||
Var CreditCardVoid = 0
|
||||
|
||||
DEBUGVAR ButtonGameCountDownState
|
||||
|
||||
|
||||
SAVELOG "New brewing3 conti"
|
||||
|
||||
</EventOpen>
|
||||
|
|
@ -158,9 +158,9 @@
|
|||
If CreditCardVoid = 1 Then
|
||||
Var ChangeOK = 2
|
||||
EndIf
|
||||
|
||||
|
||||
If ActionOKCase = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
|
|
@ -173,11 +173,11 @@
|
|||
Var ECommerce = ""
|
||||
Var ECommerce = ECommerce + PriceDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.VendingCode
|
||||
Var ECommerce = ECommerce + "/"
|
||||
|
|
@ -199,17 +199,17 @@
|
|||
Var ActionOKCase = 2
|
||||
|
||||
SAVELOG "back_to_main from line > 142."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
|
||||
Else
|
||||
|
||||
SAVELOG "back_to_main from line > 147."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
|
|
@ -217,7 +217,7 @@
|
|||
|
||||
<EventActionError>
|
||||
If ActionOKCase = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
|
|
@ -230,11 +230,11 @@
|
|||
Var ECommerce = ""
|
||||
Var ECommerce = ECommerce + PriceDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.VendingCode
|
||||
Var ECommerce = ECommerce + "/"
|
||||
|
|
@ -256,23 +256,23 @@
|
|||
Var ActionOKCase = 2
|
||||
|
||||
SAVELOG "back_to_main from line > 204."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
|
||||
Else
|
||||
SAVELOG "back_to_main from line > 173."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
|
||||
|
||||
EndIf
|
||||
</EventActionError>
|
||||
|
||||
|
||||
<Timeout> 1000 </Timeout>
|
||||
<EventTimeout>
|
||||
<EventTimeout>
|
||||
|
||||
Var Timeout = Timeout + 1
|
||||
|
||||
|
|
@ -293,16 +293,16 @@
|
|||
If Timeout = 4 Then
|
||||
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
Var ShowCountDownBrewing = CountDownBrewing
|
||||
|
||||
|
||||
If Timeout > 540 Then
|
||||
SAVELOG "back_to_main from line > 217."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
If Timeout > 480 Then
|
||||
Var MachineState_Result = 2
|
||||
|
|
@ -312,16 +312,16 @@
|
|||
Var ChangeTimeout = ChangeTimeout + 1
|
||||
EndIf
|
||||
|
||||
|
||||
If waitAckPay = 2 Then
|
||||
|
||||
If waitAckPay = 2 Then
|
||||
If Timeout > TimeoutWaitPay Then
|
||||
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + ExtendData
|
||||
|
||||
DEBUGVAR SessionID2
|
||||
|
||||
|
||||
Var CreditAmount1 = ""
|
||||
Var ServiceAmountFlow = ""
|
||||
Var TelephoneNumber = "0899999999"
|
||||
|
|
@ -329,11 +329,11 @@
|
|||
Var ECommerce = ""
|
||||
Var ECommerce = ECommerce + PriceDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.VendingCode
|
||||
Var ECommerce = ECommerce + "/"
|
||||
|
|
@ -353,9 +353,9 @@
|
|||
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
|
||||
;Var Timeout = 0
|
||||
EndIf
|
||||
|
||||
|
||||
SAVELOG "back_to_main from line > 309."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
|
@ -376,7 +376,7 @@
|
|||
Var TelephoneNumber = Seeker.TNumberTaobinCredit
|
||||
Var PayO2 = Seeker.CoffeePinNumber
|
||||
EndIf
|
||||
|
||||
|
||||
Var ServiceType = "coffee-refund"
|
||||
Var ServiceCredit = SelectDrink
|
||||
Var SuggestID = ""
|
||||
|
|
@ -388,10 +388,11 @@
|
|||
Var PayDetail2 = ""
|
||||
Var VendingOrderID = Seeker.ORDER_ID
|
||||
Var ServiceRefund = 0
|
||||
Var ServiceCharge = 0
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
|
||||
|
||||
Var waitAckPay = 2
|
||||
Var TimeoutWaitPay = 45
|
||||
Var TimeoutWaitPay = 45
|
||||
Var Timeout = 5
|
||||
Var ActionOKCase = 1
|
||||
|
||||
|
|
@ -426,10 +427,11 @@
|
|||
Var PayDetail2 = ""
|
||||
Var VendingOrderID = Seeker.ORDER_ID
|
||||
Var ServiceRefund = 0
|
||||
Var ServiceCharge = 0
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
|
||||
|
||||
Var waitAckPay = 2
|
||||
Var TimeoutWaitPay = 45
|
||||
Var TimeoutWaitPay = 45
|
||||
Var Timeout = 5
|
||||
Var ActionOKCase = 1
|
||||
|
||||
|
|
@ -438,15 +440,15 @@
|
|||
|
||||
If ChangeOK = 3 Then
|
||||
If ActionOKCase = 0 Then
|
||||
|
||||
|
||||
Var ActionOKCase = 1
|
||||
If Seeker.CodeChannel = 0 Then
|
||||
If Seeker.CodeChannel = 0 Then
|
||||
SAVELOG "back_to_main from line > 391."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
Var waitAckPay = 2
|
||||
Var TimeoutWaitPay = 45
|
||||
Var TimeoutWaitPay = 45
|
||||
Var Timeout = 5
|
||||
|
||||
EndIf
|
||||
|
|
@ -460,10 +462,10 @@
|
|||
|
||||
If MachineState_Result = 1 Then
|
||||
DEBUGVAR PaySuccessWithDaemonTask
|
||||
|
||||
If waitAckPay = 0 Then
|
||||
|
||||
Var waitAckPay = 0
|
||||
If waitAckPay = 0 Then
|
||||
|
||||
Var waitAckPay = 0
|
||||
Var Timeout = 0
|
||||
|
||||
If Seeker.PayWithQR = 0 Then
|
||||
|
|
@ -475,7 +477,7 @@
|
|||
Else
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
__CMD "clear-stock-data" 0 "-" "-"
|
||||
|
|
@ -483,7 +485,7 @@
|
|||
Var ServiceSuccess = "yes"
|
||||
If waitAckPay = 0 Then
|
||||
SAVELOG "waitAckPay = 0 Timeout"
|
||||
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
|
|
@ -496,18 +498,18 @@
|
|||
Var ErrTimeout = 1
|
||||
|
||||
|
||||
If Seeker.PayWithQR = 0 Then
|
||||
If Seeker.PayWithQR = 0 Then
|
||||
|
||||
If Seeker.CreditCard = 1 Then
|
||||
CashlessReq FAIL Seeker.CashlessVendingTrackNumber
|
||||
Var ChangeFlag = 1
|
||||
Var ChangeFlag = 1
|
||||
Var CreditCardVoid = 1
|
||||
Else
|
||||
|
||||
|
||||
|
||||
If Seeker.CodeChannel = 0 Then
|
||||
If ChangeFlag = 0 Then
|
||||
Var ChangeFlag = 1
|
||||
Var ChangeFlag = 1
|
||||
|
||||
If Seeker.StoreCreditFlag = 1 Then
|
||||
Var ChangeOK = 2
|
||||
|
|
@ -517,17 +519,17 @@
|
|||
Else
|
||||
Change ServiceAmount2
|
||||
EndIf
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
Else
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If ChangeFlag = 0 Then
|
||||
Var ChangeFlag = 1
|
||||
Var ChangeFlag = 1
|
||||
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
|
||||
|
||||
If Seeker.StoreCreditFlag = 1 Then
|
||||
|
|
@ -535,9 +537,9 @@
|
|||
Else
|
||||
Change ServiceAmount3
|
||||
EndIf
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
EndIf
|
||||
|
|
@ -547,7 +549,7 @@
|
|||
Var ChangeOK = 3
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
|
@ -582,13 +584,13 @@
|
|||
Var EnableTopupCreditBetweenBrew = "Invisible"
|
||||
EndIf
|
||||
|
||||
If EnableSelectMenuBetweenBrew = "Enable" Then
|
||||
If EnableSelectMenuBetweenBrewBlink = "Enable" Then
|
||||
If EnableSelectMenuBetweenBrew = "Enable" Then
|
||||
If EnableSelectMenuBetweenBrewBlink = "Enable" Then
|
||||
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
|
||||
Else
|
||||
Var EnableSelectMenuBetweenBrewBlink = "Enable"
|
||||
EndIf
|
||||
|
||||
|
||||
Else
|
||||
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
|
||||
EndIf
|
||||
|
|
@ -599,7 +601,7 @@
|
|||
Var CountUpBrewing = CountUpBrewing + 1
|
||||
|
||||
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
|
||||
|
||||
|
||||
If PreviseStepVideo = SlotVideo Then
|
||||
;SAVELOG SlotVideo
|
||||
Else
|
||||
|
|
@ -609,9 +611,9 @@
|
|||
;SAVELOG CountUpBrewing
|
||||
|
||||
;Var CountDownVideoTime = CountDownVideoTimeReload
|
||||
|
||||
|
||||
Var StepVideo = SlotVideo + 2
|
||||
|
||||
|
||||
;SAVELOG StepVideo
|
||||
|
||||
If StepVideo = 1 Then
|
||||
|
|
@ -660,7 +662,7 @@
|
|||
Var PictureFile = PictureFile + PictureBegin
|
||||
Var PictureFile = PictureFile + videoID
|
||||
Var PictureFile = PictureFile + PictureEnd
|
||||
|
||||
|
||||
DEBUGVAR VideoPlayFile
|
||||
DEBUGVAR PictureFile
|
||||
EndIf
|
||||
|
|
@ -669,7 +671,7 @@
|
|||
EndIf
|
||||
|
||||
|
||||
If IgnoreNetCore = "true" Then
|
||||
If IgnoreNetCore = "true" Then
|
||||
If CountDownBrewing = 0 Then
|
||||
SAVELOG "CountDownBrewing = 0"
|
||||
Open "ROOT/taobin_project/xml/page_drinkok.xml"
|
||||
|
|
@ -696,7 +698,7 @@
|
|||
Var Game01Enable = 0
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
; TODO
|
||||
DEBUGVAR EnableDoubleCupNoError
|
||||
DEBUGVAR HURR_FOREVER
|
||||
|
|
@ -706,25 +708,25 @@
|
|||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
;include="ROOT/taobin_project/inc/timeout_lid_and_straw_step.inc"
|
||||
|
||||
|
||||
|
||||
|
||||
Refresh
|
||||
TimerReset
|
||||
|
||||
</EventTimeout>
|
||||
</EventTimeout>
|
||||
|
||||
<EventMachine>
|
||||
|
||||
|
||||
</EventMachine>
|
||||
|
||||
; this copy in file menu_brew2.xml and menu_lid_straw.xml
|
||||
<EventChangeStatus>
|
||||
If ChangeStatus = "payout-end" Then
|
||||
If ChangeStatus = "payout-end" Then
|
||||
If ChangeFlag = 1 Then
|
||||
Var ChangeOK = 2
|
||||
EndIf
|
||||
|
|
@ -825,9 +827,9 @@
|
|||
<State>EnableSelectMenuBetweenBrew</State>
|
||||
<Filename> next_pic_bn </Filename>
|
||||
<FilenamePress> next_pic_bp </FilenamePress>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
If MachineState_Result = 0 Then
|
||||
|
||||
|
||||
SAVELOG "User click next button"
|
||||
|
||||
Var Seeker = "next"
|
||||
|
|
@ -835,9 +837,9 @@
|
|||
;CoinPause
|
||||
Var PayCredit = 0
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_catalog.xml"
|
||||
Open "ROOT/taobin_project/xml/page_catalog.xml"
|
||||
EndIf
|
||||
</EventClick>
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
<Button>
|
||||
|
|
@ -846,7 +848,7 @@
|
|||
<State>EnableTopupCreditBetweenBrew</State>
|
||||
<Filename> topup_credit_bn </Filename>
|
||||
<FilenamePress> topup_credit_bp </FilenamePress>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
If MachineState_Result = 0 Then
|
||||
|
||||
If NextOrder = "true" Then
|
||||
|
|
@ -862,20 +864,20 @@
|
|||
|
||||
;CoinPause
|
||||
EndIf
|
||||
|
||||
|
||||
SAVELOG "User click topup-credit button"
|
||||
Var Seeker = "topupCredit"
|
||||
|
||||
|
||||
Var PayCredit = 0
|
||||
|
||||
If TelephoneNumber = "" Then
|
||||
Open "ROOT/taobin_project/xml/page_topup_credit.xml"
|
||||
Else
|
||||
If TelephoneNumber = "" Then
|
||||
Open "ROOT/taobin_project/xml/page_topup_credit.xml"
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_topup_credit-ChooseNumber.xml"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
</EventClick>
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
|
||||
|
|
@ -893,7 +895,7 @@
|
|||
<X> 526 </X>
|
||||
<Y> 1680 </Y>
|
||||
<Width> 241 </Width>
|
||||
<Height> 204 </Height>
|
||||
<Height> 204 </Height>
|
||||
<State> ButtonGamePressToPlayState </State>
|
||||
<EventClick>
|
||||
DEBUGVAR Game01Enable
|
||||
|
|
@ -911,9 +913,9 @@
|
|||
<Y> 500 </Y>
|
||||
<State>bg_strawlid_ST</State>
|
||||
<Filename> bg_strawlid </Filename>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
|
||||
</EventClick>
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
; straw left
|
||||
|
|
@ -925,14 +927,14 @@
|
|||
<Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename>
|
||||
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress>
|
||||
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
SAVELOG "Click straw cb"
|
||||
If StrawStateX = "Press" Then
|
||||
;Var StrawStateX = "Enable"
|
||||
;Var StrawStateX = "Enable"
|
||||
Else
|
||||
Var StrawStateX = "Press"
|
||||
Var Seeker.strawAction = 1
|
||||
|
||||
|
||||
EndIf
|
||||
Refresh
|
||||
</EventClick>
|
||||
|
|
@ -946,10 +948,10 @@
|
|||
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
|
||||
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
|
||||
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
SAVELOG "Click straw cb"
|
||||
If StrawStateX = "Press" Then
|
||||
;Var StrawStateX = "Enable"
|
||||
;Var StrawStateX = "Enable"
|
||||
Else
|
||||
Var StrawStateX = "Press"
|
||||
Var Seeker.strawAction = 1
|
||||
|
|
@ -969,18 +971,18 @@
|
|||
<Filename> "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename>
|
||||
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress>
|
||||
<FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
|
||||
If Seeker.thankLidFlag = 0 Then
|
||||
|
||||
|
||||
SAVELOG "Click LID pic"
|
||||
If LidStateX = "Press" Then
|
||||
;Var LidStateX = "Enable"
|
||||
;Var LidStateX = "Enable"
|
||||
Else
|
||||
Var LidStateX = "Press"
|
||||
Var Seeker.lidAction = 1
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
DEBUGVAR SugarState1
|
||||
Refresh
|
||||
|
|
@ -998,19 +1000,19 @@
|
|||
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
|
||||
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
|
||||
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
|
||||
If Seeker.thankLidFlag = 0 Then
|
||||
|
||||
SAVELOG "Click LID cb"
|
||||
If LidStateX = "Press" Then
|
||||
;Var LidStateX = "Enable"
|
||||
;Var LidStateX = "Enable"
|
||||
Else
|
||||
Var LidStateX = "Press"
|
||||
Var Seeker.lidAction = 1
|
||||
EndIf
|
||||
Refresh
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
</EventClick>
|
||||
|
|
@ -1023,7 +1025,7 @@
|
|||
<State> ButtonGameCountDownState </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </Filename>
|
||||
<FilenamePress> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </FilenamePress>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
|
||||
</EventClick>
|
||||
<Text>
|
||||
|
|
|
|||
|
|
@ -21,26 +21,26 @@
|
|||
Var ActionOKCase = 0
|
||||
Var ChangeTimeout = 0
|
||||
Var ChangeOK = 0
|
||||
|
||||
|
||||
Var MachineState_Result = 0
|
||||
|
||||
Var FailedCount = 0
|
||||
Var ChangeAmountSum = 0
|
||||
|
||||
|
||||
Var Tel_Confirm_Flag = 0
|
||||
|
||||
|
||||
DEBUGVAR MachineStage
|
||||
DEBUGVAR NextOrderStatus
|
||||
|
||||
If show_eng = "true" Then
|
||||
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png"
|
||||
If show_eng = "true" Then
|
||||
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png"
|
||||
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
|
||||
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
|
||||
|
||||
Var BottomText = PicturePath + "text_bottom_eng.png"
|
||||
Var TextErrorShow = "Sorry, unable to produce the next order"
|
||||
Else
|
||||
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png"
|
||||
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png"
|
||||
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
|
||||
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
|
||||
Var BottomText = PicturePath + "text_bottom_thai2.png"
|
||||
|
|
@ -65,11 +65,11 @@
|
|||
|
||||
If Seeker = "curr" Then
|
||||
SAVELOG " cannot on curr"
|
||||
|
||||
|
||||
Var ExtendData = Seeker.ExtendData
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + Seeker.ExtendData
|
||||
|
||||
|
||||
DEBUGVAR SessionID2
|
||||
|
||||
Topping "ClearNextOrder" "-"
|
||||
|
|
@ -89,7 +89,7 @@
|
|||
|
||||
Var PayReference = ""
|
||||
Var PayType = ""
|
||||
|
||||
|
||||
|
||||
Var SelectDrink = Seeker.selected_a_drink
|
||||
Var ServiceAmount2 = Seeker.ServiceAmount2
|
||||
|
|
@ -102,7 +102,7 @@
|
|||
Var Timeout = 0
|
||||
|
||||
Var PrintCoinAmount = 0
|
||||
|
||||
|
||||
Var waitAckPay = 0
|
||||
Var VendingTSIDTmp = ""
|
||||
Var VendingTSIDProblem = ""
|
||||
|
|
@ -116,7 +116,7 @@
|
|||
Else
|
||||
Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
|
||||
EndIf
|
||||
|
||||
|
||||
Else
|
||||
Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit
|
||||
EndIf
|
||||
|
|
@ -130,7 +130,7 @@
|
|||
Var Tel_Confirm_State = "Enable"
|
||||
EndIf
|
||||
|
||||
If show_eng = "true" Then
|
||||
If show_eng = "true" Then
|
||||
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
|
||||
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
|
||||
Else
|
||||
|
|
@ -138,7 +138,7 @@
|
|||
Var DirImage2 = "ROOT/taobin_project/image/topping2"
|
||||
EndIf
|
||||
|
||||
DEBUGVAR show_eng
|
||||
DEBUGVAR show_eng
|
||||
|
||||
If LastMakeDrinkResult = "success" Then
|
||||
Var MachineState_Result = 1
|
||||
|
|
@ -153,7 +153,7 @@
|
|||
|
||||
Var CreditCardVoid = 0
|
||||
__CMD "PayWasSent" Seeker.ORDER_ID "-" "-"
|
||||
|
||||
|
||||
</EventOpen>
|
||||
|
||||
<EventActionOk>
|
||||
|
|
@ -162,9 +162,9 @@
|
|||
Var ChangeOK = 2
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
If ActionOKCase = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + Seeker.ExtendData
|
||||
|
||||
|
|
@ -175,11 +175,11 @@
|
|||
Var ECommerce = ""
|
||||
Var ECommerce = ECommerce + PriceDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.VendingCode
|
||||
Var ECommerce = ECommerce + "/"
|
||||
|
|
@ -201,27 +201,27 @@
|
|||
Var ActionOKCase = 2
|
||||
|
||||
SAVELOG "back_to_main from line > 142."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
|
||||
Else
|
||||
|
||||
SAVELOG "back_to_main from line > 147."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
</EventActionOk>
|
||||
|
||||
<EventActionError>
|
||||
If ActionOKCase = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + Seeker.ExtendData
|
||||
|
||||
|
|
@ -232,11 +232,11 @@
|
|||
Var ECommerce = ""
|
||||
Var ECommerce = ECommerce + PriceDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.VendingCode
|
||||
Var ECommerce = ECommerce + "/"
|
||||
|
|
@ -258,32 +258,32 @@
|
|||
Var ActionOKCase = 2
|
||||
|
||||
SAVELOG "back_to_main from line > 204."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
|
||||
Else
|
||||
SAVELOG "back_to_main from line > 173."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
|
||||
|
||||
EndIf
|
||||
</EventActionError>
|
||||
|
||||
|
||||
<Timeout> 1000 </Timeout>
|
||||
<EventTimeout>
|
||||
<EventTimeout>
|
||||
|
||||
|
||||
|
||||
Var Timeout = Timeout + 1
|
||||
|
||||
If Timeout > 540 Then
|
||||
SAVELOG "back_to_main from line > 217."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
If Timeout > 480 Then
|
||||
Var MachineState_Result = 2
|
||||
|
|
@ -295,10 +295,10 @@
|
|||
|
||||
|
||||
|
||||
If waitAckPay = 2 Then
|
||||
If waitAckPay = 2 Then
|
||||
If Timeout > 10 Then
|
||||
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
If Seeker.CodeChannel = 1 Then
|
||||
Var SessionID2 = SelectSlot + ":"
|
||||
Var SessionID2 = SessionID2 + Seeker.ExtendData
|
||||
|
||||
|
|
@ -309,11 +309,11 @@
|
|||
Var ECommerce = ""
|
||||
Var ECommerce = ECommerce + PriceDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + DiscountDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + SessionID2
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + SelectDrink
|
||||
Var ECommerce = ECommerce + "/"
|
||||
Var ECommerce = ECommerce + Seeker.VendingCode
|
||||
Var ECommerce = ECommerce + "/"
|
||||
|
|
@ -333,9 +333,9 @@
|
|||
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
|
||||
;Var Timeout = 0
|
||||
EndIf
|
||||
|
||||
|
||||
SAVELOG "back_to_main from line > 309."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
|
@ -360,7 +360,7 @@
|
|||
; Reject by app close order
|
||||
; XML must send pay detail by myself.
|
||||
SAVELOG " Cannot conti with new payment"
|
||||
|
||||
|
||||
If NextOrderStatus = "Disable" Then
|
||||
Var PayDetail="1/F:1221/0/"
|
||||
Var PayDetail = PayDetail + "/XML|"
|
||||
|
|
@ -376,7 +376,7 @@
|
|||
Else
|
||||
|
||||
Var PayDetail = "1/" + HURR_FOREVER
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + ""
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + ""
|
||||
|
|
@ -397,12 +397,13 @@
|
|||
Var PayDetail2 = ""
|
||||
Var VendingOrderID = Seeker.ORDER_ID
|
||||
Var ServiceRefund = 0
|
||||
Var ServiceCharge = 0
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
|
||||
|
||||
Var waitAckPay = 2
|
||||
Var Timeout = 5
|
||||
Var ActionOKCase = 1
|
||||
|
||||
|
||||
|
||||
__CMD "send-pay-detail-now" error_code_stop_now PayDetail "-"
|
||||
EndIf
|
||||
|
|
@ -425,7 +426,7 @@
|
|||
EndIf
|
||||
|
||||
SAVELOG " Cannot conti with new payment ChangeTimeout > 30 "
|
||||
|
||||
|
||||
Var ServiceType = "coffee-refund"
|
||||
Var ServiceCredit = SelectDrink
|
||||
Var SuggestID = ""
|
||||
|
|
@ -437,6 +438,7 @@
|
|||
Var PayDetail2 = ""
|
||||
Var VendingOrderID = Seeker.ORDER_ID
|
||||
Var ServiceRefund = 0
|
||||
Var ServiceCharge = 0
|
||||
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
|
||||
|
||||
Var waitAckPay = 2
|
||||
|
|
@ -448,7 +450,7 @@
|
|||
|
||||
DEBUGVAR MachineState_Result
|
||||
DEBUGVAR ChangeOK
|
||||
|
||||
|
||||
|
||||
If ChangeOK = 3 Then
|
||||
If ActionOKCase = 0 Then
|
||||
|
|
@ -469,9 +471,9 @@
|
|||
Var PayDetail = PayDetail + "/XML|"
|
||||
Var PayDetail = PayDetail + Seeker.OrderChanel
|
||||
Else
|
||||
|
||||
|
||||
Var PayDetail = "1/" + HURR_FOREVER
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + ""
|
||||
Var PayDetail = PayDetail + "/"
|
||||
Var PayDetail = PayDetail + ""
|
||||
|
|
@ -479,28 +481,28 @@
|
|||
Var PayDetail = PayDetail + Seeker.OrderChanel
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
Var DEE = PayDetail
|
||||
|
||||
|
||||
|
||||
DEBUGVAR PayDetail
|
||||
DEBUGVAR PayDetail2
|
||||
DEBUGVAR SVT
|
||||
DEBUGVAR ACC
|
||||
DEBUGVAR VendingTSIDTmp
|
||||
|
||||
|
||||
|
||||
|
||||
__CMD "send-pay-detail-now" error_code_stop_now PayDetail "-"
|
||||
;PAYEXT SVT ACC VendingTSIDTmp DEE
|
||||
|
||||
|
||||
|
||||
Var ActionOKCase = 1
|
||||
If Seeker.CodeChannel = 0 Then
|
||||
If Seeker.CodeChannel = 0 Then
|
||||
SAVELOG "back_to_main from line > 391."
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
|
||||
EndIf
|
||||
|
||||
|
||||
Var waitAckPay = 2
|
||||
Var Timeout = 5
|
||||
|
||||
|
|
@ -508,7 +510,7 @@
|
|||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If MachineState_Result = 2 Then
|
||||
|
||||
|
|
@ -517,18 +519,18 @@
|
|||
If ErrTimeout = 0 Then
|
||||
Var ErrTimeout = 1
|
||||
|
||||
If Seeker.PayWithQR = 0 Then
|
||||
If Seeker.PayWithQR = 0 Then
|
||||
|
||||
If Seeker.CreditCard = 1 Then
|
||||
CashlessReq FAIL Seeker.CashlessVendingTrackNumber
|
||||
Var ChangeFlag = 1
|
||||
Var ChangeFlag = 1
|
||||
Var CreditCardVoid = 1
|
||||
Else
|
||||
|
||||
|
||||
|
||||
If Seeker.CodeChannel = 0 Then
|
||||
If ChangeFlag = 0 Then
|
||||
Var ChangeFlag = 1
|
||||
Var ChangeFlag = 1
|
||||
|
||||
If Seeker.StoreCreditFlag = 1 Then
|
||||
Var ChangeOK = 2
|
||||
|
|
@ -538,19 +540,19 @@
|
|||
Else
|
||||
Change ServiceAmount2
|
||||
EndIf
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
Else
|
||||
|
||||
|
||||
|
||||
|
||||
If CoinAmount > 0 Then
|
||||
|
||||
|
||||
If ChangeFlag = 0 Then
|
||||
Var ChangeFlag = 1
|
||||
Var ChangeFlag = 1
|
||||
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
|
||||
|
||||
If Seeker.StoreCreditFlag = 1 Then
|
||||
|
|
@ -558,7 +560,7 @@
|
|||
Else
|
||||
Change ServiceAmount3
|
||||
EndIf
|
||||
|
||||
|
||||
EndIf
|
||||
Else
|
||||
Var ChangeOK = 2
|
||||
|
|
@ -572,18 +574,18 @@
|
|||
Var ChangeOK = 3
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Refresh
|
||||
TimerReset
|
||||
|
||||
</EventTimeout>
|
||||
</EventTimeout>
|
||||
|
||||
|
||||
;<Image>
|
||||
|
|
@ -634,7 +636,7 @@
|
|||
</Text>
|
||||
|
||||
<EventChangeStatus>
|
||||
If ChangeStatus = "payout-end" Then
|
||||
If ChangeStatus = "payout-end" Then
|
||||
If ChangeFlag = 1 Then
|
||||
Var ChangeOK = 2
|
||||
EndIf
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue