Trabajar entre fechas e incrementar
Bueno resulta que en una tabla, donde tengo dos fechas, una fecha de inicio y una fecha de fin.
Lo que quiero hacer es presentar un informe con un listados desde la fecha uno hasta la fecha dos incrementando de a un día y los domingos tacharlos.
Y también lo querría realizar en una grilla y agregarle un campo check de esta forma poder llegar a hacer un control de pagos diarios por ejemplo.
Desde ya muchas gracias, y espero su ayuda.
Saludos, cgharo
Lo que quiero hacer es presentar un informe con un listados desde la fecha uno hasta la fecha dos incrementando de a un día y los domingos tacharlos.
Y también lo querría realizar en una grilla y agregarle un campo check de esta forma poder llegar a hacer un control de pagos diarios por ejemplo.
Desde ya muchas gracias, y espero su ayuda.
Saludos, cgharo
1 respuesta
Respuesta de Cesar Enrique Yamunaque Baca
1
Puedes usar un código como el siguiente
If !Beetween(FInicio,Fecha1,Fecha2)
Loop
Endif
aFields(laArray,miTabla)
Create cursor cCursor From array LaARRAY
Select(miTabla)
Scan
<span style="white-space: pre;"> </span>If !Beetween(FInicio,Fecha1,Fecha2)
<span style="white-space: pre;"> </span>Loop
<span style="white-space: pre;"> </span>Endif
<span style="white-space: pre;"> </span>If !Beetween(Ffinal,Fecha1,Fecha2)
<span style="white-space: pre;"> </span>Loop
<span style="white-space: pre;"> </span>Endif
<span style="white-space: pre;"> </span>IF DOW(Finicio)=1 && Dia domingo
<span style="white-space: pre;"> </span>LOOP
<span style="white-space: pre;"> </span>ENDIF
<span style="white-space: pre;"> </span>Scatter memvar
<span style="white-space: pre;"> </span>Insert into cCursor From memvar
EndScan
Select(cCursor)
Al Grid Simplemente ubicate en la columna donde quieres ingresar el CheckBox Selecciona el CheckBox y luego en el currentecontrol de la columna selecciona el checkBox
SALUDOS
If !Beetween(FInicio,Fecha1,Fecha2)
Loop
Endif
aFields(laArray,miTabla)
Create cursor cCursor From array LaARRAY
Select(miTabla)
Scan
<span style="white-space: pre;"> </span>If !Beetween(FInicio,Fecha1,Fecha2)
<span style="white-space: pre;"> </span>Loop
<span style="white-space: pre;"> </span>Endif
<span style="white-space: pre;"> </span>If !Beetween(Ffinal,Fecha1,Fecha2)
<span style="white-space: pre;"> </span>Loop
<span style="white-space: pre;"> </span>Endif
<span style="white-space: pre;"> </span>IF DOW(Finicio)=1 && Dia domingo
<span style="white-space: pre;"> </span>LOOP
<span style="white-space: pre;"> </span>ENDIF
<span style="white-space: pre;"> </span>Scatter memvar
<span style="white-space: pre;"> </span>Insert into cCursor From memvar
EndScan
Select(cCursor)
Al Grid Simplemente ubicate en la columna donde quieres ingresar el CheckBox Selecciona el CheckBox y luego en el currentecontrol de la columna selecciona el checkBox
SALUDOS
