fix image and cancle Page

This commit is contained in:
miggaze 2022-01-19 14:32:30 +07:00
parent 0ddcc2571f
commit 56e3ebb80a
19 changed files with 195 additions and 28 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 19 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 19 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 142 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.9 KiB

View file

@ -14,9 +14,16 @@
DEBUGVAR SoundVolume
Var Seeker = "curr"
Var NextOrder = "false"
Var Seeker = "next"
Var Seeker.thankLidFlag = 0
Var Seeker.thankStrawFlag = 0
Var Seeker = "curr"
Var Seeker.thankLidFlag = 0
Var Seeker.thankStrawFlag = 0
DEBUGVAR web_ref
DEBUGVAR web_payment
DEBUGVAR web_telnum

View file

@ -8,6 +8,9 @@
TopView "show"
; On open
Var Seeker.thankLidFlag = 0
Var Seeker.thankStrawFlag = 0
WEB "DISABLE"
Var web_readyOK = "false"

View file

@ -131,11 +131,11 @@
If Ext1a = "ok" Then
Var TaobinCredit = 0
GETACCEXT TelephoneNumber 14
Var StepX = 1
Var Ext1a = "ok"
;GETACCEXT TelephoneNumber 14
;Var StepX = 1
;Var Ext1a = "ok"
;Open "ROOT/taobin_project/xml/page_check_member2.xml"
Open "ROOT/taobin_project/xml/page_check_member2.xml"
Else
Var ShowErrorText = "Enable"
Var ShowText = "Invisible"

View file

@ -104,6 +104,14 @@
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var VendingCreditRemain = ""
DEBUGVAR Seeker.thankLidFlag
DEBUGVAR Seeker.thankStrawFlag
</EventOpen>
<Timeout> 900 </Timeout>

View file

@ -37,6 +37,10 @@
; On open
Var cancelState = "Invisible"
Var alphaState = "Invisible"
Var alphaState2 = "Invisible"
Var alphaState3 = "Invisible"
@ -571,7 +575,7 @@
Var stringLog = stringLog + PayOK
If Timeout > 180 Then
If Timeout > 18 Then
If PayOK = 1 Then
If Seeker = "curr" Then
@ -590,6 +594,8 @@
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If CoinAmount = 0 Then
@ -825,6 +831,7 @@
Machine CancelWepApp
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
;If CoinAmount = 0 Then
; Open "ROOT/taobin_project/xml/page_catalog.xml"
@ -887,6 +894,7 @@
Machine CancelWepApp
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If FlagQROpened = 1 Then
@ -1222,6 +1230,7 @@
EndIf
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If FlagQROpened = 1 Then
@ -1375,6 +1384,7 @@
EndIf
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If FlagQROpened = 1 Then
Var CancelNumber = 12
@ -1496,6 +1506,22 @@
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> cancelState </State>
<Filename> Var( DirImage + "/CancelOrder.png" ) </Filename>
</Image>
<GIF>
<X> 493 </X>
<Y> 960 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> cancelState </State>
<Filename> Var( DirImage + "/loading.gif" )</Filename>
</GIF>
<EventSecurity>

View file

@ -29,6 +29,8 @@
Var LOADING_STATE = "Invisible"
Var cancelState = "Invisible"
; Below original
; On open
Var alphaState = "Invisible"
@ -571,6 +573,8 @@
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If CoinAmount = 0 Then
If Seeker.IntVendingCredit > 0 Then
@ -798,6 +802,7 @@
SAVELOG "VDCancle > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
;Var showRemaining = "คืนเงิน"
@ -970,6 +975,7 @@
SAVELOG "EventCart > Cancle All Order."
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If FlagQROpened = 1 Then
@ -1336,6 +1342,7 @@
SAVELOG "ButtonCancleMain > Cancle All Order."
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If FlagQROpened = 1 Then
@ -1601,6 +1608,7 @@ EndIf
SAVELOG "ButtonCancleAlpha2 > Cancle Order."
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
If FlagQROpened = 1 Then
Var CancelNumber = 12
@ -1722,6 +1730,22 @@ EndIf
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> cancelState </State>
<Filename> Var( DirImage + "/CancelOrder.png" ) </Filename>
</Image>
<GIF>
<X> 493 </X>
<Y> 960 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> cancelState </State>
<Filename> Var( DirImage + "/loading.gif" )</Filename>
</GIF>
<EventSecurity>

View file

@ -178,6 +178,16 @@
Else
Var VendingCreditRemain = ""
Var IntVendingCampaign1 = VendingCampaign1
INT IntVendingCampaign1
If IntVendingCampaign1 > 0 Then
Var VendingCreditRemain = VendingCampaign1
EndIf
Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3
INT Seeker.IntVendingCampaign

View file

