{
=============================================================================
   FORMULARIO         : INFMWD004
   OBJETIVO           : Desplegar los codigos y nombres de la maestra de
                        materiales
   PROGRAMA Q. LO USA : INPRMT020
   AUTOR              : Tadeo A. Ferreras
   FECHA              : Agosto 30, 1993
=============================================================================
}
SCHEMA smarmotech 
LAYOUT (TEXT="BUSCA PRODUCTOS")
GRID
{
  <t                                                         >
    [n][g][t  ][co ][nom                           ][uni]
    [n][g][t  ][co ][nom                           ][uni]
    [n][g][t  ][co ][nom                           ][uni]
    [n][g][t  ][co ][nom                           ][uni]
    [n][g][t  ][co ][nom                           ][uni]
    [n][g][t  ][co ][nom                           ][uni]
    [n][g][t  ][co ][nom                           ][uni]
    [n][g][t  ][co ][nom                           ][uni]
}
END
end
tables
intb00022
attributes
n   = intb00022.cod_n,TITLE="CODIGO",autonext,comments = "Digite nivel del material";
g   = intb00022.cod_grupo,autonext,comments = "Digite grupo del material";
t   = intb00022.cod_tipo,autonext,comments = "Digite tipo del material";
co  = intb00022.cod_sec,comments = "Digite secuencia del material";
nom = intb00022.descrip_esp,TITLE="NOMBRE",upshift;
uni = intb00022.unidad_med,noentry;
instructions
screen record datos_mt1[8](cod_n,cod_grupo,cod_tipo,cod_sec,
                           descrip_esp,unidad_med)
end