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

@@ -179,14 +179,19 @@ LET select_ant =
     DISPLAY "<< Reporte Generandose ...  Por Favor Espere. >>"
             AT 19,14 ATTRIBUTE (REVERSE) 
             
-#CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
-#                                                       doble_on,doble_off,comp_on,comp_off,
-#                                                       doce,normal,archivo,copia
+       LET opt1 = fgl_winquestion("Atencion","Desea Reporte Grafico?",
+                             "no","yes|no","question",0)
 
-       CALL seleccionarsalida() RETURNING r_output
-       CALL configureoutput(r_output) RETURNING HANDLER
-       
-       START REPORT prt_exist TO XML HANDLER handler
+       IF opt1 = "yes" THEN
+          CALL seleccionarsalida() RETURNING r_output
+          CALL configureoutput(r_output) RETURNING HANDLER
+          START REPORT prt_exist TO XML HANDLER handler
+       ELSE
+          CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
+                                                       doble_on,doble_off,comp_on,comp_off,
+                                                       doce,normal,archivo,copia
+          START REPORT prt_exist TO archivo
+       END IF
 
     
     LET idx_ant = 1
@@ -277,8 +282,10 @@ END WHILE
 
     FINISH REPORT prt_exist
     CLEAR SCREEN
-    
-    RUN imprime
+
+    IF opt1 <> "yes" THEN
+       RUN imprime
+    END IF
 END FUNCTION
 
     REPORT prt_exist(x)