WFileOpenDlg() - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

Etiquetado: WFileOpenDlg

Este debate tiene 4 respuestas, 2 mensajes y ha sido actualizado por última vez el 4 años, 2 meses por Alfredo Sanz. This post has been viewed 645 times

Mostrando 4 respuestas a los debates

Autor

Entradas

24-09-2020 a las 16:01 #755
Xevi
Participante
Algunas "cosillas" que no encuentro en WFileOpenDlg()

Poder limitar qué ficheros voy a localizar/filtrar

Algo así como :aFileList := { "*.xls", "*.xlsx" } o :aAccept:= { "*.xls", "*.xlsx" }

Tambien, como establecer un nombre de fichero de entrada, al crear el objeto mismamente, que se muestre ya de entrada, sin antes haber pulsado la búsqueda del fichero

Algo así como :cFileName := "D:\mifichero.xls"

Un Saludo,

Xevi.
- Este debate fue modificado 4 años, 2 meses por Xevi.
- Este debate fue modificado 4 años, 2 meses por Alfredo Sanz.
25-09-2020 a las 08:23 #773

Alfredo Sanz
Superadministrador

La property para filtrar ficheros es :cAccept

puede pasarle tanto el tipo de ficheros que aceptas

:cAccept := "application/vnd.ms-excel"

como las extensiones separadas por comas

:cAccept := ".xlsx, .xls"

El poder poner un dato por defecto en el nombre del fichero es algo que no permite la seguridad de html, Para poder enviar el fichero el usuario ha tenido que hacer una acción positiva para seleccionarlo.

25-09-2020 a las 09:56 #780

Xevi

Participante

Supongo que es por la versión que tengo de Néfele...
:cAccept := ".xlsx, .xls"

Error en /provanefele
El siguiente error ha ocurrido: Message not found
WFileOpenDlg:_CACCEPT
BASE 1005
Arguments: [ 1] = Tipo: O Valor:
Error code: 0
Llamado desde __ERRRT_SBASE(0)
Llamado desde WFILEOPENDLG:ERROR(0)
Llamado desde (b)HBOBJECT(0)
Llamado desde WFILEOPENDLG:MSGNOTFOUND(0)
Llamado desde WFILEOPENDLG:_CACCEPT(0)
Llamado desde EXCEL2SEPA(169)
Llamado desde (b)TCGI(36)
Llamado desde TCGI:EXCEL2SEPA(0)
Llamado desde __OBJSENDMSG(0)
Llamado desde TCGI:RUN(1190)
Llamado desde CGI_INIT(22)
Llamado desde MAIN(16)


Por favor, anote lo que estaba haciendo cuando este problema ocurrio, para poder identificarlo y corregirlo, gracias.

Error en /provanefele

El siguiente error ha ocurrido: Message not found

WFileOpenDlg:_CACCEPT

BASE 1005

Arguments: [ 1] = Tipo: O Valor:

Error code: 0

Llamado desde __ERRRT_SBASE(0)

Llamado desde WFILEOPENDLG:ERROR(0)

Llamado desde (b)HBOBJECT(0)

Llamado desde WFILEOPENDLG:MSGNOTFOUND(0)

Llamado desde WFILEOPENDLG:_CACCEPT(0)

Llamado desde EXCEL2SEPA(169)

Llamado desde (b)TCGI(36)

Llamado desde TCGI:EXCEL2SEPA(0)

Llamado desde __OBJSENDMSG(0)

Llamado desde TCGI:RUN(1190)

Llamado desde CGI_INIT(22)

Llamado desde MAIN(16)

Por favor, anote lo que estaba haciendo cuando este problema ocurrio, para poder identificarlo y corregirlo, gracias.

Un Saludo,

Xevi.

25-09-2020 a las 10:59 #781

Alfredo Sanz
Superadministrador

Sí. había un error en esa versión. En un par de días publicaremos la corregida

25-09-2020 a las 16:55 #789

Alfredo Sanz

Superadministrador

Parece que Quim tiene algún problemilla para postear.

Te indico la respuesta en su nombre

Xevi

Siempre nos queda poder programar funcionalidades personalizadas
Néfele te permite 'meter el cuchillo' y extender sin límite 😉

Fíjate en el siguiente código :

static function myScript()

   local cScript := ""

   TEXT INTO cScript

   var form = document.querySelector('#uploads'); // ==  WForm():cId

   // Interceptando accion por defecto del formulario
   form.onsubmit = function(e) {

      // mostrar popup, capturar datos, etc
      prompt("Please enter your name", "Harry Potter");

      // parar propagación del evento original
      e.preventDefault();

      // devolver true / false si dejamos que el formulario siga
      // con la accion programada original
      return false;
   }

   ENDTEXT

return cScript

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

   WITH OBJECT TWebPage():New()
     
      AAdd( :aScript, myScript() )

      WITH OBJECT WForm():New(:WO)
         :cId       := "uploads"
         :cFunction := "myfunction"

         WITH OBJECT WFileOpenDlg():New(:WO)
            :cName     := "files"
            :cTitle    := "Seleccione uno o varios archivos para adjuntar"
            :lMultiple := .T.
            :Create()
         END
         WITH OBJECT WButton():New(:WO)
            :lSubmit := .T.
            :cText   := "Subir"
            :Create()
         END
      :Create()
      END
      oCGI:SendPageNoCache( :Create() )
   END

static function myScript()

local cScript := ""

TEXT INTO cScript

var form = document.querySelector('#uploads'); // == WForm():cId

// Interceptando accion por defecto del formulario

form.onsubmit = function(e) {

// mostrar popup, capturar datos, etc

prompt("Please enter your name", "Harry Potter");

// parar propagación del evento original

e.preventDefault();

// devolver true / false si dejamos que el formulario siga

// con la accion programada original

return false;

}

ENDTEXT

return cScript

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

WITH OBJECT TWebPage():New()

AAdd( :aScript, myScript() )

WITH OBJECT WForm():New(:WO)

:cId := "uploads"

:cFunction := "myfunction"

WITH OBJECT WFileOpenDlg():New(:WO)

:cName := "files"

:cTitle := "Seleccione uno o varios archivos para adjuntar"

:lMultiple := .T.

:Create()

END

WITH OBJECT WButton():New(:WO)

:lSubmit := .T.

:cText := "Subir"

:Create()

END

:Create()

END

oCGI:SendPageNoCache( :Create() )

END

Autor

Entradas

Mostrando 4 respuestas a los debates

Debes estar registrado para responder a este debate.