Power Builder - Tip campos requeridos... espero les sirva a todos

Hola a todos:

Les paso este tip para los que quieran integrarlo a sus DataWindows...

A veces tenemos que validar mas de un campo requerido y que lo muestre al usaurio los campos que son necesarios de lenar con los datos.

pongamos un ejemplo:

imaginemos que tenemos una ventana con un datawindow que contiene 10 campos, y queremos validar cada uno para determinar cuales se requieren ingresar la informacion...

1) hay que crear un variable de tipo string y que sea de instancia
2) editar el datawindow y en cada campo entrar a las propiedades y seleccionar General de cada uno y en el campo tag poner el texto que deseamos que aparezca al usuario en los campos requeridos.
3) Hay que crear un boton que diga "Guardar"
4) Hay que crear un evento en el boton de "Guardar" que se llame ue_validar y su Event ID debe ser pbm_custom01
5) entrar al script de ue_validar y colocar éste código:

long row = 1
integer colnbr = 0
string colname,ls_msge,ls_campo
is_conti = 'S'
AcceptText ( dw_datawindow )

Do While row <> 0
colnbr++
if FindRequired( dw_datos,Primary!, &
row, colnbr, &
colname, false ) < 0 then exit

if row <> 0 then
ls_campo = Describe(dw_datawindow,colname+'.tag')
ls_msge = ls_msge+'~n'+'* '+ls_campo
is_conti = 'N'
end if
loop

if is_conti = 'N' then MessageBox('Campos requeridos ...',ls_msge,StopSign! )

3) En el evento clicked ponemos este código

TriggerEvent ( this,'ue_valida' )

if is_conti = 'N' then
SetFocus ( dw_datawindow )
return
end if

Con esto podemos mostrarle al usuario que campos son requeridos y no dejará guardar la información hasta que se completen los datos a ingresar.

Espero les sirva, ya que he obtenido mucha ayuda en el foro y ahora pongo mi granito de arena para todos aquellos que lo necesitan.

Saludos desde México