add lazada and indo malay

This commit is contained in:
pichet 2023-01-16 14:44:05 +07:00
parent b5481c7aef
commit c67964fa20
83 changed files with 4905 additions and 1019 deletions

View file

@ -51,11 +51,29 @@
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 PayAmount = AmountNumber
Var RemainAmount = PayAmount
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
Var CoinInFlag = 0
Var CoinInOK = 0
Var ChangeOK = 0
@ -75,6 +93,8 @@
Var ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
</EventOpen>
@ -230,19 +250,28 @@
If ViewBill > RemainAmount Then
Var RemainAmountKeep = ViewBill - RemainAmount
Var RemainAmountKeepStr !assigned StringFmt( RemainAmountKeep, DisplayFormat, PreScaleConvertShow )
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
Else
;CoinVending BILLSTACKALL
Var RemainAmountKeep = 0
Var alphaState3 = "Enable"
Var alphaState2 = "Disable"
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
@ -263,13 +292,21 @@
Var Canout = SumCoinAmount - PayAmount
If Canout = 0 Then
Var RemainAmountStr = 0
Var RemainAmountStr !assigned StringFmt( 0, DisplayFormat, PreScaleConvertShow )
Else
Var RemainAmountStr = "ทอน " + Canout
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
@ -284,6 +321,7 @@
Else
Var RemainAmountStr = "" + RemainAmount
Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow )
EndIf
Var Timeout = 0
@ -310,13 +348,26 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
EndIf
If Seeker.StoreCreditFlag = 1 Then
Var RemainAmountStr = "เก็บเครดิต"
If show_eng = "true" Then
Var RemainAmountStr = "keep credit"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
EndIf
@ -438,7 +489,7 @@
<Image>
<X> 182 </X>
<Y> 748 </Y>
<Filename> Var( DirImage2 + "/img_popup11.png" )</Filename>
<Filename> Var( DirImage2 + img_popup11 )</Filename>
</Image>
@ -492,12 +543,24 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
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
@ -525,12 +588,24 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
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
@ -543,19 +618,19 @@
<X> 181 </X>
<Y> 658 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/img_popup15.png" )</Filename>
<Filename> Var( DirImage2 + img_popup15 )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1010 </Y>
<Size> 144 </Size>
<Size> 120 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState3 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountKeep </Value>
<Value> RemainAmountKeepStr </Value>
</Text>
@ -596,9 +671,17 @@
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
Var RemainAmountStr = "คืนเงิน"
If show_eng = "true" Then
Var RemainAmountStr = "Refund"
Else
Var RemainAmountStr = "คืนเงิน"
EndIf
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
EndIf
EndIf