Problemas lanzando el ejecutable desde tarea programada

[juggern]

Buenos días chicos,

Os traigo otro problemilla de estos raros que me pasan.

Verán, tengo una aplicación que se puede ejecutar normal o lanzarla desde tarea programada para que lo haga todos los días a cierta hora.
Lo tengo en muchos clientes y en todos funciona, salvo en uno, que de repente ha empezado a no funcionar a medias.
Verán, cuando arranco yo el programa y lanzo el proceso desde un botón que tengo, funciona bien, pero cuando lo lanza la tarea programada, no funciona bien.

El fallo principal, es que coge una fecha guardada en un .ini. Cuando lo lanzo desde el botón, coge bien esa fecha, pero cuando lo lanza la tarea programada, no me reconoce la fecha y me guarda la fecha mínima de sql.
La tarea tira del mismo ejecutable y del mismo .ini, lo he comprobado.
Para leer esta fecha hago lo siguiente:

Código Delphi [-]
fecha:= oArchivo.ReadDateTime('FECHA', 'UltimaFecha', 31/12/2000);

Como os comento, esto me funciona en todos los clientes, incluso en este llevaba funcionando un año hasta que ha empezado a pasar esto.

Dándole vueltas a alternativas, he probado a guardar la fecha como string y luego pasarla a fecha. De esta manera, el string me lo guarda bien, pero a la hora de pasarlo a Date, el programa se para.
De nuevo es muy raro, porque si lo lanzo manualmente funciona, pero a través de la tarea programada, no funciona.

Código Delphi [-]
    fechastring:= oArchivo.ReadString('FECHA', 'UltimaFecha', '31/12/2000');
    fechadate:= StrToDate(fechastring);

Se para en el guardado en fechadate, lo he comprobado guardando logs.

Me tiene un poco loco esto.

Se os ocurre algo?

Muchas gracias

[[kuan-yiu]]

Sin más datos parece que se debe a una actualización reciente de Windows, seguramente un tema de permisos.

[juggern]

Lo tengo puesto como administrador y ejecutar con los privilegios más altos.

Igualmente es que es muy raro, porque no funcionan cosas como strtoDate, que no entiendo en que puede influir que lance el proceso con un botón o con tarea programada.

Estoy bastante perdido.

En el botón le tengo puesto simplemente lanzar el procedimiento y en la tarea programada, lanzo el procedimiento que lo puse como parámetro dentro del ejecutable.

[Casimiro Notevi]

¿El formato de fechas en ese equipo?

[[kuan-yiu]]

Esos errores que surgen de la noche a la mañana no suelen ser por nada de tu aplicación sino por el entorno en el que se ejecuta.
Revisa (solo por descartar) si la tarea se ejecuta correctamente en otro puesto que tenga el mismo sistema operativo y la misma actualización, la misma versión de tu programa, de tu base de datos, de fecha.
Si yo te contara la de cosas extrañas que me han sucedido por actualizaciones: pdfs que ya no abre acrobat, impresoras que solo imprimen la primera hoja o que dejan de imprimir después de x veces, mensajes que quedan por detrás de otra ventana...

[juggern]

Voy a revisar todo eso a ver, sobre todo lo del formato de fechas porque si que veo que cuando me coge la fecha base de sql que es 30/12/1899, me pone 12/30/1899, puede ir por ahí, pero no entiendo porqué entonces falla cuando lo lanzo de una manera y no falla de la otra.

Me edito:

Nada, la fecha no parece ser, es un windows server 2008.

No entiendo nada, es un simple StrtoDateTime que funciona al ejecutarlo de una forma y de la otra no. No se.
Debe de ir por ahí porque si hago, al coger el dato del ini. ReadString, me lo lee bien, pero si hago un .ReadDateTime para guardarlo en un TDateTime, no lo coge bien.

[juggern]

Os enseño más pruebas que estoy haciendo.

El .ini tiene lo siguiente:

[FECHA]
UltFecha=24/02/2021 12:36:13

En el código me he creado 2 variables, una string sUltFecha y otra datetime dUltFecha.

He hecho que me escriba mensajes en un fichero.

El código es:

Código Delphi [-]
    sUltFecha:= oArchivo.ReadString('FECHA', 'UltFecha', '31/12/1999');
    WriteLN(Fich, 'FECHA STRING : '+sUltFecha);
    dUltFecha:= oArchivo.ReadDateTime('FECHA', 'UltFecha', 31/12/1999);
    WriteLN(Fich, 'FECHA DATETIME: '+DateTimetoStr(dUltFecha));

Si lo lanzo arrancando el exe y dándole al botón que llama al procedimiento, me escribe esto en el fichero:

FECHA STRING : 24/02/2021 12:35:02
FECHA DATETIME: 24/02/2021 12:35:02

Si lanzo el procedimiento a través de la tarea programada, me escribe esto en el fichero:

FECHA STRING : 24/02/2021 12:36:13
FECHA DATETIME: 12/30/1899 12:01:51 AM

No lo entiendo, en el equipo no veo nada raro y no se ha actualizado.