{
-----------------------------------------------------------------------------
 FORMULARIO        : COFMWD003
 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
 intb00001
attributes
f1  = formonly.codigo,noentry,
        comments = "Elegir Este Registro Con La Tecla <Esc>";
f2  = formonly.descrip_esp,upshift,
        comments = "<Esc> Busca Todos Los Bienes/Servicios";
n1  = formonly.unidad_med,noentry;
instructions
   screen record s_desp2(codigo,descrip_esp,unidad_med)
 delimiters " "
end