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

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

View file

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

View file

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

View file

@ -103,6 +103,14 @@
Var ServiceAmount2 = PriceDrink Var ServiceAmount2 = PriceDrink
Var TelephoneNumber = "0899999999" Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee" Var ServiceType = "coffee"
Var VendingCreditRemain = ""
DEBUGVAR Seeker.thankLidFlag
DEBUGVAR Seeker.thankStrawFlag
</EventOpen> </EventOpen>

View file

@ -36,6 +36,10 @@
; Below original ; Below original
; On open ; On open
Var cancelState = "Invisible"
Var alphaState = "Invisible" Var alphaState = "Invisible"
Var alphaState2 = "Invisible" Var alphaState2 = "Invisible"
@ -571,7 +575,7 @@
Var stringLog = stringLog + PayOK Var stringLog = stringLog + PayOK
If Timeout > 180 Then If Timeout > 18 Then
If PayOK = 1 Then If PayOK = 1 Then
If Seeker = "curr" Then If Seeker = "curr" Then
@ -590,6 +594,8 @@
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0 Var CancelCounter = 0
If CoinAmount = 0 Then If CoinAmount = 0 Then
@ -825,6 +831,7 @@
Machine CancelWepApp Machine CancelWepApp
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0 Var CancelCounter = 0
;If CoinAmount = 0 Then ;If CoinAmount = 0 Then
; Open "ROOT/taobin_project/xml/page_catalog.xml" ; Open "ROOT/taobin_project/xml/page_catalog.xml"
@ -887,6 +894,7 @@
Machine CancelWepApp Machine CancelWepApp
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0 Var CancelCounter = 0
If FlagQROpened = 1 Then If FlagQROpened = 1 Then
@ -1222,6 +1230,7 @@
EndIf EndIf
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0 Var CancelCounter = 0
If FlagQROpened = 1 Then If FlagQROpened = 1 Then
@ -1375,6 +1384,7 @@
EndIf EndIf
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0 Var CancelCounter = 0
If FlagQROpened = 1 Then If FlagQROpened = 1 Then
Var CancelNumber = 12 Var CancelNumber = 12
@ -1496,6 +1506,22 @@
</EventClick> </EventClick>
</Button> </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> <EventSecurity>

View file

@ -28,6 +28,8 @@
Var PayAmount = PriceDrink Var PayAmount = PriceDrink
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
Var cancelState = "Invisible"
; Below original ; Below original
; On open ; On open
@ -571,6 +573,8 @@
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0 Var CancelCounter = 0
If CoinAmount = 0 Then If CoinAmount = 0 Then
If Seeker.IntVendingCredit > 0 Then If Seeker.IntVendingCredit > 0 Then
@ -798,6 +802,7 @@
SAVELOG "VDCancle > Cancle Order." SAVELOG "VDCancle > Cancle Order."
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0 Var CancelCounter = 0
;Var showRemaining = "คืนเงิน" ;Var showRemaining = "คืนเงิน"
@ -970,6 +975,7 @@
SAVELOG "EventCart > Cancle All Order." SAVELOG "EventCart > Cancle All Order."
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0 Var CancelCounter = 0
If FlagQROpened = 1 Then If FlagQROpened = 1 Then
@ -1336,6 +1342,7 @@
SAVELOG "ButtonCancleMain > Cancle All Order." SAVELOG "ButtonCancleMain > Cancle All Order."
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0 Var CancelCounter = 0
If FlagQROpened = 1 Then If FlagQROpened = 1 Then
@ -1601,6 +1608,7 @@ EndIf
SAVELOG "ButtonCancleAlpha2 > Cancle Order." SAVELOG "ButtonCancleAlpha2 > Cancle Order."
CoinVending OFF CoinVending OFF
Var CancelFlag = 1 Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0 Var CancelCounter = 0
If FlagQROpened = 1 Then If FlagQROpened = 1 Then
Var CancelNumber = 12 Var CancelNumber = 12
@ -1722,6 +1730,22 @@ EndIf
</EventClick> </EventClick>
</Button> </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> <EventSecurity>

View file

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

View file

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

View file

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

View file

@ -72,6 +72,26 @@
Var NextOrder = "true" Var NextOrder = "true"
EndIf 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> </EventOpen>
@ -209,6 +229,39 @@
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename> ;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image> ;</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> <Video>
<X> 0 </X> <X> 0 </X>
<Y> 0 </Y> <Y> 0 </Y>
@ -218,12 +271,6 @@
<Filename> video_menu_0 </Filename> <Filename> video_menu_0 </Filename>
</Video> </Video>
<Image>
<X> 89 </X>
<Y> 700 </Y>
<Filename> "ROOT/taobin_project/image/page_thankyou/img1.png" </Filename>
</Image>
;<Image> ;<Image>
;<X> 751 </X> ;<X> 751 </X>

View file

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