Componente Tabs - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

Etiquetado: tabs

Este debate tiene 2 respuestas, 2 mensajes y ha sido actualizado por última vez el 3 años, 6 meses por Eduardo Trasviña. This post has been viewed 523 times

Mostrando 2 respuestas a los debates

Autor

Entradas

13-10-2020 a las 19:39 #1151

Eduardo Trasviña

Participante

Hola equipo Nefele.

Leyendo el archivo ChangeLog.txt vi con gusto que en la Rev 3 se incorporo el componente Tabs, me di a la tarea de probarlo, prepare un pequeño proyecto para este cometido y al compilar me envia el mensaje C:/Aplica/Nefele/Para_envio/Obj/MainPage.do:MainPage.c:(.data+0x138): undefined reference to `HB_FUN_WTABS', aclaro que solo utilizo la libreria NefeleProject, las librerias anteriores ya las desactive.

No obstante que este al parecer es un problema de libreria que no me dejo realizar la prueba completa, aprovecho y envio el codigo que utilice para que me ayuden a corregir mis errores que sin duda los habra.

De antemano gracias por su tiempo.

PROCEDURE MainPage()

   // Comenzamos instanciando la Página Web que queremos crear
   With Object TWebPage():New()
      :lValign          := .f.
      :lContainer       := .f.
      :lAlerts          := .f.

      WITH object WPanel():New(:WO)
         :cTitle                := "Clientes"
         :aWidth[ _grande ]     := 10
         :aOffset[ _grande ]    := 1
         :oStyle:cPadding       := 0
         :oStyle:cBorder_radius := "10px"

         WITH OBJECT WForm():New( :WO )
            :cId       := "forma_clientes"
            :cFunction := "#alert('Saliendo')"

            WITH OBJECT wTabs():New( :WO )
               :cId           := "tabs_captura"

               :additem("primero"  , "bevel_uno")
               :additem("segundo"  , "bevel_dos")
               :additem("tercero"  , "bevel_tres")

               :Create()

            end with

            WITH OBJECT WBevel():New(:WO)
               :cId       := "bevel_uno"
               :nStyle    := xc_Row

               WITH object WEdit():New( :WO )
                  :cId                := "cliente"
                  :cHint              := "."
                  :cTitle             := "cliente"
                  :nLength            := 4
                  :Create()
               END WITH

               WITH object WEdit():New( :WO )
                  :cId                := "nombre"
                  :cHint              := "."
                  :cTitle             := "Nombre"
                  :nLength            := 50
                  :Create()
               END WITH

               :Create()
            END WITH

            WITH OBJECT WBevel():New(:WO)
               :cId       := "bevel_dos"
               :nStyle    := xc_Row

               WITH object WEdit():New( :WO )
                  :cId                := "direccion"
                  :cHint              := "."
                  :cTitle             := "Direccion"
                  :nLength            := 40
                  :Create()
               END WITH

               WITH object WEdit():New( :WO )
                  :cId                := "ciudad"
                  :cHint              := "."
                  :cTitle             := "Ciudad"
                  :nLength            := 40
                  :Create()
               END WITH

               :Create()
            END WITH

            WITH OBJECT WBevel():New(:WO)
               :cId       := "bevel_tres"
               :nStyle    := xc_Row

               WITH object WEdit():New( :WO )
                  :cId                := "empresa"
                  :cHint              := "."
                  :cTitle             := "Empresa"
                  :nLength            := 40
                  :Create()
               END WITH

               WITH object WEdit():New( :WO )
                  :cId                := "puesto"
                  :cHint              := "."
                  :cTitle             := "Puesto"
                  :nLength            := 40
                  :Create()
               END WITH

               :Create()
            END WITH

            WITH object WButton():New(:WO)
               :cText                    := "Nuevo Cliente"
               :cIcon                    := "addbox"
               :lLarge                   := .T.
               :lSubmit                  := .T.
               :nFix                     := "100%"
               :cOnClick                 := "#alert('Enviando')"
               :Create()
            END

            :Create()

         END WITH   // Form

         :Create()

      END WITH   // Listview principal

      oCgi:SendPage( :Create() )        // Se crea el HTML final y se envía al navegador saliendo del ejecutable CGI

   End With

RETURN

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

PROCEDURE MainPage()

// Comenzamos instanciando la Página Web que queremos crear

With Object TWebPage():New()

:lValign := .f.

:lContainer := .f.

:lAlerts := .f.

WITH object WPanel():New(:WO)

:cTitle := "Clientes"

:aWidth[ _grande ] := 10

:aOffset[ _grande ] := 1

:oStyle:cPadding := 0

:oStyle:cBorder_radius := "10px"

WITH OBJECT WForm():New( :WO )

:cId := "forma_clientes"

:cFunction := "#alert('Saliendo')"

WITH OBJECT wTabs():New( :WO )

:cId := "tabs_captura"

:additem("primero" , "bevel_uno")

:additem("segundo" , "bevel_dos")

:additem("tercero" , "bevel_tres")

:Create()

end with

WITH OBJECT WBevel():New(:WO)

:cId := "bevel_uno"

:nStyle := xc_Row

WITH object WEdit():New( :WO )

:cId := "cliente"

:cHint := "."

:cTitle := "cliente"

:nLength := 4

:Create()

END WITH

WITH object WEdit():New( :WO )

:cId := "nombre"

:cHint := "."

:cTitle := "Nombre"

:nLength := 50

:Create()

END WITH

:Create()

END WITH

WITH OBJECT WBevel():New(:WO)

:cId := "bevel_dos"

:nStyle := xc_Row

WITH object WEdit():New( :WO )

:cId := "direccion"

:cHint := "."

:cTitle := "Direccion"

:nLength := 40

:Create()

END WITH

WITH object WEdit():New( :WO )

:cId := "ciudad"

:cHint := "."

:cTitle := "Ciudad"

:nLength := 40

:Create()

END WITH

:Create()

END WITH

WITH OBJECT WBevel():New(:WO)

:cId := "bevel_tres"

:nStyle := xc_Row

WITH object WEdit():New( :WO )

:cId := "empresa"

:cHint := "."

:cTitle := "Empresa"

:nLength := 40

:Create()

END WITH

WITH object WEdit():New( :WO )

:cId := "puesto"

:cHint := "."

:cTitle := "Puesto"

:nLength := 40

:Create()

END WITH

:Create()

END WITH

WITH object WButton():New(:WO)

:cText := "Nuevo Cliente"

:cIcon := "addbox"

:lLarge := .T.

:lSubmit := .T.

:nFix := "100%"

:cOnClick := "#alert('Enviando')"

:Create()

END

:Create()

END WITH // Form

:Create()

END WITH // Listview principal

oCgi:SendPage( :Create() ) // Se crea el HTML final y se envía al navegador saliendo del ejecutable CGI

End With

RETURN

13-10-2020 a las 20:13 #1155

Alfredo Sanz
Superadministrador

Al final del todo, en la línea 123 prueba a poner

class WTabs FROM ZTabs
ENDCLASS

Voy a revisarlo, pero creo que nos dejamos por definir la wTabs
13-10-2020 a las 21:41 #1156

Eduardo Trasviña
Participante

Listo! Gracias Alfredo, funciona a la perfeccion, ya lo probe en mi proyecto real y anda de maravilla!.

Ahora a dar unos toques de color y otras menudencias, pero eso ya esta de mi lado, algo tengo que hacer yo jeje.

Como siempre, las respuestas precisas y cordiales, no cambien equipo Nefele. 🙂

Saludos!!

Autor

Entradas

Mostrando 2 respuestas a los debates

Debes estar registrado para responder a este debate.