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

add xendit and debug telnum

Browse source
This commit is contained in:
miggaze 2022-09-19 11:48:38 +07:00
parent 4232f8669e
commit 49a688cb9f
18 changed files with 406 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

155
xml/page_collect_point_1.xml
View file

@ -8,6 +8,8 @@
<EventOpen>
; On open
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var ShowTextNumber = "Enable"
Var Timeout = 0
@ -69,7 +71,7 @@
If web_telnumOK = "" Then
Else
Var TelephoneNumber = web_telnumOK
Var StepGetPoint = 0
Var StepGetPoint = 1
Var PdpaAsk = 0
@ -82,7 +84,11 @@
Var TelephoneNumberX = TelephoneNumber
GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
DEBUGVAR TelephoneNumber
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
@ -101,6 +107,7 @@
SAVELOG "collect_point1-p71."
Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
@ -146,6 +153,7 @@
If Timeout > 30 Then
SAVELOG "collect_point1-p107."
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@ -204,6 +212,12 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "1"
EndIf
@ -245,6 +259,12 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "2"
EndIf
@ -284,6 +304,12 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "3"
EndIf
@ -323,6 +349,12 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "4"
EndIf
@ -362,6 +394,12 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "5"
EndIf
@ -401,6 +439,12 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "6"
EndIf
@ -440,6 +484,12 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "7"
EndIf
@ -479,6 +529,12 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "8"
EndIf
@ -518,6 +574,12 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
If TelNumLen = 7 Then
Var number7 = "9"
EndIf
@ -557,6 +619,7 @@
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
Var ShowTextNumber = "Invisible"
TimerReset
@ -627,6 +690,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
;Open "ROOT/taobin_project/xml/page_catalog.xml"
SAVELOG "collect_point1-p589."
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
@ -644,26 +708,77 @@
<Volume> SoundVolume </Volume>
<EventClick>
If Tel_Confirm_Flag = 1 Then
Var StepGetPoint = 1
Var PdpaAsk = 0
Var Tel2DFlag = 0
Var Tel2D = TelephoneNumber
Trim Tel2D 2
If Tel2D = "06" Then
Var Tel2DFlag = 1
EndIf
If Tel2D = "07" Then
Var Tel2DFlag = 1
EndIf
If Tel2D = "08" Then
Var Tel2DFlag = 1
EndIf
If Tel2D = "09" Then
Var Tel2DFlag = 1
EndIf
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
Var AccountType = ""
SAVELOG "collect_point1-p583."
Var TelephoneNumberX = TelephoneNumber
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
If Tel2DFlag = 1 Then
Var StepGetPoint = 1
Var PdpaAsk = 0
Var OperatorTemp = ""
Var CreditAmount = 0
Var OperatorStatus = ""
Var AccountType = ""
SAVELOG "collect_point1-p583."
Var TelephoneNumberX = TelephoneNumber
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
DEBUGVAR TelephoneNumber
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
If Seeker = "next" Then
Else
GETACCEXT Param1 23
EndIf
;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
If show_eng = "true" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage2 = "ROOT/taobin_project/image/collectiing"
EndIf
Var text_show_error = DirImage2 + "/text_show_error5.png"
Var ShowErrorText = "Enable"
;Var TelephoneNumber = ""
Var Tel_Confirm_State = "Invisible"
Refresh
EndIf
EndIf
</EventClick>
@ -723,6 +838,14 @@
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
<Image>
<X> 152 </X>
<Y> 955 </Y>
<State> ShowErrorText </State>
<Filename> text_show_error </Filename>
</Image>