Validación de Fecha

[jmeza]

Hola, alguien me podría ayudar como validar los ingresos de fechas en powercobolv9,
ya que este es un dato muy sensible de ingresar en forma errónea.
Ejemplo, que el día no sea mayor a 30 o 31 según el mes, que el mes no sea mayor 12, etc.

Favor si alguien me puede ayudar con una rutina de validación

Saludos

[Kuk]

jmeza, el control CmText tiene la opción de parseo de fecha que lo hace todo él solito! :)

[Fito]

Hola Amigos:

Yo siempre usé la fecha en los text como cobol picture zz/zz/zzzz y tengo una rutina de validación hecha por mi para controlarla, teniendo en cuenta bisiestos y todo.

A raiz de los que dice KUK, me puse a probar el rendertext date. Está muy bueno, porque la validación la hace solo.

Pero como siempre hay un pero, quiero preguntar, espero haceme entender.

Para agilizar la carga de las fechas, yo le hago que cuando ingrese el dia y le de enter, automáticamente le complete el mes y año en curso. Tambien si ingresa dia y mes y le da enter completa con el año en curso.

en el evento Return del textbox (txtFcpfec) hago lo siguente:


comienzo.
move "text" of txtFcpfec to fecha-ing.
perform completa-fecha. *> esta es la rutina que completa la fecha
move fecha-dma to "text" of txtFcpfec.

perform valida-fecha.
if error-fecha = 1
perform fecha-mal
go sale
end-if.

invoke txtFcpfecha "setfocus". *> acá hago foco el text siguiente

sale.
exit program.

#include "Copys\comunpro.cpy". *> acá tengo todas las rutinas de manejo de fechas


Acá pego la rutina "completa-fecha".


completa-fecha.
move function current-date to fecha-sis. *> tomo la fecha de sistema
if fecha-ing > zeros and < 32 *> acá pregunto si ingresó el dia solamente
move fecha-ing-2 to fecha-dma-dd
move fecha-sis-fec-mm to fecha-dma-mm
move fecha-sis-fec-aa to fecha-dma-aa
else
if fecha-ing > 31 and < 3113 *> acá pregunto si ingresó dia y mes
move fecha-ing-1 to fecha-dma-dd
move fecha-ing-2 to fecha-dma-mm
move fecha-sis-fec-aa to fecha-dma-aa
else
move fecha-ing to fecha-dma
end-if
end-if.
perform dma-to-amd. *> esta rutina simplemente es para dar vuelta la fecha dma a amd



Acá les pego la working, por si no se entienden las variables


01 variables-fecha global.
02 fecha-ing pic 9(8).
02 redefines fecha-ing.
03 pic x(4).
03 fecha-ing-1 pic 99.
03 fecha-ing-2 pic 99.

02 fecha-sis pic x(16).
02 redefines fecha-sis.
03 fecha-sis-fec pic 9(8).
03 redefines fecha-sis-fec.
04 fecha-sis-fec-aa pic 9999.
04 fecha-sis-fec-mm pic 99.
04 fecha-sis-fec-dd pic 99.
03 fecha-sis-hora pic 9(8).
03 redefines fecha-sis-hora.
04 fecha-sis-hora-hh pic 99.
04 fecha-sis-hora-mm pic 99.
04 fecha-sis-hora-ss pic 99.
04 fecha-sis-hora-ms pic 99.

02 fecha-amd pic 9(8).
02 redefines fecha-amd.
03 fecha-amd-aa pic 9999.
03 fecha-amd-mm pic 99.
03 fecha-amd-dd pic 99.
02 redefines fecha-amd.
03 fecha-amd-x pic x(8).

02 fecha-dma pic 9(8).
02 redefines fecha-dma.
03 fecha-dma-dd pic 99.
03 fecha-dma-mm pic 99.
03 fecha-dma-aa pic 9999.
03 redefines fecha-dma-aa.
04 fecha-century pic 99.
04 fecha-siglo pic 99.
02 redefines fecha-dma.
03 fecha-dma-x pic x(8).

02 fecha99-amd pic 9(6).
02 redefines fecha99-amd.
03 fecha99-amd-aa pic 99.
03 fecha99-amd-mm pic 99.
03 fecha99-amd-dd pic 99.
02 redefines fecha99-amd.
03 fecha99-amd-x pic x(6).

02 fecha99-dma pic 9(6).
02 redefines fecha99-dma.
03 fecha99-dma-dd pic 99.
03 fecha99-dma-mm pic 99.
03 fecha99-dma-aa pic 99.
02 redefines fecha99-dma.
03 fecha99-dma-x pic x(6).

02 fecha-4 pic 9999.
02 fecha-bisiesto pic 9999.

02 error-fecha pic 9.

02 fecha-editada.
03 fecha-editar pic zz/zz/zzzz.

02 fecha-inicial pic 9(8).
02 fecha-integer pic 9(8).
02 fecha-dias pic s9(8).
02 fecha-final pic 9(8).
02 fecha-1 pic 9(8).
02 fecha-2 pic 9(8).


Esta es la exlpicación de lo que hago.

Ahora el problema es que con el text en date, todo esto no lo voy a poder hacer, porque ya me da la fecha "terminada". Si ingreso solo el día, me completa con 010001 y el dia y mes me completa con año 0001.
Podría controlar que si el año es 0001 lo tomo como que no ingresó año, pero el tema es el mes, cómo diferencio el mes 01, no sé si no le puso mes o realmente puso enero.

A lo mejor me estoy "liando" mucho como dicen uds, pero no le veo la respuesta. Seguramente es más sencilla de lo que parece.

Saludos.

Fito...

[jmeza]

Ok, acostumbrado al rmcobol (dos) que hay que programar todas las validaciones.
Ahora lo haré con lo que me recomiendan.

Saludos

[Kuk]

Fito, yo nunca he hecho lo que tu haces, pero podrías probar con el evento "KeyPressed". Validando si lo que se ha pulsado es la tecla Enter, miras los valores.

Es posible que al darle, el control ya ponga el resto, pero puede que no. Pruébalo y nos cuentas.