fix bug collect poing after use multi

This commit is contained in:
miggaze 2021-11-16 12:54:23 +07:00
parent 200cb7e771
commit ade4abc056
4 changed files with 37 additions and 12 deletions

View file

@ -21,7 +21,10 @@
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
EndIf EndIf
SAVELOG "collect_point1"
SAVELOG TNumberTaobinCredit
SAVELOG TelephoneNumber
SAVELOG "collect_point1_"
Var FromConsent = 0 Var FromConsent = 0
@ -42,11 +45,16 @@
Var CreditAmount = 0 Var CreditAmount = 0
Var OperatorStatus = "" Var OperatorStatus = ""
Var AccountType = "" Var AccountType = ""
SAVELOG "collect_point1-p49."
GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf EndIf
Var Tel_Confirm_Flag = 1
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
@ -565,16 +573,23 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var StepGetPoint = 0
Var PdpaAsk = 0 If Tel_Confirm_Flag = 1 Then
Var StepGetPoint = 0
Var OperatorTemp = ""
Var CreditAmount = 0 Var PdpaAsk = 0
Var OperatorStatus = ""
Var AccountType = "" Var OperatorTemp = ""
GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc Var CreditAmount = 0
Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Var OperatorStatus = ""
Var AccountType = ""
SAVELOG "collect_point1-p583."
GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
</EventClick> </EventClick>
</Button> </Button>

View file

@ -50,6 +50,7 @@
Var TNumberTaobinMember = "" Var TNumberTaobinMember = ""
Var VendingTSIDTmp = "" Var VendingTSIDTmp = ""
Var PayType = "" Var PayType = ""
Var CART_INDEX = 0
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"

View file

@ -43,6 +43,7 @@
Var cart3_en = "Invisible" Var cart3_en = "Invisible"
Var PriceDrink = 0 Var PriceDrink = 0
Var CART_INDEX = 0

View file

@ -27,6 +27,8 @@
Var FailedCount = 0 Var FailedCount = 0
Var ChangeAmountSum = 0 Var ChangeAmountSum = 0
Var Tel_Confirm_Flag = 0
If show_eng = "true" Then If show_eng = "true" Then
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png" Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png"
@ -50,6 +52,13 @@
Machine LidWithDelay Machine LidWithDelay
LED LedDoorLid Blink 255 255 255 255 LED LedDoorLid Blink 255 255 255 255
EndIf EndIf
DEBUGVAR TNumberTaobinCredit
DEBUGVAR TelephoneNumber
DEBUGVAR StoreCreditFlag
</EventOpen> </EventOpen>
@ -112,8 +121,7 @@
; run test; ; run test;
If CountDownThankyou = 0 Then If CountDownThankyou = 0 Then
;Open "ROOT/taobin_project/xml/page_lid_straw.xml"
;Open "ROOT/taobin_project/xml/page_brewing.xml"
If IgnoreNetCore = "true" Then If IgnoreNetCore = "true" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf