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

edit spiral

Browse source
This commit is contained in:
worawut 2022-11-16 13:09:13 +07:00
parent 04b54a9574
commit f0b89e646d
8 changed files with 558 additions and 275 deletions
Download patch file Download diff file Expand all files Collapse all files

78
spiral/xml/page_spiral_fail.xml
View file

@ -6,6 +6,9 @@
<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound> <Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
Var SpiralText1 = 0
DEBUGVAR SpiralText1
Var Timeout = 0 Var Timeout = 0
Var ShowPictureFail = 0 Var ShowPictureFail = 0
If ChangeOK = 1 Then If ChangeOK = 1 Then
@ -26,6 +29,10 @@
<EventActionOk> <EventActionOk>
If CreditCardVoid = 1 Then
Var ChangeOK = 3
EndIf
If SpiralCodeOk = 1 Then If SpiralCodeOk = 1 Then
If CheckAckCode = 1 Then If CheckAckCode = 1 Then
@ -191,6 +198,7 @@ If SpiralCodeOk = 1 Then
EndIf EndIf
EndIf EndIf
Else Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate
If SpiralCodeOk = 1 Then If SpiralCodeOk = 1 Then
Var CheckAckCode = 1 Var CheckAckCode = 1
@ -206,19 +214,15 @@ If SpiralCodeOk = 1 Then
If LastMakeSpiralResult = 2 Then If LastMakeSpiralResult = 2 Then
If Seeker.PayWithQR = 0 Then If Seeker.PayWithQR = 0 Then
If Seeker.CodeChannel = 0 Then If Seeker.CreditCard = 1 Then
If ChangeFlag = 0 Then If CreditCardVoid = 0 Then
Var ChangeFlag = 1
If Seeker.StoreCreditFlag = 1 Then Var ChangeFlag = 1
Var ChangeOK = 3 Var CreditCardVoid = 1
Else ; Var ChangeOK = 3
Change ServiceAmount2 EndIf
Var ChangeTimeout = 30
Var ChangeFlag2 = 1 If CoinAmount > 0 Then
EndIf
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then If ChangeFlag = 0 Then
Var ChangeFlag = 1 Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
@ -230,10 +234,40 @@ If SpiralCodeOk = 1 Then
Var ChangeTimeout = 30 Var ChangeTimeout = 30
EndIf EndIf
EndIf EndIf
Else ;Else
Var ChangeOK = 2 ; Var ChangeOK = 3
EndIf EndIf
EndIf
Else
If Seeker.CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 3
Else
Change ServiceAmount2
Var ChangeTimeout = 30
Var ChangeFlag2 = 1
EndIf
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount3
Var ChangeFlag2 = 1
Var ChangeTimeout = 30
EndIf
EndIf
Else
Var ChangeOK = 2
EndIf
EndIf
EndIf
Else Else
Var ChangeOK = 3 Var ChangeOK = 3
EndIf EndIf
@ -337,7 +371,7 @@ If SpiralCodeOk = 1 Then
;<Size> 40 </Size> ;<Size> 40 </Size>
;<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
;<Value> "CheckAckCode" </Value> ;<Value> "Seeker.CreditCard" </Value>
;</Text> ;</Text>
; ;
; ;
@ -347,7 +381,7 @@ If SpiralCodeOk = 1 Then
;<Size> 40 </Size> ;<Size> 40 </Size>
;<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
;<Value> CheckAckCode </Value> ;<Value> Seeker.CreditCard </Value>
;</Text> ;</Text>
; ;
; ;
@ -523,7 +557,7 @@ If SpiralCodeOk = 1 Then
;<Size> 40 </Size> ;<Size> 40 </Size>
;<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
;<Value> "CheckAckCodeTimer" </Value> ;<Value> "CoinAmount" </Value>
;</Text> ;</Text>
; ;
;<Text> ;<Text>
@ -532,11 +566,7 @@ If SpiralCodeOk = 1 Then
;<Size> 40 </Size> ;<Size> 40 </Size>
;<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
;<Value> CheckAckCodeTimer </Value> ;<Value> CoinAmount </Value>
;</Text> ;</Text>
</Popup> </Popup>

430
spiral/xml/page_spiral_fail2.xml
View file

@ -47,219 +47,219 @@
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1121 </Y> ;<Y> 1121 </Y>
<Width>150</Width> ;<Width>150</Width>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> Timeout </Value> ;<Value> Timeout </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1181 </Y> ;<Y> 1181 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> ChangeTimeout </Value> ;<Value> ChangeTimeout </Value>
</Text> ;</Text>
;
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 650 </Y> ;<Y> 650 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> LastMakeSpiralResult </Value> ;<Value> LastMakeSpiralResult </Value>
</Text> ;</Text>
;
;
<Text> ;<Text>
<X> 292 </X> ;<X> 292 </X>
<Y> 1350 </Y> ;<Y> 1350 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> "PayOk" </Value> ;<Value> "PayOk" </Value>
</Text> ;</Text>
;
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1350 </Y> ;<Y> 1350 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> PayOk </Value> ;<Value> PayOk </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 292 </X> ;<X> 292 </X>
<Y> 1400 </Y> ;<Y> 1400 </Y>
<Size> 40 </Size ;<Size> 40 </Size
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> "ChangeOK" </Value> ;<Value> "ChangeOK" </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1400 </Y> ;<Y> 1400 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> ChangeOK </Value> ;<Value> ChangeOK </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 292 </X> ;<X> 292 </X>
<Y> 1450 </Y> ;<Y> 1450 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> "Seeker.StoreCreditFlag" </Value> ;<Value> "Seeker.StoreCreditFlag" </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1450 </Y> ;<Y> 1450 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> Seeker.StoreCreditFlag </Value> ;<Value> Seeker.StoreCreditFlag </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 292 </X> ;<X> 292 </X>
<Y> 1500 </Y> ;<Y> 1500 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> "ChangeFlag2" </Value> ;<Value> "ChangeFlag2" </Value>
</Text> ;</Text>
;
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1500 </Y> ;<Y> 1500 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> ChangeFlag2 </Value> ;<Value> ChangeFlag2 </Value>
</Text> ;</Text>
;
;
<Text> ;<Text>
<X> 292 </X> ;<X> 292 </X>
<Y> 1550 </Y> ;<Y> 1550 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> "Seeker.PayWithQR" </Value> ;<Value> "Seeker.PayWithQR" </Value>
</Text> ;</Text>
;
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1550 </Y> ;<Y> 1550 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> Seeker.PayWithQR </Value> ;<Value> Seeker.PayWithQR </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 292 </X> ;<X> 292 </X>
<Y> 1600 </Y> ;<Y> 1600 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> "Seeker.CodeChannel" </Value> ;<Value> "Seeker.CodeChannel" </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1600 </Y> ;<Y> 1600 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> Seeker.CodeChannel </Value> ;<Value> Seeker.CodeChannel </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 292 </X> ;<X> 292 </X>
<Y> 1650 </Y> ;<Y> 1650 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> "ChangeFlag" </Value> ;<Value> "ChangeFlag" </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1650 </Y> ;<Y> 1650 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> ChangeFlag </Value> ;<Value> ChangeFlag </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 292 </X> ;<X> 292 </X>
<Y> 1700 </Y> ;<Y> 1700 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> "Canout" </Value> ;<Value> "Canout" </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1700 </Y> ;<Y> 1700 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> Canout </Value> ;<Value> Canout </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 292 </X> ;<X> 292 </X>
<Y> 1750 </Y> ;<Y> 1750 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> "SpiralCodeOk" </Value> ;<Value> "SpiralCodeOk" </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1750 </Y> ;<Y> 1750 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> SpiralCodeOk </Value> ;<Value> SpiralCodeOk </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 292 </X> ;<X> 292 </X>
<Y> 1800 </Y> ;<Y> 1800 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> "CheckAckCodeTimer" </Value> ;<Value> "CheckAckCodeTimer" </Value>
</Text> ;</Text>
;
<Text> ;<Text>
<X> 92 </X> ;<X> 92 </X>
<Y> 1800 </Y> ;<Y> 1800 </Y>
<Size> 40 </Size> ;<Size> 40 </Size>
<Font> KanitTTF </Font> ;<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color> ;<Color> 0xB78F24 </Color>
<Value> CheckAckCodeTimer </Value> ;<Value> CheckAckCodeTimer </Value>
</Text> ;</Text>
;
;
</Popup> </Popup>

1
spiral/xml/page_spiral_payment.xml
View file

@ -32,6 +32,7 @@
Var CountStepPackPayment = 0 Var CountStepPackPayment = 0
Var Seeker.CreditCard = 0
Var Seeker.VendingCode = "C00" Var Seeker.VendingCode = "C00"
Var Seeker.VendingCampaignRI3 = 0 Var Seeker.VendingCampaignRI3 = 0
Var Seeker.IntVendingCampaign = 0 Var Seeker.IntVendingCampaign = 0

109
spiral/xml/page_spiral_payment_cash.xml
View file

