pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

...

Browse source
This commit is contained in:
miggaze 2023-07-20 19:54:03 +07:00
parent e959c4385c
commit cbd8efbca3
6 changed files with 133 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

6
xml/page_brewing3.xml
View file

@ -1032,11 +1032,11 @@
If Seeker.VendingCode = "MKFOO" Then If Seeker.VendingCode = "MKFOO" Then
Var Cid = 31 Var Cid = 33
Var PointCrm = "2" Var PointCrm = "0"
Var GetScore = "1" Var GetScore = "1"
Var TelephoneNumberx = "0899999999" Var TelephoneNumberx = "0899999999"
AddData Cid TelephoneNumberx Seeker.CodeNumber PointCrm GetScore AddData Cid Seeker.TNumberTaobinMember Seeker.CodeNumber PointCrm GetScore
Var Seeker.CodeChannel = 0 Var Seeker.CodeChannel = 0
EndIf EndIf

6
xml/page_brewing3Conti.xml
View file

@ -723,11 +723,11 @@
Else Else
If Seeker.VendingCode = "MKFOO" Then If Seeker.VendingCode = "MKFOO" Then
Var Cid = 31 Var Cid = 33
Var PointCrm = "2" Var PointCrm = "0"
Var GetScore = "1" Var GetScore = "1"
Var TelephoneNumberx = "0899999999" Var TelephoneNumberx = "0899999999"
AddData Cid TelephoneNumberx Seeker.CodeNumber PointCrm GetScore AddData Cid Seeker.TNumberTaobinMember Seeker.CodeNumber PointCrm GetScore
Var Seeker.CodeChannel = 0 Var Seeker.CodeChannel = 0
EndIf EndIf

10
xml/page_collect_point_2.xml
View file

@ -118,6 +118,8 @@
Var TaobinLevel = Ext1e Var TaobinLevel = Ext1e
Var TaobinPDPA = Ext1h Var TaobinPDPA = Ext1h
Var TaobinPromoX = Ext1j
DEBUGVAR TaobinPDPA DEBUGVAR TaobinPDPA
Var PointTaobinTmp = Ext1i Var PointTaobinTmp = Ext1i
@ -194,6 +196,14 @@
Open "ROOT/taobin_project/xml/page_show_consent.xml" Open "ROOT/taobin_project/xml/page_show_consent.xml"
EndIf EndIf
If TaobinPromoX = "p2.no_otp" Then
Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml"
EndIf
If TaobinPromoX = "p2.unused" Then
Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml"
EndIf
Open "ROOT/taobin_project/xml/page_collect_point_3.xml" Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
Else Else

104
xml/page_identityMember_number.xml
View file

@ -22,11 +22,13 @@
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_en" Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_en/page_payment"
;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" ;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else Else
Var DirImage = "ROOT/taobin_project/image/collect_point1" Var DirImage = "ROOT/taobin_project/image/collect_point1"
Var DirImage2 = "ROOT/taobin_project/image/page_payment"
;Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" ;Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png" Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
@ -34,7 +36,7 @@
Var FailState = "Invisible"
Var Tel_Confirm_Flag = 1 Var Tel_Confirm_Flag = 1
@ -49,6 +51,10 @@
Var MaxNumber = 12 Var MaxNumber = 12
EndIf EndIf
Var StepGetServer = 0
var OtpCode = ""
Var failTime = 0
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
@ -65,16 +71,84 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 30 Then If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_catalog2.xml" Open "ROOT/taobin_project/xml/page_catalog2.xml"
EndIf EndIf
If FailState = "Enable" Then
Var failTime = failTime + 1
If failTime >= 3 Then
Var failTime = 0
Var FailState = "Invisible"
Var TelephoneNumber = ""
Var Tel_Confirm_State = "Invisible"
Var Timeout = 0
EndIf
EndIf
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventActionOk>
DEBUGVAR Ext1a
DEBUGVAR Ext1b
DEBUGVAR Ext1c
If StepGetServer = 1 Then
Var LineST = Ext1a
Var ProST = Ext1b
Var OtpCode = Ext1c
If LineST = "found_line" Then
If ProST = "p2.unused" Then
Open "ROOT/taobin_project/xml/page_identityMember_otp.xml"
EndIf
If ProST = "p2.used" Then
Var load_gif_stage = "Invisible"
Var FailState = "Enable"
Var img_popup16 = "/img_popup16-2.png"
EndIf
If ProST = "p2.no_otp" Then
Var load_gif_stage = "Invisible"
Var FailState = "Enable"
Var img_popup16 = "/img_popup16-1.png"
EndIf
If ProST = "p2.error" Then
Var load_gif_stage = "Invisible"
Var FailState = "Enable"
Var img_popup16 = "/img_popup16-1.png"
EndIf
Else
Var load_gif_stage = "Invisible"
Var FailState = "Enable"
Var img_popup16 = "/img_popup16-1.png"
EndIf
Refresh
EndIf
</EventActionOk>
<EventActionError>
</EventActionError>
<Image> <Image>
@ -432,7 +506,14 @@
If Tel2DFlag = 1 Then If Tel2DFlag = 1 Then
Open "ROOT/taobin_project/xml/page_identityMember_consent.xml" ;Open "ROOT/taobin_project/xml/page_identityMember_consent.xml"
Var Param1 = TelephoneNumber
GETACCEXT Param1 29
Var StepGetServer = 1
Else Else
If show_eng = "true" Then If show_eng = "true" Then
@ -479,6 +560,23 @@
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> FailState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> FailState </State>
<Filename> Var( DirImage2 + img_popup16 )</Filename>
</Image>
<Video> <Video>
<X> 0 </X> <X> 0 </X>
<Y> 0 </Y> <Y> 0 </Y>

30
xml/page_identityMember_verification.xml
View file

@ -80,6 +80,10 @@
Var IDNumx = "2640100003053" Var IDNumx = "2640100003053"
;AddData Cid TelephoneNumber IDNumx PointCrm GetScore ;AddData Cid TelephoneNumber IDNumx PointCrm GetScore
DEBUGVAR TelephoneNumber
Var TelNumPromotion = TelephoneNumber
</EventOpen> </EventOpen>
<EventActionOk> <EventActionOk>
@ -91,6 +95,11 @@
If Ext1a = "ok" Then If Ext1a = "ok" Then
Var ChildrenFree = 1 Var ChildrenFree = 1
Var Cid = 33
Var PointCrm = "1"
Var GetScore = "1"
AddData Cid TelNumPromotion IDNum PointCrm GetScore
Open "ROOT/taobin_project/xml/page_payment.xml" Open "ROOT/taobin_project/xml/page_payment.xml"
Else Else
@ -108,28 +117,11 @@
Var errorX = 0 Var errorX = 0
If Ext1a = "invalid_mobile" Then
Var errorX = 1
EndIf
If Ext1a = "not_found" Then
Var errorX = 1
EndIf
If errorX = 1 Then
Var load_gif_stage = "Invisible" Var load_gif_stage = "Invisible"
Var FailState = "Enable" Var FailState = "Enable"
Var img_popup16 = "/img_popup16-1.png" Var img_popup16 = "/img_popup16-1.png"
Else
Var load_gif_stage = "Invisible"
Var FailState = "Enable"
Var img_popup16 = "/img_popup16-2.png"
EndIf
EndIf EndIf
Refresh Refresh
@ -236,11 +228,11 @@
Var Adult7 = 1 Var Adult7 = 1
If Adult7 = 1 Then If Adult7 = 1 Then
Var Input1 = TelephoneNumber + "/" Var Input1 = TelNumPromotion + "/"
Var Input1 = Input1 + IDNum Var Input1 = Input1 + IDNum
GETACCEXT Input1 28 GETACCEXT Input1 30
Var StepGetServer = 1 Var StepGetServer = 1
Else Else

6
xml/page_payment.xml
View file

@ -262,11 +262,7 @@
Var Seeker.CodeChannel = 1 Var Seeker.CodeChannel = 1
Var Seeker.CodeNumber = IDNum Var Seeker.CodeNumber = IDNum
Var Seeker.TNumberTaobinMember = TelNumPromotion
Var Cid = 31
Var PointCrm = "1"
Var GetScore = "1"
AddData Cid TelephoneNumber IDNum PointCrm GetScore
;If Seeker = "curr" Then ;If Seeker = "curr" Then
; ;