pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

new payment

Browse source
This commit is contained in:
miggaze 2024-06-24 12:55:46 +07:00
parent 985cfb267f
commit d3edcf3f92
34 changed files with 3663 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

557
xml/page_NewCannotConti.xml Normal file
View file

@ -0,0 +1,557 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var CountDownThankyou = 4
Var CountDownBrewing = BrewTime
Var CountUpBrewing = 0
SAVELOG BrewTime
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = 0
Var ChangeFlag = 0
Var ErrTimeout = 0
Var ActionOKCase = 0
Var ChangeTimeout = 0
Var ChangeOK = 0
Var MachineState_Result = 0
Var FailedCount = 0
Var ChangeAmountSum = 0
Var Tel_Confirm_Flag = 0
Var LastMakeDrinkResult = "-"
DEBUGVAR MachineStage
DEBUGVAR NextOrderStatus
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 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"
Var TextErrorShow = "เต่าบินขัดข้องไม่สามารถทำเครื่องดื่มได้"
EndIf
DEBUGVAR StarwState
DEBUGVAR LidState
DEBUGVAR BottomText
DEBUGVAR Seeker.TNumberTaobinCredit
DEBUGVAR TelephoneNumber
DEBUGVAR Seeker.StoreCreditFlag
DEBUGVAR Seeker
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR Seeker.ServiceAmount2
If Seeker = "curr" Then
SAVELOG " cannot on curr"
Var ExtendData = Seeker.ExtendData
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
DEBUGVAR SessionID2
Topping "ClearNextOrder" "-"
EndIf
Var LastMakeDrinkResult = "fail"
Var NextOrderStatus = "Disable"
DEBUGVAR LastMakeDrinkResult
DEBUGVAR MachineStage
DEBUGVAR NextOrderStatus
DEBUGVAR error_code_stop_now
; page_brewing3.xml
DEBUGVAR MachineStage
Var PayReference = ""
Var PayType = ""
Var SelectDrink = Seeker.selected_a_drink
Var ServiceAmount2 = Seeker.ServiceAmount2
Var PriceDrink = Seeker.ServiceAmount2
; On open move from page_brewing3.xml
Var countClick2 = 0
Var Timeout = 0
Var PrintCoinAmount = 0
Var waitAckPay = 0
Var VendingTSIDTmp = ""
Var VendingTSIDProblem = ""
Var CreditReference = ""
Var PayCredit = 0
If Seeker.TNumberTaobinCredit = "" Then
If Seeker.TNumberTaobinMember = "" Then
Var TelephoneNumberProblem = ""
Else
Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit
EndIf
If TelephoneNumberProblem = "" Then
;Var TelephoneNumberProblem = ""
Var ShowTextNumber = "Enable"
Var Tel_Confirm_State = "Disable"
Else
Var ShowTextNumber = "Invisible"
Var Tel_Confirm_State = "Enable"
EndIf
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
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
DEBUGVAR show_eng
If LastMakeDrinkResult = "success" Then
Var MachineState_Result = 1
EndIf
If LastMakeDrinkResult = "fail" Then
Var MachineState_Result = 2
EndIf
DEBUGVAR VendingCampaign
Var CreditCardVoid = 0
</EventOpen>
<EventActionOk>
If CreditCardVoid = 1 Then
Var ChangeOK = 2
EndIf
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "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 + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
SAVELOG "back_to_main from line > 142."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 147."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "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 + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
SAVELOG "back_to_main from line > 204."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 173."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 540 Then
SAVELOG "back_to_main from line > 217."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
If Timeout > 480 Then
Var MachineState_Result = 2
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If waitAckPay = 2 Then
If Timeout > 10 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "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 + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
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"
EndIf
EndIf
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var ServiceType = "coffee-refund"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Var PayDetail = ""
Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
EndIf
EndIf
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var ServiceType = "coffee-refund"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Var PayDetail = ""
Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
EndIf
EndIf
If ChangeOK = 3 Then
If ActionOKCase = 0 Then
Var ActionOKCase = 1
If Seeker.CodeChannel = 0 Then
SAVELOG "back_to_main from line > 391."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Var waitAckPay = 2
Var Timeout = 5
EndIf
EndIf
If MachineState_Result = 2 Then
SAVELOG MachineStage
If ErrTimeout = 0 Then
Var ErrTimeout = 1
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else
If Seeker.CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
If GetFreeFromError = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
EndIf
EndIf
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount3
EndIf
EndIf
Else
Var ChangeOK = 2
EndIf
EndIf
EndIf
Else
Var ChangeOK = 3
EndIf
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
;include="ROOT/taobin_project/inc/video.inc"
<Text>
<X> 0 </X>
<Y> 427 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 46 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TextErrorShow </Value>
</Text>
<Image>
<X> 375 </X>
<Y> 623 </Y>
<Width> 331 </Width>
<Height> 435 </Height>
<Filename> Seeker.PictureDrink </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> Seeker.showname </Value>
</Text>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
EndIf
</EventChangeStatus>
</Popup>