Comportamientos WEdit - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Etiquetado: cAjaxWaitOn WEdit aparams

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

Mostrando 2 respuestas a los debates

Autor

Entradas

16-12-2020 a las 21:47 #1653

Eduardo Trasviña

Participante

Buen dia equipo Nefele.

Tuve la necesidad de utilizar el evento cAjaxWaitOn de un WEdit, al estar realizando las pruebas observe que si declaro la propiedad :nLength el evento no se dispara, si lo quito el evento si se dispara, quise usar esta propiedad para limitar sin utilizar la propiedad :oMask:cPicture, al final quite :nLength para continuar, desconozco si este comportamiento es el esperado o normal (por alguna razon).

Por otra parte quise agregar un parametro en la propiedad :aParams del WEdit pero no se envia al cgi cuando se da el evento, vi en la documentacion en wiki y aparentemente el WEdit si soporta los parametros adicionales, si estoy haciendo algo mal por favor haganmelo saber.

anexo un pequeño proyecto que muestra estos comportamientos.

PROCEDURE MainPage()

   LOCAL chtml, tiempo, adatos:={}

   * instanciamos nuestra web page principal

   with object TWebPage():New()

      :cTitle           := "Prueba wEdit Ajax Time Out"
      :lContainer       := .f.
      :lAlerts          := .t.
      :lFooter          := .f.

      WITH OBJECT WForm():New( :WO )
         :cId        := "forma_para_wedit"
         :cFunction  := "sin_respuesta"

         WITH object WEdit():New(:WO)
            :cId                 := "llave_de_busqueda"
            :cIcon               := "search"
            :nLength             := 10
            :nTimeOut            := 1
            :cAjaxTimeOut        := "busca_algo"
            :cAjaxBevel          := "nflcargo"
            :Create()
         END WITH

         With Object WButton():New(:WO)
            :cText          := "Aceptar"
            :oIcon:cIcon    := "done"
            :cSubmitForm    := "forma_para_wedit"
            :lModalClose    := .T.
            :cPosition      := xc_Center
            :cAjaxBevel     := "nflcargo"
            :aParams        := {{"probando", "dato de prueba"}}
            :Create()
         End With

         :Create()

      END

      tiempo:=Seconds()

      chtml:=:create()

      :Assert( "tiempo " + ToString( Seconds() - tiempo ) )

      oCgi:SendPage(chtml)        // Se crea el HTML final y se envial navegador saliendo del ejecutable CGI

   End With

RETURN

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

FUNCTION busca_algo()

   LOCAL oalert

   oCGI:Console(oCGI:aParams)

   WITH OBJECT oalert := WMsgAlert():New()
      :cType               := "info"
      :lTagScript          := .t.
      :cTitle              := "Seleccionar"
      :cText               := "Se Acciono el Evento"
      :cAjaxBevel          := "nflcargo"
      :lModal              := .t.

      :cConfirmButton      := 'ok'
      :cConfirmButtonIcon  := "done"
      :cConfirmButtonColor := 'blue'

      :Create()

   END

   envia_dato_ajax( oalert:FullHtml() )

return (nil)

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

FUNCTION envia_dato_ajax( cDato )

   oCGI:Send( "" )
   oCGI:Send( cDato )

RETURN NIL

PROCEDURE MainPage()

LOCAL chtml, tiempo, adatos:={}

* instanciamos nuestra web page principal

with object TWebPage():New()

:cTitle := "Prueba wEdit Ajax Time Out"

:lContainer := .f.

:lAlerts := .t.

:lFooter := .f.

WITH OBJECT WForm():New( :WO )

:cId := "forma_para_wedit"

:cFunction := "sin_respuesta"

WITH object WEdit():New(:WO)

:cId := "llave_de_busqueda"

:cIcon := "search"

:nLength := 10

:nTimeOut := 1

:cAjaxTimeOut := "busca_algo"

:cAjaxBevel := "nflcargo"

:Create()

END WITH

With Object WButton():New(:WO)

:cText := "Aceptar"

:oIcon:cIcon := "done"

:cSubmitForm := "forma_para_wedit"

:lModalClose := .T.

:cPosition := xc_Center

:cAjaxBevel := "nflcargo"

:aParams := {{"probando", "dato de prueba"}}

:Create()

End With

:Create()

END

tiempo:=Seconds()

chtml:=:create()

:Assert( "tiempo " + ToString( Seconds() - tiempo ) )

oCgi:SendPage(chtml) // Se crea el HTML final y se envial navegador saliendo del ejecutable CGI

End With

RETURN

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

FUNCTION busca_algo()

LOCAL oalert

oCGI:Console(oCGI:aParams)

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

:cType := "info"

:lTagScript := .t.

:cTitle := "Seleccionar"

:cText := "Se Acciono el Evento"

:cAjaxBevel := "nflcargo"

:lModal := .t.

:cConfirmButton := 'ok'

:cConfirmButtonIcon := "done"

:cConfirmButtonColor := 'blue'

:Create()

END

envia_dato_ajax( oalert:FullHtml() )

return (nil)

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

FUNCTION envia_dato_ajax( cDato )

oCGI:Send( "" )

oCGI:Send( cDato )

RETURN NIL

Como siempre agradezco sus atenciones, saludos!!

17-12-2020 a las 17:58 #1654

Alfredo Sanz
Superadministrador

Visto y arreglado.

En la próxima versión estará disponible.
17-12-2020 a las 21:41 #1655

Eduardo Trasviña
Participante

Muchas gracias Alfredo.

Saludos!!

Autor

Entradas

Mostrando 2 respuestas a los debates

Debes estar registrado para responder a este debate.