Listas dentro de listas - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Etiquetado: wListView

Este debate tiene 0 respuestas, 1 mensaje y ha sido actualizado por última vez el 3 años, 6 meses por Alfredo Sanz. This post has been viewed 851 times

Mostrando 0 respuestas a los debates

Autor

Entradas

14-10-2020 a las 15:48 #1178

Alfredo Sanz

Superadministrador

Inauguro esta sección del foro con un aporte de Daniel y Xevi ( y alguna pequeña modificación por mi parte ) publicado en el hilo https://nefele.dev/foro/topic/listas-dentro-de-listas/

Recordad que tenéis que hacer referencia en el enrutador de la página principal a la funcion PruebaDaniel

PROCEDURE PruebaDaniel()
   Local nI, nJ
   Local aFamilias := {  { "1", "Família1"}, { "2", "Família2"} }
   Local aArticulos := { { "R101", "1",, "Descripción Articulo1", 101, "Descripción ampliada Artículo R101" },;
                         { "R102", "1",, "Descripción Articulo1B", 102, "Descripción ampliada Artículo R101 B" },;
                         { "R102", "2",, "Descripción Articulo2", 102, "Descripción ampliada Artículo R102"} }

   WITH OBJECT TWebPage():New()

      With Object WLabel():New(:WO)
         :nFontSize     := 5
         :lBold         := .T.
         :cAlign        := xc_Center
         :cText         := "Pruebas Néfele4Harbour!!!"
         :Create()
      End With

      With Object WListView():New(:WO)
          :cType        := xc_Collapsible
          :lTitleItem   := .T.
          :cClrPane     := "light-blue lighten-4"
          :cClrText     := "white"
          :cIconOpen    := "keyboard_arrow_up"
          :cIconClose   := "keyboard_arrow_down"
          for nI := 1 to Len(aFamilias)
              With Object :AddItem(aFamilias[nI,1],,aFamilias[nI,2]) As wItemListView
                   :lDefault := .F.
                   With Object WListView():New(:WO)
                        :lTitleItem := .T.
                        :cClrPane   :=  "light-blue lighten-5"
                        :cType      :=   xc_Popout
                        for nJ := 1 to Len(aArticulos)
                            if aArticulos[nJ,2] == aFamilias[nI,1]
                               With Object :AddItem(nJ,,aArticulos[nJ,4],aArticulos[nJ,6]) As wItemListView
                                    With Object :oBadge As wBadge
                                         :cText := LTrim(Transform(aArticulos[nJ,5], "99,999.99"))
                                    End With
                               End With
                            endif
                        next
                        :Create()
                   End With
              End With
          next
          :Create()
      End With

      oCgi:SendPage( :Create() )
   END WITH

RETURN

PROCEDURE PruebaDaniel()

Local nI, nJ

Local aFamilias := { { "1", "Família1"}, { "2", "Família2"} }

Local aArticulos := { { "R101", "1",, "Descripción Articulo1", 101, "Descripción ampliada Artículo R101" },;

{ "R102", "1",, "Descripción Articulo1B", 102, "Descripción ampliada Artículo R101 B" },;

{ "R102", "2",, "Descripción Articulo2", 102, "Descripción ampliada Artículo R102"} }

WITH OBJECT TWebPage():New()

With Object WLabel():New(:WO)

:nFontSize := 5

:lBold := .T.

:cAlign := xc_Center

:cText := "Pruebas Néfele4Harbour!!!"

:Create()

End With

With Object WListView():New(:WO)

:cType := xc_Collapsible

:lTitleItem := .T.

:cClrPane := "light-blue lighten-4"

:cClrText := "white"

:cIconOpen := "keyboard_arrow_up"

:cIconClose := "keyboard_arrow_down"

for nI := 1 to Len(aFamilias)

With Object :AddItem(aFamilias[nI,1],,aFamilias[nI,2]) As wItemListView

:lDefault := .F.

With Object WListView():New(:WO)

:lTitleItem := .T.

:cClrPane := "light-blue lighten-5"

:cType := xc_Popout

for nJ := 1 to Len(aArticulos)

if aArticulos[nJ,2] == aFamilias[nI,1]

With Object :AddItem(nJ,,aArticulos[nJ,4],aArticulos[nJ,6]) As wItemListView

With Object :oBadge As wBadge

:cText := LTrim(Transform(aArticulos[nJ,5], "99,999.99"))

End With

endif

:Create()

End With

:Create()

End With

oCgi:SendPage( :Create() )

END WITH

RETURN

Puedes ver el ejemplo funcionando en

https://samples.nefele.dev/cgi-bin/usuarios.exe?pruebadaniel

Autor

Entradas

Mostrando 0 respuestas a los debates

Debes estar registrado para responder a este debate.