Mensajes de alerta por Ajax - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Etiquetado: Ajax

Este debate tiene 1 respuesta, 2 mensajes y ha sido actualizado por última vez el 4 años, 1 mes por juan. This post has been viewed 1023 timesnovedades. This post has been viewed 1023 times

Mostrando 1 respuesta al debate

Autor

Entradas

14-10-2020 a las 16:08 #1181

Alfredo Sanz

Superadministrador

Continúo con otro ejemplo del foro, a una consulta de Xevi en https://nefele.dev/foro/topic/lanzar-un-mensaje-de-alerta/ que nuestra como responder con una mensaje a través de una llamada Ajax

PROCEDURE Alerta1

   WITH OBJECT TWebPage():New()

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

      END WITH

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

      oCgi:SendPage( :Create() )

   END WITH

RETURN

//------------------------------------------------------------------------------

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

   IF cDato == "aaa"
      cHtml := Tag( "script", "window.location.href = 'http://google.es/search?q=nefele'" )
      oCGI:SendScript( cHtml )
   ELSE
      cHtml := Tag("script", "alert('Dato NO encontrado:  "+ cDato + "')" )
      oCGI:SendScript( cHtml )
   ENDIF

RETURN

PROCEDURE Alerta1

WITH OBJECT TWebPage():New()

WITH OBJECT WEdit():New(:WO)

:cId := "valor1"

:cTitle := "Valor1"

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

:Create()

END WITH

WITH OBJECT WButton():New(:WO)

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

:cOnClick := "AjaxAlerta1"

:cAjaxBevel := "nflcargo"

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

:Create()

END WITH

oCgi:SendPage( :Create() )

END WITH

RETURN

//------------------------------------------------------------------------------

PROCEDURE AjaxAlerta1

Local cHtml

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

IF cDato == "aaa"

cHtml := Tag( "script", "window.location.href = 'http://google.es/search?q=nefele'" )

oCGI:SendScript( cHtml )

ELSE

cHtml := Tag("script", "alert('Dato NO encontrado: "+ cDato + "')" )

oCGI:SendScript( cHtml )

ENDIF

RETURN

Podéis verlo funcionando en

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

Este debate fue modificado 4 años, 1 mes por Alfredo Sanz.

15-10-2020 a las 04:49 #1212

juan.novedades

Participante

Va a servir mucho para validaciones, solo tuve que agregar en main.prg lo siguiente:

Method Alerta1 InLine Alerta1()
Method AjaxAlerta1 InLine AjaxAlerta1()

puse en la linea #4
:lAlerts := .T.

sustitui en la linea #37

cHtml := Tag("script", "alert('Dato NO encontrado:  "+ cDato + "')" )

1	cHtml := Tag("script", "alert('Dato NO encontrado: "+ cDato + "')" )

por

      WITH OBJECT WMsgAlert():New()
         :cText := 'Dato NO encontrado: ' + cDato
         :Create()
         cHtml := :FullHtml()
      END WITH

WITH OBJECT WMsgAlert():New()

:cText := 'Dato NO encontrado: ' + cDato

:Create()

cHtml := :FullHtml()

END WITH

Muchas gracias y Saludos Cordiales!

Esta respuesta fue modificada 4 años, 1 mes por Alfredo Sanz.
Esta respuesta fue modificada 4 años, 1 mes por Alfredo Sanz.

Autor

Entradas

Mostrando 1 respuesta al debate

Debes estar registrado para responder a este debate.