THAI: Update All Payment cash
This commit is contained in:
Kenta420
parent
ccadb410d7
commit
e9bc7f2544
11 changed files with 429 additions and 885 deletions
|
|
@ -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>
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue