Con wArrayBrowse podemos crear una tabla browse de solo lectura, esta basado el las tablas HTML con las propiedades que le añade Materialize y un poco de “tuneado” por nuestra parte.

Admite un array (aItems) con los datos a presentar y otro con las comunas (aCols) pero en este caso lo que definimos es el aspecto de cada columna y la cabecera de ellas, para esto crearemos controles wItemColBrowse donde podremos definirlas. También podemos crearle pies a las columnas que compartirán aspecto con las cabeceras con el array aFooter.

Con cOnClick podemos definir un Función de nuestra App que sera llamada al picar con el ratón en cualquiera de las celdas, desde nuestra App recuperamos la linea en la que se ha picado leyendo el Parámetro que corresponde al cId del wArryBrowse, en caso de usar la llamada por Ajax también nos devolverá nRowId con la linea seleccionada.

Como todos los controles que permiten eventos, se puede utilizar aParams para añadir más parámetros y sus valores al generar el evento.

  WITH OBJECT  WArrayBrowse():New(oPanel)
    :cId          := "Bancos"         // Id que le damos al ArrayBrowse
    :nStyle       := xc_Striped       // Estilo visual, con pautado pijama
    :cClrHeadPane := "red lighten-4"  // Le damos color a las cabeceras
    :cOnClick     := "VisParam"       // En caso de picar en un elemento del ArrayBrowse
    // Añadimos Columnas
    WITH OBJECT :AddCol("Código") AS wItemColBrowse
      :cClrPane := "blue darken-1"  // Puedo darle color al fondo de la columna
      :cClrText := "white"          // Y al Texto
    END WITH
    WITH OBJECT :AddCol("BIC") AS WItemColBrowse
      :lBold := .T.                 // Podemos asignar la letra en Negrita
    END WITH
    :AddCol("Entidad",,xc_Left)
    // Le alimentamos datos directamente de la consulta
    :aItems :=  AsciiHTML(aConsulta)  // Estos datos se han extraído de una consulta SQL a MariaDB
    // Y creamos el ArrayBrowse
    :Create()
  END WITH

  LOCAL nLin := Val( oCGI:GetCgiValue("bancos",0) )