Ordenamiento

Buenas tardes experto necesito ordenar el resultado de este código para poder guardarlo de acuerdo a mi necesidad estuve intentando pero no graba como yo quiero te explico al restar fecha actual con fecha de Nacieminto obtengo Edad, Mes y Días pero cuando yo presiono guardar quiero que sea de esta manera:
Si tiene EDAD, No debe de guardar Mes y Días
Si tiene Mes, No guarda Días
Si solo es días es lo único que guardara
mFecNac=thisform.text1.value
mFecHoy=thisform.text2.value
mFecNacS=dtos(mFecNac)
mFecHoyS=dtos(mFecHoy)
mAños=year(mFecHoy)-year(mFecNac)
mAños=mAños-iif(right(mFecNacS,4)>right(mFecHoyS,4),1,0)
mMeses=month(mFecHoy)-month(mFecNac)
mMeses=iif(mMeses<=0,mMeses+11,mMeses)
mMesPasado=mFecHoy-30
mDias=mFecHoy-ctod(str(day(mFecNac),2)+'/'+iif(day(mFecNac)>day(mFecHoy),str(month(mMesPasado),2)+'/'+str(year(mMesPasado),4),str(month(mFecHoy),2)+'/'+str(year(mFecHoy),4)))
mEdadExacta=transform(mAños)
thisform.edad.value=mEdadExacta
m=transform(mMeses)
thisform.mes.value=m
d=transform(mDias)
thisform.dias.value=d
if messagebox("Desea grabar los registros",36,"Mensaje del Sistema")=6
append blank
replace edad with ed
replace mes with me
replace dias with di
endif
Gracias

1 respuesta

Respuesta
1
Intenta:
m.dFecNac = ThisForm.Text1.Value
m.dFecHoy = ThisForm.Text2.Value
m.nAños = Year(m.dFecHoy) - Year(m.dFecNac)
m.nMeses = Month(m.dFecHoy) - Month(m.dFecNac)
m.nDias = Day(m.dFecHoy) - Day(m.dFecNac)
If m.nDias < 0
   m.nAnterior = Day( Date(Year(m.dFecHoy), Month(m.dFecHoy), 1 ) - 1 )
   m.nDías = m.nDias - m.nAnterior
   m.nMeses = m.nMeses - 1
EndIf
If m.nMeses < 0
   m.nMeses = m.nMeses + 12
   m.nAños = m.nAños - 1
EndIf
m.nEdad = Iif( m.nAños > 0, m.nAños, Iif(m.nMeses > 0, m.nMeses, m.nDias))
If messagebox("Desea grabar los registros",36,"Mensaje del Sistema")=6
   Append Blank
   Replace edad With m.nEdad
EndIf
Hola experto sale un error y dice "No coincide los tipos de datos" y cuando presiono suspender se posiciona en replace edad with m.nEdad
¿El campo edad es numérico?
Hola experto es de tipo char la edad, mes y días
Entonces cambia la línea:
Replace edad With m.nEdad
por
Replace edad With AllTrim( Str( m.nEdad ) )
Gracias amigo por la ayuda te agradezco un montón, pero en mi tabla tengo 3 campos y me gustaría que si fue edad, mes o días se guarde en el campo correspondiente.
Gracias Experto
Tu dices que Si tiene EDAD, No debe de guardar Mes y Días
Si tiene Mes, No guarda Días
Si solo es días es lo único que guardara
Y por eso en la instrucción:
m.nEdad = Iif( m.nAños > 0, m.nAños, Iif(m.nMeses > 0, m.nMeses, m.nDias))
Se guarda en la variable "m.nEdad" los años, si existen, si son cero entonces los meses, y si los meses son cero entonces los días
Pero si deseas guardar en cada campo, cambia el código:
If Messagebox("Desea grabar los registros",36,"Mensaje del Sistema") = 6
     Append Blank
     Replace edad With Alltrim( Str( m.nEdad ) )
EndIf
Por:
If Messagebox("Desea grabar los registros",36,"Mensaje del Sistema")=6
     Append Blank
     Replace edad With Alltrim( Str( m.nAños ) )
     If m.nAños = 0
          Replace mes With Alltrim( Str( m.nMeses ) )
          If m.nMeses = 0
               Replace dias With Alltrim( Str( m.nDias ) )
          EndIf
     EndIf
EndIf

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

No funciona el Insert Into Values

Estoy programando en Foxpro con BD en SQL, estoy agregando un registro a una tabla con el Insert Into Values, no me da error pero no me ingresa el registro en la tabla, quizás estoy haciendo algo mal, yo en ese Insert Into Values agrego valores que...
2 respuestas

Ejecucion de Menu

Amigos expertos tengo un problemilla. He creado un archivo de menu en visual fox, pero no puedo ejecutar este archivo supongo que se ejecuta con el comando DO MENU nombre. MNX pero me da error de sintaxis, igual he intentado que este menu se ejecute...
2 respuestas

Llevar datos de un grid a un formulario para modificarlos

Estoy aprendiendo a programar en foxpro 9 y tengo la siguiente duda:Tengo un grid que muestra la tabla cliente, a la cual esta conectada. Lo que quisiera hacer es:en el evento doble click sobre cualquiera de los clientes mostrados en el grid, este me...
2 respuestas

¿Cómo guardar un archivo PDF?

Tengo un formulario que piede cedula del cliente dirección y un documento a guardar en la DBF que es un examen en archivo PDF Como grabo el la tabla ese archivo, de manera que cuando consulte por cedeula A) Pueda abrir el archivo PDF en pantalla B)...
2 respuestas

Añadir registro a un grid que contiene datos pero en cualquier parte del grid

Tengo un form que tiene varios text y un grid el cual esta relacionado con una tabla y le voy agregando registro mediante un click en un botón . Hasta ahí todo de lujo ! El problema es que el usuario quiere agregar un registro en cualquier parte del...
4 respuestas

Sumar columna de un grid

Pues yo nuevamente. Como hago para sumar toda la columna de un grid Ejemplo Grid: Cantidad Precio Total 100 10 1,000 50 10 500 Total 1,500
3 respuestas

Capturar Imagen y Grabarlo en Vfp

Estimado amigo de nuevo molestándote esta vez quisiera que ayudes a realizar lo siguiente se desea que al momento que el personal digite su código de ingreso, en pantalla le visualice y a la vez grabe en una tabla sus Nombres, hora que marco y foto...
4 respuestas

Como agrupar registros

¿Quisiera saber como agrupar registro y sumarlos a lva ves que los veo en un reporte? Ejemplo Tengo una tabla llamada PEDIDOS en la cual almaceno los pedidos de las rutas para el día siguiente Ruta articulo cantidad fecha 1 2-02 11 21/02/11 1 3-02 2...
2 respuestas

Comparación de Huellas Digitales

Quería saber si me pueden pasar un ejemplo de comparación de huellas digitales con Digital Persona U.are.U 4000 Estuve viendo en esta misma pagina que había alguien que hablaba sobre esto. Pero no se completo el tema. Solo necesito un ejemplo de...
2 respuestas

Ayuda para poder manipula lector de huellas

Necesito ayuda con respecto a como poder controlar un lector de huellas digital (microsoft fingerprint reader), puesto que se me ha requerido crear un proyecto que permita controlar entradas y salidas de personal utilizando un lector de huellas...
2 respuestas