Power Builder - TIP - Recorrer un Datawindow campo por campo

Aquí les dejo otro Tìp, para que lo tomen en cuenta, de cómo recorrer un DW y cambiar un atributo.

For li_Columna=1 to Integer(dw_empleado.Object.DataWindow.Column.Count)
// Desplegar Información de Las Columnas.
Messagebox('Columna', 'C('+String(li_Columna)+') Nombre:'+String(dw_empleado.Describe('#'+String(li_Columna)+'.Name'))+' Tipo:'+String(dw_empleado.Describe('#'+String(li_Columna)+'.Type'))+' Dato:'+String(dw_empleado.Object.Data[1, li_columna]))

// Modificar el Color de Fondo y Revisar si el Modify Produce ERROR.
ls_error=dw_empleado.Modify('#'+String(li_Columna)+".Background.Color="+String(RGB(192, 192, 192)))
If ls_error <> '' Then &
Messagebox('ERROR', 'ERROR:'+ls_error)

// Proteger Todos Los Campos.
dw_empleado.Modify('#'+String(li_Columna)+'.Backgroud.Protect=1')
Next