Merge branch 'master' of ssh://forthrd.ddns.net:2222/1TBHDD/ikong/taobin_project

This commit is contained in:
kong 2022-02-24 13:40:07 +07:00
commit 0e5944c025
9 changed files with 124 additions and 12 deletions

View file

@ -9,6 +9,9 @@
DEBUGVAR MachineStage DEBUGVAR MachineStage
Var StrawStateX = "Enable"
Var LidStateX = "Enable"
If CART_COUNT >= 1 Then If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_brewing3Multi.xml" Open "ROOT/taobin_project/xml/page_brewing3Multi.xml"
@ -120,7 +123,7 @@
Var PointCrm = "pdpa1" Var PointCrm = "pdpa1"
EndIf EndIf
Var GetScore = VendingTSID Var GetScore = VendingTSID
If TaobinErrorNetwork = 0 Then If Seeker.TaobinErrorNetwork = 0 Then
Var Cid = 11 Var Cid = 11
Var AddData = 1 Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore ;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
@ -1065,5 +1068,100 @@
</EventClick> </EventClick>
</Button> </Button>
;<Button>
;<X> 10 </X>
;<Y> 500 </Y>
;<State>"Enable"</State>
;<Filename> bg_strawlid </Filename>
;<EventClick>
;
;</EventClick>
;</Button>
;
;
;; straw left
;<Button>
;<X> 50 </X>
;<Y> 572 </Y>
;<State> StrawStateX </State>
;<Mode> "No" </Mode>
;<Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename>
;<FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress>
;<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable>
;<EventClick>
; SAVELOG "Click straw cb"
; If StrawStateX = "Press" Then
; ;Var StrawStateX = "Enable"
; Else
; Var StrawStateX = "Press"
; EndIf
; Refresh
;</EventClick>
;</Button>
;
;<Button>
;<X> 377 </X>
;<Y> 579 </Y>
;<State> StrawStateX </State>
;<Mode> "No" </Mode>
;<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
;<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
;<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
;<EventClick>
; SAVELOG "Click straw cb"
; If StrawStateX = "Press" Then
; ;Var StrawStateX = "Enable"
; Else
; Var StrawStateX = "Press"
; EndIf
; Refresh
;</EventClick>
;</Button>
;
;
;
;; LID left
;<Button>
;<X> 50 </X>
;<Y> 648 </Y>
;<State> LidStateX </State>
;<Mode> "No" </Mode>
;<Filename> "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename>
;<FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress>
;<FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable>
;<EventClick>
; SAVELOG "Click LID pic"
; If LidStateX = "Press" Then
; ;Var LidStateX = "Enable"
; Else
; Var LidStateX = "Press"
; EndIf
;
;
; DEBUGVAR SugarState1
; Refresh
;
;</EventClick>
;</Button>
;
;<Button>
;<X> 377 </X>
;<Y> 655 </Y>
;<State> LidStateX </State>
;<Mode> "No" </Mode>
;<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
;<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
;<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
;<EventClick>
; SAVELOG "Click LID cb"
; If LidStateX = "Press" Then
; ;Var LidStateX = "Enable"
; Else
; Var LidStateX = "Press"
; EndIf
; Refresh
;</EventClick>
;</Button>
</Popup> </Popup>

View file

@ -64,7 +64,7 @@
Var PointCrm = "pdpa1" Var PointCrm = "pdpa1"
EndIf EndIf
Var GetScore = VendingTSIDTmp1 Var GetScore = VendingTSIDTmp1
If TaobinErrorNetwork = 0 Then If Seeker.TaobinErrorNetwork = 0 Then
Var Cid = 11 Var Cid = 11
Var AddData = 1 Var AddData = 1
AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore

View file

@ -145,7 +145,7 @@
If AddPointFlag = 0 Then If AddPointFlag = 0 Then
Var AddPointFlag = 1 Var AddPointFlag = 1
If TaobinErrorNetwork = 0 Then If Seeker.TaobinErrorNetwork = 0 Then
AddData 11 Seeker.TNumberTaobinMember BmiYear PointCrm GetScore AddData 11 Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
Else Else
Var PointCrm = "" Var PointCrm = ""

