taobin_project/xml/page_payment_credit3.xml
2023-01-16 14:44:05 +07:00

444 lines
8 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var Tel_Confirm_State = "Disable"
Var ShowNotEnoughText = "Invisible"
;Var CoffeeCredit = Ext1b
;INT CoffeeCredit
Var SumCreditAmount = CoffeeCredit
Var SumCreditAmount2 = SumCreditAmount
Var useCreditTemp = 0;
Var NotEnoughFlag = 0
Var timeCountUp = 0
If SumCreditAmount >= PayAmount Then
Var Tel_Confirm_State = "Enable"
Else
Var Tel_Confirm_State = "Enable"
Var ShowNotEnoughText = "Enable"
Var NotEnoughFlag = 1
Var AcceptAuto = "false"
If Seeker = "next" Then
Var Curr = "curr"
If TelephoneNumber = Curr.CurrCreditTelNum Then
Var SumCreditAmount2 = SumCreditAmount + Curr.CurrCreditAmount
EndIf
EndIf
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Your_credit_balance_not_enough.mp3"
Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Your_credit_balance_not_enough.mp3"
EndIf
EndIf
Var ShowLoadingText = "Invisible"
Var ShowErrorText = "Invisible"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var PrepareFlag = 0
Var PrepareTime = 0
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
GenHashWithTimeStamp PointCrm
;Var Tel_Confirm_State = "Invisible"
Var showRemaining !assigned StringFmt( SumCreditAmount2, DisplayFormat, PreScaleConvertShow )
Var img_popup11 = "/img_popup11.png"
If CountryName = "Malaysia" Then
Var img_popup11 = "/img_popup11-MYR.png"
EndIf
If CountryName = "Indonesia" Then
Var img_popup11 = "/img_popup11-IDR.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
If ReqAdddata22 = 0 Then
Var Timeout = Timeout + 1
Else
Var timeout_Adddata22 = timeout_Adddata22 + 1
If timeout_Adddata22 > 30 Then
Var Tel_Confirm_State = "Enable"
Var ShowLoadingText = "Invisible"
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
Var ShowErrorText = "Enable"
EndIf
EndIf
If AcceptAuto = "true" Then
If Timeout > 3 Then
Var AcceptAuto = "false"
Var BmiYear = PayAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
EndIf
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
If NotEnoughFlag = 0 Then
Var Seeker.CreditReferenceTmp = "" + PayAmount
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
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
Else
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var Seeker.CodeChannel = 0
Var Seeker.TNumberTaobinCredit = TelephoneNumber
Var Seeker.CoffeePinNumber = PinNumber
Var Seeker.IntVendingCredit = SumCreditAmount2
Var Seeker.CreditReferenceTmp = "" + SumCreditAmount
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
Var Seeker.StoreCreditFlag = 1
If useCreditTemp > 0 Then
Var Seeker.CurrCreditUse = useCreditTemp
EndIf
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
Var ReqAdddata22 = 0
EndIf
</EventActionOk>
<EventActionError>
If ReqAdddata22 = 1 Then
Var Tel_Confirm_State = "Enable"
Var ShowLoadingText = "Invisible"
Var ReqAdddata22 = 0
Var timeout_Adddata22 = 0
Var ShowErrorText = "Enable"
EndIf
</EventActionError>
<EventCoin>
If ViewBill > 0 Then
CoinVending BILLREJECT
Else
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
</EventCoin>
<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( DirImage + img_popup11 ) </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> showRemaining </Value>
</Text>
<Button>
<X> 261 </X>
<Y> 1345 </Y>
<Filename> Var( DirImage + "/bn_cancel3.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel3.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> 624 </X>
<Y> 1345 </Y>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_useCredit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_useCredit.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_useCredit.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If ReqAdddata22 = 0 Then
If NotEnoughFlag = 0 Then
Var BmiYear = PayAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
Else
SAVELOG "payment_credit3-p227."
If Seeker = "next" Then
Var Curr = "curr"
If TelephoneNumber = Curr.CurrCreditTelNum Then
Var useCreditTemp = Curr.CurrCreditAmount
EndIf
EndIf
Var BmiYear = SumCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqAdddata22 = 1
EndIf
EndIf
Var ShowNotEnoughText = "Invisible"
Var ShowErrorText = "Invisible"
Var ShowLoadingText = "Enable"
Var Tel_Confirm_State = "Disable"
Var Timeout = 0
Refresh
</EventClick>
</Button>
<Image>
<X> 230 </X>
<Y> 920 </Y>
<State> ShowNotEnoughText </State>
<Filename> Var( DirImage + "/text_show_notEnough.png") </Filename>
</Image>
<Image>
<X> 260 </X>
<Y> 920 </Y>
<State> ShowLoadingText </State>
<Filename> Var( DirImage + "/loadingText.png") </Filename>
</Image>
<Image>
<X> 260 </X>
<Y> 920 </Y>
<State> ShowErrorText </State>
<Filename> Var( DirImage + "/loadingTextError.png") </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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>