@ -217,6 +217,12 @@
Var showRemaining = charOfBaht + RemainAmountStr
Var VendingCreditRemain = ""
Var Seeker.thankLidFlag = 1
Var Seeker.thankStrawFlag = 1
</EventOpen>
<Timeout> 500 </Timeout>
<EventTimeout>

View file

@ -35,8 +35,20 @@
Var Timeout = Timeout + 1
If Timeout > 20 Then
; goto lid straw
;SAVELOG "Timeout"
;Open "ROOT/taobin_project/xml/page_lid_straw.xml"
SAVELOG "Timeout"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Var Seeker.FromConsent = 1
Var StepGetPoint = 1
GETACCEXT TelephoneNumber 14
; goto lid straw
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
TimerReset
@ -72,7 +84,7 @@
<Button>
<X> 577 </X>
<X> 397 </X>
<Y> 1679 </Y>
<Filename> Var( DirImage + "/bn_accept.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_accept.png" ) </FilenamePress>
@ -97,20 +109,20 @@
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1679 </Y>
<Filename> Var( DirImage + "/bn_decline.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_decline.png" ) </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
SAVELOG "Press Decline"
SAVELOG "show_consent-p110."
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
;<Button>
;<X> 218 </X>
;<Y> 1679 </Y>
;<Filename> Var( DirImage + "/bn_decline.png" ) </Filename>
;<FilenamePress> Var( DirImage + "/bp_decline.png" ) </FilenamePress>
;<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick>
; ; goto lid straw
; SAVELOG "Press Decline"
; SAVELOG "show_consent-p110."
; Open "ROOT/taobin_project/xml/page_lid_straw.xml"
;</EventClick>
;</Button>

View file

@ -72,6 +72,26 @@
Var NextOrder = "true"
EndIf
If VendingCreditRemain = "" Then
Var RemainCreditST = "Invisible"
Else
Var RemainCreditST = "Enable"
EndIf
Var SaveTheWorldST = "Invisible"
Var SaveTheWorldCount = 0
If Seeker.thankLidFlag = 0 Then
Var SaveTheWorldCount = SaveTheWorldCount + 1
EndIf
If Seeker.thankStrawFlag = 0 Then
Var SaveTheWorldCount = SaveTheWorldCount + 1
EndIf
If SaveTheWorldCount = 2 Then
Var SaveTheWorldST = "Enable"
EndIf
</EventOpen>
@ -209,6 +229,39 @@
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Image>
<X> 89 </X>
<Y> 700 </Y>
<Filename> "ROOT/taobin_project/image/page_thankyou/img1.png" </Filename>
</Image>
<Image>
<X> 0 </X>
<Y> 0 </Y>
<State>SaveTheWorldST</State>
<Filename> "ROOT/taobin_project/image/page_thankyou/img3.png" </Filename>
</Image>
<Image>
<X> 760 </X>
<Y> 413 </Y>
<State>RemainCreditST</State>
<Filename> "ROOT/taobin_project/image/page_thankyou/remainCredit.png" </Filename>
</Image>
<Text>
<X> 760 </X>
<Y> 480 </Y>
<Size> 70 </Size>
<Width> 413</Width>
<Align> Center </Align>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> VendingCreditRemain </Value>
</Text>
<Video>
<X> 0 </X>
<Y> 0 </Y>
@ -218,12 +271,6 @@
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<X> 89 </X>
<Y> 700 </Y>
<Filename> "ROOT/taobin_project/image/page_thankyou/img1.png" </Filename>
</Image>
;<Image>
;<X> 751 </X>

View file

@ -1308,8 +1308,14 @@
SAVELOG "Click straw cb"
If StrawState = "Press" Then
Var StrawState = "Enable"
Var Seeker.thankStrawFlag = 0
Else
Var StrawState = "Press"
Var Seeker.thankStrawFlag = 1
EndIf
Refresh
</EventClick>
@ -1327,8 +1333,14 @@
SAVELOG "Click straw cb"
If StrawState = "Press" Then
Var StrawState = "Enable"
Var Seeker.thankStrawFlag = 0
Else
Var StrawState = "Press"
Var Seeker.thankStrawFlag = 1
EndIf
Refresh
</EventClick>
@ -1349,8 +1361,14 @@
SAVELOG "Click LID pic"
If LidState = "Press" Then
Var LidState = "Enable"
Var Seeker.thankLidFlag = 0
Else
Var LidState = "Press"
Var Seeker.thankLidFlag = 1
EndIf
@ -1372,8 +1390,14 @@
SAVELOG "Click LID cb"
If LidState = "Press" Then
Var LidState = "Enable"
Var Seeker.thankLidFlag = 0
Else
Var LidState = "Press"
Var Seeker.thankLidFlag = 1
EndIf
Refresh
</EventClick>