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 6 años por Alfredo Sanz. This post has been viewed 1106 times

Mostrando 4 respuestas a los debates

Autor

Entradas

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 6 años por quim.
Esta respuesta fue modificada 6 años 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 4 respuestas a los debates

Debes estar registrado para responder a este debate.