Agregar coprrp019 (Validacion Ordenes) al proyecto

- Registrar coprrp019 en mbsERP.4pw
- Agregar CONNECT TO/ARG_VAL faltante en MAIN (el programa hacia
  consultas SQL sin haberse conectado nunca a la base de datos)
- Sustituir seleccionarsalida()/configureoutput() (no definidas,
  API fgl_report_* no disponible) por om.XmlWriter.createFileWriter()
  hacia FGLSPOOL
- Corregir typo "database marmotech" -> "database smarmotech" en
  cofmrp019.per

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

PROYECTO/codir/coprrp019.4gl

@@ -10,12 +10,20 @@ DIRECTOR PROYECTO    :  JOSE ALFREDO PAULINO ALEJO
 GLOBALS "coprgb000.4gl"
 MAIN
  DEFER INTERRUPT
+ CALL ARG_VAL(1) RETURNING usuarios
+ CALL ARG_VAL(2) RETURNING clave
+ CALL ARG_VAL(3) RETURNING impresor
+
+ CONNECT TO "smarmotech" USER usuarios USING clave
+ SELECT a.* INTO p_companias.* FROM companias a
+
  CALL coprrp019()
 END MAIN
 
 FUNCTION coprrp019()
 
     DEFINE select_fech,select_movi,select_ent CHAR(1000)
+    DEFINE r_filename STRING
     DEFINE idx_o,idx_e,idx_p,idx_m SMALLINT
     DEFINE esta,encontre,salir2,salir1,salir CHAR(1)
     DEFINE recibida,pendiente DECIMAL(12,2)
@@ -97,9 +105,14 @@ FUNCTION coprrp019()
    DECLARE ent_curs SCROLL CURSOR FOR busca_entrega
    OPEN ent_curs 
 
-   CALL seleccionarsalida() RETURNING r_output
-   CALL configureoutput(r_output) RETURNING HANDLER
-   
+   -- La API de configuracion de reportes (fgl_report_*) no esta
+   -- disponible en este FGL; seleccionarsalida()/configureoutput()
+   -- tampoco estan definidas en este programa. Se escribe el XML
+   -- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
+   -- .4rp con vista previa.
+   LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp019_documento.xml"
+   LET handler = om.XmlWriter.createFileWriter(r_filename)
+
    START REPORT documento TO XML HANDLER handler
 
    DISPLAY "                                                " AT 19,14