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

@@ -0,0 +1,144 @@
+FUNCTION defecto(usuarios,clave,impresor)
+
+         DEFINE impresor,idx  SMALLINT,
+
+                negrillas_on,
+
+                negrillas_off,
+
+                doble_on,
+
+                doble_off,
+
+                doce,
+
+                comp_on,
+
+                comp_off,
+
+                normal CHAR(6),
+
+                archivo CHAR(80),
+
+                lpnum   INTEGER,
+
+                imprime CHAR(150),
+
+                prt RECORD
+                prtcodigo SMALLINT,
+                nombre    VARCHAR(60),
+                lpprog VARCHAR(150),
+                lppipe VARCHAR(20),
+                puerto VARCHAR(80)
+                END RECORD,
+                usuarios,clave CHAR(80),copia CHAR(100)
+
+
+         SELECT a.codigo,a.nombre,a.lpprog,a.lppipe,a.puerto INTO prt.* FROM prttb00001 a
+
+         WHERE a.codigo = impresor
+
+
+
+         CASE
+
+           WHEN prt.prtcodigo = 1
+
+                LET doble_on =  ASCII 14
+
+                LET doble_off = ASCII 18
+
+                LET negrillas_on = ASCII 27, ASCII 69
+
+                LET negrillas_off = ASCII 27, ASCII 70
+
+                LET comp_on = ASCII 15
+
+                LET comp_off = ASCII 18
+
+                LET doce = ASCII 27,ASCII 77
+
+                LET normal = ASCII 27,ASCII 80
+
+                EXIT CASE
+
+           WHEN prt.prtcodigo = 2            {Printer Central. Contabilidad}
+
+                LET doble_on      = ASCII 001
+
+                LET doble_off     = ASCII 002
+
+                LET negrillas_on  = ASCII 027, ASCII 098
+
+                LET negrillas_off = ASCII 027, ASCII 099
+
+                LET comp_on       = ASCII 031
+
+                LET comp_off      = ASCII 029
+
+                LET doce          = ASCII 030
+
+                LET normal        = ASCII 029
+
+                EXIT CASE
+
+           WHEN impresor = 3
+
+                LET doble_on      = ASCII 14
+
+                LET doble_off     = ASCII 18
+
+                LET negrillas_on  = ASCII 27, ASCII 69
+
+                LET negrillas_off = ASCII 27, ASCII 70
+
+                LET comp_on       = ASCII 15
+
+                LET comp_off      = ASCII 18
+
+                LET doce          = ASCII 27,ASCII 77
+
+                LET normal        = ASCII 27,ASCII 80
+
+                EXIT CASE
+
+            END CASE
+
+
+
+# BUSCA EL NUMERO DE IMPRESION A SEGUIR
+
+         SELECT MAX(ult_imp) INTO lpnum
+
+         FROM prttb00002
+
+
+
+         IF lpnum IS NULL THEN
+
+            LET lpnum = 1
+
+         END IF
+
+            LET lpnum = lpnum + 1
+
+            LET archivo = FGL_GETENV("FGLSPOOL"),"\\",lpnum USING "<<<<<<<<<<"
+
+            LET imprime = prt.lpprog CLIPPED," ",archivo CLIPPED," ",
+                          prt.lppipe," ",prt.puerto
+
+            LET copia = prt.lppipe," ",prt.puerto
+
+
+{            UPDATE prttb00002 set ult_imp = lpnum + 1,
+
+                                  usuario = suser_sname()}
+
+             INSERT INTO prttb00002 (ult_imp,usuario)VALUES (lpnum,usuarios)
+
+
+
+RETURN imprime,negrillas_on,negrillas_off,doble_on,doble_off,
+       comp_on,comp_off,doce,normal,archivo,copia
+
+END FUNCTION