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

credit new version

Browse source
This commit is contained in:
miggaze 2024-01-29 14:17:54 +07:00
parent 301d74d4c1
commit 219ec2b99a
46 changed files with 2112 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

41
xml/page_payment_credit2.xml
View file

@ -936,6 +936,43 @@
Var ShowSentSmsText = "Invisible"
Var Timeout = 0
If PinNumberUser = PinNumber Then
Var SumCreditAmount = CoffeeCredit
If SumCreditAmount >= PayAmountSubDiscount Then
Open "ROOT/taobin_project/xml/page_payment_credit3-0.xml"
Else
Var ShowNotEnoughText = "Enable"
Var Seeker.TNumberTaobinCredit = TelephoneNumber
Var Seeker.CoffeePinNumber = PinNumber
Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml"
EndIf
Else
Var ShowErrorText = "Enable"
Var PinNumber = ""
Var ShowTextNumber1 = "Invisible"
Var ShowTextNumber2 = "Invisible"
Var ShowTextNumber3 = "Invisible"
Var ShowTextNumber4 = "Invisible"
EndIf
Var ReqFlag = 0
Refresh
</Function2>
<Function3>
Var ShowSentSmsText = "Invisible"
Var Timeout = 0
If PinNumberUser = PinNumber Then
Var SumCreditAmount = CoffeeCredit
@ -1006,9 +1043,7 @@
Refresh
</Function2>
</Function3>

243
xml/page_payment_credit3-0.xml Normal file
View file

