Componente Néfele para tablas

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

Este debate tiene 3 respuestas, 2 mensajes y ha sido actualizado por última vez el 4 años, 2 meses por Alfredo Sanz. This post has been viewed 677 times

Mostrando 3 respuestas a los debates

Autor

Entradas

17-09-2020 a las 11:26 #707

quim
Participante

Buenos dias

Revisando documentación del Wiki, no encuentro un componente para usar tablas

Es la típica table>th>td de HTML, lo más parecido es wListView pero se basa en ul>li de HTML

Supongo que estará previso, pero me gustaría poder utilizar pronto.

Saludos
17-09-2020 a las 15:30 #713

quim
Participante

Buenas tardes

Se me había pasado por alto ... es wArrayBrowse, una buena base para empezar

Saludos
17-09-2020 a las 16:22 #714
quim
Participante
Buenas tardes

Tabla 'nefelizada' (me va gustando el nombrecito ) con el componente wArrayBrowse y funcionalidad de botones activada, la verdad es que la velocidad de desarrollo es espectacular 😎

Saludos
- Esta respuesta fue modificada 4 años, 2 meses por quim.
- Esta respuesta fue modificada 4 años, 2 meses por quim.

17-09-2020 a las 16:25 #717

Alfredo Sanz

Superadministrador

Sí, está prácticamente terminada.

Antes de meterme con un datatables o similares, quería currarme una tabla "a pelo"

  WITH OBJECT oSQL:=SqlSourceConnect("appgestion")
      aConsulta := :QueryArray("SELECT Codigo, BIC, NOMBRE, 'icon:remove_red_eye' FROM bancos WHERE BIC<>'NIL'")
   END WITH

   WITH OBJECT oPageWeb := TWebPage():New()
   
      WITH OBJECT oPanel := WPanel():New(oPageWeb)
         :cTitle := "Consulta Tabla de Bancos"
         
         WITH OBJECT WArrayBrowse():New(oPanel)
            :cId         := "Bancos"
            
            WITH OBJECT :AddCol("Código") AS wItemColBrowse
               :nWidth := 5
            END WITH
            
            WITH OBJECT :AddCol("BIC",xc_Left,xc_Left) AS WItemColBrowse
               :lBold  := .T.
               :nWidth := 20
               :oStyle:cFont_size := 12
            END WITH
            
            WITH OBJECT :AddCol("Entidad",xc_Left,xc_Left)
               :nWidth = 70
            END
            
            WITH OBJECT :AddCol( "", xc_Center, xc_Center )
               :cCursor    := "pointer"
               :nWidth     := 1
               :cClrText   := "blue"
               :cOnClick   := "#alert('Has seleccionado el banco: \r'+this.parentNode.querySelector('#bancos_col3').innerText)"
               :oStyle:cMargin := "auto"
            END      
            
            :aItems :=AsciiHTML(aConsulta)
            
            :Create() 
         END WITH
         
         :Create()
      END WITH
      
      cHtml := :Create()
   END WITH

   oCgi:SendPage(cHtml)

RETURN

WITH OBJECT oSQL:=SqlSourceConnect("appgestion")

aConsulta := :QueryArray("SELECT Codigo, BIC, NOMBRE, 'icon:remove_red_eye' FROM bancos WHERE BIC<>'NIL'")

END WITH

WITH OBJECT oPageWeb := TWebPage():New()

WITH OBJECT oPanel := WPanel():New(oPageWeb)

:cTitle := "Consulta Tabla de Bancos"

WITH OBJECT WArrayBrowse():New(oPanel)

:cId := "Bancos"

WITH OBJECT :AddCol("Código") AS wItemColBrowse

:nWidth := 5

END WITH

WITH OBJECT :AddCol("BIC",xc_Left,xc_Left) AS WItemColBrowse

:lBold := .T.

:nWidth := 20

:oStyle:cFont_size := 12

END WITH

WITH OBJECT :AddCol("Entidad",xc_Left,xc_Left)

:nWidth = 70

END

WITH OBJECT :AddCol( "", xc_Center, xc_Center )

:cCursor := "pointer"

:nWidth := 1

:cClrText := "blue"

:cOnClick := "#alert('Has seleccionado el banco: \r'+this.parentNode.querySelector('#bancos_col3').innerText)"

:oStyle:cMargin := "auto"

END

:aItems :=AsciiHTML(aConsulta)

:Create()

END WITH

:Create()

END WITH

cHtml := :Create()

END WITH

oCgi:SendPage(cHtml)

RETURN

y lo cierto es que se pueden hacer cosas bastante chulas

https://fractality.ddns.net:44444/xacgi?mariadb2

Autor

Entradas

Mostrando 3 respuestas a los debates

Debes estar registrado para responder a este debate.