Agregar coprrp001 (Catalogo Suplidores) y corregir bugs en coprcs009

- Registrar coprrp001/cofmrp001 en mbsERP.4pw
- Sustituir API fgl_report_* no disponible por XmlWriter en coprrp001.4gl
- Ampliar cs_ordena.codigo a CHAR(20) en coprgb000.4gl
- Corregir mascaras PICTURE de codigo en coprcs009.4gl
- Ampliar campo c1 en cofmcs009.per para igualar el ancho de codigo
- Corregir typo de base de datos en cofmwd016.per

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

PROYECTO/codir/coprrp001.4gl

@@ -144,19 +144,11 @@ FUNCTION coprrp001()
             archivo,
             copia
 
-    LET r_filename = 'coprrp001.4rp'
-    CALL seleccionarSalida() RETURNING r_output
-
-    LET preview = 1
-
-    IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
-
-        CALL fgl_report_selectDevice(r_output) -- changing default
-        CALL fgl_report_selectPreview(preview) -- changing default
-
-
-        LET handler = fgl_report_commitCurrentSettings() -- commit changes
-    END IF
+    -- La API de configuracion de reportes (fgl_report_*) no esta
+    -- disponible en este FGL; 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"), "/coprrp001_catalogo.xml"
+    LET handler = om.XmlWriter.createFileWriter(r_filename)
 
     START REPORT catalogo2 TO XML HANDLER handler
 #### Enviando la informacion al registro del reporte