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

@@ -0,0 +1,34 @@
+FUNCTION codmov()
+ 
+ DEFINE  ketiquetas SMALLINT, detiquetas STRING,
+         cbmovimiento ui.ComboBox
+         
+    LET cbmovimiento = ui.combobox.forname("formonly.cod_mov")
+    DECLARE bmovimiento CURSOR FOR
+      SELECT a.cod_mov,RTRIM(a.descrip_mov)||'('||cast(a.cod_mov AS varchar(6))||')' FROM iptb00005 a
+      
+      ORDER BY a.descrip_mov
+      CALL cbmovimiento.clear()
+ 
+    FOREACH bmovimiento INTO ketiquetas,detiquetas
+      CALL cbmovimiento.additem(ketiquetas,detiquetas)
+    END FOREACH
+    
+ END FUNCTION
+
+ FUNCTION cmovimientos_t()
+ 
+ DEFINE  ketiquetas SMALLINT, detiquetas STRING,
+         cbmovimiento ui.ComboBox
+         
+    LET cbmovimiento = ui.combobox.forname("formonly.codigo_mov_transferencia")
+    DECLARE bmovimiento_t CURSOR FOR
+      SELECT a.cod_mov,RTRIM(a.descrip_mov)||'('||cast(a.cod_mov AS varchar(6))||')' FROM iptb00005 a
+      ORDER BY a.descrip_mov
+      CALL cbmovimiento.clear()
+ 
+    FOREACH bmovimiento_t INTO ketiquetas,detiquetas
+      CALL cbmovimiento.additem(ketiquetas,detiquetas)
+    END FOREACH
+    
+ END FUNCTION