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

THAI: Update All Payment cash

Browse source
This commit is contained in:
Kenta420 2024-07-25 17:50:08 +07:00
parent ccadb410d7
commit e9bc7f2544
11 changed files with 429 additions and 885 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
image/collectiing/cash_warning_bg.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 3.2 KiB

BIN
image/collectiing/cash_warning_text.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 21 KiB

BIN
image/collectiing_en/cash_warning_text.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 23 KiB

4
xml/page_member_topup3.xml
View file

@ -161,8 +161,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var PayCreditChannel = "cash"
Open "ROOT/taobin_project/xml/page_member_topupAmount.xml"
Var TopupFromPage = "member"
Open "ROOT/taobin_project/xml/page_topup_credit3_cash_warning.xml"
</EventClick>

449
xml/page_member_topupCash.xml
View file

@ -48,8 +48,7 @@
Var alphaState3 = "Invisible"
INT AmountNumber
Var confirmButtonState = "Invisible"
Var img_popup11 = "/img_popup11.png"
Var img_popup15 = "/img_popup15.png"
@ -58,7 +57,6 @@
If CountryName = "Malaysia" Then
Var img_popup11 = "/img_popup11-MYR.png"
Var img_popup15 = "/img_popup15-MYR.png"
Var AmountNumber = AmountNumber * 100
EndIf
;inter-image
@ -68,12 +66,15 @@
EndIf
Var PayAmount = AmountNumber
Var RemainAmount = PayAmount
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Var PayAmount = 0
Var RemainAmountStr !assigned StringFmt( PayAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
Var CoinInFlag = 0
@ -82,7 +83,7 @@
Var PayOK = 0
Var CancelFlag = 0
Var ChangeFlag2 = 0
Var Seeker.StoreCreditFlag = 0
Var Seeker.StoreCreditFlag = 1
CoinVending XBILL
@ -109,18 +110,26 @@
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Timeout Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
If ViewBill > 0 Then
CoinVending BILLREJECT
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
Var CoinInOK = 1
Var CoinInCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
CoinVending BILLSTACKALL
EndIf
EndIf
EndIf
EndIf
@ -128,6 +137,10 @@
If ChangeOK = 1 Then
If CancelFlag = 0 Then
Var TxRef1 = ""
CreateTxRef1 TxRef1
Var PayAmount = CoinAmount
Open "ROOT/taobin_project/xml/page_member_topupSuccess.xml"
Else
@ -162,20 +175,8 @@
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
Var PayOK = 1
Var SumCoinAmount = CoinAmount
If SumCoinAmount >= PayAmount Then
Var Canout = SumCoinAmount - PayAmount
If Canout > 0 Then
If Seeker.StoreCreditFlag = 0 Then
Change Canout
Var ChangeFlag2 = 1
Else
Var ChangeOK = 1
EndIf
Else
Var ChangeOK = 1
EndIf
If CoinAmount > 0 Then
Var ChangeOK = 1
EndIf
EndIf
EndIf
@ -186,12 +187,9 @@
If CancelCounter = 2 Then
;Change CoinAmount
If CoinAmount > 0 Then
If Seeker.StoreCreditFlag = 0 Then
Change CoinAmount
Var ChangeFlag2 = 1
Else
Var ChangeOK = 1
EndIf
Var CancelFlag = 0
Var CancelCounter = 0
Var ChangeTimeout = 0
Else
Var ChangeOK = 1
EndIf
@ -203,14 +201,6 @@
EndIf
EndIf
TimerReset
Refresh
@ -243,87 +233,37 @@
TimerReset
Var CoinInFlag = 1
Var confirmButtonState = "Enable"
Var alphaState2 = "Invisible"
If ViewBill > 0 Then
Var RemainAmount = PayAmount - 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
CoinVending BILLSTACKALL
Var Timeout = 0
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
Var showRemaining = charOfBaht + RemainAmountStr
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Else
Var alphaState2 = "Enable"
If CoinInOK = 0 Then
Var RemainAmount = PayAmount - CoinAmount
Var SumCoinAmount = CoinAmount
If SumCoinAmount >= PayAmount Then
CoinVending OFF
Var Canout = SumCoinAmount - PayAmount
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
If show_eng = "true" Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
Var Timeout = 0
@ -348,38 +288,28 @@
If CancelFlag = 0 Then
SAVELOG "VDCancle > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
If CoinAmount = 0 Then
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
EndIf
If Seeker.StoreCreditFlag = 1 Then
Else
Var ChangeOK = 1
If show_eng = "true" Then
Var RemainAmountStr = "keep credit"
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
CoinVending BILLSTACKALL
EndIf
Refresh
EndIf
EndIf
Refresh
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
EndIf
</EventVDCancle>
@ -387,14 +317,7 @@
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
;include="ROOT/taobin_project/inc/video.inc"
@ -496,11 +419,12 @@
<Text>
<X> 0 </X>
<Y> 1023 </Y>
<X> 253 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Align> center-vertical-horizontal </Align>
<Width> 576 </Width>
<Height> 180 </Height>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
@ -509,158 +433,10 @@
<Button>
<X> 398 </X>
<Y> 1338 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + "/bn_edit.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_edit.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_member_topupAmount.xml"
</EventClick>
</Button>
<Button>
<X> 397 </X>
<Y> 1338 </Y>
<X> 330 </X>
<Y> 1355 </Y>
<State> alphaState2 </State>
<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>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Cancle Order."
CoinVending OFF
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
EndIf
If Seeker.StoreCreditFlag = 1 Then
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
EndIf
Refresh
</EventClick>
</Button>
<Button>
<X> 829 </X>
<Y> 777 </Y>
<Filename> Var( DirImage + "/Exit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/Exit.png" )</FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Cancle Order2."
CoinVending OFF
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
EndIf
If Seeker.StoreCreditFlag = 1 Then
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
EndIf
</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>
@ -670,55 +446,56 @@
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
CoinVending OFF
If CoinAmount = 0 Then
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Var CancelCounter = 0
Var CancelFlag = 1
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
Var ChangeOK = 1
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
CoinVending BILLSTACKALL
EndIf
Refresh
EndIf
EndIf
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
Var alphaState3 = "Invisible"
Refresh
</EventClick>
</Button>
<Button>
<X> 330 </X>
<Y> 1355 </Y>
<State> confirmButtonState </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>
If CoinInOK = 0 Then
SAVELOG "ButtonConfirm"
CoinVending OFF
Var CoinInOK = 1
Var CoinInCounter = 0
EndIf
</EventClick>
</Button>
</Popup>

4
xml/page_payment_credit3-1.xml
View file

@ -132,8 +132,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var PayCreditChannel = "cash"
Open "ROOT/taobin_project/xml/page_payment_credit3-Topup.xml"
Var TopupFromPage = "payment"
Open "ROOT/taobin_project/xml/page_topup_credit3_cash_warning.xml"
</EventClick>
</Button>

349
xml/page_payment_credit3-TopupCash.xml
View file

@ -38,9 +38,7 @@
Var alphaState2 = "Enable"
Var alphaState3 = "Invisible"
INT AmountNumber
Var confirmButtonState = "Invisible"
Var img_popup11 = "/img_popup11.png"
Var img_popup15 = "/img_popup15.png"
@ -49,7 +47,6 @@
If CountryName = "Malaysia" Then
Var img_popup11 = "/img_popup11-MYR.png"
Var img_popup15 = "/img_popup15-MYR.png"
Var AmountNumber = AmountNumber * 100
EndIf
;inter-image
@ -62,20 +59,13 @@
If CountryName = "Singapore" Then
Var img_popup11 = "/img_popup11-SGP.png"
Var img_popup15 = "/img_popup15-SGP.png"
Var AmountNumber = AmountNumber * 100
EndIf
Var CreditAmount = AmountNumber
Var RemainAmount = CreditAmount - CoinAmount
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Var CreditAmount = SumCreditAmount
Var RemainAmountStr !assigned StringFmt( CreditAmount, DisplayFormat, PreScaleConvertShow )
Var showRemaining = charOfBaht + RemainAmountStr
Var CoinInFlag = 0
@ -85,14 +75,11 @@
Var CancelFlag = 0
Var ChangeFlag2 = 0
Var ChangeTimeout = 0
Var CancelCounter = 0
CoinVending XBILL
Var ServiceAmount2 = CreditAmount
Var ServiceCharge = 0
@ -106,60 +93,7 @@
Var NamePriceShow = showname + " "
Var NamePriceShow = NamePriceShow + DrinkAmountStr
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
Var warning_price_state = "Enable"
</EventOpen>
@ -178,19 +112,23 @@
AddData 24 TelephoneNumber BmiYear PointCrm GetScore
EndIf
CoinVending OFF
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
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
CoinVending BILLSTACKALL
EndIf
EndIf
EndIf
@ -199,6 +137,8 @@
If ChangeOK = 1 Then
If CancelFlag = 0 Then
Var CreditAmount = CreditAmount + CoinAmount
Var ServiceAmount2 = CreditAmount
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupSuccess.xml"
Else
@ -252,19 +192,8 @@
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
If CoinAmount > 0 Then
Var ChangeOK = 1
EndIf
EndIf
EndIf
@ -273,17 +202,7 @@
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
Var ChangeOK = 1
EndIf
Var ChangeTimeout = ChangeTimeout + 1
@ -314,100 +233,39 @@
</EventChangeStatus>
<EventCoin>
TimerReset
TimerReset
Var CoinInFlag = 1
DEBUGVAR ViewBill
Var SumAmount = CreditAmount + CoinAmount
If SumAmount >= PayAmountSubDiscount Then
Var confirmButtonState = "Enable"
Var alphaState2 = "Invisible"
Var warning_price_state = "Invisible"
Else
Var warning_price_state = "Enable"
EndIf
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
CoinVending BILLSTACKALL
Var Timeout = 0
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( SumAmount, DisplayFormat, PreScaleConvertShow )
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 RemainAmountStr !assigned StringFmt( SumAmount, DisplayFormat, PreScaleConvertShow )
Var showRemaining = charOfBaht + RemainAmountStr
EndIf
EndIf
@ -468,35 +326,47 @@ TimerReset
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState2 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
</Text>
<Text>
<X> 253 </X>
<Y> 1254 </Y>
<Size> 20 </Size>
<Width> 375 </Width>
<Font> KanitRegularTTF </Font>
<State> warning_price_state </State>
<Color> 0xE4202B </Color>
<Value>
eval(
If show_eng = "true" Then
Var return = "*Amount must equal or exceed price."
Else
Var return = "*จำนวนเงินต้องเท่ากับหรือมากกว่าราคาสินค้า"
EndIf
)
</Value>
</Text>
<Text>
<X> 253 </X>
<Y> 1271 </Y>
<Y> 1295 </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>
<X> 330 </X>
<Y> 1355 </Y>
<Filename> Var( DirImage + "/bn_cancel3.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_cancel3.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -504,39 +374,35 @@ TimerReset
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Cancle Order."
If ReqPayWithCash = 1 Then
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 24 TelephoneNumber BmiYear PointCrm GetScore
EndIf
Var CancelFlag = 1
CoinVending OFF
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
Var CancelFlag = 1
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
Else
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
CoinVending BILLSTACKALL
EndIf
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
Refresh
EndIf
EndIf
@ -546,77 +412,24 @@ TimerReset
</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>
<Y> 1355 </Y>
<State> confirmButtonState </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
If CoinInOK = 0 Then
SAVELOG "ButtonConfirm"
CoinVending OFF
Var CoinInOK = 1
Var CoinInCounter = 0
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>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>

6
xml/page_topup_credit3-1.xml
View file

@ -52,7 +52,7 @@
If Timeout > 60 Then
Open "ROOT/taobin_project/xml/page_catalog2.xml"
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
@ -124,8 +124,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var PayCreditChannel = "cash"
Open "ROOT/taobin_project/xml/page_topup_credit3-Topup.xml"
Var TopupFromPage = "brewing"
Open "ROOT/taobin_project/xml/page_topup_credit3_cash_warning.xml"
</EventClick>
</Button>

367
xml/page_topup_credit3-TopupCash.xml
View file

@ -38,9 +38,9 @@
Var alphaState2 = "Enable"
Var alphaState3 = "Invisible"
Var confirmButtonState = "Invisible"
INT AmountNumber
Var img_popup11 = "/img_popup11.png"
Var img_popup15 = "/img_popup15.png"
@ -49,7 +49,6 @@
If CountryName = "Malaysia" Then
Var img_popup11 = "/img_popup11-MYR.png"
Var img_popup15 = "/img_popup15-MYR.png"
Var AmountNumber = AmountNumber * 100
EndIf
;inter-image
@ -62,20 +61,19 @@
If CountryName = "Singapore" Then
Var img_popup11 = "/img_popup11-SGP.png"
Var img_popup15 = "/img_popup15-SGP.png"
Var AmountNumber = AmountNumber * 100
EndIf
Var CreditAmount = AmountNumber
Var RemainAmount = CreditAmount - CoinAmount
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Var CreditAmount = 0
Var RemainAmountStr !assigned StringFmt( CreditAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
Var CoinInFlag = 0
@ -87,7 +85,7 @@
CoinVending XBILL
Var ChangeTimeout = 0
@ -99,66 +97,7 @@
Var Donate = ""
Var SuggestID = ""
Var Seeker.StoreCreditFlag = 0
Var DrinkAmountStr !assigned StringFmt( PayAmountSubDiscount, DisplayFormat, PreScaleConvertShow )
Var NamePriceShow = showname + " "
Var NamePriceShow = NamePriceShow + DrinkAmountStr
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
Var Seeker.StoreCreditFlag = 1
@ -171,22 +110,25 @@
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Timeout Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
CoinVending OFF
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
Else
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
EndIf
If ViewBill > 0 Then
CoinVending BILLREJECT
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
Var CoinInOK = 1
Var CoinInCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
CoinVending BILLSTACKALL
EndIf
EndIf
EndIf
@ -196,21 +138,22 @@
If CancelFlag = 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"
Var PayDetail = ""
Var CreditReference = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var PayCredit = 1
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Var Seeker.CoffeePinNumber
Var CreditAmount = CoinAmount
Var ServiceAmount2 = CreditAmount
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = "00-00-00-0000"
Var ServiceCredit = "coffee"
Var PayDetail = ""
Var CreditReference = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var PayCredit = 1
Open "ROOT/taobin_project/xml/page_topup_credit3-TopupSuccess.xml"
Else
@ -266,19 +209,8 @@
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
If CoinAmount > 0 Then
Var ChangeOK = 1
EndIf
EndIf
EndIf
@ -289,12 +221,9 @@
If CancelCounter = 2 Then
If CoinAmount > 0 Then
If Seeker.StoreCreditFlag = 0 Then
Change CoinAmount
Var ChangeFlag2 = 1
Else
Var ChangeOK = 1
EndIf
Var CancelFlag = 0
Var CancelCounter = 0
Var ChangeTimeout = 0
Else
Var ChangeOK = 1
EndIf
@ -328,91 +257,44 @@
</EventChangeStatus>
<EventCoin>
TimerReset
TimerReset
Var CoinInFlag = 1
DEBUGVAR ViewBill
Var confirmButtonState = "Enable"
Var alphaState2 = "Invisible"
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
CoinVending BILLSTACKALL
Var Timeout = 0
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
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
If show_eng = "true" Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
Var Timeout = 0
@ -476,13 +358,13 @@ TimerReset
<Text>
<X> 0 </X>
<X> 253 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Align> center-vertical-horizontal </Align>
<Width> 576 </Width>
<Height> 180 </Height>
<Font> KanitRegularTTF </Font>
<State> alphaState2 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
</Text>
@ -496,11 +378,10 @@ TimerReset
<Button>
<X> 397 </X>
<Y> 1380 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_cancel2.png" )</FilenamePress>
<X> 330 </X>
<Y> 1355 </Y>
<Filename> Var( DirImage + "/bn_cancel3.png" )</Filename>
<FilenamePress> Var( DirImage + "/bn_cancel3.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -508,34 +389,24 @@ TimerReset
If CoinInOK = 0 Then
If CancelFlag = 0 Then
SAVELOG "ButtonCancleAlpha2 > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
If CoinAmount = 0 Then
Var CancelCounter = 0
Var CancelFlag = 1
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
EndIf
If Seeker.StoreCreditFlag = 1 Then
Else
Var ChangeOK = 1
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
If ViewBill > 0 Then
CoinVending BILLREJECT
CoinVending BILLSTACKALL
EndIf
EndIf
EndIf
@ -546,76 +417,24 @@ TimerReset
</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>
<Y> 1355 </Y>
<State> confirmButtonState </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
If CoinInOK = 0 Then
SAVELOG "ButtonConfirm"
CoinVending OFF
Var CoinInOK = 1
Var CoinInCounter = 0
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>
;include="ROOT/taobin_project/inc/video.inc"

134
xml/page_topup_credit3_cash_warning.xml Normal file
View file

@ -0,0 +1,134 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
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 ReqPayWithCash = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
If TopupFromPage = "member" Then
Open "ROOT/taobin_project/xml/page_member_topup3.xml"
Else
If TopupFromPage = "payment" Then
Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml"
Else
Open "ROOT/taobin_project/xml/page_topup_credit3-1.xml"
EndIf
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
<EventCoin>
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
</EventCoin>
<EventActionOk>
If ReqPayWithCash = 1 Then
Var Seeker.CreditReferenceTmp = "" + useCreditAmount
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm
Var Seeker.StoreCreditFlag = 1
Var Seeker.CreditNotEnoughRefID = PointCrm
Open "ROOT/taobin_project/xml/page_payment_credit3-TopupCash.xml"
EndIf
</EventActionOk>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 157 </X>
<Y> 803 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/cash_warning_bg.png" </Filename>
</Image>
<Image>
<X> 172 </X>
<Y> 839 </Y>
<Filename> Var( DirImage + "/cash_warning_text.png" ) </Filename>
</Image>
<Button>
<X> 218 </X>
<Y> 1150 </Y>
<Filename> Var( DirImage + "/bn_cancel2.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" ) </FilenamePress>
<EventClick>
If TopupFromPage = "member" Then
Open "ROOT/taobin_project/xml/page_member_topup3.xml"
Else
If TopupFromPage = "payment" Then
Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml"
Else
Open "ROOT/taobin_project/xml/page_topup_credit3-1.xml"
EndIf
EndIf
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1150 </Y>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" ) </FilenamePress>
<EventClick>
Var PayCreditChannel = "cash"
If TopupFromPage = "member" Then
Open "ROOT/taobin_project/xml/page_member_topupCash.xml"
Else
If TopupFromPage = "payment" Then
If ReqPayWithCash = 0 Then
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var useCreditAmount = SumCreditAmount
Var BmiYear = useCreditAmount
Var GetScore = "useCredit"
AddData 22 TelephoneNumber BmiYear PointCrm GetScore
Var ReqPayWithCash = 1
EndIf
Else
Open "ROOT/taobin_project/xml/page_topup_credit3-TopupCash.xml"
EndIf
EndIf
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

1
xml/process/payment.ev
View file

@ -53,6 +53,7 @@ If Seeker.PayWithQR = 1 Then
Var VendingCampaign = Seeker.VendingCampaign
Var TxReference = Seeker.TxRef1
Var VendingOrderID = Seeker.ORDER_ID
Var PayType = "newpay"
Var ServiceType = "coffee-payment"
Var ServiceCredit = SelectDrink