This commit is contained in:
miggaze 2021-12-09 15:33:02 +07:00
commit ff2c8e7b49
7 changed files with 58 additions and 6 deletions

View file

@ -534,7 +534,7 @@
Var PayDetail = PayDetail + NOBONUS Var PayDetail = PayDetail + NOBONUS
Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1" ;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
If GetFreeFromError = 1 Then If GetFreeFromError = 1 Then
Var CodeChannel = 1 Var CodeChannel = 1

View file

@ -13,6 +13,7 @@
Var web_readyOK = "false" Var web_readyOK = "false"
Var web_telnumOK = "" Var web_telnumOK = ""
Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/"
If CocktailShow = "true" Then If CocktailShow = "true" Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml" Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml"

View file

@ -530,7 +530,11 @@
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0 ;Var Timeout = 0
EndIf EndIf
<<<<<<< HEAD
If Seeker = "curr" Then If Seeker = "curr" Then
=======
If PauseOrder = "false" Then
>>>>>>> 0479282586527f47f0f2821824b32af59e613c53
Open "ROOT/taobin_project/xml/page_catalog.xml" Open "ROOT/taobin_project/xml/page_catalog.xml"
Else Else
Open "ROOT/taobin_project/xml/page_brewing3.xml" Open "ROOT/taobin_project/xml/page_brewing3.xml"
@ -582,6 +586,16 @@
Var CancelFlag = 1 Var CancelFlag = 1
Var CancelCounter = 0 Var CancelCounter = 0
If CoinAmount = 0 Then If CoinAmount = 0 Then
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
If IntVendingCampaign = 0 Then If IntVendingCampaign = 0 Then
VendingQR OFF VendingQR OFF
If Seeker = "curr" Then If Seeker = "curr" Then

View file

@ -568,6 +568,13 @@
Var CancelFlag = 1 Var CancelFlag = 1
Var CancelCounter = 0 Var CancelCounter = 0
If CoinAmount = 0 Then If CoinAmount = 0 Then
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
If IntVendingCampaign = 0 Then If IntVendingCampaign = 0 Then
VendingQR OFF VendingQR OFF
@ -1037,6 +1044,12 @@
If CoinInFlag = 0 Then If CoinInFlag = 0 Then
VendingQR OFF VendingQR OFF
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Open "ROOT/taobin_project/xml/page_catalog.xml" Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf EndIf
@ -1360,6 +1373,12 @@
<State> cart1_en </State> <State> cart1_en </State>
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename> <Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
<EventClick> <EventClick>
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Cart "DeleteMenuID" 1 Cart "DeleteMenuID" 1
</EventClick> </EventClick>
@ -1399,6 +1418,12 @@
<State> cart2_en </State> <State> cart2_en </State>
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename> <Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
<EventClick> <EventClick>
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Cart "DeleteMenuID" 2 Cart "DeleteMenuID" 2
</EventClick> </EventClick>
</Button> </Button>
@ -1438,6 +1463,12 @@
<State> cart3_en </State> <State> cart3_en </State>
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename> <Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
<EventClick> <EventClick>
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Cart "DeleteMenuID" 3 Cart "DeleteMenuID" 3
</EventClick> </EventClick>

View file

@ -35,14 +35,17 @@
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.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 show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var BottomText = PicturePath + "text_bottom_eng.png"
Else Else
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png" Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.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 show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var BottomText = PicturePath + "text_bottom_thai2.png"
EndIf EndIf
DEBUGVAR StarwState DEBUGVAR StarwState
DEBUGVAR LidState DEBUGVAR LidState
DEBUGVAR BottomText
If StarwState = "Press" Then If StarwState = "Press" Then
Machine StrawWithDelay Machine StrawWithDelay
@ -60,7 +63,6 @@
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>

View file

@ -30,15 +30,19 @@
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png" 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_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var BottomText = PicturePath + "text_bottom_eng.png"
Else Else
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png" Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.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 show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var BottomText = PicturePath + "text_bottom_thai2.png"
EndIf EndIf
DEBUGVAR StarwState DEBUGVAR StarwState
DEBUGVAR LidState DEBUGVAR LidState
DEBUGVAR BottomText
If StarwState = "Press" Then If StarwState = "Press" Then
Machine StrawWithDelay Machine StrawWithDelay

View file

@ -95,8 +95,8 @@
Var RandomPromotionMyworld = 0 Var RandomPromotionMyworld = 0
Var RandomSalePackage = 0 Var RandomSalePackage = 0
Var XMLPageVersion = "5.83" Var XMLPageVersion = "5.84"
Var XMLPageVersionInt = 583 Var XMLPageVersionInt = 584
</EventOpen> </EventOpen>
<Text> <Text>