static procedure ztabla833
LOCAL aCampo := {'clave','sub_cla','item','desc','numero','fecha' }
LOCAL aNombre := {'Clave','SubClave','Item','Descripcion','Numero','Fecha'}
LOCAL aForma := {'!!!!!!','!!!!!!!!','9',repli('X',20),'@e 999,999.9999','' }
@ 05, 10 say 'Modificaci¢n Directa de los Campos !!!'
NetUse('ZTABLA03',,0,'ZT3')
SetFunKey()
KeyBar(,,{, 'Salida','','','','','','','Inicio','Men£ '})
DBROWSE( 7, 03, 24, 75, aCampo, 'fTabla833', aForma, aNombre,,,' ZTABLA03 ',,,.T. )
dbcloseall()
SetFunKey(',9,10')