FoxPro/Visual FoxPro - Ciclo for con el dato Hora...?

   
Vista:

Ciclo for con el dato Hora...?

Publicado por Marcelo (69 intervenciones) el 27/06/2012 15:25:08
Hola amigos...nuevamente por aca...En un post anterior pedia ayuda para generar un ciclo for con los dias del mes, el tema, con la ayuda de ustedes lo pude solucionar, ahora necesito generar casi lo mismo pero con la unica diferencia que la idea es hacer un informe con las horas del dia (este dato es DATETIME)...es decir que me muestre todos los movimientos de las tarjetas por cada hora del dia seleccionado, comenzando a las seis de la mañana y terminando a las 23 horas...tengo un codigo que solo me trae la primera hora porque no se como preguntarle por la primera hora, asi que lo puse en duro, luego la segunda y asi sucesivamente, debo señalar que cada hora debe ser en el siguiente formato 06:00 a 06:59 ...aqui les dejo el codigo...Gracias amigos

GO TOP IN selest && es el cursor

STOR CTOD(ALLT(STR(m_diac04)) + '/' + ALLT(STR(m_mes)) + '/' + ALLT(STR(m_anoc04))) TO WSfec
IF TTOD(selest.fecha) = wsfec
SCAN WHILE ttoc(selest.fecha,2) >= '06:00:00AM' .and. ttoc(selest.fecha,2) <= '06:59:59AM'
DO case
CASE Inlist(Selest.n_serie_ca,101,102,103)
m_est1 = m_est1 + 1
CASE Inlist(Selest.n_serie_ca,201,202,203)
m_est2 = m_est2 + 1
CASE Inlist(Selest.n_serie_ca,301,302,303)
m_est3 = m_est3 + 1
CASE Inlist(Selest.n_serie_ca,401,402,403)
m_est4 = m_est4 + 1
CASE Inlist(Selest.n_serie_ca,501,502,503,504,505,506)
m_est5 = m_est5 + 1
CASE Inlist(Selest.n_serie_ca,601,602,603,604,605,606,607,608)
m_est6 = m_est6 + 1
CASE Inlist(Selest.n_serie_ca,701,702,703)
m_est7 = m_est7 + 1
CASE Inlist(Selest.n_serie_ca,801,802,803)
m_est8 = m_est8 + 1
CASE Inlist(Selest.n_serie_ca,901,902,903)
m_est9 = m_est9 + 1
CASE Inlist(Selest.n_serie_ca,1001,1002,1003)
m_est10 = m_est10 + 1
CASE Inlist(Selest.n_serie_ca,1101,1102,1103,1104)
m_est11 = m_est11 + 1
CASE Inlist(Selest.n_serie_ca,1201,1202,1203)
m_est12 = m_est12 + 1
CASE Inlist(Selest.n_serie_ca,1301,1302,1303)
m_est13 = m_est13 + 1
CASE Inlist(Selest.n_serie_ca,1401,1402,1403)
m_est14 = m_est14 + 1
CASE Inlist(Selest.n_serie_ca,1501,1502,1503,1504)
m_est15 = m_est15 + 1
CASE Inlist(Selest.n_serie_ca,1601,1602,1603,1604,1605)
m_est16 = m_est16 + 1
ENDCASE
ENDSCAN
APPEND BLANK IN resulgrid2
REPLACE resulgrid2.est1grid2 WITH m_est1 IN resulgrid2
REPLACE resulgrid2.est2grid2 WITH m_est2 IN resulgrid2
REPLACE resulgrid2.est3grid2 WITH m_est3 IN resulgrid2
REPLACE resulgrid2.est4grid2 WITH m_est4 IN resulgrid2
REPLACE resulgrid2.est5grid2 WITH m_est5 IN resulgrid2
REPLACE resulgrid2.est6grid2 WITH m_est6 IN resulgrid2
REPLACE resulgrid2.est7grid2 WITH m_est7 IN resulgrid2
REPLACE resulgrid2.est8grid2 WITH m_est8 IN resulgrid2
REPLACE resulgrid2.est9grid2 WITH m_est9 IN resulgrid2
REPLACE resulgrid2.est10grid2 WITH m_est10 IN resulgrid2
REPLACE resulgrid2.est11grid2 WITH m_est11 IN resulgrid2
REPLACE resulgrid2.est12grid2 WITH m_est12 IN resulgrid2
REPLACE resulgrid2.est13grid2 WITH m_est13 IN resulgrid2
REPLACE resulgrid2.est14grid2 WITH m_est14 IN resulgrid2
REPLACE resulgrid2.est15grid2 WITH m_est15 IN resulgrid2
REPLACE resulgrid2.est16grid2 WITH m_est16 IN resulgrid2
m_total = (m_est1 + m_est2 + m_est3 + m_est4 + m_est5 + m_est6 + m_est7 + m_est8 + m_est9 + m_est10 + m_est11 + m_est12 + m_est13 + m_est14 ;
+ m_est15 + m_est16)
REPLACE resulgrid2.totgrid2 WITH m_total IN resulgrid2
REPLACE resulgrid2.horgrid2 WITH '6:59 AM' IN resulgrid2
STORE 0 TO m_est1, m_est2, m_est3, m_est4, m_est5, m_est6, m_est7, m_est8, m_est9, m_est10, m_est11, m_est12, m_est13;
, m_est14, m_est15, m_est16
ELSE
APPEND BLANK IN resulgrid2
REPLACE resulgrid2.est1grid2 WITH m_est1 IN resulgrid2
REPLACE resulgrid2.est2grid2 WITH m_est2 IN resulgrid2
REPLACE resulgrid2.est3grid2 WITH m_est3 IN resulgrid2
REPLACE resulgrid2.est4grid2 WITH m_est4 IN resulgrid2
REPLACE resulgrid2.est5grid2 WITH m_est5 IN resulgrid2
REPLACE resulgrid2.est6grid2 WITH m_est6 IN resulgrid2
REPLACE resulgrid2.est7grid2 WITH m_est7 IN resulgrid2
REPLACE resulgrid2.est8grid2 WITH m_est8 IN resulgrid2
REPLACE resulgrid2.est9grid2 WITH m_est9 IN resulgrid2
REPLACE resulgrid2.est10grid2 WITH m_est10 IN resulgrid2
REPLACE resulgrid2.est11grid2 WITH m_est11 IN resulgrid2
REPLACE resulgrid2.est12grid2 WITH m_est12 IN resulgrid2
REPLACE resulgrid2.est13grid2 WITH m_est13 IN resulgrid2
REPLACE resulgrid2.est14grid2 WITH m_est14 IN resulgrid2
REPLACE resulgrid2.est15grid2 WITH m_est15 IN resulgrid2
REPLACE resulgrid2.est16grid2 WITH m_est16 IN resulgrid2
REPLACE resulgrid2.horgrid2 WITH '6:59 AM' IN resulgrid2
STORE 0 TO m_est1, m_est2, m_est3, m_est4, m_est5, m_est6, m_est7, m_est8, m_est9, m_est10, m_est11, m_est12, m_est13;
, m_est14, m_est15, m_est16
ENDIF

.....gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder