Alerts del sample en un ArrayBrowse

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

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

Mostrando 4 respuestas a los debates

Autor

Entradas

06-10-2020 a las 15:20 #1005

Xevi

Participante

Pues eso... que estoy intentando hacer funcionar los alerts tan chulos del sample de Néfele, para utilizarlos en un WArrayBrowse, por ejemplo... y no se por donde pillarlo.

WITH OBJECT  WArrayBrowse():New(:WO)
 :cId          := "Clients"        // 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
 :cOnClick      := IconAlert(:WO)  //Toast1(:WO)
...

WITH OBJECT WArrayBrowse():New(:WO)

:cId := "Clients" // 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

:cOnClick := IconAlert(:WO) //Toast1(:WO)

...

He añadido, por supuesto, las funciones IconAlert() y Toast1() a mi proyecto, pero no funciona

Néfele Project error

No se ha incluido la función #MGA0003_FUNCTION(NULL) Function is not included.
No olvides que hay que declarar / Do not forget to declare
Method #MGA0003_FUNCTION(NULL)( )
dentro de / inside
Class TCgi FROM XCgi

Néfele Project error

No se ha incluido la función #MGA0003_FUNCTION(NULL) Function is not included.

No olvides que hay que declarar / Do not forget to declare

Method #MGA0003_FUNCTION(NULL)( )

dentro de / inside

Class TCgi FROM XCgi

Por ejemplo.. para eliminar un registro de la lista, estaria bien poder utilizar el alert de Confirmar...

Un Saludo,

Xevi.

Este debate fue modificado 4 años, 2 meses por Xevi.
Este debate fue modificado 4 años, 2 meses por Xevi.

13-10-2020 a las 11:20 #1142

Xevi

Participante

Con un ejemplo sencillo, también, intento mostrar un mensaje alerta (de los del sample Néfele) y no me muestra el mensaje.

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

PROCEDURE prueba()

   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
         :cOnClick     := "DatosRegistro" // En caso de picar en un elemento del ArrayBrowse
         :cAjaxBevel    := "nflcargo"
         :nIndexValue     := 1

          // 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", "Lin2Col2", "Lin2Col3" },;
                      { "Registro 3", "Lin3Col2", "Lin3Col3" } }
          // Y creamos el ArrayBrowse
          :Create()
      END WITH

      oCgi:SendPage( :Create() )
   End With

RETURN

PROCEDURE DatosRegistro()
   Local cHtml
   Local oRegistro := GetRowValue( oCGI:GetCGIValue( "MiBrowse" ) )

//Esto SI funciona y muestra un mensaje Alert del Navegador
*   cHtml := Tag("script", "alert('" +AsciiHtml( oRegistro:cValue )+ "')" )

//Esto no funciona, no muestra mensaje
   WITH OBJECT WMsgAlert():New()
      :cText := AsciiHtml( oRegistro:cValue )
      :Create()
      cHtml := :FullHtml()
   END WITH

   oCGI:SendScript( cHtml )

RETURN

#include "Xailer.ch"

#include "Nefele.ch"

PROCEDURE prueba()

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

:cOnClick := "DatosRegistro" // En caso de picar en un elemento del ArrayBrowse

:cAjaxBevel := "nflcargo"

:nIndexValue := 1

// 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", "Lin2Col2", "Lin2Col3" },;

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

// Y creamos el ArrayBrowse

:Create()

END WITH

oCgi:SendPage( :Create() )

End With

RETURN

PROCEDURE DatosRegistro()

Local cHtml

Local oRegistro := GetRowValue( oCGI:GetCGIValue( "MiBrowse" ) )

//Esto SI funciona y muestra un mensaje Alert del Navegador

* cHtml := Tag("script", "alert('" +AsciiHtml( oRegistro:cValue )+ "')" )

//Esto no funciona, no muestra mensaje

WITH OBJECT WMsgAlert():New()

:cText := AsciiHtml( oRegistro:cValue )

:Create()

cHtml := :FullHtml()

END WITH

oCGI:SendScript( cHtml )

RETURN

Si me muestra un mensaje Alert propio del navegador, pero NO el mensaje de los Samples

Alguna cosa estoy haciendo mal!!!

Un saludo,

Xevi.

13-10-2020 a las 14:33 #1144

Alfredo Sanz
Superadministrador

ponle un ocgi:console( cHtml ) antes de la línea 53 a ver qué nos dice
13-10-2020 a las 14:45 #1145

Alfredo Sanz
Superadministrador

Me corrijo.

Entre la línea 6 y la 7 pon:

:lAlerts := .T.

El problema lo tienes porque al ser una llamada Ajax, el WebPage no tiene constancia de que se van a usar alertas y por lo tanto no carga el módulo js correspondiente

Poniendo :lAlerts := .t. en el Webpage le estamos diciendo que aunque (de momento) no lo necesite, carge el módulo de alertas porque no va a hacer falta luego
13-10-2020 a las 16:53 #1147

Xevi
Participante

Coooorrecto, esa línea es la que me faltava... y no la havia visto del otro ejemplo!!!

Errores de principiante.

Autor

Entradas

Mostrando 4 respuestas a los debates

Debes estar registrado para responder a este debate.