@ -22,7 +22,7 @@
DEBUGVAR SelectDrink DEBUGVAR SelectDrink
DEBUGVAR video_menu_0 DEBUGVAR video_menu_0
Var CashlessPayFlag = 0
Var PayDetail = "" Var PayDetail = ""
Var FlagQROpened = 0 Var FlagQROpened = 0
Var PayInfoCFlag = 0 Var PayInfoCFlag = 0
@ -479,7 +479,10 @@
Var ReqPayInfoFromCashOther = 0 Var ReqPayInfoFromCashOther = 0
EndIf EndIf
If ReqPayInfoFromCashOther = 2 Then
Var alphaState = "Enable"
Var ReqPayInfoFromCashOther = 0
EndIf
</EventOpen> </EventOpen>
<EventActionOk> <EventActionOk>
@ -602,10 +605,57 @@
EndIf EndIf
EndIf EndIf
If ReqPayInfoFlag = 5 Then
If VendingQRTypeResult = "LPY:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99Shoppy = ""
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1
SAVELOG Ext1
SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext2
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext31
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 5
SAVELOG QRCODE99Shoppy
SAVELOG Ext2
Var QRCODE99 = QRCODE99Shoppy
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else Else
Var PayInfoCFlag = 1 Var PayInfoCFlag = 1
EndIf EndIf
If VendingCashless = "OK" Then
DEBUGVAR CashlessCode
Var Timeout = 0
Var QRErrorState = "Invisible"
Var LOADING_STATE = "Invisible"
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
VendingQR OFF
CoinVending OFF
Refresh
If Seeker = "curr" Then
; MakeDrinkV1 SelectDrink SelectSugarID
EndIf
Var Seeker.CreditCard = 1
Var Seeker.CreditCardRef = CreditCardRef
Open "ROOT/taobin_project/spiral/xml/page_spiral_thankyou_creditcard.xml"
EndIf
</EventActionOk> </EventActionOk>
<EventActionError> <EventActionError>
@ -639,6 +689,13 @@
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
EndIf EndIf
EndIf EndIf
If ReqPayInfoFlag = 5 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
Else Else
Var PayInfoCFlag = 1 Var PayInfoCFlag = 1
EndIf EndIf
@ -647,6 +704,29 @@
</EventActionError> </EventActionError>
<EventCashlessCard>
Var CreditCardRef = ""
GenHashWithTimeStamp CreditCardRef
DEBUGVAR VendingCashless
If VendingCashless = "READY" Then
Var QRCODE99 = ""
Var Timeout = 0
Var QRErrorState = "Invisible"
Var QR_POPUP = "/img_popup8-2.png"
Var VendingCashless = "-"
Var LOADING_STATE = "Enable"
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1
EndIf
Refresh
</EventCashlessCard>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
@ -764,6 +844,11 @@
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable" Var cancelState = "Enable"
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
Var CancelCounter = 0 Var CancelCounter = 0
If CoinAmount = 0 Then If CoinAmount = 0 Then
@ -1466,7 +1551,12 @@
If FlagQROpened = 1 Then If FlagQROpened = 1 Then
Var CancelNumber = 12 Var CancelNumber = 12
EndIf EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
EndIf EndIf
EndIf EndIf
@ -1582,6 +1672,14 @@
Var QRCODE99 = "" Var QRCODE99 = ""
;CoinVending ON ;CoinVending ON
;VendingQR OFF ;VendingQR OFF
CashlessReq OFF
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -1629,6 +1727,11 @@
If FlagQROpened = 1 Then If FlagQROpened = 1 Then
Var CancelNumber = 12 Var CancelNumber = 12
EndIf EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
EndIf
EndIf EndIf
EndIf EndIf

103
spiral/xml/page_spiral_payment_cashOther.xml
View file

@ -336,6 +336,88 @@
</EventClick> </EventClick>
</Button> </Button>
<Button>
<X> 209 </X>
<Y> 1112 </Y>
<State> "Invisible" </State>
<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_linepay.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_pay_with_linepay.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/collectiing/bd_pay_with_linepay.png" </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var QR_POPUP = "/img_popup9.png"
Var LOADING_STATE = "Enable"
Var QRCODE99 = ""
Var FlagQROpened = 1
Var alphaState = "Enable"
;CoinVending OFF
VendingQR ON
Var SessionID2 = "1:00000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "locker"
Var ECommerceQR = "locker5/"
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + ServiceCredit
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "LPY:2/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
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 ReqPayInfoFlag = 5
Var ReqPayInfoFromCashOther = 1
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_cash.xml"
</EventClick>
</Button>
<Button> <Button>
<X> 209 </X> <X> 209 </X>
<Y> 1112 </Y> <Y> 1112 </Y>
@ -346,12 +428,31 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
</EventClick>
</Button>
<Button>
<X> 441 </X>
<Y> 1112 </Y>
<State> "Invisible" </State>
<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_ccard1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_pay_with_ccard1.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/collectiing/bd_pay_with_ccard1.png" </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Coin CARD
Var ReqPayInfoFromCashOther = 2
Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_cash.xml"
</EventClick> </EventClick>
</Button> </Button>
<Button> <Button>
<X> 441 </X> <X> 441 </X>
<Y> 1112 </Y> <Y> 1112 </Y>

