Files
MBS/PROYECTO/indir/infmmt018.per
T
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

58 lines
2.0 KiB
Plaintext

{
=========================================================================
FORMULARIO : INFMMT022
OBJETIVO : Crear,modificar y eliminar logicamente registro de
la maestra de materiales de la ley 69
PROGRAMA Q. LO USA : INPRMT022
PROGRAMADOR : Tadeo A. Ferreras
FECHA : Agosto 31, 1993
=========================================================================
}
database exterior
screen size 24 by 80
{
Codigo [b]-[c]-[d1 ]-[e1 ]
Descripcion Espanol [f004 ]
Descripcion Ingles [f005 ]
Unidad de Medida [a0 ] Costo Real
C/I S/I
[ctt ][ct1 ]
[j]
Usuario Creador [f006 ] Usuario Modificador [f008 ]
Fecha Creacion [f007 ] Fecha Modificacion [f009 ]
}
end
tables
intb00022
attributes
b = intb00022.cod_n, autonext,
comments = "Digite el NIVEL del bien o Servicio";
c = intb00022.cod_grupo, autonext,
comments = "Digite el GRUPO del bien o Servicio";
d1 = intb00022.cod_tipo, autonext,
comments = "Digite primera SECUENCIA del bien o Servicio";
e1 = intb00022.cod_sec, autonext,
comments = "Digite segunda SECUENCIA del bien o Servicio";
f004 = intb00022.descrip_esp, upshift, required,
comments = "Digite el nombre del Articulo en ESPANOL";
f005 = intb00022.descrip_ing, upshift,
comments = "Digite el nombre del Articulo en INGLES";
a0 = intb00022.unidad_med, upshift, required,
comments = "Digite la unidad de medida del articulo";
ctt = intb00022.costo_real_ci,comments =
"Digite el costo Real con Impuesto del material";
ct1 = intb00022.costo_real_si,comments =
"Digite el costo Real sin Impuesto del material";
f006 = intb00022.us_crea, noentry;
f007 = intb00022.fech_crea, noentry;
f008 = intb00022.us_mod, noentry;
f009 = intb00022.fech_mod, noentry;
j = intb00022.status_t, noentry;
instructions
delimiters " "
end