Power Builder - Funcion#2 de la Semana //:-)

/************************* Funcion#02 Des/Proteger *************************************
Comentario: No se ustedes, pero yo ya estaba hasta el copete de modificar cada campo
y tener que recordar cada nombre de los campos al codificar asi:

dw_captura.Modify('clave.protect=0') //Des/protege y permite capturar
dw_captura.Object.Nombre.Protect=1 //Protege y No permite capturar
dw_captura.Modify("importe.Protect='1~tIf(IsRowNew(),0,1)'") //el clasico

Funcion PB: Funcion de PB para Des/Proteger Campos(Column) de una DW en una Window
Des/Protege todas las columnas de una DW, pero no las indicadas como excepciones
Retorna : Nada
Ejemplo : wf_proteccion(dw_captura,0,'clave,fechalta')
//DESProtege todos los campos excepto CLAVE y FECHALTA
Autor : Lic. Victor Arreola //:-)
Sintaxis: none wf_proteccion(DataWindow{Reference} dwo , Integer{Value} ai_si1no0 , String{Value} as_excepciones)
**************************************************************************/
//Mas Ejemplos:
//wf_proteccion(dw_captura,1,'') //Protege todos los campos
//wf_proteccion(dw_captura,0,'') //DesProtege todos los campos
//wf_proteccion(dw_captura,0,'clave,fechalta') //DesProtege todos los campos excepto CLAVE y FECHALTA
//wf_proteccion(dw_captura,1,'nombre') //Protege todos los campos excepto NOMBRE

Sintaxis: none wf_proteccion(DataWindow{Reference} dwo , Integer{Value} ai_si1no0 , String{Value} as_excepciones) %0