Nuevo Ejemplo wArrayBrowse - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Este debate tiene 1 respuesta, 2 mensajes y ha sido actualizado por última vez el 3 años, 10 meses por Xevi. This post has been viewed 901 times

Mostrando 1 respuesta al debate

Autor

Entradas

30-12-2020 a las 15:19 #1671

Alfredo Sanz

Superadministrador

Seguimos incorporando funcionalidades nuevas al wArrayBrowse, ahora con posibilidad de filtros por columnas.

#include "Xailer.ch"
#include "Nefele.ch"

FUNCTION BcoSort( )
LOCAL oPageWeb
LOCAL cHtml
LOCAL oBrowse, n
LOCAL aConsulta

   // Instanciamos la Pagina Web que queremos crear
   WITH OBJECT oPageWeb := TWebPage():New()

      AppMenu( oPageWeb, "Browses", .T. )
      :aBreadCrumbs  := {{GetEnv("SCRIPT_NAME"),"&#x1f3e0;"},{GetEnv("SCRIPT_NAME")+ "?MenuBrowse","&#x1F4D3;"},"Bancos SqLite Sort"}

      :lValign      := .f.
      :lContainer   := .f.

      :cCSS         += "#bancos > thead > tr   {      BORDER-BOTTOM: NONE; }"  // Css adicional
      :cCSS         += "td, th   {  padding: 4px 3px;  }"  // Css adicional

      WITH OBJECT WStyle():New(:WO)      // definimos estilo para ...
         :cId   := "#bancos_col3"       // bancos_col3 (entidad)
         WITH OBJECT :AddMedia()        // nueva mediaquery css
            :cMaxWidth     := "600px"    // Hasta 600 px
            WITH OBJECT :oStyle
               :cFont_size := 11       // Tamaño letra
            END
         END
         :Create()
      END

      WITH OBJECT  WPanel():New( oPageWeb )    // Añadimos un panel para meter el ListView
         :cTitle := "Consulta Tabla de Bancos"
         :oStyle:cPadding  := "0px"
         :aWidth := {12,10}
         :aOffset:= { 0, 1}

         WITH OBJECT WEdit():New( :WO )
            :cId            := "buscar"
            :cIcon          := "search"
            :SetSearch()
            :aWidth [ _movil  ] := 12
            :aOffset[ _tablet ] := 0
            :aWidth [ _tablet ] := 5
            :aOffset[ _monitor] := 7
            :aWidth [ _monitor] := 5
            :Create()
         END WITH

         WITH OBJECT oBrowse := WArrayBrowse():New( :WO )  // Su padre es el panel
            :cId          := "Bancos"              // Id asignado al browse
            :nStyle       := xc_Striped  + xc_Highlight          // Tipo pijama +  iluminas seleccionado
            :cCursor      := "pointer"
            :cOnClick     := "VisParam"           // Este onCli y cCursor se aplica  a todas las columnas


            :cClrHeadText := "red"             // Color de la cabecera
            :nIndexValue  := 1                 // Campo clave la columna 1

            ** ORDENACION POR COLUMNAS
            :lSort        := .t.        // Activamos ordenación de columnas
            ** BUSQUEDA POR COLUMNAS
            :lSearch      := .t.        // Activamos búsquedas
            :cSearchTxt   := "Buscar"   // Texto a mostrar en las cajas de búsqueda de columna
            :cSearchId    := "Buscar"   // cId del edit externo de búsqueda
            ** ACTIVAR SCROLL DEL BROWSE
            :lScroll      := .t.        // Activamos scroll
            :cHeight      := "58vh"     // Altura del browse

            // Añadimos Columnas
            WITH OBJECT :AddCol( "Cod" ) AS WItemColBrowse  //por defecto, cabecera centrada y texto a la izquierda
               :cCursor  := "help"
               :nWidth   := "10px"
            END WITH

            WITH OBJECT :AddCol( "BIC", xc_Left, xc_Left) AS WItemColBrowse
               :nWidth   := "15px"                  // anchura en % respecto al total de la tabla
               :cClass   := "hide-on-small-only"    // en móvil, la ocultamos. https://materializecss.com/helpers.html#hiding
           END WITH

            WITH OBJECT :AddCol( "Entidad", xc_Left, xc_Left )
               :nWidth   := 100                      // Esta columna ocupa el resto del espacio disponible
            END

            aConsulta :=  mConsultaSql()  // Llamada al modelo de datos

            FOR n := 1 TO Len( aConsulta )
               :AddRow( nfl_AsciiHTML( aConsulta[ n ] ) )    // añadimos la línea de correspondiente aConsulta
            NEXT

            :Create()
         END WITH

         :Create()

      END WITH //Panel

      cHtml := :Create() // Y al final la pagina, :Create() nos retorna una cadena con todo el HTML de la pagina
   END WITH

   oCgi:SendPage( cHtml )  // Y por ultimo, le respondemos al Navegador con la pagina creada

RETURN NIL

//-----------------------------------------------------------------------------

STATIC FUNCTION mConsultaSql( cBuscado, nPagina, nLineasPagina )
LOCAL oSql, cConsulta, aConsulta, n

   WITH OBJECT oSql := nfl_SqlConnect( "Bancos",xc_SQLite )
      IF oSql <> Nil
         cConsulta := "SELECT Codigo, BIC, NOMBRE FROM bancos WHERE BIC<>'NIL' ORDER BY NOMBRE"
         aConsulta := :QueryArray( cConsulta )
      ELSE
         RETURN NIL
      ENDIF
   END WITH

   // Ponemos el tooltip de la primera columna
   FOR n=1 TO Len( aConsulta)
      aConsulta[n,1] := {aConsulta[n,1], nfl_AsciiHTML("Código del banco: &#013;",.t.) + ToString(aConsulta[n,3])} // Ponemos el tootltip a la columna 1 (&#013;) como pasamos luego a utf8 hay que mandarlo en ansi si el prg esta en utf8
   NEXT
