Botones WListView - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Este debate tiene 5 respuestas, 3 mensajes y ha sido actualizado por última vez el 4 años por Xevi. This post has been viewed 617 times

Mostrando 5 respuestas a los debates

Autor

Entradas

02-12-2020 a las 18:56 #1610

Participante

Resulta que tengo dos botones en un WListView y por mas que le digo que cada uno haga/lanze un onclick, los dos siempre van al mismo onclick, el del onclickedit.

   WITH OBJECT WListView():New(oParent)
      :lTitleItem := .T.

      // Parametros para la Paginación
      :nItemInPage   := 10
      :nPage         := nPage
      :cOnChangePage := "FacturesAjaxChangePage" // Esta es la función a Llamar al cambiar de página
      :cAjaxPages    := "pages"                // Este es el wBevel que contiene el wListView y al que hay que enviar la respuesta del AJAX

      For n:=1 To Len(aItems)
         WITH OBJECT :AddItem( aItems[n,1],, "Factura: " + PadL(ToString(aItems[n,2]),5,"0") ) AS wItemListView
            WITH OBJECT wLabel():New(:WO)
               :aWidth := {11}
               :cText := "Data: " + DToC(aItems[n,3])
               :Create()
            END WITH

          :lEdit         := .T.
          :cOnClickEdit   := "#alert('De moment... No deixo Modificar')"
          :lDelete       := .T.
          :cOnClickDelete := "#alert('De moment... No deixo Borrar')"

         END With
      Next

      :Create()
      // Como tambien lo podemos llamar por AJAX recuperamos todos el código HTML y JS en una cadena
      cHtml := :FullHtml()
   end with

WITH OBJECT WListView():New(oParent)

:lTitleItem := .T.

// Parametros para la Paginación

:nItemInPage := 10

:nPage := nPage

:cOnChangePage := "FacturesAjaxChangePage" // Esta es la función a Llamar al cambiar de página

:cAjaxPages := "pages" // Este es el wBevel que contiene el wListView y al que hay que enviar la respuesta del AJAX

For n:=1 To Len(aItems)

WITH OBJECT :AddItem( aItems[n,1],, "Factura: " + PadL(ToString(aItems[n,2]),5,"0") ) AS wItemListView

WITH OBJECT wLabel():New(:WO)

:aWidth := {11}

:cText := "Data: " + DToC(aItems[n,3])

:Create()

END WITH

:lEdit := .T.

:cOnClickEdit := "#alert('De moment... No deixo Modificar')"

:lDelete := .T.

:cOnClickDelete := "#alert('De moment... No deixo Borrar')"

END With

:Create()

// Como tambien lo podemos llamar por AJAX recuperamos todos el código HTML y JS en una cadena

cHtml := :FullHtml()

end with

Un Saludo,

Xevi

03-12-2020 a las 22:36 #1617

Pedro Amaro
Superadministrador

No consigo provocar el error que comentas, a mi si me ejecutan cada uno el suyo.

Asegurate que utilizas la ultima versión de Néfele, la 0.3.5

04-12-2020 a las 21:35 #1626

Xevi

Participante

Pedro,

puedes probar con este ejemplo completo...

PROCEDURE ProvaListView()
   Local cHtml

   // Comenzamos instanciando la Página Web que queremos crear
   WITH OBJECT TWebPage():New()

      // Instanciamos un Panel para contener los elementos, permite poner un titulo y tiene un efecto sombra
      WITH OBJECT WPanel():New(:WO)

         // tenemos que tener un contenedor para recibir la respuesta del AJAX
         With Object WBevel():New(:WO)

            WITH OBJECT WListView():New(:WO)
               :lTitleItem := .T.

               WITH OBJECT :AddItem( 1,, "Registro número 1", {"linea adicional 1"} ) AS wItemListView
                  :lEdit         := .T.
                  :cOnClickEdit   := "#alert('Modificar???')"
                  :lDelete       := .T.
                  :cOnClickDelete := "#alert('Borrar???')"
               END With
               WITH OBJECT :AddItem( 2,, "Registro número 2", {"linea adicional 2"} ) AS wItemListView
                  :lEdit         := .T.
                  :cOnClickEdit   := "#alert('Modificar???')"
                  :lDelete       := .T.
                  :cOnClickDelete := "#alert('Borrar???')"
               END With

               :Create()
            end with

            :Create()
         End With //Bevel

         // Como ya no vamos a meter nada más dentro de wPanel lo creamos
         :Create()
      end with //Panel ListView


      // Y listo, ya tenemos nuestra página creada, como el :Create() de un tWebPage nos retorna todo el HTML de la página
      // sobre la marcha hacemos el envio de dicho HTML al navegador que nos ha realizado la conexión
      oCgi:SendPage(:Create())
   END WITH

