{
-----------------------------------------------------------------------------
 FORMULARIO        : COFMWD002
 OBJETIVO          : Desplegar los departamentos que solicitan Requisiciones
 PROGRAMADOR       : Ing. Juan Soto.        
 FECHA REALIZACION : Septiembre 1, 1992.
-----------------------------------------------------------------------------
}
DATABASE marmotech   
SCREEN SIZE 24 by 80
{
       Busqueda De Departamentos
\g-----------------------------------------\g
 Codigo          Nombre
\g-----------------------------------------\g
[f1       ] [f2                             ]
[f1       ] [f2                             ]
[f1       ] [f2                             ]
[f1       ] [f2                             ]
[f1       ] [f2                             ]
[f1       ] [f2                             ]
}
end
tables
 adtb00001
attributes
f1  = formonly.departamento,noentry,
    comments = "Elegir Este Registro Con La Tecla <Esc>";
f2  = adtb00001.nom_dpto,upshift, 
    comments = "<Esc> Busca Todos Los Departamentos";
instructions
   screen record s_desp1[6] (departamento,nom_dpto)
 delimiters " "
end