Agrega y corrige inprrp008, inprrp028, inprrp009 e inprrp011 (Materia Prima)

- inprrp008: agrega CONNECT faltante en MAIN, corrige ruta de impresion
  hardcodeada (C:\archivo -> FGLSPOOL) y comando RUN sin comillas,
  reconstruye infmrp008 como .4fd (el campo Ordenamiento se compilaba
  como checkbox en vez de texto)
- inprrp028: restaura la rama matricial (Si/No Reporte Grafico) que
  habia quedado comentada, dejando el programa forzado a la via XML
  rota; agrega funcion compartida seleccionarSalida() a defecto.4gl
- inprrp009: agrega notNull al combo de Bodega para quitar los items
  <blank>/<not blank>, agrega titulo a la ventana
- Registra formularios infmrp008, infmrp028 e infmrp011 en el proyecto
- Todos probados: corren completos sin error de FGL (Exit code: 0) via
  matricial; la salida grafica/PDF sigue siendo la limitacion conocida
  de entorno (Report Writer 2.0 no disponible)

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

PROYECTO/indir/inprrp005.4gl

@@ -46,6 +46,10 @@ FUNCTION inprrp005()
       us_anula     CHAR(9)
     END RECORD
     DEFINE nombre_suplidor CHAR(30)
+    DEFINE p_fecha RECORD
+       fecha DATE
+    END RECORD
+    DEFINE filtro_fecha CHAR(60)
 
 
     OPTIONS
@@ -61,11 +65,9 @@ FUNCTION inprrp005()
     DISPLAY "  Documentos " AT 6,33
 
     LET tipo_papel = 1
-    CALL msgrp000(tipo_papel) 
+    CALL msgrp000(tipo_papel)
 
-
-    CONSTRUCT criterio ON a.fecha,a.cod_mov,a.num_doc     
-                     FROM fecha,cod_mov,num_doc     
+    INPUT BY NAME p_fecha.fecha
 
     IF int_flag THEN
        LET numero_msg = 2
@@ -73,6 +75,22 @@ FUNCTION inprrp005()
        LET int_flag = FALSE
        RETURN
     END IF
+
+    CONSTRUCT criterio ON a.cod_mov,a.num_doc
+                     FROM cod_mov,num_doc
+
+    IF int_flag THEN
+       LET numero_msg = 2
+       CALL msg(numero_msg)
+       LET int_flag = FALSE
+       RETURN
+    END IF
+
+    LET filtro_fecha = ""
+    IF p_fecha.fecha IS NOT NULL THEN
+       LET filtro_fecha = " AND CONVERT(CHAR(10),a.fecha,103) = '",
+                           p_fecha.fecha USING "dd/mm/yyyy", "' "
+    END IF
         CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
                                                        doble_on,doble_off,comp_on,comp_off,
                                                        doce,normal,archivo,copia
@@ -82,7 +100,7 @@ FUNCTION inprrp005()
 
     let selec = 
        "SELECT a.cod_n, a.cod_grupo, a.cod_tipo, a.cod_sec,b.descrip_esp, ",
-       "       b.unidad_med,a.num_doc,CONVERT(char(10),a.fecha,104),a.cantidad_1,a.cantidad_2, ",
+       "       b.unidad_med,a.num_doc,CONVERT(char(10),a.fecha,103),a.cantidad_1,a.cantidad_2, ",
        "       c.cod_mov,c.descrip_mov,a.conduce_no,a.fact_no,a.orden_compra, ",
        "       a.cod_sp,a.cod_sp_sec,a.depto_de,a.depto_a,a.cod_seccion, ",
        "       a.status_t,CONVERT(CHAR(16),a.fech_mod),a.us_mod ",
@@ -91,7 +109,8 @@ FUNCTION inprrp005()
        "      a.cod_grupo = b.cod_grupo AND a.cod_tipo = b.cod_tipo AND " ,
        "      a.cod_sec = b.cod_sec  AND c.cod_mov  = a.cod_mov AND ",
        "      b.status_t is NULL AND c.status_t is NULL ",
-       "ORDER BY c.cod_mov,a.num_doc  "   
+       filtro_fecha CLIPPED,
+       "ORDER BY c.cod_mov,a.num_doc  "
 
      PREPARE busca FROM selec
      DECLARE accion CURSOR FOR busca