{
===========================================================================
   Formulario  : infmmt019
   Sistema     : Inventario de Material
   Objetivo    : Formulario a usar para captura de informacion en el modulo
                 inprmt019 (datos referentes a maestra de resoluciones)
   Autor       : Tadeo A. Ferreras
   Fecha       : Julio 22,1993
===========================================================================
}
database exterior   
screen
{

 Numero de Resolucion [z       ]
 Numero de Solicitud  [a       ]
 Fecha  de Resolucion [b       ]
\g----------------------------------------------------------------------------\g
  Material                                                     Cantidad
\g----------------------------------------------------------------------------\g
 [c]-[d]-[e  ]-[f  ][desc1                        ]  [uni]   [cant          ]
 [c]-[d]-[e  ]-[f  ][desc1                        ]  [uni]   [cant          ]
 [c]-[d]-[e  ]-[f  ][desc1                        ]  [uni]   [cant          ]
 [c]-[d]-[e  ]-[f  ][desc1                        ]  [uni]   [cant          ]
 [c]-[d]-[e  ]-[f  ][desc1                        ]  [uni]   [cant          ]
}
end
tables
intb00019
attributes
z     = intb00019.num_res,comments = "Digite el numero de resolucion";
a     = intb00019.num_sol,comments = "Digite el numero de solicitud";
b     = intb00019.fecha,format = "dd/mm/yy",comments =
       "Digite fecha de solicitud";
c     = intb00019.cod_n,autonext,comments =
       "Digite el codigo de del material";
d     = intb00019.cod_grupo,autonext,comments =
       "Digite el codigo de del material";
e     = intb00019.cod_tipo,autonext,comments =
       "Digite el codigo de del material";
f     = intb00019.cod_sec,autonext,comments =
       "Digite el codigo de del material";
desc1 = formonly.descrip1 type char,color=yellow,noentry;
uni   = formonly.unidad1 type char,color=yellow,noentry;
cant  = intb00019.cantidad,comments=
        "Digite la cantidad de material a internar en esta resolucion";
instructions delimiters " "
   screen record arr_form5[5](cod_n,cod_grupo,cod_tipo,cod_sec,descrip1,
                              unidad1,cantidad)
end