WMsgAlert LOGERROR - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

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

Mostrando 5 respuestas a los debates

Autor

Entradas

09-10-2020 a las 09:39 #1055

Xevi

Participante

He estado probando, a partir del video de ayer, incorporar los WMsgAlerts y veo un detalle en NefeleConsole, que, todo y funcionando ok, lanza un error

09:31:54 | LocalHost From: WMSGALERT:LOGERROR   163 
- mga0001:LogError  -->> Control mga0001: Hay codigo en aHeadLinks que no puede ser pasado a oParent por que no tiene.

1 2	09:31:54 \| LocalHost From: WMSGALERT:LOGERROR 163 - mga0001:LogError -->> Control mga0001: Hay codigo en aHeadLinks que no puede ser pasado a oParent por que no tiene.

Supongo que es por la versión que tengo de Néfele, pero por curiosidad aquí lo expongo.

Este es el sample que he hecho... lo mas corto que he podido

FUNCTION Prueba()

   WITH OBJECT TWebPage():New()
      :lAlerts := .T.

      WITH OBJECT WEdit():New(:WO)
         :cId     := "valor1"
         :cTitle  := "Introduce un dato"
         :cHelp   := "prueba con aaa o con cualquier otro valor"
         :Create()
      END WITH

      WITH OBJECT WButton():New(:WO)
         :cText         := "Sin miedo, púlsame"
         :cOnClick      := "VerificarDatos"
         :cAjaxBevel    := "nflcargo"
         :aParams       := { { "valor1", "#valor1"} }
         :Create()
      END WITH

      oCgi:SendPage( :Create() )

   END WITH

RETURN NIL

PROCEDURE VerificarDatos()
   Local cHtml
   Local cDato := oCGI:GetCgiValue("valor1","")
   Local oAlert

   If cDato == "aaa"
      cHtml := Tag( "script", "window.location.href = 'https://nefele.dev'" )

   Else
      WITH OBJECT oAlert := WMsgAlert():New()
         :cText := "No encuentro " + Tag( "b", cDato )
         :cIcon := "ERROR"
         :Create()
      END WITH
      cHtml := oAlert:FullHtml()
   EndIf

   oCGI:SendScript( cHtml )

RETURN

FUNCTION Prueba()

WITH OBJECT TWebPage():New()

:lAlerts := .T.

WITH OBJECT WEdit():New(:WO)

:cId := "valor1"

:cTitle := "Introduce un dato"

:cHelp := "prueba con aaa o con cualquier otro valor"

:Create()

END WITH

WITH OBJECT WButton():New(:WO)

:cText := "Sin miedo, púlsame"

:cOnClick := "VerificarDatos"

:cAjaxBevel := "nflcargo"

:aParams := { { "valor1", "#valor1"} }

:Create()

END WITH

oCgi:SendPage( :Create() )

END WITH

RETURN NIL

PROCEDURE VerificarDatos()

Local cHtml

Local cDato := oCGI:GetCgiValue("valor1","")

Local oAlert

If cDato == "aaa"

cHtml := Tag( "script", "window.location.href = 'https://nefele.dev'" )

Else

WITH OBJECT oAlert := WMsgAlert():New()

:cText := "No encuentro " + Tag( "b", cDato )

:cIcon := "ERROR"

:Create()

END WITH

cHtml := oAlert:FullHtml()

EndIf

oCGI:SendScript( cHtml )

RETURN

Un Saludo,

Xevi.

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

09-10-2020 a las 10:17 #1057

quim

Participante

Xevi

Tu ejemplo me funciona bien, supongo que debe ser tu versión de la LIB

Sólo comentarte que no es necesario declarar oAlert, puedes hacerlo así directamente

PROCEDURE VerificarDatos()

Local cHtml
Local cDato := oCGI:GetCgiValue("valor1","")

If cDato == "aaa"
cHtml := Tag( "script", "window.location.href = 'https://nefele.dev'" )

Else
WITH OBJECT WMsgAlert():New()
:cText := "No encuentro " + Tag( "b", cDato )
:cIcon := "ERROR"
:Create()
cHtml := :FullHtml()
END WITH
EndIf

oCGI:SendScript( cHtml )

RETURN

PROCEDURE VerificarDatos()

Local cHtml

Local cDato := oCGI:GetCgiValue("valor1","")

If cDato == "aaa"

cHtml := Tag( "script", "window.location.href = 'https://nefele.dev'" )

Else

WITH OBJECT WMsgAlert():New()

:cText := "No encuentro " + Tag( "b", cDato )

:cIcon := "ERROR"

:Create()

cHtml := :FullHtml()

END WITH

EndIf

oCGI:SendScript( cHtml )

RETURN

Por cierto, no consigo formatear el código correctamente en las entradas de este foro, lo muestra sin el sangrado original

Cuando quiero incluir código, lo selecciono en la pestaña HTML y le doy al botón CODE, que hago mal ?

Gracias !

Saludos

Esta respuesta fue modificada 4 años, 4 meses por quim.
Esta respuesta fue modificada 4 años, 4 meses por quim.

09-10-2020 a las 10:58 #1060

quim
Participante

Siguiendo con el ejemplo de Xevi, si depuramos por la consola de Néfele sale esto, sólo por curiosidad ya que el ejemplo funciona

Saludos
09-10-2020 a las 11:18 #1062

Xevi
Participante

Si, Quim... a eso me refería. Funciona bien, pero sale un mensaje en la Consola de depuración.

Un Saludo,

Xevi.
- 09-10-2020 a las 11:23 #1064
  
  quim
  Participante
  
  Cómo haces para que te salga el codigo formateado ?

09-10-2020 a las 18:16 #1065

Xevi

Participante

Quim,

no hago nada en especial... selecciono el icono <> para insertar código y hago un paste del texto que selecciono de mi prg mismo y le doy al boton añadir...

solo eso.

Un Saludo,

Xevi

      Else
         If Upper(xcmUser()) == "XEVI"
            :AddItem("Login Bootstrap","LoginBootstrap","lock", xc_SideNavOption)
            :AddItem("ProvaAlert","ProvaAlert","message", xc_SideNavOption)
            :AddItem("ProvaWMsgAlert","ProvaWMsgAlert","message", xc_SideNavOption)
         Else

Else

If Upper(xcmUser()) == "XEVI"

:AddItem("Login Bootstrap","LoginBootstrap","lock", xc_SideNavOption)

:AddItem("ProvaAlert","ProvaAlert","message", xc_SideNavOption)

:AddItem("ProvaWMsgAlert","ProvaWMsgAlert","message", xc_SideNavOption)

Else

10-10-2020 a las 10:33 #1068

Alfredo Sanz
Superadministrador

Lo que nos está avisando Néfele es que tenemos un control sin oParent (el WMsgAlert():New()) cosa que en este caso es correcto

Tenemos que afinar aún un poquito estos mensajes

Autor

Entradas

Mostrando 5 respuestas a los debates

Debes estar registrado para responder a este debate.