Power Builder - Fecha, separada por DD, MM, YYYY

Amigos

Tengo una mantencion donde se comprobantes,
El ingreso consiste en solicitar al usuario
ANO:
MES
TIPO
NUMERO

El tema es que la data dw existe la columna fecha con formato datetime, tambien tiene una columna dia, donde se pide solo el dia del comprobante (debe ser del rango del mes indicado).
Como controlo cuando modifique el dia, que este no sea mayor al rango del mes o que no sea cero.

Atte

Andres

Saludos validas con Isdate(string(fecha)) por ej...

integer dia, mes, ano
IF IsDate(string(dia)+'/'+string(mes)+'/'+string(ano) THEN
MessageBox('Atención','Fecha Correcta')
ELSE
MessageBox('Atención','Fecha Incorrecta')
END IF

ESPERO QUE TE SIRVA...

Leopoldo

Hice las pruebas y resulta, pero en el evento itemchanged, como lo hago para que se quede en el campo del dia hasta que entregue un dato valido

Atte

Andres

Gracias por tu ayuda

Saludos....

Le pones al mismo objeto en la validación cuando hay error...
this.SetFocus()

espero que te sirva...

Leopoldo

Funciono perfecto, muchas gracias.

Este es el codigo

integer i
datetime ls_fecha
ls_ano = this.object.ano [row]
ls_mes = this.object.mes [row]
ls_dia = double(data)
IF IsDate(string(ls_dia)+'/'+string(ls_mes)+'/'+string(ls_ano)) THEN
// MessageBox('Atención','Fecha Correcta')
ls_fecha = f_fecha(ls_ano,ls_mes,ls_dia)
this.Object.fecha [row] = ls_fecha
this.Object.dia [row] = ls_dia
MessageBox("Atención Fecha Correcta",string(this.Object.fecha [row],"dd/mm/yyyy"))
for i = 1 TO dw_movtos.RowCount()
dw_movtos.object.dia [i] =this.object.dia [row]
dw_movtos.object.fecha[i] =this.object.fecha [row]
dw_movtos.object.fecha_emi[i] =this.object.fecha[row]
end for
cb_grabar .enabled = true
ELSE
// MessageBox('Atención','Fecha Incorrecta')
this.Trigger Event itemError (row,this.object.fecha,data)
this.SetFocus()
return 2
END IF