/* lee el fichero programa */

Arg newwindow self
/*aceramiento del listado de unidades*/

say value newwindow window 
/*value=VpGetItemValue(newwindow, 1002, 'TABTEXT', 1) */
say value

return
