undefined reference to 'HB_FUN_SENDAJAXSCRIPT'

Acceder Darse de alta He olvidado la contraseña

Este debate tiene 1 respuesta, 2 mensajes y ha sido actualizado por última vez el 5 años, 10 meses por Alfredo Sanz. This post has been viewed 1162 times

Mostrando 0 respuestas a los debates

Autor

Entradas

02-01-2021 a las 19:18 #1674

Alfredo Sanz

Superadministrador

Hola!

SendAjaxScript no es una función de Néfele, sino que forma parte de los ejemplos.

La tienes en el fichero 9-eFuncionesGenericas.prg dentro de los browses

Te la adjunto por si te resulta más fácil copiar y pegar

//-------------------------------------
//- Envía por Ajax el javascript indicado, abriendo la ventana modal y posicionándose en el campo
//. cText: Texto a enviar
//. cModal: Id de la ventana a abrir
//. cFocus: Id del control que tomará el foco

FUNCTION SendAjaxScript( cText, cModal, cFocus )

   IF !Empty( cModal )
      cText += cOpenModal( cModal )
   ENDIF

   IF !Empty( cFocus )
      cText +=  SetFocus( cFocus )
   ENDIF

   oCGI:Send( "" )
   oCGI:Send( IF(At("<SCRIPT>",Upper(ToString(cText)))=0,"<script>","") + crlf + ToString(cText) + crlf + "</script>" )

RETURN NIL

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

//- Envía por Ajax el javascript indicado, abriendo la ventana modal y posicionándose en el campo

//. cText: Texto a enviar

//. cModal: Id de la ventana a abrir

//. cFocus: Id del control que tomará el foco

FUNCTION SendAjaxScript( cText, cModal, cFocus )

IF !Empty( cModal )

cText += cOpenModal( cModal )

ENDIF

IF !Empty( cFocus )

cText += SetFocus( cFocus )

ENDIF

oCGI:Send( "" )

oCGI:Send( IF(At("<SCRIPT>",Upper(ToString(cText)))=0,"<script>","") + crlf + ToString(cText) + crlf + "</script>" )

RETURN NIL

Feliz año!!

Esta respuesta fue modificada 5 años, 10 meses por Alfredo Sanz.

Autor

Entradas

Mostrando 0 respuestas a los debates

Debes estar registrado para responder a este debate.