Files
jpeguero efdf8953dd Reorganiza MATERIA PRIMA a PROYECTO y avanza inprmt002/005/013/046
- Mueve todo el contenido de PROYECTOS/indir y varias funciones
  compartidas de PROYECTOS/otrodir hacia PROYECTO, siguiendo
  instruccion de Johnny (PROYECTOS se va a eliminar).
- inprmt002: agrega campo Desglose faltante, corrige typo "eLiminar".
- inprmt005: agrega formulario y 3 campos faltantes (Consumo,
  Requiere Autorizacion, Requisiciones), corrige typo "eLiminar".
- inprmt013: agrega formulario, titulo, corrige typo "eLiminar".
- inprmt046: agrega formulario y varias funciones/dependencias
  faltantes (cincodmov, clasf_bloque, medidas, defecto,
  buscaEmp, consultaTransportista, busca_departamento);
  corrige nombres de campo desalineados con el codigo
  (depto_a, bodega) y los convierte a ComboBox donde el
  codigo lo requiere.
- Corrige dependencia faltante de FORMULARIOS_IN a la libreria
  Database (bloqueaba todo el modulo de MATERIA PRIMA).
2026-08-26 13:31:09 -04:00

53 lines
2.1 KiB
Plaintext

{
===========================================================================
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