Corrige inprmt046, agrega inprmt036 y arreglos de fecha/impresion

- inprmt046: agrega columnas Maquina/Clasf.Bloque faltantes en la
  tabla, ensancha combos para legibilidad, corrige formato de fecha
  (CONVERT 103 requiere DBDATE=DMY4/ configurado). Saca la funcion
  maquinaria() de un archivo local a una compartida (maquinaria.4gl)
  para evitar duplicado.
- inprmt036 (Requisicion de Materiales): agrega formulario, campo
  Impresion (MATRICIAL/PDF), corrige nombre_d y agrega columna
  Existencia faltante en la tabla.
- Agrega funcion compartida configureOutput (stub, Report Writer 2.0
  no disponible en FGL 6.00.01).
- Requiere variables de entorno DBDATE=DMY4/ y FGLSPOOL (carpeta
  PROYECTO/spool) al abrir Genero Studio para reportes/fechas.

PROYECTO/indir/infmmt036.per

@@ -22,8 +22,8 @@ LAYOUT (TEXT="REQUISICION MATERIALES")
  <g                                                                           >
   Documento      [f000  ]    Fecha [f001      ]                              
   Codigo de Dpto [f4  ] [a1                            ]              
-  Bodega :       [a7]                                                         
-  
+  Bodega :       [a7]    Impresion [imp]
+
  <g                                                                                    >
                     C A N T I D A D 
    Codigo          Ordenada     Entregada  Unidad     D e s c r i p c i o n
@@ -49,7 +49,7 @@ f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
 f4 = intb00006.depto_a,autonext,
        comments = "Digite Codigo Departamento";
 
-a1   = adtb00001.nom_dpto,noentry; 
+a1   = formonly.nombre_d,noentry;
 a    = intb00006.cod_n,autonext,
        comments = "Digite Codigo Articulo";
 b    = intb00006.cod_grupo,autonext,
@@ -63,7 +63,8 @@ f02  = intb00006.cantidad_1,autonext,
 f03  = intb00006.cantidad_2,autonext, 
        comments = "Digite La Cantidad Entregada";
 a7   = intb00006.bodega,autonext,
-       comments = "Digite el codigo de la bodega de almacenamiento"; 
+       comments = "Digite el codigo de la bodega de almacenamiento";
+RADIOGROUP imp = formonly.impresion,ITEMS=(("MATRICIAL","MATRICIAL"),("PDF","PDF")),DEFAULT="MATRICIAL";
 k    = intb00001.descrip_esp,noentry,autonext; 
 p    = intb00001.unidad_med,noentry;