{
-------------------------------------------------------------------------------
 FORMULARIO        : COFMMT025
 OBJETIVO          : Capturar registros de la Tabla de Requisiciones (COPRMT024)
                     Disenado especialmente para uso de los usuarios de ROVD.
 PROGRAMADOR       : Lic. Abner Montalvo 
 FECHA REALIZACION : Marzo 18, 1997. 
-------------------------------------------------------------------------------
}
DATABASE smarmotech
 SCREEN SIZE 24 by 80
{
  Numero   : [f1    ]             Uso: [b1                             ]
  Fecha    : [f2        ]     Prioridad: [f  ] [f4                       ] 
  Depto    : [f3  ] [a                             ]    
  Empleado : [f7  ] [a1                            ]
\g---------------------------------------------------------------------------\g
   Codigo          Descripcion                     Und   Cantidad     
\g---------------------------------------------------------------------------\g
  [c][d][c1][c2 ] [a2                           ] [n1 ] [k1         ] 
  [c][d][c1][c2 ] [a2                           ] [n1 ] [k1         ] 
  [c][d][c1][c2 ] [a2                           ] [n1 ] [k1         ] 
}
end
tables
cotb00006,cotb00008,
intb00002,adtb00001
attributes
f1   = cotb00006.num_req,autonext,reverse,
     comments = "No Digite El Numero de La Requisicion";
f2   = cotb00006.fech_req,reverse, format = "dd/mm/yyyy",
     comments = "Digite Fecha de La Requisicion";
f3   = adtb00001.departamento, reverse, autonext,
     comments = "Digite Codigo Del Departamento Presione Ctrl-W Para Busqueda";
f7   = cotb00006.cod_emp_sec,reverse,autonext,
     comments = "Digite Codigo Empleado Presione Ctrl-W Para Busqueda";
b1   = cotb00006.uso,reverse,autonext,upshift,
     comments = "Digite El Uso De Los Articulos Requeridos";
c    = formonly.cod_n,autonext,reverse,
     comments = "Digite NIVEL Del Articulo Presione Ctrl-W Para Busqueda";
d    = formonly.cod_grupo,autonext,reverse,
     comments = "Digite GRUPO Del Articulo Presione Ctrl-W Para Busqueda";
c1   = formonly.cod_tipo,autonext,reverse,
     comments = "Digite TIPO Del Articulo Presione Ctrl-W Para Busqueda";
c2   = formonly.cod_sec,autonext,reverse,
     comments = "Digite SECUENCIA Del Articulo Presione Ctrl-W Para Busqueda";
k1   = cotb00008.cantidad,reverse,
     comments = "Cantidad Requerida. Ctrl-W Adiciona Informacion Adicional del Producto.";
a2   = formonly.descrip_esp,noentry;
a    = formonly.descrip1,noentry;
a1   = formonly.descrip2,noentry;
f    = cotb00006.prioridad,
     comments = "Digite Codigo de Prioridad de la Requisicion. Presione Ctrl-W Para Busqueda";
f4   = formonly.descrip3,noentry;
n1   = formonly.unidad_med,noentry;
 instructions
     screen record s_requisi2[3] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
                                 unidad_med,cantidad)
end