{
-----------------------------------------------------------------------------
 FORMULARIO        : IRFMWD067
 OBJETIVO          : Desplegar los bienes y/o servicos de la empresa
 PROGRAMADOR       : Ing. Juan Soto.        
 FECHA REALIZACION : Septiembre 1, 1992.
-----------------------------------------------------------------------------
}
DATABASE marmotech   
SCREEN SIZE 24 by 80
{
       Busqueda De Bienes/Servicios
\g-------------------------------------------------\g
 Codigo          Nombre  
\g-------------------------------------------------\g
[f1        ] [f2                             ][n1 ]
[f1        ] [f2                             ][n1 ]
[f1        ] [f2                             ][n1 ]
[f1        ] [f2                             ][n1 ]
[f1        ] [f2                             ][n1 ]
[f1        ] [f2                             ][n1 ]
}
end
tables
 irtb00002
attributes
f1  = formonly.codigo,noentry,
        comments = "Elegir Este Registro Con La Tecla <Esc>";
f2  = irtb00002.descrip_esp,upshift,
        comments = "<Esc> Busca Todos Los Bienes/Servicios";
n1  = formonly.unidad_med,noentry;
instructions
   screen record s_desp2[6] (codigo,descrip_esp,unidad_med)
 delimiters " "
end