{
-------------------------------------------------------------------------------
 FORMULARIO        : IRFMMT067 
 OBJETIVO          : Capturar registros de la Tabla de IRTB00027 
 PROGRAMADOR       : Lic. Abner Montalvo 
 FECHA REALIZACION : Junio 26, 1997. 
-------------------------------------------------------------------------------
}
DATABASE smarmotech 
 SCREEN SIZE 24 by 80
{


  Fecha ...: [a         ] 
  Repuesto : [f][g][g1][g2 ] [a1                            ]
\g---------------------------------------------------------------------------\g
  Codigo Material    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
irtb00027 
attributes
a    = formonly.fecha_r type date,autonext,reverse, format = "dd/mm/yyyy", 
    comments = "Digite la Fecha del Diseno del Repuesto"; 
f    = formonly.cod_n_r,autonext,reverse,
     comments = "Digite NIVEL del Repuesto o Ctrl+W para busqueda";
g    = formonly.cod_grupo_r,autonext,reverse,
     comments = "Digite GRUPO del Repuesto o Ctrl+W para busqueda";
g1   = formonly.cod_tipo_r,autonext,reverse,
     comments = "Digite TIPO del Repuesto o Ctrl+W para busqueda";
g2   = formonly.cod_sec_r,autonext,reverse,
     comments = "Digite SECUENCIA del Repuesto o Ctrl+W para busqueda";
a1   = formonly.descrip2,noentry;
c    = formonly.cod_n_m,autonext,reverse,
     comments = "Digite NIVEL del Material o Ctrl+W para busqueda";
d    = formonly.cod_grupo_m,autonext,reverse,
     comments = "Digite GRUPO del Material o Ctrl+W para busqueda";
c1   = formonly.cod_tipo_m,autonext,reverse,
     comments = "Digite TIPO del Material o Ctrl+W para busqueda";
c2   = formonly.cod_sec_m,autonext,reverse,
     comments = "Digite SECUENCIA del Material o Ctrl+W para busqueda";
a2   = formonly.descrip_esp,noentry;
k1   = irtb00027.cantidad_m,reverse,
     comments = "Digite Cantidad Requerida";
n1   = formonly.unidad_med,noentry;
instructions
     screen record s_mr[3] (cod_n_m,cod_grupo_m,cod_tipo_m,cod_sec_m,
                            descrip_esp, unidad_med,cantidad_m)
end