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/bodegas.4gl

@@ -0,0 +1,30 @@
+FUNCTION bodegas(cb2)
+ 
+ DEFINE  ketiquetas SMALLINT, detiquetas CHAR(30),
+         cbodegas ui.ComboBox,
+         cb2 CHAR(2)
+         
+    LET cbodegas = ui.combobox.forname("formonly.bodega")
+    DECLARE bbodegas CURSOR FOR
+      SELECT a.cod_bodega,a.descripcion FROM intb00009 a
+      ORDER BY a.cod_bodega
+      CALL cbodegas.clear()
+ 
+    FOREACH bbodegas INTO ketiquetas,detiquetas
+      CALL cbodegas.additem(ketiquetas,detiquetas)
+    END FOREACH
+    
+    IF cb2 ='2' THEN
+       LET cbodegas = ui.combobox.forname("formonly.bodega_destino")
+       DECLARE bbodegas2 CURSOR FOR
+         SELECT a.cod_bodega,a.descripcion FROM intb00009 a
+         ORDER BY a.descripcion
+         CALL cbodegas.clear()
+ 
+       FOREACH bbodegas2 INTO ketiquetas,detiquetas
+         CALL cbodegas.additem(ketiquetas,detiquetas)
+       END FOREACH
+    
+    END IF
+    
+ END FUNCTION