RETURN

PROCEDURE ProvaListView()

Local cHtml

// Comenzamos instanciando la Página Web que queremos crear

WITH OBJECT TWebPage():New()

// Instanciamos un Panel para contener los elementos, permite poner un titulo y tiene un efecto sombra

WITH OBJECT WPanel():New(:WO)

// tenemos que tener un contenedor para recibir la respuesta del AJAX

With Object WBevel():New(:WO)

WITH OBJECT WListView():New(:WO)

:lTitleItem := .T.

WITH OBJECT :AddItem( 1,, "Registro número 1", {"linea adicional 1"} ) AS wItemListView

:lEdit := .T.

:cOnClickEdit := "#alert('Modificar???')"

:lDelete := .T.

:cOnClickDelete := "#alert('Borrar???')"

END With

WITH OBJECT :AddItem( 2,, "Registro número 2", {"linea adicional 2"} ) AS wItemListView

:lEdit := .T.

:cOnClickEdit := "#alert('Modificar???')"

:lDelete := .T.

:cOnClickDelete := "#alert('Borrar???')"

END With

:Create()

end with

:Create()

End With //Bevel

// Como ya no vamos a meter nada más dentro de wPanel lo creamos

:Create()

end with //Panel ListView

// Y listo, ya tenemos nuestra página creada, como el :Create() de un tWebPage nos retorna todo el HTML de la página

// sobre la marcha hacemos el envio de dicho HTML al navegador que nos ha realizado la conexión

oCgi:SendPage(:Create())

END WITH

RETURN

Los dos botones lanzan el mensaje Modificar???

Estoy utilizando Néfele libs del 19/11/2020 17:29

Un Saludo,

Xevi.

Esta respuesta fue modificada 4 años por Xevi.

04-12-2020 a las 21:59 #1625

Eduardo Trasviña
Participante

Buen día.

Tengo el mismo comportamiento que reporto Xevi, esta es i definicion del listview.

y el html da esto.

Ya revise y confirme que tengo la version 1.3.5 de Nefele.
04-12-2020 a las 22:11 #1629

Pedro Amaro
Superadministrador

Confirmado, es un bug que se coló a ultima hora en la 0.3.5.1

05-12-2020 a las 15:59 #1633

Xevi

Participante

Puestos...

Poder poner un color específico a cada boton/icono Delete/Edit ???

De momento lo pongo así, pero se podría incorporar el Nefelizado ???

               WITH OBJECT :AddItem( 1,, "Registro número 1", {"linea adicional 1"} ) AS wItemListView
                  :lEdit         := .T.
                  :cOnClickEdit   := "#alert('Modificar???')"
                  :lDelete       := .T.
                  :cOnClickDelete := "#alert('Borrar???')"
               END With
               :cCSS += "#lvw0001_1_icondelete { color: red;}"

               WITH OBJECT :AddItem( 2,, "Registro número 2", {"linea adicional 2"} ) AS wItemListView
                  :lEdit         := .T.
                  :cOnClickEdit   := "#alert('Modificar???')"
                  :lDelete       := .T.
                  :cOnClickDelete := "#alert('Borrar???')"
               END With
               :cCSS += "#lvw0001_2_icondelete { color: red;}"

WITH OBJECT :AddItem( 1,, "Registro número 1", {"linea adicional 1"} ) AS wItemListView

:lEdit := .T.

:cOnClickEdit := "#alert('Modificar???')"

:lDelete := .T.

:cOnClickDelete := "#alert('Borrar???')"

END With

:cCSS += "#lvw0001_1_icondelete { color: red;}"

WITH OBJECT :AddItem( 2,, "Registro número 2", {"linea adicional 2"} ) AS wItemListView

:lEdit := .T.

:cOnClickEdit := "#alert('Modificar???')"

:lDelete := .T.

:cOnClickDelete := "#alert('Borrar???')"

END With

:cCSS += "#lvw0001_2_icondelete { color: red;}"

Y, recuerdo, hago memoria... poner más de 2 botones. utilizar un array de botones
aButtons := { { <lVisible>, <cOnClick>, <:cAjaxBevel> } } //por ejemplo

O, de no ser posible en un array, aumentar de 2 a 5 botones, por ejemplo...
:lSpecial, :lOptional, :lSuper //o los nombres que sean

Un Saludo,

Xevi.

Autor

Entradas

Mostrando 5 respuestas a los debates

Debes estar registrado para responder a este debate.