FutbolWebApp/WebApp.src at main · MeddinaDev/FutbolWebApp · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
Use AllWebAppClasses.pkg
Use cConnection.pkg
Use cWebMenuItem.pkg

Object oApplication is a cApplication
    Object oConnection is a cConnection
        Use LoginEncryption.pkg
    End_Object
End_Object

Object oWebApp is a cWebApp
    Set psTheme to "Df_Material"
    Set peAlignView to alignCenter

    // It is important to set this so that all views will default
    // to drill down style views.
    Set peApplicationStyle to wvsDrillDown
    Set peApplicationStateMode to asmHistoryAndUrls
    Set psEncryptPassword to "Kbgthft<3y=zhCNFQ~BR)93faZ?(1^e8bY=?k[]#"

    Object oViewStack is a cWebViewStack
    End_Object

    Procedure HideHeader
        WebSet pbRender of oHeaderPanel to False
    End_Procedure

    Procedure ShowHeader
        WebSet pbRender of oHeaderPanel to True
    End_Procedure

    Object oHeaderPanel is a cWebPanel
        Set peRegion to prTop
        Set psCSSClass to "HeaderPanel"

        Object oMenuPanel is a cWebPanel
            Set peRegion to prLeft
            Set piWidth to 50

            Object oMenuButton is a cWebMenuButton
                Set piMenuHeight to 500

                Object oDashboard_itm is a cWebMenuItem
                    Set psCaption to C_$Dashboard

                    WebRegisterPath ntNavigateBegin oDashboard

                    Procedure OnClick
                        Send NavigatePath
                    End_Procedure
                End_Object

                Object oViewMenu is a cWebMenuItem
                    Set psCaption to C_$View

                    Object oSelectEntrenadorItem1 is a cWebMenuItem
                        Set psCaption to "SelectEntrenador"

                        WebRegisterPath ntNavigateBegin oSelectEntrenador

                        Procedure OnClick
                            Forward Send OnClick
                                Send NavigatePath
                        End_Procedure
                    End_Object

                    Object oSelectJugadorItem1 is a cWebMenuItem
                        Set psCaption to "SelectJugador"

                        WebRegisterPath ntNavigateBegin oSelectJugador

                        Procedure OnClick
                            Forward Send OnClick
                                Send NavigatePath
                        End_Procedure
                    End_Object

                    Object oSelectPosicionItem1 is a cWebMenuItem
                        Set psCaption to "SelectPosicion"

                        WebRegisterPath ntNavigateBegin oSelectPosicion

                        Procedure OnClick
                            Forward Send OnClick
                                Send NavigatePath
                        End_Procedure
                    End_Object

                    Object oSelectEquipoItem1 is a cWebMenuItem
                        Set psCaption to "SelectEquipo"

                        WebRegisterPath ntNavigateBegin oSelectEquipo

                        Procedure OnClick
                            Forward Send OnClick
                                Send NavigatePath
                        End_Procedure
                    End_Object

                    Object oSelectLigaItem1 is a cWebMenuItem
                        Set psCaption to "SelectLiga"

                        WebRegisterPath ntNavigateBegin oSelectLiga

                        Procedure OnClick
                            Forward Send OnClick
                                Send NavigatePath
                        End_Procedure
                    End_Object
                End_Object

                Object oSignOut_itm is a cWebMenuItem
                    Set psCaption to C_$LogOut

                    Procedure OnClick
                        Send RequestLogOut of ghoWebSessionManager
                    End_Procedure
                End_Object
            End_Object

            Object oBackButton is a cWebButton
                Set psCSSClass to "WebBack_Icon"
                Set pbRender to False

                Procedure OnClick
                    Handle hoTop

                    Get TopViewHandle of oViewStack to hoTop
                    If (hoTop > 0) Begin
                        Send NavigateCancel of hoTop
                    End
                End_Procedure
            End_Object

            Send AddClient of oViewStack Self

            Procedure OnUpdateViewStack
                Handle hoTop hoDflt
                Integer eMode
                Boolean bTop

                WebGet peMode of (Owner(Self)) to eMode

                Get TopViewHandle of oViewStack to hoTop
                Get GetDefaultView to hoDflt
                Move (hoTop=0 or hoTop=hoDflt) to bTop

                WebSet pbRender of oBackButton to (not(bTop) and eMode >= rmMobile)
                WebSet pbRender of oMenuButton to (bTop or eMode < rmMobile)
            End_Procedure

        End_Object

        Object oCaptionPanel is a cWebPanel
            Set piColumnCount to 12

            Object oCaptionBreadcrumb is a cWebBreadcrumb
                Set peBreadcrumbStyle to crumbCaption
                WebSetResponsive peBreadcrumbStyle rmMobile to crumbDropDown
            End_Object
        End_Object

        Object oActionPanel is a cWebPanel
            Set peRegion to prRight
            Set piColumnCount to 1
            Set piWidth to 120

            Object oMainActions is a cWebActionBar
                Set psGroupName to "MainActions"

                Set piColumnSpan to 0
                Set peAlign to alignRight
            End_Object
        End_Object

        Object oBreadcrumbPanel is a cWebPanel
            Set peRegion to prBottom

            Object oHorizontalBreadcrumb is a cWebBreadcrumb
                WebSetResponsive pbRender rmMobile to False
            End_Object
        End_Object

    End_Object

    Use SessionManager.wo
    Use Login.wo
    Use WebResourceManager.wo

    Use Dashboard.wo
    Use SelectEntrenador.wo
    Use ZoomEntrenador.wo
    Use SelectJugador.wo
    Use SelectPosicion.wo
    Use SelectEquipo.wo
    Use SelectLiga.wo
    Use ZoomJugador.wo
    Use ZoomPosicion.wo
    Use ZoomEquipo.wo
    Use ZoomLiga.wo
    Set phoDefaultView to oDashboard

End_Object

Send StartWebApp of oWebApp