@ -0,0 +1,243 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var img_popup11 = "/img_popup18.png"
If CountryName = "Malaysia" Then
Var img_popup11 = "/img_popup18.png"
EndIf
If CountryName = "Indonesia" Then
Var img_popup11 = "/img_popup18.png"
EndIf
Var showRemaining !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow )
Var ShowErrorText = "Invisible"
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
GenHashWithTimeStamp PointCrm
Var Seeker.TNumberTaobinCredit = TelephoneNumber
Var Seeker.CoffeePinNumber = PinNumber
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 60 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
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
Refresh
TimerReset
</EventTimeout>
<EventActionOk>
If ReqAdddata22 = 1 Then
Var Seeker.CreditReferenceTmp = "" + useCreditAmount
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
CoinVending OFF
Var Seeker.TNumberTaobinCredit = TelephoneNumber
Var Seeker.CoffeePinNumber = PinNumber
Var Seeker.StoreCreditFlag = 1
Var SumCreditAmount = SumCreditAmount - PayAmountSubDiscount
Var VendingCreditRemain = "" + SumCreditAmount
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
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1
Else
DEBUGVAR Seeker
Var TxRef1 = ""
CreateTxRef1 TxRef1
Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1
EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
Var ReqAdddata22 = 0
EndIf
</EventActionOk>
<EventActionError>
Var ShowErrorText = "Enable"
Refresh
If ReqAdddata22 = 1 Then
Var ReqAdddata22 = 0
EndIf
</EventActionError>
<EventCoin>
If ViewBill > 0 Then
CoinVending BILLREJECT
Else
EndIf
</EventCoin>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 181 </X>
<Y> 647 </Y>
<Filename> Var( DirImage + img_popup11 ) </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 845 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> showRemaining </Value>
</Text>
<Button>
<X> 287 </X>
<Y> 1426 </Y>
<Filename> Var( DirImage + "/bn_cancel4.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel4.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
SAVELOG "payment_credit3-p121."
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
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 1140 </Y>
<Filename> Var( DirImage + "/bn_useCredit2.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_useCredit2.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_useCredit2.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If ReqAdddata22 = 0 Then
Var useCreditAmount = PayAmountSubDiscount
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 1283 </Y>
<Filename> Var( DirImage + "/bn_useCredit3.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_useCredit3.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_useCredit3.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var ShowNotEnoughText = "Invisible"
Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml"
</EventClick>
</Button>
<Image>
<X> 156 </X>
<Y> 1050 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/text_show_notOperate.png") </Filename>
</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

198
xml/page_payment_credit3-1.xml Normal file
View file

@ -0,0 +1,198 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var img_popup11 = "/img_popup19.png"
If CountryName = "Malaysia" Then
Var img_popup11 = "/img_popup19.png"
EndIf
If CountryName = "Indonesia" Then
Var img_popup11 = "/img_popup19.png"
EndIf
Var showRemaining !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow )
Var ShowErrorText = "Enable"
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
GenHashWithTimeStamp PointCrm
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 60 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
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
Refresh
TimerReset
</EventTimeout>
<EventActionOk>
</EventActionOk>
<EventActionError>
</EventActionError>
<EventCoin>
If ViewBill > 0 Then
CoinVending BILLREJECT
Else
EndIf
</EventCoin>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 181 </X>
<Y> 672 </Y>
<Filename> Var( DirImage + img_popup11 ) </Filename>
</Image>
<Image>
<X> 181 </X>
<Y> 1044 </Y>
<State> ShowNotEnoughText </State>
<Filename> Var( DirImage + "/text_show_notEnough2.png") </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 845 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> showRemaining </Value>
</Text>
<Button>
<X> 218 </X>
<Y> 1225 </Y>
<Filename> Var( DirImage + "/bn_topup_with_cash.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_topup_with_cash.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayCreditChannel = "cash"
Open "ROOT/taobin_project/xml/page_payment_credit3-Topup.xml"
</EventClick>
</Button>
<Button>
<X> 440 </X>
<Y> 1225 </Y>
<Filename> Var( DirImage + "/bn_topup_with_qr.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_topup_with_qr.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayCreditChannel = "qr"
Open "ROOT/taobin_project/xml/page_payment_credit3-Topup.xml"
</EventClick>
</Button>
<Button>
<X> 664 </X>
<Y> 1225 </Y>
<Filename> Var( DirImage + "/bn_topup_with_code.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_topup_with_code.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Button>
<X> 397 </X>
<Y> 1485 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
SAVELOG "payment_credit3-p121."
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
</EventClick>
</Button>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

704
xml/page_payment_credit3-Topup.xml Normal file
View file

@ -0,0 +1,704 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
VendingQR OFF
Var Timeout = 0
Var AmountNumber = ""
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
Var Ext1a = ""
Var GetAccFlag = 0
Var GetPayInfoFlag = 0
Var TextWaiting = ""
Var text_44 = "/text_44.png"
Var text_show_amountInvalid = "/text_show_amountInvalid.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2.png"
Var Min = PayAmountSubDiscount
Var Max = 5000
If CountryName = "Malaysia" Then
Var text_44 = "/text_44-MYR.png"
Var text_show_amountInvalid = "/text_show_amountInvalid-MYR.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2-MYR.png"
;Var Min = 2
Var Max = 500
EndIf
If CountryName = "Indonesia" Then
Var text_44 = "/text_44-IDR.png"
Var text_show_amountInvalid = "/text_show_amountInvalid-IDR.png"
Var text_show_amountInvalid2 = "/text_show_amountInvalid2-IDR.png"
;Var Min = 9000
Var Max = 2000000
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 60 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
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
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventCoin>
</EventCoin>
<EventActionOk>
If GetPayInfoFlag = 1 Then
Var VendingQRCode = "OK"
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Var ReqPayInfoFlag = 0
Var VendingExtResult = ""
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupQR.xml"
EndIf
Refresh
</EventActionOk>
<EventActionError>
If GetPayInfoFlag = 1 Then
Var QRCODE99 = ""
If show_eng = "true" Then
Var TextWaiting = "Unable to use QR, please try again later."
Else
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
EndIf
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
EndIf
Refresh
</EventActionError>
<Button>
<X> 990 </X>
<Y> 416 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 601 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "1"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "2"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "3"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "4"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "5"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "6"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "7"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "8"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "9"
Var ShowTextNumber = "Invisible"
Trim AmountNumber 10
TimerReset
Refresh
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen AmountNumber TelNumLen
If TelNumLen > 0 Then
If TelNumLen < 10 Then
Var AmountNumber = AmountNumber + "0"
Trim AmountNumber 10
StrLen AmountNumber TelNumLen
If TelNumLen >= 1 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim AmountNumber -1
;Var Tel_Confirm_State = "Invisible"
StrLen AmountNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
Var Tel_Confirm_State = "Invisible"
EndIf
Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Amount = AmountNumber
INT Amount
If Amount < Min Then
Var ShowErrorText = "Enable"
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
Var text_show_error = text_show_amountInvalid
Refresh
Else
If Amount > Max Then
Var ShowErrorText = "Enable"
Var AmountNumber = ""
Var Tel_Confirm_State = "Invisible"
Var text_show_error = text_show_amountInvalid2
Refresh
Else
If PayCreditChannel = "cash" Then
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupCash.xml"
Else
If GetPayInfoFlag = 0 Then
Var CreditAmount = AmountNumber
Var DiscountDrink = 0
Var SelectSlot = "1"
Var QRCODE1 = "A000000677010112"
Var QRCODE2 = "010755600066301"
Var QRCODE3 = "VDGN"
Var QRCODE4 = BoxID
Var QRCODE5 = SelectSlot
Var QRCODE6 = "00-00-00-0000"
Var QRCODE7 = CreditAmount
Var QRCODE8 = ""
Var RemainAmount = 0
Var SessionID2 = "00" + ":"
Var SessionID2 = SessionID2 + ""
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + CreditAmount
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "00-00-00-0000"
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "KBA:2/"
Var ECommerceQR = ECommerceQR + "CRX"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":0"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var GetPayInfoFlag = 1
Var ReqPayInfoFlag = 1
If show_eng = "true" Then
Var TextWaiting = "Please wait..."
Else
Var TextWaiting = "กรุณารอซักครู่..."
EndIf
Refresh
EndIf
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Text>
<X> 400 </X>
<Y> 680 </Y>
<Size> 60 </Size>
<Align> Right </Align>
<Width> 250 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> PayAmountSubDiscount </Value>
</Text>
<Image>
<X> 217 </X>
<Y> 802 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>
<Image>
<X> 188 </X>
<Y> 640 </Y>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + text_44 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 817 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> AmountNumber </Value>
</Text>
<Image>
<X> 145 </X>
<Y> 820 </Y>
<State> ShowErrorText </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + text_show_error ) </Filename>
</Image>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Text>
<X> 5 </X>
<Y> 940 </Y>
<Refresh> "Enable" </Refresh>
<Size> 30 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xFF0000 </Color>
<Value> TextWaiting </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

548
xml/page_payment_credit3-TopupCash.xml Normal file
View file

@ -0,0 +1,548 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
Var alphaState = "Invisible"
Var alphaState2 = "Enable"
Var alphaState3 = "Invisible"
INT AmountNumber
Var img_popup11 = "/img_popup11.png"
Var img_popup15 = "/img_popup15.png"
If CountryName = "Malaysia" Then
Var img_popup11 = "/img_popup11-MYR.png"
Var img_popup15 = "/img_popup15-MYR.png"
Var AmountNumber = AmountNumber * 100
EndIf
If CountryName = "Indonesia" Then
Var img_popup11 = "/img_popup11-IDR.png"
Var img_popup15 = "/img_popup15-IDR.png"
EndIf
Var CreditAmount = AmountNumber
Var RemainAmount = CreditAmount
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Var CoinInFlag = 0
Var CoinInOK = 0
Var ChangeOK = 0
Var PayOK = 0
Var CancelFlag = 0
Var ChangeFlag2 = 0
Var ChangeTimeout = 0
Var CancelCounter = 0
Var ServiceAmount2 = CreditAmount
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
Var Seeker.StoreCreditFlag = 0
Var DrinkAmountStr !assigned StringFmt( PayAmountSubDiscount, DisplayFormat, PreScaleConvertShow )
Var NamePriceShow = showname + " "
Var NamePriceShow = NamePriceShow + DrinkAmountStr
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 180 Then
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Timeout Order."
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
Else
CoinVending OFF
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
EndIf
EndIf
EndIf
If ChangeOK = 1 Then
If CancelFlag = 0 Then
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml"
Else
If CoinAmount > 0 Then
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Var Seeker.CoffeePinNumber
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = "00-00-00-0000"
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var PayCredit = 1
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml"
EndIf
EndIf
Else
EndIf
If PayOK = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
If ChangeTimeout > 30 Then
Var ChangeOK = 1
EndIf
EndIf
If CoinInOK = 1 Then
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
Var PayOK = 1
Var SumCoinAmount = CoinAmount
If SumCoinAmount >= CreditAmount Then
Var Canout = SumCoinAmount - CreditAmount
If Canout > 0 Then
If Seeker.StoreCreditFlag = 0 Then
Change Canout
Var ChangeFlag2 = 1
Else
Var ChangeOK = 1
EndIf
Else
Var ChangeOK = 1
EndIf
EndIf
EndIf
EndIf
If CancelFlag = 1 Then
Var CancelCounter = CancelCounter + 1
If CancelCounter = 2 Then
If CoinAmount > 0 Then
If Seeker.StoreCreditFlag = 0 Then
Change CoinAmount
Var ChangeFlag2 = 1
Else
Var ChangeOK = 1
EndIf
Else
Var ChangeOK = 1
EndIf
EndIf
Var ChangeTimeout = ChangeTimeout + 1
If ChangeTimeout > 30 Then
Var ChangeOK = 1
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeFlag2 = 1 Then
Var ChangeOK = 1
EndIf
EndIf
</EventChangeStatus>
<EventCoin>
TimerReset
Var CoinInFlag = 1
DEBUGVAR ViewBill
If ViewBill > 0 Then
Var RemainAmount = CreditAmount - CoinAmount
If ViewBill > RemainAmount Then
Var RemainAmountKeep = ViewBill - RemainAmount
Var RemainAmountKeepStr !assigned StringFmt( RemainAmountKeep, DisplayFormat, PreScaleConvertShow )
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
Else
;CoinVending BILLSTACKALL
If ViewBill = RemainAmount Then
CoinVending BILLSTACKALL
Else
Var RemainAmountKeep = 0
Var RemainAmountKeepStr !assigned StringFmt( RemainAmountKeep, DisplayFormat, PreScaleConvertShow )
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
EndIf
EndIf
Var Timeout = 0
Var RemainAmountStr = "" + RemainAmount
Var showRemaining = charOfBaht + RemainAmountStr
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Else
Var alphaState2 = "Enable"
If CoinInOK = 0 Then
Var RemainAmount = CreditAmount - CoinAmount
Var SumCoinAmount = CoinAmount
If SumCoinAmount >= CreditAmount Then
CoinVending OFF
Var Canout = SumCoinAmount - CreditAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Var RemainAmountStr !assigned StringFmt( 0, DisplayFormat, PreScaleConvertShow )
Else
If show_eng = "true" Then
Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Change " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "ทอน " + Canout
EndIf
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = 0
Var RemainAmountStr !assigned StringFmt( 0, DisplayFormat, PreScaleConvertShow )
EndIf
Var CancleState = "Disable"
Var CoinInOK = 1
Var CoinInCounter = 0
Var TxRef1 = ""
CreateTxRef1 TxRef1
Else
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
EndIf
Var Timeout = 0
Var showRemaining = charOfBaht + RemainAmountStr
EndIf
EndIf
Refresh
</EventCoin>
<EventActionOk>
Refresh
</EventActionOk>
<EventActionError>
Refresh
</EventActionError>
<Button>
<X> 990 </X>
<Y> 416 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 182 </X>
<Y> 748 </Y>
<Filename> Var( DirImage2 + img_popup11 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState2 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
</Text>
<Text>
<X> 253 </X>
<Y> 1271 </Y>
<Size> 25 </Size>
<Align> Right </Align>
<Width> 500 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState2 </State>
<Color> 0x746253 </Color>
<Value> NamePriceShow </Value>
</Text>
<Button>
<X> 397 </X>
<Y> 1380 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Cancle Order."
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
If CoinAmount = 0 Then
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
CoinVending OFF
EndIf
If Seeker.StoreCreditFlag = 1 Then
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
EndIf
EndIf
Refresh
</EventClick>
</Button>
<Image>
<X> 181 </X>
<Y> 658 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + img_popup15 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1010 </Y>
<Size> 120 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState3 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountKeepStr </Value>
</Text>
<Button>
<X> 330 </X>
<Y> 1303 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage + "/bn_confirm2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_confirm2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
CoinVending BILLSTACKALL
Var Seeker.StoreCreditFlag = 1
Var alphaState3 = "Invisible"
Refresh
</EventClick>
</Button>
<Button>
<X> 330 </X>
<Y> 1419 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage + "/bn_cancel3.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel3.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
Var alphaState3 = "Invisible"
Refresh
</EventClick>
</Button>
<Image>
<X> 145 </X>
<Y> 820 </Y>
<State> ShowErrorText </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + text_show_error ) </Filename>
</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

221
xml/page_payment_credit3-TopupQR.xml Normal file
View file

@ -0,0 +1,221 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
Var alphaState = "Enable"
Var ReqAdddata22 = 0
Var PayCreditOK = 0
Var ReqAdddata22_Error = 0
Var Timeout_Error = 0
DEBUGVAR Seeker
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 60 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
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
If ReqAdddata22_Error = 1 Then
Var Timeout_Error = Timeout_Error + 1
If Timeout_Error >= 5 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
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
EndIf
TimerReset
</EventTimeout>
<EventIDCard>
</EventIDCard>
<EventCoin>
</EventCoin>
<EventActionOk>
If VendingExtResult = "" Then
Else
Var VendingExtResult = ""
If ReqAdddata22 = 0 Then
GenHashWithTimeStamp PointCrm
Var useCreditAmount = PayAmountSubDiscount
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
Var Timeout = 0
EndIf
EndIf
If ReqAdddata22 = 1 Then
Var Seeker.CreditReferenceTmp = "" + useCreditAmount
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
CoinVending OFF
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml"
EndIf
Refresh
</EventActionOk>
<EventActionError>
If ReqAdddata22 = 1 Then
Var ShowErrorText = "Enable"
Var ReqAdddata22_Error = 1
EndIf
Refresh
</EventActionError>
<Button>
<X> 990 </X>
<Y> 416 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 748 </Y>
<Filename> Var( DirImage + "/img_popup20.png") </Filename>
</Image>
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<Filename> Var( DirImage + "/bn_cancel3.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel3.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml"
</EventClick>
</Button>
<QRCode>
<X> 445 </X>
<Y> 958 </Y>
<Width> 200 </Width>
<Height> 200 </Height>
<State> alphaState </State>
<Service> testservice </Service>
</QRCode>
<Image>
<X> 181 </X>
<Y> 758 </Y>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/img_popup20-Failed.png" ) </Filename>
</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

160
xml/page_payment_credit3-TopupSuccess.xml Normal file
View file

@ -0,0 +1,160 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
If PayCreditChannel = "cash" Then
Var SumCreditAmount = SumCreditAmount + CoinAmount
Else
INT CreditAmount
Var SumCreditAmount = SumCreditAmount + CreditAmount
EndIf
Var SumCreditAmount = SumCreditAmount - PayAmountSubDiscount
Var VendingCreditRemain = "" + SumCreditAmount
Var SumCreditAmountStr !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow )
Var text_4 = "/text_4.png"
If CountryName = "Malaysia" Then
Var PayState3 = "Invisible"
Var text_4 = "/text_4-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var text_4 = "/text_4-IDR.png"
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If show_eng = "true" Then
Var DirImage3 = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage3 = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
Var FlagPayCredit = 1
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
If FlagPayCredit = 1 Then
Var FlagPayCredit = 0
If Seeker = "curr" Then
DEBUGVAR "MakeDrinkV1"
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1
Else
Var TxRef1 = ""
CreateTxRef1 TxRef1
Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1
EndIf
Var Seeker.StoreCreditFlag = 1
EndIf
Var Timeout = Timeout + 1
If Timeout > 3 Then
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
</EventActionOk>
<EventActionError>
</EventActionError>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<X> 70 </X>
<Y> 741 </Y>
<Filename> Var( DirImage + "/PaymentSuccess.png" )</Filename>
</Image>
<Image>
<X> 252 </X>
<Y> 1053 </Y>
<Filename> Var( DirImage + text_4 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1123 </Y>
<Size> 120 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> SumCreditAmountStr </Value>
</Text>
</Popup>