2
spiral/xml/page_spiral_payment_storeCredit2-2.xml
View file

@ -635,7 +635,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml" Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit.xml"
</EventClick> </EventClick>
</Button> </Button>

6
spiral/xml/page_spiral_payment_storeCredit2.xml
View file

@ -42,7 +42,7 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 30 Then If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_spiral_payment_storeCredit.xml" Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit.xml"
EndIf EndIf
If FlagWaitUpdateCoinAmount = 1 Then If FlagWaitUpdateCoinAmount = 1 Then
@ -50,7 +50,7 @@
If CART_COUNT >= 1 Then If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml" Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_cash.xml"
EndIf EndIf
EndIf EndIf
@ -574,7 +574,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml" Open "ROOT/taobin_project/spiral/xml/page_spiral_payment_storeCredit.xml"
</EventClick> </EventClick>
</Button> </Button>

104
spiral/xml/page_spiral_thankyou.xml
View file

@ -6,6 +6,8 @@
;<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound> ;<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
Var SwapVDO = 0 Var SwapVDO = 0
Var TimeSwapVDO = 0 Var TimeSwapVDO = 0
Var ShowSwapVDO = "ROOT/taobin_project/spiral/video/sp01.mp4" Var ShowSwapVDO = "ROOT/taobin_project/spiral/video/sp01.mp4"
@ -48,6 +50,31 @@
Var PayO2 = Seeker.CoffeePinNumber Var PayO2 = Seeker.CoffeePinNumber
EndIf EndIf
If show_eng = "true" Then
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var BottomText = PicturePath + "text_bottom_eng.png"
Var DirImage = "ROOT/taobin_project/image/page_thankyou_en"
Else
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var BottomText = PicturePath + "text_bottom_thai2.png"
Var DirImage = "ROOT/taobin_project/image/page_thankyou"
EndIf
If VendingCreditRemain = "" Then
Var RemainCreditST = "Invisible"
Else
Var RemainCreditST = "Enable"
EndIf
Var CreditReference = "" Var CreditReference = ""
Var CreditReference = Seeker.CreditReferenceTmp Var CreditReference = Seeker.CreditReferenceTmp
Var VendingDiscount = Seeker.VendingDiscount Var VendingDiscount = Seeker.VendingDiscount
@ -539,40 +566,61 @@
<Filename> video_menu_0 </Filename> <Filename> video_menu_0 </Filename>
</Video> </Video>
Var SwapVDO = 0
Var TimeSwapVDO = 0
Var ShowSwapVDO = "
<Image>
<X> 760 </X>
<Y> 413 </Y>
<State>RemainCreditST</State>
<Filename> Var( DirImage + "/remainCredit.png" ) </Filename>
</Image>
<Text> <Text>
<X> 92 </X> <X> 760 </X>
<Y> 650 </Y> <Y> 477 </Y>
<Width>150</Width> <Size> 70 </Size>
<Size> 40 </Size> <Width> 413</Width>
<Font> KanitTTF </Font> <Align> Center </Align>
<Color> 0xB78F24 </Color> <Font> RobotoBlack </Font>
<Value> SwapVDO </Value> <Color> 0x513C2F </Color>
</Text> <Value> VendingCreditRemain </Value>
<Text>
<X> 92 </X>
<Y> 750 </Y>
<Size> 40 </Size>
<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color>
<Value> TimeSwapVDO </Value>
</Text> </Text>
<Text>
<X> 92 </X> ; Var SwapVDO = 0
<Y> 850 </Y> ; Var TimeSwapVDO = 0
<Size> 40 </Size> ; Var ShowSwapVDO = "
<Font> KanitTTF </Font>
<Color> 0xB78F24 </Color>
<Value> ShowSwapVDO </Value>
</Text> ;<Text>
;<X> 92 </X>
;<Y> 650 </Y>
;<Width>150</Width>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> SwapVDO </Value>
;</Text>
;
;<Text>
;<X> 92 </X>
;<Y> 750 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> TimeSwapVDO </Value>
;</Text>
;
;
;<Text>
;<X> 92 </X>
;<Y> 850 </Y>
;<Size> 40 </Size>
;<Font> KanitTTF </Font>
;<Color> 0xB78F24 </Color>
;<Value> ShowSwapVDO </Value>
;</Text>
;<Text> ;<Text>