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).

PROYECTO/indir/inprcs031.4gl

@@ -0,0 +1,152 @@
+{
+-------------------------------------------------------------------------
+ PROGRAMA          : INPRCS031
+ OBJETIVO          : Programa Consulta Movimientos Materia Prima:
+                     Requisicion de Materiales.
+ PROGRAMADOR       : Juan Fco. Soto (Johnny)
+ FECHA REALIZACION : Agosto 14,1992. 
+-------------------------------------------------------------------------
+}
+GLOBALS
+  "inprgb000.4gl"
+
+ MAIN                
+   DEFER INTERRUPT
+   SELECT * INTO p_companias.* FROM companias
+   CALL inprcs031()
+ END MAIN
+ 
+FUNCTION inprcs031()
+  DEFINE fecha1 char(8)
+  DEFINE hora1 char(5)
+  LET fecha1 = today using "dd/mm/yy"
+  LET hora1 = time
+  LET int_flag = false
+  LET bandera = 0
+  
+  CLEAR SCREEN
+  OPTIONS
+    ERROR LINE 24,
+    FORM LINE 6,
+    COMMENT LINE 22,
+    PROMPT LINE 23
+    LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
+    DISPLAY p_companias.nombre CLIPPED AT 3,lj ATTRIBUTE (REVERSE,YELLOW)
+    DISPLAY fecha1 AT 3,70 ATTRIBUTE (YELLOW)
+    DISPLAY hora1 AT 4,73 ATTRIBUTE (YELLOW)
+    DISPLAY "Requisicion de Materiales" AT 4,27
+    DISPLAY "<Esc> Ejecuta Consulta " AT 5,2  ATTRIBUTE (YELLOW,REVERSE)
+    DISPLAY "<CTRL-C> Cancela Operacion" AT 5,54  ATTRIBUTE (YELLOW,REVERSE)
+    DISPLAY "inprcs031" AT 3,2 ATTRIBUTE (YELLOW)
+  OPEN FORM infmcs031 FROM "infmcs031" 
+  DISPLAY FORM infmcs031
+   
+  INITIALIZE datos_gen.* TO NULL
+ # WHENEVER ERROR CONTINUE
+
+  LABEL volver:
+ DISPLAY "                                                                     "
+AT 1,1
+   CONSTRUCT criterio ON a.num_doc,a.fecha,a.depto_a
+                    FROM num_doc,fecha,depto_a
+
+           LET SELEC = "SELECT UNIQUE a.num_doc,a.fecha,a.depto_a ",
+                        " FROM intb00006 a  ",
+                       " WHERE ", criterio clipped,
+                       " and a.cod_mov = 36 ",             
+                       " ORDER BY 1"
+IF int_flag THEN
+ LET numero_msg = 2
+ CALL msg(numero_msg)
+ RETURN
+END IF
+LET datos_gen.cod_mov = 36
+PREPARE busca FROM selec
+DECLARE johnn SCROLL CURSOR FOR busca
+OPEN johnn
+
+FETCH FIRST johnn INTO datos_gen.num_doc,datos1.fecha,datos1.depto_a
+
+   IF status = notfound THEN
+    LET numero_msg = 3
+    CALL msg(numero_msg)
+    GOTO volver
+ END IF
+   SELECT nom_dpto INTO datos1.nom_dpto FROM adtb00001
+      WHERE departamento = datos1.depto_a 
+
+ DISPLAY BY NAME  datos_gen.num_doc,datos1.fecha,datos1.depto_a,
+                  datos1.nom_dpto
+  LABEL vuelve1:
+
+  MENU "OPCION"
+    COMMAND "Siguiente"
+            "Presenta en pantalla SIGUIENTE registro encontrado."
+FETCH NEXT johnn INTO datos_gen.num_doc,datos1.fecha,datos1.depto_a
+
+   IF status = notfound THEN
+    LET numero_msg = 4
+    CALL msg(numero_msg)
+ END IF
+   SELECT nom_dpto INTO datos1.nom_dpto FROM adtb00001
+      WHERE departamento = datos1.depto_a 
+
+ DISPLAY BY NAME  datos_gen.num_doc,datos1.fecha,datos1.depto_a,datos1.nom_dpto
+
+    COMMAND "Anterior"
+            "Presenta en pantalla el registro ANTERIOR encontrado."
+FETCH PREVIOUS johnn INTO datos_gen.num_doc,datos1.fecha,datos1.depto_a
+
+   IF status = notfound THEN
+    LET numero_msg = 5
+    CALL msg(numero_msg)
+ END IF
+   SELECT nom_dpto INTO datos1.nom_dpto FROM adtb00001
+      WHERE departamento = datos1.depto_a 
+
+ DISPLAY BY NAME  datos_gen.num_doc,datos1.fecha,datos1.depto_a,datos1.nom_dpto
+
+    COMMAND "Primero"
+            "Presenta en pantalla PRIMER registro encontrado."
+FETCH FIRST johnn INTO datos_gen.num_doc,datos1.fecha,datos1.depto_a
+
+    LET numero_msg = 5
+    CALL msg(numero_msg)
+   SELECT nom_dpto INTO datos1.nom_dpto FROM adtb00001
+      WHERE departamento = datos1.depto_a 
+
+ DISPLAY BY NAME datos_gen.num_doc,datos1.fecha,datos1.depto_a,datos1.nom_dpto
+
+    COMMAND "Ultimo"
+            "Presenta en pantalla ULTIMO registro encontrado."
+FETCH LAST johnn INTO datos_gen.num_doc,datos1.fecha,datos1.depto_a
+
+    LET numero_msg = 3
+    CALL msg(numero_msg)
+   SELECT nom_dpto INTO datos1.nom_dpto FROM adtb00001
+      WHERE departamento = datos1.depto_a 
+
+ DISPLAY BY NAME datos_gen.num_doc,datos1.fecha,datos1.depto_a,datos1.nom_dpto
+
+      COMMAND "Ver"
+    LET opera1 = "S"
+    CALL desplega()
+  
+   DISPLAY ARRAY movi TO s_movi1.*
+   LET opera1 = "N"
+
+   IF int_flag THEN
+    LET numero_msg = 2
+    CALL msg(numero_msg)
+    LET int_flag = false
+    GOTO vuelve1
+ END IF
+  CLEAR FORM
+ GOTO volver
+      COMMAND "Retornar"
+        EXIT MENU
+      END MENU
+    CLEAR SCREEN
+   RETURN
+END FUNCTION
+