Manejo Script - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

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

Mostrando 4 respuestas a los debates

Autor

Entradas

22-10-2020 a las 12:55 #1351

Xevi

Participante

Para validaciones/comprobaciones, utilizo scripts y ajax para, antes de ir a una nueva página, pues eso, comprobar donde ir.

PROCEDURE miprueba()

   WITH OBJECT TWebPage():New()

      WITH OBJECT WForm():New(:WO)
         :cFunction     := "miAjax"
         :cAjaxBevel := "nflcargo"

         with object WEdit():New(:WO)
            :cName  := "MiEdit"
            :cTitle := "MiValor"
            :Create()
         end with

         WITH OBJECT WButton():New(:WO)
            :cId       := "submit"
            :cText     := "Acceptar"
            :lSubmit   := .T.
            :Create()
         END WITH //WButton

         :Create()
      END WITH //WForm

      oCgi:SendPage( :Create() )
   END WITH //WebPage

RETURN
//------------------------------------------------------------------------------
PROCEDURE miAjax()
   Local cHtml
   Local cDato := oCGI:GetCgiValue("MiEdit","")

   If cDato == "aaa"
      cHtml := Tag( "script", "window.location.href = '/@Soft?visparam'" )
   Else
      cHtml := Tag("script", "alert('Dato NO encontrado')" )
   EndIf
   oCGI:SendScript( cHtml )

RETURN

PROCEDURE miprueba()

WITH OBJECT TWebPage():New()

WITH OBJECT WForm():New(:WO)

:cFunction := "miAjax"

:cAjaxBevel := "nflcargo"

with object WEdit():New(:WO)

:cName := "MiEdit"

:cTitle := "MiValor"

:Create()

end with

WITH OBJECT WButton():New(:WO)

:cId := "submit"

:cText := "Acceptar"

:lSubmit := .T.

:Create()

END WITH //WButton

:Create()

END WITH //WForm

oCgi:SendPage( :Create() )

END WITH //WebPage

RETURN

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

PROCEDURE miAjax()

Local cHtml

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

If cDato == "aaa"

cHtml := Tag( "script", "window.location.href = '/@Soft?visparam'" )

Else

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

EndIf

oCGI:SendScript( cHtml )

RETURN

Bien, de esta manera está funcionando.
PERO, me muestra en la dirección del navegador http://localhost:8069/@Soft?visparam

Cosa que no ocurre si por programa tengo un boton que el cOnClick apunta a este enrute

         WITH OBJECT WButton():New(:WO)
            :cText     := "VisParam"
            :cOnClick := "visparam"
            :Create()
         END WITH //WButton

WITH OBJECT WButton():New(:WO)

:cText := "VisParam"

:cOnClick := "visparam"

:Create()

END WITH //WButton

¿Alguna manera de hacer una llamada a un enrute o una página, via script/ajax, sin que me cambie la dirección en el navegador ???

Un Saludo,

Xevi.

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

23-10-2020 a las 00:26 #1362
Pedro Amaro
Superadministrador
Hay una función CallAutoForm (que en la próxima versión de Néfele sera nfl_CallAutoForm) que nos crea un script con la llamada a nuestro CGI pasando los parámetros por POST, esta en la lista de funciones del wiki pero aún no esta documentada.

cPage es la función de nuestro CGI o una URL

aParam como todos los aParam de Néfele es {{param1, value1},{param2,value2}....}

cAjaxbevel si la llamada que queremos hacer es por Ajax

lAjaxWaitOn, pues eso que si es por Ajax queremos que ponga una mensaje de espera

cText, texto a poner en el WaitOn

lModal, si va ha producir la apertura de un Bevel Modal

curl, si además de los parámetros que pasaremos por POST queremos pasar algo por GET

lappend, no me acuerdo 😕 ... le tengo que preguntar a Fredy

lShadowSheet, sabana traslucida que se pone delante de la página web para evitar que el usuario interactue con la página durante la llamada

cSSTitle y cSSSubTitle, Titulo y subtitulo que queremos que aparezca en el ShadowSheet, si no ponemos nada utilizara los definidos en tWebPage

lEncript, si queremos que los parámetros se pasen encriptados al estilo Néfele. Ojo, solo para llamadas a CGI de Néfele
- Esta respuesta fue modificada 3 años, 6 meses por Pedro Amaro.
- 23-10-2020 a las 12:02 #1369
  
  Alfredo Sanz
  Superadministrador
  
  lappend, no me acuerdo 😕 ... le tengo que preguntar a Fredy
  
  Indica si el código retornado por Ajax reemplazará el actual o se añadirá al ya existente 🙂

23-10-2020 a las 09:12 #1366

Xevi

Participante

Pedro,

PROCEDURE miAjax()
   Local cHtml
   Local cDato := oCGI:GetCgiValue("MiEdit","")

   oCgi:Console( oCgi:aParams )

   If cDato == "aaa"
*      cHtml := Tag( "script", "window.location.href = '/@Soft?visparam'" )
*      oCGI:SendScript( cHtml )
*      CallAutoForm( "visparam" ) //No me muestra la página VisParam
      CallAutoForm( "visparam",, "nflcargo" )  //No me muestra la página VisParam
   Else
      cHtml := Tag("script", "alert('Dato NO encontrado')" )
      oCGI:SendScript( cHtml )
   EndIf

RETURN

PROCEDURE miAjax()

Local cHtml

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

oCgi:Console( oCgi:aParams )

If cDato == "aaa"

* cHtml := Tag( "script", "window.location.href = '/@Soft?visparam'" )

* oCGI:SendScript( cHtml )

* CallAutoForm( "visparam" ) //No me muestra la página VisParam

CallAutoForm( "visparam",, "nflcargo" ) //No me muestra la página VisParam

Else

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

oCGI:SendScript( cHtml )

EndIf

RETURN

23-10-2020 a las 12:00 #1368

Pedro Amaro
Superadministrador

CallAutoForm te retorna la cadena con el script tendrás que hacer oCGI:SendScript( CallAutoForm(" visparam" ) )

26-10-2020 a las 20:09 #1415

Xevi

Participante

Probando CallAutoForm...

PROCEDURE ProvaAlertScript()
   Local cHtml
   Local cDato := oCGI:GetCgiValue("MiEdit","")

   If cDato == "aaa"
      cHtml := CallAutoForm( "visparam", {{ "midato", "mivalor" }} )
   Else
      cHtml := Tag("script", "alert('Dato NO encontrado')" )
   EndIf
   oCGI:SendScript( cHtml )

RETURN

PROCEDURE ProvaAlertScript()

Local cHtml

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

If cDato == "aaa"

cHtml := CallAutoForm( "visparam", {{ "midato", "mivalor" }} )

Else

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

EndIf

oCGI:SendScript( cHtml )

RETURN

Visparam no muestra / no recibe el valor aParam pasado por CallAutoForm

Un Saludo,

Xevi.

Autor

Entradas

Mostrando 4 respuestas a los debates

Debes estar registrado para responder a este debate.