RETURN aConsulta

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

#include "Xailer.ch"

#include "Nefele.ch"

FUNCTION BcoSort( )

LOCAL oPageWeb

LOCAL cHtml

LOCAL oBrowse, n

LOCAL aConsulta

// Instanciamos la Pagina Web que queremos crear

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

AppMenu( oPageWeb, "Browses", .T. )

:aBreadCrumbs := {{GetEnv("SCRIPT_NAME"),"🏠"},{GetEnv("SCRIPT_NAME")+ "?MenuBrowse","📓"},"Bancos SqLite Sort"}

:lValign := .f.

:lContainer := .f.

:cCSS += "#bancos > thead > tr { BORDER-BOTTOM: NONE; }" // Css adicional

:cCSS += "td, th { padding: 4px 3px; }" // Css adicional

WITH OBJECT WStyle():New(:WO) // definimos estilo para ...

:cId := "#bancos_col3" // bancos_col3 (entidad)

WITH OBJECT :AddMedia() // nueva mediaquery css

:cMaxWidth := "600px" // Hasta 600 px

WITH OBJECT :oStyle

:cFont_size := 11 // Tamaño letra

END

:Create()

END

WITH OBJECT WPanel():New( oPageWeb ) // Añadimos un panel para meter el ListView

:cTitle := "Consulta Tabla de Bancos"

:oStyle:cPadding := "0px"

:aWidth := {12,10}

:aOffset:= { 0, 1}

WITH OBJECT WEdit():New( :WO )

:cId := "buscar"

:cIcon := "search"

:SetSearch()

:aWidth [ _movil ] := 12

:aOffset[ _tablet ] := 0

:aWidth [ _tablet ] := 5

:aOffset[ _monitor] := 7

:aWidth [ _monitor] := 5

:Create()

END WITH

WITH OBJECT oBrowse := WArrayBrowse():New( :WO ) // Su padre es el panel

:cId := "Bancos" // Id asignado al browse

:nStyle := xc_Striped + xc_Highlight // Tipo pijama + iluminas seleccionado

:cCursor := "pointer"

:cOnClick := "VisParam" // Este onCli y cCursor se aplica a todas las columnas

:cClrHeadText := "red" // Color de la cabecera

:nIndexValue := 1 // Campo clave la columna 1

** ORDENACION POR COLUMNAS

:lSort := .t. // Activamos ordenación de columnas

** BUSQUEDA POR COLUMNAS

:lSearch := .t. // Activamos búsquedas

:cSearchTxt := "Buscar" // Texto a mostrar en las cajas de búsqueda de columna

:cSearchId := "Buscar" // cId del edit externo de búsqueda

** ACTIVAR SCROLL DEL BROWSE

:lScroll := .t. // Activamos scroll

:cHeight := "58vh" // Altura del browse

// Añadimos Columnas

WITH OBJECT :AddCol( "Cod" ) AS WItemColBrowse //por defecto, cabecera centrada y texto a la izquierda

:cCursor := "help"

:nWidth := "10px"

END WITH

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

:nWidth := "15px" // anchura en % respecto al total de la tabla

:cClass := "hide-on-small-only" // en móvil, la ocultamos. https://materializecss.com/helpers.html#hiding

END WITH

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

:nWidth := 100 // Esta columna ocupa el resto del espacio disponible

END

aConsulta := mConsultaSql() // Llamada al modelo de datos

FOR n := 1 TO Len( aConsulta )

:AddRow( nfl_AsciiHTML( aConsulta[ n ] ) ) // añadimos la línea de correspondiente aConsulta

:Create()

END WITH

:Create()

END WITH //Panel

cHtml := :Create() // Y al final la pagina, :Create() nos retorna una cadena con todo el HTML de la pagina

END WITH

oCgi:SendPage( cHtml ) // Y por ultimo, le respondemos al Navegador con la pagina creada

RETURN NIL

//-----------------------------------------------------------------------------

STATIC FUNCTION mConsultaSql( cBuscado, nPagina, nLineasPagina )

LOCAL oSql, cConsulta, aConsulta, n

WITH OBJECT oSql := nfl_SqlConnect( "Bancos",xc_SQLite )

IF oSql <> Nil

cConsulta := "SELECT Codigo, BIC, NOMBRE FROM bancos WHERE BIC<>'NIL' ORDER BY NOMBRE"

aConsulta := :QueryArray( cConsulta )

ELSE

RETURN NIL

ENDIF

END WITH

// Ponemos el tooltip de la primera columna

FOR n=1 TO Len( aConsulta)

aConsulta[n,1] := {aConsulta[n,1], nfl_AsciiHTML("Código del banco: ",.t.) + ToString(aConsulta[n,3])} // Ponemos el tootltip a la columna 1 () como pasamos luego a utf8 hay que mandarlo en ansi si el prg esta en utf8

RETURN aConsulta

Contenido no disponible.
Por favor, acepta las cookies haciendo clic en este aviso

Este debate fue modificado 3 años, 10 meses por Alfredo Sanz.
Este debate fue modificado 3 años, 10 meses por Alfredo Sanz.

20-01-2021 a las 20:35 #1696

Xevi
Participante

Fredy,

Teneis previsto alguna actualización próxima y que incluya esta novedad y seguramente más que teneis ya preparadas???

Un Saludo,

Xevi.

Autor

Entradas

Mostrando 1 respuesta al debate

Debes estar registrado para responder a este debate.