Mes: mayo 2017

arrCertificate is array of Certificates
MyCertificate is Certificate

arrCertificate = CertificateLoad("d:\micertificado.pfx", "miclave")
MyCertificate = arrCertificate[1]

Certif is string
cDias is string

// datos para pasarle al HTTP
Certif = MyCertificate.Name

// Comprobar validez
cDias = Val(Today()) - Val(Left(MyCertificate.EndValidityDate,8))

IF Val(cDias) > 0 THEN
     Info("El Certificado está caducado.")
     Return
END
 
HTTPCertificate(Certif)

Novedades WD 21

Mira la siguiente linea:

// Path Fichero *.ini
iniPath is string = "C:\myini.ini"

// Observese las tres comillas pues la cadena tiene espacios.
bStarted is boolean = ExeRun("""D:\My Projects\IIS\Exe\IIS.exe"" " +
iniPath, exeActive, exeDontWait)

// La aplicación a la que se llama para que cargue el parametro que se le adjunta tiene que abrirse con:
iniPath is string = CommandLine()

Indudablemente la mejor forma de acceder a ficheros dbf es la forma indicada en esta entrada

No obstante puede ser que en alguna ocasión sólo tengamos que leer (no escribir) ficheros DBF y nos plantee algun tipo de dificultad instalar el driver OLE DB

En esos casos se puede usar un código parecido a este:

HMode(«*», hModeMono)
HDBOpenNoLock(«tabla1», «OR», «C:\<micarpeta>\tabla1.DBF»)
HReadFirst(«tabla1», «nid») // nid es el campo indice principal de la tabla (me parece)
WHILE HOut() = False
Info({«tabla1.campo1»})
HReadNext()
END

Si miras alguno de los ejemplos del WinDev verás que te vienen con el código en Frances.

Para cambiarlos a Inglés lo que hay que hacer es lo indicado en la foto.

Las instrucciones que hay para esto son un poco vagas pero una vez instalado funciona perfectamente y se puede acceder desde windows.

Copia los ficheros manta_install y mantainstall.zip en Linux en tu carpeta dentro de ‘Home’.

Haz ejecutable manta_install executable mediante sudo chmod +x manta_install

A continuación –

sudo ./manta_install

Sigue las indicaciones de la pantalla. Deberias hacer scroll y aceptar el readme o de lo contrario no aparecerá el boton de Instalar.

El instalador carga el programa como un servicio. Al re-inicializar lo podrán en marcha.

Debes redirigir el puerto 4900 del router al HFSQL server para permitir un uso externo.

DayArray is array of strings = ["Monday", "Tuesday", "Wednesday", "Thursday", "Friday"]
sAux is string
// ---------------------
// Método tradicional
// ---------------------
FOR EACH sDay OF DayArray
 // Para el primer caso
 IF sAux = "" THEN
 sAux = sDay
  // Para el resto de casos
 ELSE
 sAux = sAux + "," + sDay
 END
END
Info(sAux)
// ---------------------
// Método reducido
// ---------------------
FOR EACH sDay OF DayArray
 // Con "optionally concatenate strings", lo tenemos en una sola línea, ya que solamente añadirá el separador si "sAux" no está vacío
 sAux += [","] + sDay
END
 Info(sAux)