View file

@ -18,10 +18,10 @@
Var TaobinLevel = 0 Var TaobinLevel = 0
Var TaobinErrorNetwork = 0 Var Seeker.TaobinErrorNetwork = 0
If PayOfflineMode = 1 Then If PayOfflineMode = 1 Then
Var TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.TNumberTaobinMember= TelephoneNumber Var Seeker.TNumberTaobinMember= TelephoneNumber
@ -46,7 +46,7 @@
Var TaobinLevel = 0 Var TaobinLevel = 0
Var CoffeePoint = 1 Var CoffeePoint = 1
Var TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
If TelephoneNumber = "" Then If TelephoneNumber = "" Then
@ -89,7 +89,7 @@
If Ext1a = "" Then If Ext1a = "" Then
;Var CoffeePoint = 1 ;Var CoffeePoint = 1
;Var Seeker.TNumberTaobinMember = TelephoneNumber ;Var Seeker.TNumberTaobinMember = TelephoneNumber
Var TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TNumberTaobinMember = TelephoneNumber
@ -129,7 +129,13 @@
Var CoffeePoint = PointTaobin + CoffeePoint1 Var CoffeePoint = PointTaobin + CoffeePoint1
Var CoffeePointOld = CoffeePoint1 Var CoffeePointOld = CoffeePoint1
Var CoffeePointRank = CoffeePointRank + PointTaobin
If TaobinLevel = 1 Then
Var CoffeePointRank = CoffeePointRank + 0
Else
Var CoffeePointRank = CoffeePointRank + PointTaobin
EndIf
Var CoffeePointRankTmp = CoffeePointRank Var CoffeePointRankTmp = CoffeePointRank
Open "ROOT/taobin_project/xml/page_collect_point_3.xml" Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
@ -137,7 +143,7 @@
Else Else
;Var CoffeePoint = 1 ;Var CoffeePoint = 1
;Var Seeker.TNumberTaobinMember = TelephoneNumber ;Var Seeker.TNumberTaobinMember = TelephoneNumber
Var TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TNumberTaobinMember = TelephoneNumber
@ -159,7 +165,7 @@
Open "ROOT/taobin_project/xml/page_show_consent.xml" Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else Else
;Var CoffeePoint = 1 ;Var CoffeePoint = 1
Var TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.TNumberTaobinMember= TelephoneNumber Var Seeker.TNumberTaobinMember= TelephoneNumber

View file

@ -136,6 +136,8 @@
Var SuggestID = "" Var SuggestID = ""
Var SessionID2 = Var SessionID2 =
DEBUGVAR CART2_PRICE
Var ServiceAmount2 = CART2_PRICE Var ServiceAmount2 = CART2_PRICE
Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2 Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2
@ -178,6 +180,8 @@
Var SuggestID = "" Var SuggestID = ""
Var SessionID2 = Var SessionID2 =
DEBUGVAR CART3_PRICE
Var ServiceAmount2 = CART3_PRICE Var ServiceAmount2 = CART3_PRICE
Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2 Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2

View file

@ -33,6 +33,8 @@
Var CountStepPackPayment = 0 Var CountStepPackPayment = 0
Var Seeker.TaobinErrorNetwork = 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

View file

@ -777,7 +777,7 @@
<Button> <Button>
<X> 286 </X> <X> 397 </X>
<Y> 1607 </Y> <Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename> <Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress> <FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>

View file

@ -147,6 +147,8 @@
Var CountStepPackPayment = 0 Var CountStepPackPayment = 0
Var Seeker.TaobinErrorNetwork = 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

View file

@ -567,7 +567,7 @@
<Button> <Button>
<X> 286 </X> <X> 397 </X>
<Y> 1607 </Y> <Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename> <Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress> <FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>