soldat
12 de Abril del 2005

tengo el siguiente codigo que me debe mostrar informacion mensual, como puedo hacer que me muestre la informacion e incremente en forma automatica hasta ser <=31
fech=thisform.text7.value
dia=substr(fech,0,2)
select remisionf,proveedor,generorex,producto,fentrada,cantentra from tabla_rex where proveedor=proveed and fentrada>= ctod ('thisform.text7.value') while dia <31 into dbf anexorep

gracias de antemano