Power Builder - como verificar llenado de fecha en DW

Quisiera verificar al momento de hacer Click en un boton si en un datawindows (dw_4) el campo de fecha (DD/MM/YYYY) ha sido ingresado para validar otras cosas, este es mi código, pero no sale nada:

dw_4.AcceptText ( )
date my_date
long ll_row
string fecha
ll_row = dw_4.GetRow ( )
my_date = Date(dw_4.Object.fechainspxcola[ll_row])
fecha = String(my_date)
if fecha = "" then
MessageBox("Error", "La fecha no ha sido ingresada")
else
MessageBox("Error", "La fecha ha sido ingresada")
end if

Hola..!!

porque no validas directamente en el DW, en el diseño, has doble click sobre ese
campo y ve a Validation, y alli validas....!! es lo que hago yo, ademas de que
es mas rapido, ya que no tiene que ejecutar ningun script

dw_4.AcceptText ( )
date my_date
ll_row = dw_4.GetRow()
my_date = dw_4.Object.fechainspxcola[ll_row]
if isnull(my_date) then
MessageBox("Error", "FECHA NO INGRESADA")
else
MessageBox("Error", "FECHA INGRESADA")
end if

dw_4.AcceptText ( )
date my_date
long ll_row
string fecha
ll_row = dw_4.GetRow ( )
my_date = Date(dw_4.Object.fechainspxcola[ll_row])
fecha = String(my_date)

//
//utiliza la funcion isdate()
//

if isdate(fecha) then
MessageBox("Error", "La fecha ha sido ingresada")
else
MessageBox("Error", "La fecha no ha sido ingresada")
end if

No sé exactamente que es lo que quieras hacer, pero si estás en una ventana donde el usuario
proporciona la información al dw lo mejor será que valides al introducir la información.
Puedes codificar el el evento del dw itemchanged, este evento es disparado cuando cambias el contenido
del campo e intentas moverte a otro campo

...
//itemchanged
string ls_fecha
CHOOSE CASE dwo.name //obtiene el nombre de la columna
CASE ´campo_fecha´ //si es la columna que quieres validar
ls_fecha = data
if trim (Is_fecha) = ´´ then
messagebox ( "AVISO", "Debe proporcionar la Fecha", exclamation! )
return 1 //para que no permita el cambio de foco
else
if NOT IsDate ( data ) then
messagebox ( "AVISO", "La fecha introducida no es válida, revise, exclamation! )
return 1
end if
end if
return 0 //acepta el dato
END CHOOSE
...

//itemerror, es disparado cuando ocurre un error de validación
return 1 //para que no muestre el error del dw y sólo muestre el que le codifiques


salu2
MEXICO