FoxPro/Visual FoxPro - gomonth

   
Vista:

gomonth

Publicado por sebastian (244 intervenciones) el 15/10/2011 00:51:37
Hola programadores tengo un problema con la funcion gomonth, tengo un cliente que pasa consulta por ejm, 01/07/2011, y quiero validarlo para que NO vuelva pasar consulta dentro de los primeros 7 meses contando desde el ultimo dia de su atencion; ahora el cliente recien tendria su atencion el 01/02/2012, este es mi codigo muy agradecido a quien pueda ayudarme.

selec atenciones
set order to h_codigo
locate for h_codigo = alltrim(thisform.text1.value)
if found()
fecha_temp = h_fecha
if fecha >= gomonth( fecpa, -7 )
wait"Debe de pasar 7 meses para la próxima atencion"window nowait
endif
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

gomonth

Publicado por Juan Manuel Cruz juanmcruz@hotmail.com (508 intervenciones) el 17/10/2011 11:27:58
No nos dices cual es el valor de FECPA o de donde viene. Ni qué haces con la variable FECHA_TEMP

En todo caso el gomonth debería ser en positivo (7 meses a futuro) pero como no quedan claras tus variables, no podemos saberlo.

Otra más: ¿por qué usais SET ORDER y LOCATE si esta última es una búsqueda secuencial que no aprovecha los índices?

Siendo tan fácil algo como

selec atenciones
if seek( thisform.text1.value, 'atenciones', 'h_codigo' )
*** bla bla bla....
endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar