Eror en WArrayBrowse - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

Este debate tiene 1 respuesta, 2 mensajes y ha sido actualizado por última vez el 3 años, 1 mes por Pedro Amaro. This post has been viewed 489 times

Mostrando 1 respuesta al debate

Autor

Entradas

08-02-2021 a las 14:32 #1716

Xevi

Participante

Estava retomando, de nuevo, mis pruebas con Néfele, y me he dado cuenta de un error en WArrayBrowse.

Resulta que si una "celda" del browse formato texto empieza su contenido por "ICON..." o "icon..." salta el error

Aquí un pequeño ejemplo que muestra ese error.

PROCEDURE xcmBrowse()

   With Object TWebPage():New()
      WITH OBJECT  WArrayBrowse():New(:WO)
         :cId          := "MiBrowse"        // Id que le damos al ArrayBrowse
         :nStyle       := xc_Striped       // Estilo visual, con pautado pijama
         :cClrHeadPane := "#bfccc3" //"red lighten-4"  // Le damos color a las cabeceras

          // Añadimos Columnas
          WITH OBJECT :AddCol( "Columna1" ) AS wItemColBrowse
            :cClrPane := "#bfccc3" //"blue darken-1"  // Puedo darle color al fondo de la columna
            :cClrText := "white"          // Y al Texto
            :cAlign   := xc_Right
          END WITH
          WITH OBJECT :AddCol( "Columna2" ) AS WItemColBrowse
            :lBold := .T.                 // Podemos asignar la letra en Negrita
            :cAlign   := xc_Left
          END WITH
          :AddCol( "Columna3",,xc_Left)
          // Le alimentamos datos directamente
          :aItems := { { "Registro 1", "Lin1Col2", "Lin1Col3" },;
                      { "Registro 2", "ICONSA empresa", "Lin2Col3" },;
                      { "Registro 3", "Lin3Col2", "Lin3Col3" } }
          :Create()
      END WITH

      oCgi:SendPage( :Create() )
   End With

RETURN

PROCEDURE xcmBrowse()

With Object TWebPage():New()

WITH OBJECT WArrayBrowse():New(:WO)

:cId := "MiBrowse" // Id que le damos al ArrayBrowse

:nStyle := xc_Striped // Estilo visual, con pautado pijama

:cClrHeadPane := "#bfccc3" //"red lighten-4" // Le damos color a las cabeceras

// Añadimos Columnas

WITH OBJECT :AddCol( "Columna1" ) AS wItemColBrowse

:cClrPane := "#bfccc3" //"blue darken-1" // Puedo darle color al fondo de la columna

:cClrText := "white" // Y al Texto

:cAlign := xc_Right

END WITH

WITH OBJECT :AddCol( "Columna2" ) AS WItemColBrowse

:lBold := .T. // Podemos asignar la letra en Negrita

:cAlign := xc_Left

END WITH

:AddCol( "Columna3",,xc_Left)

// Le alimentamos datos directamente

:aItems := { { "Registro 1", "Lin1Col2", "Lin1Col3" },;

{ "Registro 2", "ICONSA empresa", "Lin2Col3" },;

{ "Registro 3", "Lin3Col2", "Lin3Col3" } }

:Create()

END WITH

oCgi:SendPage( :Create() )

End With

RETURN

Un Saludo,

Xevi.

01-03-2021 a las 12:59 #1722

Pedro Amaro
Superadministrador

Error detectado, estará corregido en la próxima actualización de Néfele.

Un saludo

Autor

Entradas

Mostrando 1 respuesta al debate

Debes estar registrado para responder a este debate.