Llenar arreglos de fechas inicial...(Solucionado)

[ACC69]

Hola buenas noches,esperando no molestarles mucho, pero estoy tratando de rellenar arreglos y añadir a la base de datos, cada que haga cierre ,el detalle no se que estare haciendo mal con esa sencilla instrunccion, espero puedan apoyarme con esa rutina.

nI := 0
/*
dFecIni := (S01)->ULTAPLIC // Fecha Inicial 25/05/2014 25 de mayo de 2014
dFecFin := DATE() // Fecha Final 02/06/2014 02 de junio de 2014
*/

dFecIni := CTOD("25/05/2014") //(S01)->ULTAPLIC // Fecha Inicial 25/05/2014 25 de mayo de 2014
dFecFin := CTOD("02/06/2014") // DATE() // Fecha Final 02/06/2014 02 de junio de 2014


FOR nI := dFecIni TO dFecFin
/*
// Que me muestre las fechas desde la inicial hasta la final..para añadir a datos
25/05/2014 may
26/05/2014
27/05/2014
28/05/2014
29/05/2014
30/05/2014
30/05/2014
01/06/2014 jun
02/06/2014
*/

*MsgInfo(CTOD(nI+"/"+SUBS(dFecIni,3,2)+"/2014")) // Aqui que me arme el arreglo para incrementar fechas
// No se que hare haciendo mal...por aca...!
NEXT

Espero haberme explicado,pero no doy con una,con ese sencillo arreglo, o es con do while, como podria ser la instruccion correcta.

Saludos , esperando contar con su apoyo de siempre.

Atte: Adrian C. C.

[cmsoft]

Code: Select all  Expand view

LOCAL dFec
dFecIni := (S01)->ULTAPLIC // Fecha Inicial 25/05/2014 25 de mayo de 2014
dFecFin := DATE() // Fecha Final 02/06/2014 02 de junio de 2014
aDatos := {}
dFec := dFecIni
FOR nI := dFecIni TO dFecFin
      AADD(aDatos, dFec)
      dFec ++
NEXT

Y en aDatos te queda un arreglo con todas las fechas en el rango dado.

[ACC69]

Code: Select all  Expand view

LOCAL dFec
dFecIni := (S01)->ULTAPLIC // Fecha Inicial 25/05/2014 25 de mayo de 2014
dFecFin := DATE() // Fecha Final 02/06/2014 02 de junio de 2014
aDatos := {}
dFec := dFecIni
FOR nI := dFecIni TO dFecFin
      AADD(aDatos, dFec)
      dFec ++

      REPLACE XEMPLEADO WITH EMPLEADO
      REPLACE FECHAS WITH dFechas llenadas
NEXT

Y en aDatos te queda un arreglo con todas las fechas en el rango dado.

Hola buenas noches, nuevamente gracias por tu interes cmsoft, era tan sencilla la instruccion que no hallaba, pero queria grabar directamente al hacerle replace en un base de datos, pasa que este arreglo me servira de mucho para crear base de dato temporal, y comparar empleados, y fechas trabajadas con las fichadas, y eso procesara todas las asistencias si algun empleado no checo entrada, aun no le hallaba, pero ya mas o menos rompiendome la cabeza con esa rutina de procesos de asistencia.

Saludos y gracias de nuevo.

Atte: Adrian C. C.