lsoto prueba de programas

.gitignore

@@ -49,3 +49,28 @@ desktop.ini
 
 # NOTA: se CONSERVAN en el repo -> *.4gl *.per *.4fd *.4pw *.4st *.4ad
 #       *.sch *.4db (esquema), imagenes (*.png *.jpg), README, docs.
+
+# -- Paquetes GAR: se generan en el build (gsmake -t mbs mbsERP.4pw), no van al repo --
+*.gar
+
+# -- bin/IMAGENES: solo las imagenes que usan los programas/reportes --
+#    (lo demas son fotos, temporales y archivos subidos en ejecucion, p.ej. comprobantes)
+PROYECTO/bin/IMAGENES/**
+!PROYECTO/bin/IMAGENES/Logo.png
+!PROYECTO/bin/IMAGENES/Logo_DCM.png
+!PROYECTO/bin/IMAGENES/genero_logo.png
+!PROYECTO/bin/IMAGENES/LOGO.JPG
+!PROYECTO/bin/IMAGENES/logo1.png
+!PROYECTO/bin/IMAGENES/EMPLEADOS/
+PROYECTO/bin/IMAGENES/EMPLEADOS/*
+!PROYECTO/bin/IMAGENES/EMPLEADOS/.gitkeep
+
+# -- Llaves y certificados: NUNCA en el repo (se entregan aparte a quien los necesite) --
+*.jks
+*.keystore
+*.p12
+*.pfx
+*.pem
+*.key
+*.crt
+*.cer

PROYECTO/PRDIR/prprmt006.4gl

@@ -7,6 +7,16 @@
 ------------------------------------------------------------------
 }
 GLOBALS "prprgb000.4gl" 
+
+DEFINE arrprtb08 DYNAMIC ARRAY OF RECORD
+    cod_n_c     LIKE prtb00008.cod_n,
+    cod_grupo_c LIKE prtb00008.cod_grupo,
+    cod_tipo_c  LIKE prtb00008.cod_tipo,
+    cod_sec_c   LIKE prtb00008.cod_sec,
+    cantidad_c  LIKE prtb00008.cantidad,
+    descrip_esp_c LIKE intb00001.descrip_esp,
+    unidad_c    LIKE intb00001.unidad_med
+END RECORD
  DEFINE nombre LIKE vetb00004.nombre,
         descrip_esp_c,descrip_esp LIKE iptb00002.descrip_esp,
         unidad LIKE iptb00002.unidad_med,
@@ -41,10 +51,11 @@ END MAIN
         FORM LINE 9,
         ERROR LINE 23,
         COMMENT LINE 21
-   CALL pantalla()
+   # (pantalla() es el encabezado de la pantalla de texto antigua; no aplica en GUI)
    OPEN FORM ctfmmt006 FROM "prfmmt006"
    DISPLAY FORM ctfmmt006
-   CALL pantalla() 
+   CALL ui.Window.getCurrent().setText("Ordenes de Produccion")
+   # (pantalla() es el encabezado de la pantalla de texto antigua; no aplica en GUI)
    DISPLAY "prprmt006" AT 4,3 
    DISPLAY "Ordenes De Produccion" AT 6,32
    
@@ -280,13 +291,13 @@ FUNCTION prpcad006()
           b.cod_sec = prtb07.cod_sec AND
           a.num_oc = b.num_oc
     LET idx = 1
-    FOREACH buscame INTO prtb08[idx].*
+    FOREACH buscame INTO arrprtb08[idx].*
       LET idx = idx + 1
     END FOREACH
 
     CALL set_count(idx-1)
 }
-    INPUT ARRAY prtb08  FROM s_orden.*
+    INPUT ARRAY arrprtb08  FROM s_orden.*
 
       ON KEY(CONTROL-W)
          CALL busca_material()
@@ -295,13 +306,13 @@ FUNCTION prpcad006()
          LET scr_l = scr_line()
       AFTER FIELD cod_sec_c
         LET descrip_esp_c = NULL
-        IF prtb08[curr].cod_sec_c IS NOT NULL THEN
+        IF arrprtb08[curr].cod_sec_c IS NOT NULL THEN
            SELECT a.descrip_esp,a.unidad_med INTO descrip_esp_c,unidad_c
            FROM intb00001 a
-           WHERE a.cod_n = prtb08[curr].cod_n_c AND
+           WHERE a.cod_n = arrprtb08[curr].cod_n_c AND
-                 a.cod_grupo = prtb08[curr].cod_grupo_c AND
+                 a.cod_grupo = arrprtb08[curr].cod_grupo_c AND
-                 a.cod_tipo = prtb08[curr].cod_tipo_c AND
+                 a.cod_tipo = arrprtb08[curr].cod_tipo_c AND
-                 a.cod_sec = prtb08[curr].cod_sec_c AND
+                 a.cod_sec = arrprtb08[curr].cod_sec_c AND
                  a.status_t IS NULL
            IF STATUS = NOTFOUND THEN
               LET numero_msg = 3
@@ -309,15 +320,15 @@ FUNCTION prpcad006()
               NEXT FIELD cod_n_c
            END IF
          END IF
-           LET prtb08[curr].descrip_esp_c = descrip_esp_c
+           LET arrprtb08[curr].descrip_esp_c = descrip_esp_c
-           LET prtb08[curr].unidad_c = unidad_c
+           LET arrprtb08[curr].unidad_c = unidad_c
-           DISPLAY prtb08[curr].descrip_esp_c TO s_orden[scr_l].descrip_esp_c
+           DISPLAY arrprtb08[curr].descrip_esp_c TO s_orden[scr_l].descrip_esp_c
            ATTRIBUTE(BLUE)
-           DISPLAY prtb08[curr].unidad_c TO s_orden[scr_l].unidad_c
+           DISPLAY arrprtb08[curr].unidad_c TO s_orden[scr_l].unidad_c
            ATTRIBUTE(BLUE)
         AFTER FIELD cantidad_c
-           IF prtb08[curr].cod_n_c IS NOT NULL THEN
+           IF arrprtb08[curr].cod_n_c IS NOT NULL THEN
-              IF prtb08[curr].cantidad_c IS NULL THEN
+              IF arrprtb08[curr].cantidad_c IS NULL THEN
                  LET numero_msg = 16
                  CALL msg(numero_msg)
                  NEXT FIELD cantidad_c
@@ -347,23 +358,23 @@ FUNCTION prpcad006()
 # SE ESTA VALIDANDO EL PRODUCTO TERMINADO EN EL CODIGO DE LA MATERIA PRIMA
 # PARA CUANDO LA ORDEN SEA PARA PRODUCTOS IMPORTADOS QUE NO TIENEN COMPOSICION
 
-    IF prtb08[1].cod_n_c IS NULL THEN
+    IF arrprtb08[1].cod_n_c IS NULL THEN
-       LET prtb08[1].cod_n_c       = prtb07.cod_n
+       LET arrprtb08[1].cod_n_c       = prtb07.cod_n
-       LET prtb08[1].cod_grupo_c   = prtb07.cod_grupo
+       LET arrprtb08[1].cod_grupo_c   = prtb07.cod_grupo
-       LET prtb08[1].cod_tipo_c    = prtb07.cod_tipo
+       LET arrprtb08[1].cod_tipo_c    = prtb07.cod_tipo
-       LET prtb08[1].cod_sec_c     = prtb07.cod_Sec
+       LET arrprtb08[1].cod_sec_c     = prtb07.cod_Sec
-       OUTPUT TO REPORT ordenes(prtb07.num_oc,prtb08[idx].*)
+       OUTPUT TO REPORT ordenes(prtb07.num_oc,arrprtb08[idx].*)
     END IF
     FOR idx = 1 TO arr_count()
-        IF prtb08[idx].cod_n_c IS NOT NULL THEN
+        IF arrprtb08[idx].cod_n_c IS NOT NULL THEN
            INSERT INTO prtb00008 VALUES (prtb07.num_oc,
-                                         prtb08[idx].cod_n_c,
+                                         arrprtb08[idx].cod_n_c,
-                                         prtb08[idx].cod_grupo_c,
+                                         arrprtb08[idx].cod_grupo_c,
-                                         prtb08[idx].cod_tipo_c,
+                                         arrprtb08[idx].cod_tipo_c,
-                                         prtb08[idx].cod_sec_c,
+                                         arrprtb08[idx].cod_sec_c,
-                                         prtb08[idx].cantidad_c,
+                                         arrprtb08[idx].cantidad_c,
                                          SUSER_SNAME(),current,null,null)
-         OUTPUT TO REPORT ordenes(prtb07.num_oc,prtb08[idx].*)
+         OUTPUT TO REPORT ordenes(prtb07.num_oc,arrprtb08[idx].*)
          END IF
      END FOR
      FINISH REPORT ordenes
@@ -534,24 +545,24 @@ LABEL sale9:
 END FUNCTION
 FUNCTION limpia()
  FOR idx = 1 TO 10
-    LET prtb08[idx].cod_n_c = null
+    LET arrprtb08[idx].cod_n_c = null
-    LET prtb08[idx].cod_grupo_c = null
+    LET arrprtb08[idx].cod_grupo_c = null
-    LET prtb08[idx].cod_tipo_c = null
+    LET arrprtb08[idx].cod_tipo_c = null
-    LET prtb08[idx].cod_sec_c = null
+    LET arrprtb08[idx].cod_sec_c = null
-    LET prtb08[idx].unidad_c = null
+    LET arrprtb08[idx].unidad_c = null
-    LET prtb08[idx].cantidad_c = null
+    LET arrprtb08[idx].cantidad_c = null
-    LET prtb08[idx].descrip_esp_c = null
+    LET arrprtb08[idx].descrip_esp_c = null
  END FOR
  FOR idx = 1 TO 5
-           DISPLAY prtb08[idx].cod_n_c TO s_orden[idx].cod_n_c
+           DISPLAY arrprtb08[idx].cod_n_c TO s_orden[idx].cod_n_c
-           DISPLAY prtb08[idx].cod_grupo_c TO s_orden[idx].cod_grupo_c
+           DISPLAY arrprtb08[idx].cod_grupo_c TO s_orden[idx].cod_grupo_c
-           DISPLAY prtb08[idx].cod_tipo_c TO s_orden[idx].cod_tipo_c
+           DISPLAY arrprtb08[idx].cod_tipo_c TO s_orden[idx].cod_tipo_c
-           DISPLAY prtb08[idx].cod_sec_c TO s_orden[idx].cod_sec_c
+           DISPLAY arrprtb08[idx].cod_sec_c TO s_orden[idx].cod_sec_c
-           DISPLAY prtb08[idx].cantidad_c TO s_orden[idx].cantidad_c
+           DISPLAY arrprtb08[idx].cantidad_c TO s_orden[idx].cantidad_c
 
-           DISPLAY prtb08[idx].descrip_esp_c TO s_orden[idx].descrip_esp_c
+           DISPLAY arrprtb08[idx].descrip_esp_c TO s_orden[idx].descrip_esp_c
            ATTRIBUTE(BLUE)
-           DISPLAY prtb08[idx].unidad_c TO s_orden[idx].unidad_c
+           DISPLAY arrprtb08[idx].unidad_c TO s_orden[idx].unidad_c
            ATTRIBUTE(BLUE)
 
  END FOR
@@ -565,28 +576,28 @@ FUNCTION busca_detalle()
   WHERE a.num_oc = numero_oc
 
   LET idx = 1
-  FOREACH busca_d INTO prtb08[idx].*
+  FOREACH busca_d INTO arrprtb08[idx].*
      SELECT a.descrip_esp,a.unidad_med INTO descrip_esp_c,unidad_c
      FROM intb00001 a
-     WHERE a.cod_n = prtb08[idx].cod_n_c AND
+     WHERE a.cod_n = arrprtb08[idx].cod_n_c AND
-           a.cod_grupo = prtb08[idx].cod_grupo_c AND
+           a.cod_grupo = arrprtb08[idx].cod_grupo_c AND
-           a.cod_tipo = prtb08[idx].cod_tipo_c AND
+           a.cod_tipo = arrprtb08[idx].cod_tipo_c AND
-           a.cod_sec = prtb08[idx].cod_sec_c AND
+           a.cod_sec = arrprtb08[idx].cod_sec_c AND
            a.status_t IS NULL
            IF idx > 5 THEN
               EXIT FOREACH
            END IF
-           LET prtb08[idx].descrip_esp_c = descrip_esp_c
+           LET arrprtb08[idx].descrip_esp_c = descrip_esp_c
-           LET prtb08[idx].unidad_c = unidad_c
+           LET arrprtb08[idx].unidad_c = unidad_c
-           DISPLAY prtb08[idx].cod_n_c TO s_orden[idx].cod_n_c
+           DISPLAY arrprtb08[idx].cod_n_c TO s_orden[idx].cod_n_c
-           DISPLAY prtb08[idx].cod_grupo_c TO s_orden[idx].cod_grupo_c
+           DISPLAY arrprtb08[idx].cod_grupo_c TO s_orden[idx].cod_grupo_c
-           DISPLAY prtb08[idx].cod_tipo_c TO s_orden[idx].cod_tipo_c
+           DISPLAY arrprtb08[idx].cod_tipo_c TO s_orden[idx].cod_tipo_c
-           DISPLAY prtb08[idx].cod_sec_c TO s_orden[idx].cod_sec_c
+           DISPLAY arrprtb08[idx].cod_sec_c TO s_orden[idx].cod_sec_c
-           DISPLAY prtb08[idx].cantidad_c TO s_orden[idx].cantidad_c
+           DISPLAY arrprtb08[idx].cantidad_c TO s_orden[idx].cantidad_c
 
-           DISPLAY prtb08[idx].descrip_esp_c TO s_orden[idx].descrip_esp_c
+           DISPLAY arrprtb08[idx].descrip_esp_c TO s_orden[idx].descrip_esp_c
            ATTRIBUTE(BLUE)
-           DISPLAY prtb08[idx].unidad_c TO s_orden[idx].unidad_c
+           DISPLAY arrprtb08[idx].unidad_c TO s_orden[idx].unidad_c
            ATTRIBUTE(BLUE)
            LET idx = idx + 1
   END FOREACH

PROYECTO/acdir/acprmt001.4gl

@@ -442,6 +442,11 @@ FUNCTION acpcad001() --Consultar Datos Activo
         LET i = i + 1
 
     END FOREACH
+    -- el FOREACH deja un elemento vacio al final; al seleccionarlo getdata armaba
+    -- "WHERE a.codigo = " sin valor (-201) y el programa se caia
+    IF DisArray.getLength() >= i THEN
+        CALL DisArray.deleteElement(i)
+    END IF
 
 END FUNCTION
 
@@ -470,12 +475,12 @@ FUNCTION getdata(idx INT)
       ,a.id_MaintainX
 	  ,a.id_codigo
 	  ,b.nombre
-    FROM actb00001 a left join irtb00009 b on a.id_codigo = b.codigo 
+    FROM actb00001 a left join irtb00009 b on a.id_codigo = b.codigo AND b.status_t is null
-    WHERE a.codigo = " || DisArray[idx].codigo1 || "
+    WHERE a.codigo = ?
-    AND a.status_t is null and b.status_t is null
+    AND a.status_t is null
     ORDER BY a.codigo"
 
-    EXECUTE query INTO infoArray.*
+    EXECUTE query USING DisArray[idx].codigo1 INTO infoArray.*
 
     SELECT a.descripcion
         INTO des.descripcion2
@@ -568,6 +573,9 @@ FUNCTION insertData()
 
         IF infoArray.id_MaintainX IS NULL THEN 
             ROLLBACK WORK
+            -- antes seguia grabando fuera de la transaccion (el COMMIT caia -255)
+            CALL fgl_winmessage("MaintainX", "NO SE PUDO REGISTRAR EN MAINTAINX, OPERACION CANCELADA", "stop")
+            RETURN
         END IF 
     END IF 
 
@@ -701,6 +709,8 @@ INITIALIZE checking TO NULL
                 
                 IF answer IS NULL THEN 
                     ROLLBACK WORK
+                    CALL fgl_winmessage("MaintainX", "NO SE PUDO ACTUALIZAR MAINTAINX, OPERACION CANCELADA", "stop")
+                    RETURN
                 END IF 
             END IF 
 
@@ -811,11 +821,13 @@ INITIALIZE checking TO NULL
             END IF 
             
             IF infoArray.id_MaintainX IS NOT NULL THEN 
-                CALL ApiMaintainX('DELETE',infoArray.id_MaintainX,maquinaria.*, infoArray.*,extraCampos.*,NULL) 
+                CALL ApiMaintainX('DELETE',infoArray.id_MaintainX,infoArray.*,maquinaria.*,extraCampos.*,NULL)   -- antes maquinaria/infoArray invertidos 
                 RETURNING answer
 
-                IF answer != 1 THEN
+                IF answer != 1 OR answer IS NULL THEN
                     ROLLBACK WORK
+                    CALL fgl_winmessage("MaintainX", "NO SE PUDO ELIMINAR EN MAINTAINX, OPERACION CANCELADA", "stop")
+                    RETURN
                 END IF 
             
             END IF 

PROYECTO/acdir/acprmt001_alter_actb00001.sql

@@ -0,0 +1,17 @@
+-- acprmt001 (version ene-2025, integracion MaintainX) usa 4 columnas que nunca se
+-- crearon en actb00001: proveedor del activo, tipo de activo y activo padre.
+-- Todas NULL: no afectan filas existentes ni a los programas que no las usan.
+-- Ejecutar primero en la .250 (QA G6); en produccion (.40.8) solo cuando se apruebe.
+USE marmotech;
+GO
+IF COL_LENGTH('dbo.actb00001','cod_sp') IS NULL
+    ALTER TABLE dbo.actb00001 ADD cod_sp INT NULL;          -- cotb00001.cod_sp (proveedor)
+IF COL_LENGTH('dbo.actb00001','cod_sp_sec') IS NULL
+    ALTER TABLE dbo.actb00001 ADD cod_sp_sec INT NULL;      -- cotb00001.cod_sp_sec
+IF COL_LENGTH('dbo.actb00001','tipo_activo') IS NULL
+    ALTER TABLE dbo.actb00001 ADD tipo_activo VARCHAR(30) NULL;  -- CAMIONES, IT HARDWARE, MAQUINARIAS, MONTACARGAS, EDIFICIOS
+IF COL_LENGTH('dbo.actb00001','activo_padre') IS NULL
+    ALTER TABLE dbo.actb00001 ADD activo_padre INT NULL;    -- actb00001.codigo del activo padre
+GO
+SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('dbo.actb00001')
+  AND name IN ('cod_sp','cod_sp_sec','tipo_activo','activo_padre');

PROYECTO/addir/adfmwd008.per

@@ -7,7 +7,7 @@
  FECHA REALIZACION : Junio 24, 1993  
 ------------------------------------------------------------------------
 }
-DATABASE rayovac  
+DATABASE smarmotech  
  SCREEN SIZE 24 by 80
 {
     Busqueda de los Niveles de Empleados

PROYECTO/addir/adprmt001.4gl

@@ -55,7 +55,8 @@ FUNCTION adpcad001()
    {WHENEVER ERROR CONTINUE}
 
 ## CAPTURA LOS DATOS QUE VA A CONTENER EL REGISTRO
-   INPUT BY NAME depto.* #,m_estado_a,m_estado_m
+   INPUT BY NAME depto.departamento, depto.nom_dpto, depto.status_t, depto.us_crea,
+                 depto.fech_crea, depto.us_mod, depto.fech_mod #,m_estado_a,m_estado_m
 
 ## VERIFICA QUE EL CODIGO NO EXISTA EN EL CATALOGO DE DEPARTAMENTO. SI EXISTE,
 ## ENTONCES DESPLEGA LOS DATOS DEL REGISTRO EXISTENTE.
@@ -77,7 +78,8 @@ FUNCTION adpcad001()
                      NEXT FIELD departamento 
                   END IF
 
-                     DISPLAY BY NAME depto.*
+                     DISPLAY BY NAME depto.departamento, depto.nom_dpto, depto.status_t, depto.us_crea,
+                                     depto.fech_crea, depto.us_mod, depto.fech_mod
                      LET numero_msg = 12 
                      CALL msg(numero_msg)
                      LET depto.nom_dpto = NULL
@@ -113,10 +115,12 @@ FUNCTION adpcad001()
             CALL msg(numero_msg)
             NEXT FIELD nom_dpto
          ELSE
-           INSERT INTO adtb00001 VALUES (depto.departamento,depto.nom_dpto,
+           INSERT INTO adtb00001 (departamento,nom_dpto,status_t,us_crea,fech_crea,us_mod,fech_mod)
+                                  VALUES (depto.departamento,depto.nom_dpto,
                                          null, SUSER_SNAME (), GETDATE (), null, null)
 
-           INSERT INTO adtb00029 VALUES (depto.departamento,m_estado_a,m_estado_m,
+           INSERT INTO adtb00029 (departamento,estado_a,estado_m,depto_ant,estatus_t,us_crea,fech_crea,us_mod,fech_mod)
+                                  VALUES (depto.departamento,m_estado_a,m_estado_m,
                                          depto.departamento,null,SUSER_SNAME(), GETDATE (),null,null)
            
                   LET m_depto = depto.departamento
@@ -159,7 +163,7 @@ FUNCTION adpcmf001()
        RETURN
     END IF
 
-    LET SELEC = " SELECT UNIQUE * FROM adtb00001 where ",         
+    LET SELEC = " SELECT DISTINCT * FROM adtb00001 where ",         
                " status_t is null and ",
                   criterio clipped,
                  " ORDER BY 1"
@@ -246,9 +250,7 @@ FUNCTION adpcmf001()
             END IF
 
 ## SE SELECCIONAN LOS CAMPOS QUE SON MODIFICABLES
-             INPUT BY NAME depto.nom_dpto,
+             INPUT BY NAME depto.nom_dpto WITHOUT DEFAULTS
-                           m_estado_a,
-                           m_estado_m WITHOUT DEFAULTS
        
              AFTER FIELD nom_dpto
                    IF depto.nom_dpto IS NULL THEN 
@@ -283,9 +285,7 @@ FUNCTION adpcmf001()
           UPDATE chequeo   SET nom_dpto = depto.nom_dpto
                 WHERE departamento = depto.departamento
 
-          UPDATE adtb00029 SET estado_a = m_estado_a,
+          UPDATE adtb00029 SET us_mod   = SUSER_NAME(),
-                               estado_m = m_estado_m,
-                               us_mod   = SUSER_NAME(),
                                fech_mod = GETDATE()
                WHERE departamento = depto.departamento
 

PROYECTO/addir/adprmt017.4gl

@@ -289,7 +289,7 @@ FUNCTION adpcad017()
 ## SELECCIONA LA FECHA DE INGRESO Y EL SUELDO DE LA TABLA DE CONTRATACION
 ## Y SELECCION DE EMPLEADOS
 
-                 SELECT UNIQUE convert(char(10),a.fech_efec,101),a.sueldo,b.cod_sol
+                 SELECT UNIQUE a.fech_efec,a.sueldo,b.cod_sol
                  INTO contra.fech_efec,contra.sueldo,parece.cod_sol 
                  FROM adtb00019 a,adtb00018 b
                  WHERE a.cod_sol = b.cod_sol and b.cod_sol = acc_per.cod_sol and
@@ -301,7 +301,7 @@ FUNCTION adpcad017()
               END IF
 
 
-              IF xtipo <> 'INGRESO' THEN
+              IF xtipo IS NULL OR xtipo <> 'INGRESO' THEN
                  LET acc_per.cod_sol = NULL
                  NEXT FIELD fecha
               END IF
@@ -309,9 +309,9 @@ FUNCTION adpcad017()
 ## VERIFICA QUE EL SOLICITANTE EXISTE EN LA TABLA DE SOLICITANTES.  SI EXISTE
 ## LO PRESENTA EN PANTALLA.
 
-        SELECT cod_sol,convert(char(10),fecha,101),nom1_sol,nom2_sol,apell1_sol,
+        SELECT cod_sol,fecha,nom1_sol,nom2_sol,apell1_sol,
                 apell2_sol,calle,casa_num,barrio,urbanizacion,telefono,
-                cod_provincia,convert(char(10),fech_nac,101),cod_nac,estado_civil,estatura, 
+                cod_provincia,fech_nac,cod_nac,estado_civil,estatura, 
                 peso,cedula,licencia,tipo_sangre,cod_puesto,
                 cod_prof,sexo,status_t,us_crea,fech_crea,us_mod,fech_mod,
                 serie 
@@ -372,12 +372,12 @@ FUNCTION adpcad017()
 ## CHEQUEA QUE EL EMPLEADO EXISTA EN LA TABLA DE EMPLEADOS. SI EXISTE 
 ## DESPLEGA TODA LA INFORMACION REFERENTE AL EMPLEADO.
 
-               IF xtipo <> 'INGRESO' THEN
+               IF xtipo IS NULL OR xtipo <> 'INGRESO' THEN
              
                  SELECT b.departamento,b.nivel_emp,b.cod_puesto,b.nom1_emp,
                         b.nom2_emp,b.apell1_emp,b.apell2_emp,b.sueldo_ac,
                         b.nomina,b.estado_civil,b.tipo_sangre,
-                        b.cedula,b.cuenta_no,CONVERT(char(10),b.fech_efec,103),b.tipo_sueldo
+                        b.cedula,b.cuenta_no,b.fech_efec,b.tipo_sueldo
                  INTO acc_per.departamento,acc_per.nivel_emp,acc_per.cod_puesto,
                       nombre9,nombre10,apellido9,apellido10,acc_per.sueldo_ac,
                       acc_per.nomina,acc_per.estado_civil,acc_per.tipo_sangre,
@@ -402,8 +402,8 @@ FUNCTION adpcad017()
                  WHERE  k.cod_puesto = acc_per.cod_puesto and k.status_t is null
 
                  SELECT UNIQUE a.sexo INTO acc_per.sexo FROM adtb00021 a
-                 WHERE a.num_emp = acc_per.num_emp AND a.cod_par = 0 AND
+                 WHERE a.num_emp = acc_per.num_emp AND ISNULL(a.cod_par,0) = 0 AND
-                       a.sec_par = 0
+                       ISNULL(a.sec_par,0) = 0
 
                  SELECT a.nis INTO pnis FROM adtb00030 a
                  WHERE a.num_emp = acc_per.num_emp
@@ -905,7 +905,7 @@ FUNCTION adpcad017()
                             personal.serie USING "<<<"
 
               SELECT UNIQUE num_emp FROM adtb00021 
-              WHERE num_emp = acc_per.num_emp AND cod_par = 0 AND sec_par = 0
+              WHERE num_emp = acc_per.num_emp AND ISNULL(cod_par,0) = 0 AND ISNULL(sec_par,0) = 0
 
               IF STATUS = NOTFOUND THEN
     
@@ -1001,14 +1001,14 @@ FUNCTION adpcmf017()
     END IF
 
     LET selec = 
-       "SELECT UNIQUE a.num_trx,a.cod_mto,a.cod_sol,convert(char(10),a.fecha,103), ",
+       "SELECT UNIQUE a.num_trx,a.cod_mto,a.cod_sol,a.fecha, ",
-       "       CONVERT(CHAR(10),a.fech_efec,103),a.num_emp,a.departamento,a.nivel_emp,a.cod_puesto, ",
+       "       a.fech_efec,a.num_emp,a.departamento,a.nivel_emp,a.cod_puesto, ",
        "       a.sueldo_ac,a.nomina,a.estado_civil,b.sexo,a.tipo_sangre, ",
        "       a.sueldo_lq,a.observacion,a.num1_emp,a.departamento1, ",
        "       a.nivel1_emp,a.cod1_puesto,a.num2_emp,a.departamento2, ",
        "       a.nivel2_emp,a.cod2_puesto,a.num3_emp,a.departamento3, ",
        "       a.nivel3_emp,a.cod3_puesto,c.cedula,a.us_crea,a.fech_crea,a.us_mod, ",
-       "       a.fech_mod,CASE a.status_t WHEN 'E' THEN 'ANULADO' ELSE 'ACTIVO' END, CONVERT(CHAR(10),c.fech_nac,103) ",
+       "       a.fech_mod,CASE a.status_t WHEN 'E' THEN 'ANULADO' ELSE 'ACTIVO' END, c.fech_nac ",
        "FROM adtb00020 a,adtb00003 c LEFT OUTER JOIN adtb00021 b ON b.num_emp = c.num_emp ",
        "WHERE  a.num_emp = c.num_emp AND  ",criterio clipped,
        "   ORDER BY a.num_emp"
@@ -1580,7 +1580,7 @@ FUNCTION adpcmf017()
      END IF
 
       UPDATE adtb00021 SET sexo = acc_per.sexo WHERE num_emp = acc_per.num_emp
-                                                 AND cod_par = 0 AND sec_par=0
+                                                 AND ISNULL(cod_par,0) = 0 AND ISNULL(sec_par,0) = 0
       UPDATE adtb00017 SET departamento = acc_per.departamento,
                            nivel_emp    = acc_per.nivel_emp,
                            cod_puesto   = acc_per.cod_puesto,
@@ -1668,7 +1668,7 @@ FUNCTION desplegar()
          SELECT b.departamento,b.nivel_emp,b.cod_puesto,b.nom1_emp,
                         b.nom2_emp,b.apell1_emp,b.apell2_emp,b.sueldo_ac,
                         b.nomina,b.estado_civil,b.tipo_sangre,
-                        b.cedula,b.cuenta_no,CONVERT(char(10),b.fech_efec,103),
+                        b.cedula,b.cuenta_no,b.fech_efec,
                         b.sueldo_ac
                  INTO acc_per.departamento,acc_per.nivel_emp,acc_per.cod_puesto,
                       nombre9,nombre10,apellido9,apellido10,acc_per.sueldo_ac,
@@ -1764,7 +1764,7 @@ nombre5 clipped," ",nombre6 clipped," ",apellido5 clipped," ",apellido6 clipped
     ## DATOS VACACIONES
     IF xtipo = 'VACACIONES' THEN
      INITIALIZE vacacion.* TO NULL
-    SELECT a.cod_mov,a.cod_mov2,a.num_dias_disfrute,CONVERT(CHAR(10),a.fecha_sal,103),CONVERT(CHAR(10),a.fecha_ent,103),
+    SELECT a.cod_mov,a.cod_mov2,a.num_dias_disfrute,a.fecha_sal,a.fecha_ent,
            a.num_nomi,
            a.num_dias_disfrute,a.periodo,a.valor_vacaciones,a.num_dias_pagados,a.proporcion_vacaciones
     INTO vacacion.cod_mov1,vacacion.cod_mov2,vacacion.dias_vac,vacacion.fecha_sal,vacacion.fecha_ent,
@@ -1930,7 +1930,7 @@ FUNCTION vacaciones(operacion)
             LET salario_acumulado = 0
             IF vacacion.cod_mov1 = 36 THEN
                LET salario = 0
-               SELECT CONVERT(CHAR(10),a.fech_efec,103),a.sueldo_ac INTO fecha_entrada_emp,salario
+               SELECT a.fech_efec,a.sueldo_ac INTO fecha_entrada_emp,salario
                FROM adtb00003 a
                WHERE a.num_emp = acc_per.num_emp
 
@@ -2011,7 +2011,7 @@ FUNCTION vacaciones(operacion)
   END INPUT
   ELSE
     LET salario = 0
-    SELECT CONVERT(CHAR(10),a.fech_efec,103),a.sueldo_ac INTO fecha_entrada_emp,salario
+    SELECT a.fech_efec,a.sueldo_ac INTO fecha_entrada_emp,salario
     FROM adtb00003 a
     WHERE a.num_emp = acc_per.num_emp
     LET salario_quincenal = salario /2
@@ -2733,7 +2733,7 @@ ON EVERY ROW
      SELECT COUNT(*) INTO depende FROM adtb00013
      WHERE cod_sol = codigo_s AND  cod_par = 4
 
-     SELECT a.cod_provincia,CONVERT(CHAR(10),a.fech_nac,103),a.cod_nac 
+     SELECT a.cod_provincia,a.fech_nac,a.cod_nac 
      INTO cod_provincia,fecha_nac,codigo_n
      FROM adtb00012 a
      WHERE a.cod_sol = codigo_s

PROYECTO/addir/adprmt027.4gl

@@ -30,8 +30,6 @@ MAIN
   CALL ARG_VAL(1) RETURNING usuarios
   CALL ARG_VAL(2) RETURNING clave
   CALL ARG_VAL(3) RETURNING impresor
- let usuarios = "kpolanco" 
- let clave = "RevolutionX3"
  CONNECT to "smarmotech" USER usuarios USING clave
  SELECT a.* INTO p_companias.* FROM companias a
  CALL adprmt027()
@@ -183,8 +181,8 @@ DEFINE elimina CHAR(3)
         
     LET SELEC = " SELECT a.ano,a.num_emp,a.cod_puesto,a.nom1_emp,a.nom2_emp, ",
                 "        a.apell1_emp,a.apell2_emp, ",
-                "        a.cedula,a.serie,a.nomina,CONVERT(CHAR(10),a.fecha_ing,103), ",
+                "        a.cedula,a.serie,a.nomina,a.fecha_ing, ",
-                "        a.nom_puesto,CONVERT(CHAR(10),a.fech_vac,103) ",
+                "        a.nom_puesto,a.fech_vac ",
                 " FROM vacaciones a ",
                  " WHERE ",
                   criterio clipped,

PROYECTO/bin/cert/marmotech/onlyCert.pem

@@ -1,57 +0,0 @@
-Bag Attributes
-    localKeyID: 15 71 37 CA B9 91 AF C3 2B F7 1C 93 77 95 22 F8 
-subject=street=CALLE CENTRAL MADREVIEJA NORTE,09010,San Cristobal, CN=JORGE RICARDO SUBERO ISA, serialNumber=IDCDO-01300048665, GN=JORGE RICARDO, SN=SUBERO ISA, C=DO
-issuer=organizationIdentifier=VATDO-40102368, CN=digifirma CA Subordinada 1, OU=digifirma, O=Cámara de Comercio y Producción de Santo Domingo, L=Distrito Nacional, C=DO
------BEGIN CERTIFICATE-----
-MIIJgDCCB2igAwIBAgIILvImiGW0S1gwDQYJKoZIhvcNAQELBQAwgbgxFzAVBgNV
-BGEMDlZBVERPLTQwMTAyMzY4MSMwIQYDVQQDDBpkaWdpZmlybWEgQ0EgU3Vib3Jk
-aW5hZGEgMTESMBAGA1UECwwJZGlnaWZpcm1hMTswOQYDVQQKDDJDw6FtYXJhIGRl
-IENvbWVyY2lvIHkgUHJvZHVjY2nDs24gZGUgU2FudG8gRG9taW5nbzEaMBgGA1UE
-BwwRRGlzdHJpdG8gTmFjaW9uYWwxCzAJBgNVBAYTAkRPMB4XDTI1MDkwMzE1MDcw
-MFoXDTI3MDkwMzE1MDcwMFowgbYxOzA5BgNVBAkMMkNBTExFIENFTlRSQUwgTUFE
-UkVWSUVKQSBOT1JURSwwOTAxMCxTYW4gQ3Jpc3RvYmFsMSEwHwYDVQQDDBhKT1JH
-RSBSSUNBUkRPIFNVQkVSTyBJU0ExGjAYBgNVBAUTEUlEQ0RPLTAxMzAwMDQ4NjY1
-MRYwFAYDVQQqDA1KT1JHRSBSSUNBUkRPMRMwEQYDVQQEDApTVUJFUk8gSVNBMQsw
-CQYDVQQGEwJETzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAJDFW87A
-Vh9FknnJSlXpHVzRnuS5hzcQlpXVweQvVxEAXksq6i2bX7UCrS6RFOyR1fm59daQ
-uxyk3Ralk4StBMUXg1fpVe1WWi4+rDccIHtRf+SvC7bhCAITk6kUnWGLs03ZrAIx
-WmQQtQCF8KMIVhSqIGnKRR3UzKq0s9Mi/yBSkvLobuSUDJFpV80cdt17eww9BiHE
-MnyoedHJ+Dd/11UAFehnhNhzNvIJwdWu2TZO2SAKPmAHc2oZwHkCz0laQAbWwrq2
-vEXQ55Hw8mclhE3c/zqUjn/KDlmfXaTK2gilvGPnFjQqIR7PeXD9WfKMQZDDcJr9
-w59o+lGL7NNbHJkCAwEAAaOCBIwwggSIMHoGCCsGAQUFBwEDBG4wbDAIBgYEAI5G
-AQEwCwYGBACORgEDAgEUMAgGBgQAjkYBBDA0BgYEAI5GAQUwKjAoFiJodHRwczov
-L2Rwcy5jYW1hcmFzYW50b2RvbWluZ28uZG8vEwJFTjATBgYEAI5GAQYwCQYHBACO
-RgEGATCB3AYIKwYBBQUHAQEEgc8wgcwwSAYIKwYBBQUHMAKGPGh0dHBzOi8vd3d3
-LmNhbWFyYXNhbnRvZG9taW5nby5kby9kaWdpZmlybWEvQ0NQU0RfY2FkZW5hLmNy
-dDA/BggrBgEFBQcwAYYzaHR0cDovL29jc3AxLmNhbWFyYXNhbnRvZG9taW5nby5k
-by9wdWJsaWMvcGtpL29jc3AvMD8GCCsGAQUFBzABhjNodHRwOi8vb2NzcDIuY2Ft
-YXJhc2FudG9kb21pbmdvLmRvL3B1YmxpYy9wa2kvb2NzcC8wHQYDVR0OBBYEFFdr
-vC9iM4+tPDIWPR+/gnqvDeTdMB8GA1UdIwQYMBaAFM7rpVkdIemjmSWnCkqsx5WQ
-BhELMCoGA1UdEgQjMCGBH2RpZ2lmaXJtYUBjYW1hcmFzYW50b2RvbWluZ28uZG8w
-ggHZBgNVHSAEggHQMIIBzDAJBgcEAIvsQAEAMIIBvQYLKwYBBAGBzHwBAwEwggGs
-MC4GCCsGAQUFBwIBFiJodHRwczovL2Nwcy5jYW1hcmFzYW50b2RvbWluZ28uZG8v
-MIIBeAYIKwYBBQUHAgIwggFqHoIBZgBDAGUAcgB0AGkAZgBpAGMAYQBkAG8AIABw
-AGEAcgBhACAAcAByAG8AYwBlAGQAaQBtAGkAZQBuAHQAbwBzACAAdAByAGkAYgB1
-AHQAYQByAGkAbwBzACAAZQBuACAAcAAxADIAIABlAG0AaQB0AGkAZABvACAAcABv
-AHIAIABDAEMAUABTAEQALAAgAHUAYgBpAGMAYQBkAG8AIABBAHYAZQAuACAAMgA3
-ACAAZABlACAAZgBlAGIAcgBlAHIAbwAgAGUAcwBxACAAdABpAHIAYQBkAGUAbgB0
-AGUAcwAgADIAMgA4ACAAdABvAHIAcgBlACAAZgByAGkAdQBzAGEALAAgAEwAYQAg
-AEUAcwBwAGUAcgBpAGwAbABhACwAIABTAGEAbgB0AG8AIABEAG8AbQBpAG4AZwBv
-ACwAIABSAGUAcAD6AGIAbABpAGMAYQAgAEQAbwBtAGkAbgBpAGMAYQBuAGEwgY8G
-A1UdHwSBhzCBhDBAoD6gPIY6aHR0cDovL2NybDEuY2FtYXJhc2FudG9kb21pbmdv
-LmRvL3B1YmxpYy9wa2kvY3JsL0NDUFNELmNybDBAoD6gPIY6aHR0cDovL2NybDIu
-Y2FtYXJhc2FudG9kb21pbmdvLmRvL3B1YmxpYy9wa2kvY3JsL0NDUFNELmNybDAO
-BgNVHQ8BAf8EBAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMCEG
-A1UdEQQaMBiBFmpzb3RvQG1hcm1vdGVjaC5jb20uZG8wDQYJKoZIhvcNAQELBQAD
-ggIBAIiGfGfXGgO5zHP5BkVKAUHMkKrUP7G3ohexFPp53Io1WbdL3L7oE8EtArLQ
-yySdWr+0Yxb/6VE74krBUb+RhpghKlIhOTqsJvOL8Bdo3prI23hZWi2A4wHZn99W
-3pISBU2PE8QTodoaR0yOpIgqyYCIZmgHGSExFymDHp8iwfqxSS3HWnXgK5eI5iU/
-Zisl9bPBhHrFR1j9WjnZTx7IxocGmvd/efn26dJ3MgTP/TUx0P7jatukcTUazl6N
-9Ht/rHFBSan9vzG+rgSPRvT/flIRhSJyUvVuBGv1+NJWy5R1HoazlVO0cR4QB+U3
-nvg6E1j0ceccybWjIowA38pU/YpI81UVXSl0dbtwrFPrRmMzfnvMATX8H1NrOb98
-cLlIss9U1yWQxdyTes4mItBTYjA0K0ESUFGKL3ZputaM7KDW85kWkjXQj/TJP4DC
-lyzO4SjVx9ZFqSkz+yFzlvbfTU7clVshJHYxlmuO+nou19+2l7SPHz2UaikU4JAm
-dn9bNIypte31BF30rahUywK6ePT1nQ5xL1tSIe2m9BtyG/45yiHobm7kljEeBl4E
-zkY2mFEp84cH4s28BbRF/S2p8xkGFqNtDKa+DwcWd97IG+62en+/2vE75a9KRUxn
-eW8Ipl6P/e5moXyLYLZS0lMGShBom8cTYdLFFRAPbksXIa5U
------END CERTIFICATE-----

PROYECTO/bin/cert/marmotech/onlyPK.pem

@@ -1,31 +0,0 @@
-Bag Attributes
-    localKeyID: 15 71 37 CA B9 91 AF C3 2B F7 1C 93 77 95 22 F8 
-Key Attributes: <No Attributes>
------BEGIN PRIVATE KEY-----
-MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQCQxVvOwFYfRZJ5
-yUpV6R1c0Z7kuYc3EJaV1cHkL1cRAF5LKuotm1+1Aq0ukRTskdX5ufXWkLscpN0W
-pZOErQTFF4NX6VXtVlouPqw3HCB7UX/krwu24QgCE5OpFJ1hi7NN2awCMVpkELUA
-hfCjCFYUqiBpykUd1MyqtLPTIv8gUpLy6G7klAyRaVfNHHbde3sMPQYhxDJ8qHnR
-yfg3f9dVABXoZ4TYczbyCcHVrtk2TtkgCj5gB3NqGcB5As9JWkAG1sK6trxF0OeR
-8PJnJYRN3P86lI5/yg5Zn12kytoIpbxj5xY0KiEez3lw/VnyjEGQw3Ca/cOfaPpR
-i+zTWxyZAgMBAAECggEAY5w4CDEU0N2I5F0Y1bXZKzVcU9pH7B5wzlXO3Beqm5sa
-RjQX/xtqJdzaljDjKcdKaFKIkYLyC8pwCRYSQ3bc0lPUXpfBNNV2pV0gF6c1vkQc
-cJf0wndhkDQyJGN3yldaHxXHoZadsD5CnEKMiVDCEePg+4leNyFlVYuSM5Nf4beE
-u9qH6goOzjX5be7+ZWey1csntfTsoKa2rkpObdKz/l3W/tER0cEjdfPy/ksHqPDK
-S4Y6w3tJTw1rMD7Gnd8hjLSR6Zr8zo67Q/Jb0QhoEJfSCYRrWSbiN2lkuwEdcT6y
-SGXbQc2VEkvCn2B8QbxXYEBZQAsSekGGsbNRSKJENQKBgQDWxyRz3H2ubOTUIAya
-UOoNBW1K2IlH7LwwxmufCkVwOhwKOnTBdch1nv1tCUhgHKCvb6J1EFCbWR42O8X5
-hiqV+26nSPslxn96oMvkAIDINRBmHjVbzYQN7lCPAD3YelHi/qxCUfD8wmyIgZPe
-zxBiyVivjNXVi5X0Mzc57T4E2wKBgQCsjoG/HJUCSliEuJzRWIZqLLk661ONQrNL
-0JlEeKpaBNAzsDgCcsGdqPVPiMp4gpMXw7dTzqe4pC/mJ36Mgxkj/DDzO2LLeTTW
-Hmktg+WIg6TZRx5GW9q9tIopOxwf6OCcfYhszMDMY2vjiU1V87ULUwIsIUH9qMxt
-ZWFhtcxEmwKBgQCJ0prCup/v+TLSKIrNz9SRbIUYvWFCxVhyGDHhic7LWI67xY08
-w99SEyde+9D01AoM6h8e7cw8E/D+Llc5au4S9pioQn3fXMRbJaoQ8n2xe9O9I+9r
-rLLr2ZzaVvZY3w2DE5foqvpwyDarVjNUjB1gtwHxDPf/I6ajYOY0htgAdwKBgE6r
-nf26kzj7GkZQQLa1DHslrsFs/qe9jC75iJcOCGSII0AdjDuZhCpUGJtNOzocFeHU
-yiU8Z30n5eqhgPGg53pfhRWvsogf13XzYXJt2t0VX7fr06KySBULVZ4co+LsclMG
-bIdmBlRo04xmUcrpFFZ4Xtotw39ZUPJjMTWyA9IXAoGBANX8VzucIKR0Sdy2ZeG4
-R7XwBmHSIwLe5hOfO7Sl5ONGSC7Xj1P1iur8u8r13qI1d4o4i+pxMSjZuxz1ssdT
-3wgzv5ZcjVK5mtA5DjwKUDGO4I+BvGZ/EfbUvPdZ4voDjCsEiYVkyGaftqgImuZq
-/JMU8IoWP0sj4dMKbqK5V27A
------END PRIVATE KEY-----

PROYECTO/bin/cert/marmotech/onlyRSA.pem

@@ -1,28 +0,0 @@
------BEGIN PRIVATE KEY-----
-MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQCQxVvOwFYfRZJ5
-yUpV6R1c0Z7kuYc3EJaV1cHkL1cRAF5LKuotm1+1Aq0ukRTskdX5ufXWkLscpN0W
-pZOErQTFF4NX6VXtVlouPqw3HCB7UX/krwu24QgCE5OpFJ1hi7NN2awCMVpkELUA
-hfCjCFYUqiBpykUd1MyqtLPTIv8gUpLy6G7klAyRaVfNHHbde3sMPQYhxDJ8qHnR
-yfg3f9dVABXoZ4TYczbyCcHVrtk2TtkgCj5gB3NqGcB5As9JWkAG1sK6trxF0OeR
-8PJnJYRN3P86lI5/yg5Zn12kytoIpbxj5xY0KiEez3lw/VnyjEGQw3Ca/cOfaPpR
-i+zTWxyZAgMBAAECggEAY5w4CDEU0N2I5F0Y1bXZKzVcU9pH7B5wzlXO3Beqm5sa
-RjQX/xtqJdzaljDjKcdKaFKIkYLyC8pwCRYSQ3bc0lPUXpfBNNV2pV0gF6c1vkQc
-cJf0wndhkDQyJGN3yldaHxXHoZadsD5CnEKMiVDCEePg+4leNyFlVYuSM5Nf4beE
-u9qH6goOzjX5be7+ZWey1csntfTsoKa2rkpObdKz/l3W/tER0cEjdfPy/ksHqPDK
-S4Y6w3tJTw1rMD7Gnd8hjLSR6Zr8zo67Q/Jb0QhoEJfSCYRrWSbiN2lkuwEdcT6y
-SGXbQc2VEkvCn2B8QbxXYEBZQAsSekGGsbNRSKJENQKBgQDWxyRz3H2ubOTUIAya
-UOoNBW1K2IlH7LwwxmufCkVwOhwKOnTBdch1nv1tCUhgHKCvb6J1EFCbWR42O8X5
-hiqV+26nSPslxn96oMvkAIDINRBmHjVbzYQN7lCPAD3YelHi/qxCUfD8wmyIgZPe
-zxBiyVivjNXVi5X0Mzc57T4E2wKBgQCsjoG/HJUCSliEuJzRWIZqLLk661ONQrNL
-0JlEeKpaBNAzsDgCcsGdqPVPiMp4gpMXw7dTzqe4pC/mJ36Mgxkj/DDzO2LLeTTW
-Hmktg+WIg6TZRx5GW9q9tIopOxwf6OCcfYhszMDMY2vjiU1V87ULUwIsIUH9qMxt
-ZWFhtcxEmwKBgQCJ0prCup/v+TLSKIrNz9SRbIUYvWFCxVhyGDHhic7LWI67xY08
-w99SEyde+9D01AoM6h8e7cw8E/D+Llc5au4S9pioQn3fXMRbJaoQ8n2xe9O9I+9r
-rLLr2ZzaVvZY3w2DE5foqvpwyDarVjNUjB1gtwHxDPf/I6ajYOY0htgAdwKBgE6r
-nf26kzj7GkZQQLa1DHslrsFs/qe9jC75iJcOCGSII0AdjDuZhCpUGJtNOzocFeHU
-yiU8Z30n5eqhgPGg53pfhRWvsogf13XzYXJt2t0VX7fr06KySBULVZ4co+LsclMG
-bIdmBlRo04xmUcrpFFZ4Xtotw39ZUPJjMTWyA9IXAoGBANX8VzucIKR0Sdy2ZeG4
-R7XwBmHSIwLe5hOfO7Sl5ONGSC7Xj1P1iur8u8r13qI1d4o4i+pxMSjZuxz1ssdT
-3wgzv5ZcjVK5mtA5DjwKUDGO4I+BvGZ/EfbUvPdZ4voDjCsEiYVkyGaftqgImuZq
-/JMU8IoWP0sj4dMKbqK5V27A
------END PRIVATE KEY-----

PROYECTO/bin/milanese/cert/onlyCert.pem

@@ -1,59 +0,0 @@
-Bag Attributes
-    localKeyID: FA 1C BA BE C1 98 09 0F 9E 58 2F C0 D0 45 2E 4C 32 C8 4D 26 
-subject=street = "C/Areito No. 40,72000,San Juan de la Maguana", CN = ANGEL DANELI MILANESE HERRERA, serialNumber = IDCDO-01200494621, GN = ANGEL DANELI, SN = MILANESE HERRERA, C = DO
-
-issuer=organizationIdentifier = VATDO-40102368, CN = digifirma CA Subordinada 1, OU = digifirma, O = C\C3\A1mara de Comercio y Producci\C3\B3n de Santo Domingo, L = Distrito Nacional, C = DO
-
------BEGIN CERTIFICATE-----
-MIIJiDCCB3CgAwIBAgIIeE2n2FFyYl8wDQYJKoZIhvcNAQELBQAwgbgxFzAVBgNV
-BGEMDlZBVERPLTQwMTAyMzY4MSMwIQYDVQQDDBpkaWdpZmlybWEgQ0EgU3Vib3Jk
-aW5hZGEgMTESMBAGA1UECwwJZGlnaWZpcm1hMTswOQYDVQQKDDJDw6FtYXJhIGRl
-IENvbWVyY2lvIHkgUHJvZHVjY2nDs24gZGUgU2FudG8gRG9taW5nbzEaMBgGA1UE
-BwwRRGlzdHJpdG8gTmFjaW9uYWwxCzAJBgNVBAYTAkRPMB4XDTI1MDUyMzE3Mjkw
-MFoXDTI3MDUyMzE3MjkwMFowgboxNTAzBgNVBAkMLEMvQXJlaXRvIE5vLiA0MCw3
-MjAwMCxTYW4gSnVhbiBkZSBsYSBNYWd1YW5hMSYwJAYDVQQDDB1BTkdFTCBEQU5F
-TEkgTUlMQU5FU0UgSEVSUkVSQTEaMBgGA1UEBRMRSURDRE8tMDEyMDA0OTQ2MjEx
-FTATBgNVBCoMDEFOR0VMIERBTkVMSTEZMBcGA1UEBAwQTUlMQU5FU0UgSEVSUkVS
-QTELMAkGA1UEBhMCRE8wggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCJ
-oKCfc9VarFHh1IKbkHiMntP+1d2ie48dzUCQ0kb81MloW/EImlEEWqn2p91kynhx
-iBt3hgU+neRtKsP/3SDc4ywvpMMZn16B5RRBi4kcaomBoLSBcQk8n5ywsbNlruyz
-1yXpfRhJgwNqPnrKGnpT8IOJ+0cNYs7BG3yqVnWoJ0ADZlJWJAz87AuqyBXrSi3J
-sW2wcjFSyuO4Y+2WWkb7Z9nZgi7+ReU4ATrB9UEpjuNwztq9VoFJbPjUd3cLcnK3
-C6ZYTlcdTxtVp1fcxHww8W2CzojMT+b0hCsO0pKY69TPwB8uJhRutXcK9dfi4amW
-XxTwMMIXo4c9dbrbadqvAgMBAAGjggSQMIIEjDB6BggrBgEFBQcBAwRuMGwwCAYG
-BACORgEBMAsGBgQAjkYBAwIBFDAIBgYEAI5GAQQwNAYGBACORgEFMCowKBYiaHR0
-cHM6Ly9kcHMuY2FtYXJhc2FudG9kb21pbmdvLmRvLxMCRU4wEwYGBACORgEGMAkG
-BwQAjkYBBgEwgdwGCCsGAQUFBwEBBIHPMIHMMEgGCCsGAQUFBzAChjxodHRwczov
-L3d3dy5jYW1hcmFzYW50b2RvbWluZ28uZG8vZGlnaWZpcm1hL0NDUFNEX2NhZGVu
-YS5jcnQwPwYIKwYBBQUHMAGGM2h0dHA6Ly9vY3NwMS5jYW1hcmFzYW50b2RvbWlu
-Z28uZG8vcHVibGljL3BraS9vY3NwLzA/BggrBgEFBQcwAYYzaHR0cDovL29jc3Ay
-LmNhbWFyYXNhbnRvZG9taW5nby5kby9wdWJsaWMvcGtpL29jc3AvMB0GA1UdDgQW
-BBSKy3OLV/y971rsMqBBOGt3Xgt5ojAfBgNVHSMEGDAWgBTO66VZHSHpo5klpwpK
-rMeVkAYRCzAqBgNVHRIEIzAhgR9kaWdpZmlybWFAY2FtYXJhc2FudG9kb21pbmdv
-LmRvMIIB2QYDVR0gBIIB0DCCAcwwCQYHBACL7EABADCCAb0GCysGAQQBgcx8AQMB
-MIIBrDAuBggrBgEFBQcCARYiaHR0cHM6Ly9jcHMuY2FtYXJhc2FudG9kb21pbmdv
-LmRvLzCCAXgGCCsGAQUFBwICMIIBah6CAWYAQwBlAHIAdABpAGYAaQBjAGEAZABv
-ACAAcABhAHIAYQAgAHAAcgBvAGMAZQBkAGkAbQBpAGUAbgB0AG8AcwAgAHQAcgBp
-AGIAdQB0AGEAcgBpAG8AcwAgAGUAbgAgAHAAMQAyACAAZQBtAGkAdABpAGQAbwAg
-AHAAbwByACAAQwBDAFAAUwBEACwAIAB1AGIAaQBjAGEAZABvACAAQQB2AGUALgAg
-ADIANwAgAGQAZQAgAGYAZQBiAHIAZQByAG8AIABlAHMAcQAgAHQAaQByAGEAZABl
-AG4AdABlAHMAIAAyADIAOAAgAHQAbwByAHIAZQAgAGYAcgBpAHUAcwBhACwAIABM
-AGEAIABFAHMAcABlAHIAaQBsAGwAYQAsACAAUwBhAG4AdABvACAARABvAG0AaQBu
-AGcAbwAsACAAUgBlAHAA+gBiAGwAaQBjAGEAIABEAG8AbQBpAG4AaQBjAGEAbgBh
-MIGPBgNVHR8EgYcwgYQwQKA+oDyGOmh0dHA6Ly9jcmwxLmNhbWFyYXNhbnRvZG9t
-aW5nby5kby9wdWJsaWMvcGtpL2NybC9DQ1BTRC5jcmwwQKA+oDyGOmh0dHA6Ly9j
-cmwyLmNhbWFyYXNhbnRvZG9taW5nby5kby9wdWJsaWMvcGtpL2NybC9DQ1BTRC5j
-cmwwDgYDVR0PAQH/BAQDAgXgMB0GA1UdJQQWMBQGCCsGAQUFBwMCBggrBgEFBQcD
-BDAlBgNVHREEHjAcgRplbXByZXNhc21pbGFuZXNlQGdtYWlsLmNvbTANBgkqhkiG
-9w0BAQsFAAOCAgEAD8PqW47IpwnPvDWk9npB6nCMdRGTna00vccpjh2ZQStXw9Yz
-RjCjL9DwzZhgtsK2BRnx9g8jaw6lulKaCbuDILO/SkzS/wngwEYaP+yC7LrikRf8
-fUTvF4Di0pLIeQbBL9+/Z1u7gLAWL3UX6q6vKPlzQfY09U/sTatJGRQVrJ0HrveN
-cJWZtVu5GqgNAqhiKV4NaQFcrddV/RVkERmItCIOESyhWsm/nwJ6BsD0f1Gx5aI1
-F+jfWnbuFzsL/syQaWTvG8ckYQd2lYwiWg90751cN+86nLMrIYrkSoYj8wZAilak
-tKYEcf7DYsMjruvf5o2NPWIPRTftpQxAffK2evMe0GT04SogbR67uVVzVbnTwlMR
-9PbR8qkef0mj2x4STPgaUUsmTrJsGwToG13YR5xHu5H3nlExp7svI6pfimNGyEuI
-iu4N091bWZ8/p8jnPo6n1JazB+NPF6YM8LvSaOFn27yExLoNvCTsUgWCf9sE1HZz
-37AEgrJt4u0mu1TmCwED0xqmJAu4SnatB6AnXPZpBdsIFPqTYzM9WzcenuXuG8zn
-mw9mV3HkWnGcsVpjI1VHfO7uhdtUpIz1pw1tI5i5ZhkJ8KP9/WU9kdoS+Lr7kAdh
-d9vrE6FrkkwYlfpiTf/xA8Mr+149DsFARc+QWQw7loyEkitbTDXP44WO9LY=
------END CERTIFICATE-----

PROYECTO/bin/milanese/cert/onlyPK.pem

@@ -1,31 +0,0 @@
-Bag Attributes
-    localKeyID: FA 1C BA BE C1 98 09 0F 9E 58 2F C0 D0 45 2E 4C 32 C8 4D 26 
-Key Attributes: <No Attributes>
------BEGIN PRIVATE KEY-----
-MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQCJoKCfc9VarFHh
-1IKbkHiMntP+1d2ie48dzUCQ0kb81MloW/EImlEEWqn2p91kynhxiBt3hgU+neRt
-KsP/3SDc4ywvpMMZn16B5RRBi4kcaomBoLSBcQk8n5ywsbNlruyz1yXpfRhJgwNq
-PnrKGnpT8IOJ+0cNYs7BG3yqVnWoJ0ADZlJWJAz87AuqyBXrSi3JsW2wcjFSyuO4
-Y+2WWkb7Z9nZgi7+ReU4ATrB9UEpjuNwztq9VoFJbPjUd3cLcnK3C6ZYTlcdTxtV
-p1fcxHww8W2CzojMT+b0hCsO0pKY69TPwB8uJhRutXcK9dfi4amWXxTwMMIXo4c9
-dbrbadqvAgMBAAECggEBAIJlIuoQaGvRan8pxlk3509sSHVhEe2ZXb6hsnPEFygD
-P5RV0CgTdYFHmVMuNpABWV5P055J53wtQri/1RX9394IitvVIliLa5JsheWYG99F
-fWTI61zcySCcJWwv4UYNFw1JYg03zaQQslKeQd5secw/y5EW93nSTQwfS91jr3QR
-3pIWbR7z5BBWCjaUI6/sQiGwwbRcIP1n2u6L9rhmQ6dh+jLQXVfqpW26E4kzxm5p
-YAMZlhHf0LVeSoJF3XpmkHCKKMglbiH8x86cbh0ZrhQH22fXieZVeDnUPT/jGqCb
-jA98xNXiWvNNr8ZBw9jtaj+p1Ud1MJY8xZ9NJ0e/UXkCgYEAz5foTc2/q4+sWsR7
-t9KZp7ci0VRsj3UFI8JFp7GI+1iclvgEtsL0XXzeoX2ReKoDS25uBkcjOC0qTUvg
-DdX5oo1QNXGPCz857Czx7TwHoXInWhe99luTP8V++tT726Nfj95Ui3GkfWwaPZyb
-WkxPp8nMMD/v7Xgq8Zj1wvleTrsCgYEAqbgrQ1a0GIRyl/Mff10K3yBPtPS1Tzz0
-AsyidF10zrC6A1LoR5XHJkYJM2xkejNQi2uXQlJEHNanhg8E/TKJSef6gcREWhTU
-lYtRZbk/t5DymxPhDI0plasoRPWPDJmkA5/navmlss7N48M8j/kkdlTCZrBd42GH
-I4alsr02lp0CgYBSDLl9nvfF6Gh4C7bWhf/DYUf6ssKhxN++LXf4etwoc/KYXPkH
-/3A0TzlzXL0VkyTwOHp2MsHB32Ab4wRwk4UycWYlaXffOyM6rN0GJjbh4cuZ+U5U
-xAckKnwwyeOuARmxNG/4GXepNwP8HBzvCMBnEgSJgYvkMR3QFeP1JzjWJwKBgHjr
-a3+FtbjGHPMf2DAhNU61sbRmqQs0jVG1RIWN1Fwy08Tse+wMzZ/6RDHsJ0ZdayR6
-WoF5JWg6k47TAqX3LJOIgRWVpXFc5/1IDo1gSAJcdk2BA1Wy+Y7WLFG9dtbuXEns
-0q+IAMN9znlZL7wQMSdRylPpkmsfoG3yT/oiD1ONAoGBAM2moUyJ5fBOEVvwRO2m
-W5cKQMyVQphH0vOjE3lVYMi7n2r/a9zY4STBD7FGrGh+T0HrCTlrQzCNkZFXVTvA
-8N6jLcUbNknF83uGsGftnMY2upishh+8BsiUXxZe996q0dmx50yV+OjIdk+TuDx1
-qXdF8Qojrmoj/ylZap3ikQ2F
------END PRIVATE KEY-----

PROYECTO/bin/milanese/cert/onlyRSA.pem

@@ -1,27 +0,0 @@
------BEGIN RSA PRIVATE KEY-----
-MIIEpAIBAAKCAQEAiaCgn3PVWqxR4dSCm5B4jJ7T/tXdonuPHc1AkNJG/NTJaFvx
-CJpRBFqp9qfdZMp4cYgbd4YFPp3kbSrD/90g3OMsL6TDGZ9egeUUQYuJHGqJgaC0
-gXEJPJ+csLGzZa7ss9cl6X0YSYMDaj56yhp6U/CDiftHDWLOwRt8qlZ1qCdAA2ZS
-ViQM/OwLqsgV60otybFtsHIxUsrjuGPtllpG+2fZ2YIu/kXlOAE6wfVBKY7jcM7a
-vVaBSWz41Hd3C3JytwumWE5XHU8bVadX3MR8MPFtgs6IzE/m9IQrDtKSmOvUz8Af
-LiYUbrV3CvXX4uGpll8U8DDCF6OHPXW622narwIDAQABAoIBAQCCZSLqEGhr0Wp/
-KcZZN+dPbEh1YRHtmV2+obJzxBcoAz+UVdAoE3WBR5lTLjaQAVleT9OeSed8LUK4
-v9UV/d/eCIrb1SJYi2uSbIXlmBvfRX1kyOtc3MkgnCVsL+FGDRcNSWINN82kELJS
-nkHebHnMP8uRFvd50k0MH0vdY690Ed6SFm0e8+QQVgo2lCOv7EIhsMG0XCD9Z9ru
-i/a4ZkOnYfoy0F1X6qVtuhOJM8ZuaWADGZYR39C1XkqCRd16ZpBwiijIJW4h/MfO
-nG4dGa4UB9tn14nmVXg51D0/4xqgm4wPfMTV4lrzTa/GQcPY7Wo/qdVHdTCWPMWf
-TSdHv1F5AoGBAM+X6E3Nv6uPrFrEe7fSmae3ItFUbI91BSPCRaexiPtYnJb4BLbC
-9F183qF9kXiqA0tubgZHIzgtKk1L4A3V+aKNUDVxjws/Oews8e08B6FyJ1oXvfZb
-kz/FfvrU+9ujX4/eVItxpH1sGj2cm1pMT6fJzDA/7+14KvGY9cL5Xk67AoGBAKm4
-K0NWtBiEcpfzH39dCt8gT7T0tU889ALMonRddM6wugNS6EeVxyZGCTNsZHozUItr
-l0JSRBzWp4YPBP0yiUnn+oHERFoU1JWLUWW5P7eQ8psT4QyNKZWrKET1jwyZpAOf
-52r5pbLOzePDPI/5JHZUwmawXeNhhyOGpbK9NpadAoGAUgy5fZ73xehoeAu21oX/
-w2FH+rLCocTfvi13+HrcKHPymFz5B/9wNE85c1y9FZMk8Dh6djLBwd9gG+MEcJOF
-MnFmJWl33zsjOqzdBiY24eHLmflOVMQHJCp8MMnjrgEZsTRv+Bl3qTcD/Bwc7wjA
-ZxIEiYGL5DEd0BXj9Sc41icCgYB462t/hbW4xhzzH9gwITVOtbG0ZqkLNI1RtUSF
-jdRcMtPE7HvsDM2f+kQx7CdGXWskelqBeSVoOpOO0wKl9yyTiIEVlaVxXOf9SA6N
-YEgCXHZNgQNVsvmO1ixRvXbW7lxJ7NKviADDfc55WS+8EDEnUcpT6ZJrH6Bt8k/6
-Ig9TjQKBgQDNpqFMieXwThFb8ETtpluXCkDMlUKYR9LzoxN5VWDIu59q/2vc2OEk
-wQ+xRqxofk9B6wk5a0MwjZGRV1U7wPDeoy3FGzZJxfN7hrBn7ZzGNrqYrIYfvAbI
-lF8WXvfeqtHZsedMlfjoyHZPk7g8dal3RfEKI65qI/8pWWqd4pENhQ==
------END RSA PRIVATE KEY-----

PROYECTO/bin/nacecertkey.key

@@ -1,31 +0,0 @@
-Bag Attributes
-    localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74 
-Key Attributes: <No Attributes>
------BEGIN PRIVATE KEY-----
-MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQDAuMWJOZ7fUArX
-qtdmS4Re6kmUta0n9ABnFEOaJh2cSHy/mNtwSE2efUJ2cHI6Cg29zZbs7wd8mwlT
-FgtaAecgZznfw1a5o0p2jgHaK+jUKpApz04UbFR1UDSaKNaPQESXY9TMHvVwEN+9
-BzyNkZzTreP0bA2DI2ywLNhjUnFYPyHadvi8A70MtxY8nxRAVqbhZ2u5f18w6suJ
-i7HzVQqhbBTBYmWEi/mQ3g+ofTkBMwuvlgUV+8NZDIbhLhauD/Cew3o6ossP8T6t
-zPHpKKcXWYmqKR5oFvC306J5MkKj/BSGIcUfWRCLebnhCsSb0gCW7liINW3w2/ht
-/bAF10PFAgMBAAECggEARQ1vad3FeQo6+E90YmjIgyG7P5dg9aHNyyFNn5vsnCS0
-3gmtBqxBc3o6KCneI8GabtmNLFPxAMqkKqsJYjSwVcHm0LAzEMzbT2NOcpetEug1
-Q2XN+i9ei7IzRtE/H5DNgtj4VDL7ii3hnN9M6QS1hnsV5Gwa41P8C5vl5KCTkCRe
-LGEtVXONbwjmu0S9nV78oyklMjrdTNYdzCJAaLSJrJTIsHdPqsfMnzKYVbpoOAGA
-UWOlKyj9n+iY99p/adKR0ogLNSAjtwpJv50gL2xS5EBwws+Y3v/pCFy7/VQ6Kws9
-jEv+FcosCaR2akusA9W5jIHN1QNWJB+Hcl8q+FvFAQKBgQD9xTr1dfnGgyutaDBT
-q1wCrsPHUydW8CA5y1Jq/XuwTLb9JmSm9OnLOmDTSeJwN+COAUeDu6KQOicgKN3h
-WPSEMZj1orNDj9FSZtOImMZetdl04GwwwhlMRg9HTXyRhm61yNv9E7x2EDGLNWF/
-2cLAbtrWF3BggL5nFP5ps7AIIQKBgQDCaju17Z1CwedySnaMZ2b8LNHn/7C2xmmD
-WYhaqSHphuUiXOpWYYCQ2+TrKw1SKyNClR+e6QgaMGFkAukP2RYmnrpW7F4cFNls
-F82Fsl2BFizNChlskAaU5S2DPuUTyUPA59xVW+mupvi6Z1k5E5ZawTvuKjMQBEbe
-fbVSqsc3JQKBgQC5voAOJCEDhQUWMrmUtEtvhz2zipCz2KStyL11pD3BaBVUK6Lm
-dUMexocSf/Tm0G9jYVpX+KHfUUFMD71/8N1gWPEtcb4miIDdAHh6deBUeGRHYPCv
-q5Jaurj6JqQz3CLymaczkRuTivzIePT5YIlk0n8IzzUo3XL//mTNN4F0IQKBgC+F
-8FqkXtC2vXC+qwPfMtlpy1W+tt+22Iv3EtG2jkebZd9kfxPmeZrvZaHmwDbZvKDF
-+xjJNeXQ9b2QyI/LLRL7sekVllue7RbzKpYH57tqREFKurRC8Jjs/JcchLq1dA5v
-nvhuo0zCHALUyIafNx2wJootXpYHtZsld3FhtZjRAoGBAMViQhaIUNaPQAQE/JgS
-TQsIe/L/+LNw377rdP1dhziyLXoXHuR+wu4lnNlGUO6M4tnP1EbcrmrtfSwVcm2o
-1zwfLytI+1x6NbsaSCzUvLa0ftJuE3+RbBTKg4uz7IF3bqU1egaXiwebtc+h77mZ
-BvoJbdy9DHJ+JLmkXsbcMEIW
------END PRIVATE KEY-----

PROYECTO/bin/oldpem/RSAKey.pem

@@ -1,27 +0,0 @@
------BEGIN RSA PRIVATE KEY-----
-MIIEowIBAAKCAQEAwQ45nza/N/KUT6Ot/RxywYG6mME8KVRelZey4tX2nvIXeJrx
-uwcXu+aXvUVHZXj6yhYIV/l8XeJNNhjGESA3UGnCfHMFL6R2QHayZSZlqB5mOf+q
-JkEKG+CqZkJ0BLEbk+3JAuKPiLavklaiqPpBNsd4k7qVgmcHrzDK1FEXrac7AjVG
-GTfF+2QFzUQfbpooUz35cNt5ZLQb8ANbdEMYyf3/NbisJObUmOF4gcGd1clClqUa
-RyX2o4nzS+nJycNFxSy0aG5oyNPSa0KpAafDvJ/85Deqd7qbreapincyiKbbudV5
-NiPY2HC8zg8WLfC4kUjRagj7Sz19Rf1Ib4g5SwIDAQABAoIBABCXKFyGV+h28Efn
-yQv3ZeU7QM3fzUu/9GDmqHjV6lu+ckXrCtsHwQJkzqV1Tq1puCOlwRHOXuGykPAV
-MPBH1HkUnaIUQF3XxFHF4Y7Pvey0sBRL5FNlQ3kh1YL0MwQ0NCqCRMP6tFsLWAs7
-Zr8ewnvyqGoJns+WCxMDHmsgjOhfUFwap0qG8v//fOiI0RhhSkTCPINNEJZO622S
-LuilW5RMJFMEJFBcS1V/Jp+bZIM+TPcrdHILErWLQIDD7IIXpLk8Y0P2X2bCrYgc
-zJv3wDiY0taEXnbGv4w9N8llXhAMETyneuSSIAJpvOSdQLX2mfGC8qDkdtdc3r4g
-rybvEAECgYEA8VzQ76vYY3KzS8l3br2P1N6EvVC/8sSOlsAmVDHIYm9a8A1XmKnt
-p9fK4N85hnwaQA1Z+ThOsDiHZbFCOSbMQgGiVX7eD0Tsr1ofW+m8PI4kbHvmt25J
-m7XO1mMxH0b7KAjX63Yx/2WUffSgJBH0R6YBwSDjKTP0ioJHDgRaCD8CgYEAzMNv
-0dP/f08faaZyzEYF14ttimtO/EpZzhLhjVAahTAaqtUV1XUgpKw/fvbNuN3rXTJd
-gqBRPaml6iYW9i5pnS2r+/zDGxmgZXxN/uBy+Vj7C1i3RLZLnxsmL/GVvHcHR6iY
-HqgUjOD2dXg+tCUbt9KxDqgZGwIGfSx3FEEUa/UCgYAtr4jo5Nk3sb1YahEOSBlS
-jLAJeaBrnmLzC/n1U9r/Lt7Cs3PSNNAERidjuz0TRKhfWWefcdYLKxgN2qiTUtG0
-6MRGdJYpw70dT+zBpBN6Ttl8I1O/gsOyEo7NK8dfiTr/D/V230+FbT/XO5eYXEGl
-0jlgyg3Vfb0a/p/eelpkVwKBgQDGQijfsnN88cBJjFc0wEvhwmdikbodf2Pqqs9n
-AvtaoBQB+mW0kz7zErA8H31bFMxSJXTzCIUAvmUeDJlI7fFmtZUDXF4QvERYXv4p
-3WqVUXlpKBHy3srjl+bmnvRLUbhjwrLfZADZ0uvvG2kjBZcL6l1zAoGka9aallYJ
-72V1jQKBgEAf7ntbcNYhJgbwZbmAB0+4MEM8qHZd2oVXT3x/JTYBNiKMd+2MV15z
-y/21SdTzDgMXcA5NaxDDNSCv3zwtf3BeHHI8cz2pfv9xtzqmHKWubLR3rRo1WrbO
-q3k5WYadbZrrFSZ0UCJfo2oEF8/yzkmg6Z9+gwkx0g6AFoxqkHN2
------END RSA PRIVATE KEY-----

PROYECTO/bin/oldpem/apns-cert.pem

@@ -1,60 +0,0 @@
-Bag Attributes
-    localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74 
-subject=street = "Calle Primera Res Sol Creciente no.14, Arroyo Hondo Viejo,00000,Santo Domingo", CN = JUAN FRANCISCO SOTO CONCEPCION, serialNumber = ICDDO-00104581939, GN = JUAN FRANCISCO, SN = SOTO CONCEPCION, C = DO
-
-issuer=organizationIdentifier = VATDO-40102368, CN = digifirma CA Subordinada 1, OU = digifirma, O = C\C3\A1mara de Comercio y Producci\C3\B3n de Santo Domingo, L = Distrito Nacional, C = DO
-
------BEGIN CERTIFICATE-----
-MIIJpzCCB4+gAwIBAgIIE3iFdHfYkzcwDQYJKoZIhvcNAQELBQAwgbgxFzAVBgNV
-BGEMDlZBVERPLTQwMTAyMzY4MSMwIQYDVQQDDBpkaWdpZmlybWEgQ0EgU3Vib3Jk
-aW5hZGEgMTESMBAGA1UECwwJZGlnaWZpcm1hMTswOQYDVQQKDDJDw6FtYXJhIGRl
-IENvbWVyY2lvIHkgUHJvZHVjY2nDs24gZGUgU2FudG8gRG9taW5nbzEaMBgGA1UE
-BwwRRGlzdHJpdG8gTmFjaW9uYWwxCzAJBgNVBAYTAkRPMB4XDTIzMDYxNTIyNDUw
-MFoXDTI0MDYxNDIyNDUwMFowgd0xVjBUBgNVBAkMTUNhbGxlIFByaW1lcmEgUmVz
-IFNvbCBDcmVjaWVudGUgbm8uMTQsIEFycm95byBIb25kbyBWaWVqbywwMDAwMCxT
-YW50byBEb21pbmdvMScwJQYDVQQDDB5KVUFOIEZSQU5DSVNDTyBTT1RPIENPTkNF
-UENJT04xGjAYBgNVBAUTEUlDRERPLTAwMTA0NTgxOTM5MRcwFQYDVQQqDA5KVUFO
-IEZSQU5DSVNDTzEYMBYGA1UEBAwPU09UTyBDT05DRVBDSU9OMQswCQYDVQQGEwJE
-TzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMC4xYk5nt9QCteq12ZL
-hF7qSZS1rSf0AGcUQ5omHZxIfL+Y23BITZ59QnZwcjoKDb3NluzvB3ybCVMWC1oB
-5yBnOd/DVrmjSnaOAdor6NQqkCnPThRsVHVQNJoo1o9ARJdj1Mwe9XAQ370HPI2R
-nNOt4/RsDYMjbLAs2GNScVg/Idp2+LwDvQy3FjyfFEBWpuFna7l/XzDqy4mLsfNV
-CqFsFMFiZYSL+ZDeD6h9OQEzC6+WBRX7w1kMhuEuFq4P8J7Dejqiyw/xPq3M8eko
-pxdZiaopHmgW8LfTonkyQqP8FIYhxR9ZEIt5ueEKxJvSAJbuWIg1bfDb+G39sAXX
-Q8UCAwEAAaOCBIwwggSIMHoGCCsGAQUFBwEDBG4wbDAIBgYEAI5GAQEwCwYGBACO
-RgEDAgEUMAgGBgQAjkYBBDA0BgYEAI5GAQUwKjAoFiJodHRwczovL2Rwcy5jYW1h
-cmFzYW50b2RvbWluZ28uZG8vEwJFTjATBgYEAI5GAQYwCQYHBACORgEGATCB3AYI
-KwYBBQUHAQEEgc8wgcwwSAYIKwYBBQUHMAKGPGh0dHBzOi8vd3d3LmNhbWFyYXNh
-bnRvZG9taW5nby5kby9kaWdpZmlybWEvQ0NQU0RfY2FkZW5hLmNydDA/BggrBgEF
-BQcwAYYzaHR0cDovL29jc3AxLmNhbWFyYXNhbnRvZG9taW5nby5kby9wdWJsaWMv
-cGtpL29jc3AvMD8GCCsGAQUFBzABhjNodHRwOi8vb2NzcDIuY2FtYXJhc2FudG9k
-b21pbmdvLmRvL3B1YmxpYy9wa2kvb2NzcC8wHQYDVR0OBBYEFIjeAk+muKu6AKX6
-gMOqQ1EWnXu5MB8GA1UdIwQYMBaAFM7rpVkdIemjmSWnCkqsx5WQBhELMCoGA1Ud
-EgQjMCGBH2RpZ2lmaXJtYUBjYW1hcmFzYW50b2RvbWluZ28uZG8wggHZBgNVHSAE
-ggHQMIIBzDAJBgcEAIvsQAEAMIIBvQYLKwYBBAGBzHwBAwEwggGsMC4GCCsGAQUF
-BwIBFiJodHRwczovL2Nwcy5jYW1hcmFzYW50b2RvbWluZ28uZG8vMIIBeAYIKwYB
-BQUHAgIwggFqHoIBZgBDAGUAcgB0AGkAZgBpAGMAYQBkAG8AIABwAGEAcgBhACAA
-cAByAG8AYwBlAGQAaQBtAGkAZQBuAHQAbwBzACAAdAByAGkAYgB1AHQAYQByAGkA
-bwBzACAAZQBuACAAcAAxADIAIABlAG0AaQB0AGkAZABvACAAcABvAHIAIABDAEMA
-UABTAEQALAAgAHUAYgBpAGMAYQBkAG8AIABBAHYAZQAuACAAMgA3ACAAZABlACAA
-ZgBlAGIAcgBlAHIAbwAgAGUAcwBxACAAdABpAHIAYQBkAGUAbgB0AGUAcwAgADIA
-MgA4ACAAdABvAHIAcgBlACAAZgByAGkAdQBzAGEALAAgAEwAYQAgAEUAcwBwAGUA
-cgBpAGwAbABhACwAIABTAGEAbgB0AG8AIABEAG8AbQBpAG4AZwBvACwAIABSAGUA
-cAD6AGIAbABpAGMAYQAgAEQAbwBtAGkAbgBpAGMAYQBuAGEwgY8GA1UdHwSBhzCB
-hDBAoD6gPIY6aHR0cDovL2NybDEuY2FtYXJhc2FudG9kb21pbmdvLmRvL3B1Ymxp
-Yy9wa2kvY3JsL0NDUFNELmNybDBAoD6gPIY6aHR0cDovL2NybDIuY2FtYXJhc2Fu
-dG9kb21pbmdvLmRvL3B1YmxpYy9wa2kvY3JsL0NDUFNELmNybDAOBgNVHQ8BAf8E
-BAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMCEGA1UdEQQaMBiB
-Fmp1YW4uZi5zb3RvY0BnbWFpbC5jb20wDQYJKoZIhvcNAQELBQADggIBAIOdH28n
-Yh8tjWQ2o1VUkDSudH5yJqLfKtlmPgBtRn68B/kSkhUpHYKUUJnNEnMUvwOy4dTK
-RM7R0WW5uLvAOpkm+mlRD7QiumogUfphI0k53ihA/0ScxXjQPDbPzcqBn9LPWbum
-lK1+4eKzIh3i+Sb/4Ip6wDx0g/oGva62EFy2oXkzdSuhb073Tpf/Z1uMxjlt7Ovy
-7vs9KeQjleYUpD2qh2eSjGFkg5kl9rdpxnRG0eM/L9SZyt9IWiV4rcbxWDCI8GNb
-G2ywTxUrg1hBwQsJ0RZl/YCT7RKkGtnXWPIaXqBTrXlRVNZwxSOj4y5a2vPXzP0q
-48ZHM/zApoOAjyPkVE5XlZAeZ2eXMjG96AJKU479Jt3gv7qjFqkVNnxGezD2C1Hz
-tAX1y/CSQis9UyOSAH1ryyjj8yzkj4KVC0zjCWgnr6aeW9qYEcrRi/C7/MNyMbPG
-OhjQCzAMf5kDQZet/T9La5DABne5nfnJ3PHuosKLea/56vy5gAXKuytJ4LcsK7TZ
-f50cNaEMrH0wVFvRUbYac6NYc7GNBMLa/1hZ2xaFRsjm08Lgn2jO8Z2tPixSYosV
-J1987Ut4P8BA8oJlSyWFMWfR1JhG6HHLo+/ve5/6qZBFziW88cswre3fdtJUfUWo
-Wv4IsWUzY37WB1Xp8yDedr1xnj0Ui5UrOI91
------END CERTIFICATE-----

PROYECTO/bin/oldpem/apns-key-noenc.pem

@@ -1,27 +0,0 @@
------BEGIN RSA PRIVATE KEY-----
-MIIEpAIBAAKCAQEAwLjFiTme31AK16rXZkuEXupJlLWtJ/QAZxRDmiYdnEh8v5jb
-cEhNnn1CdnByOgoNvc2W7O8HfJsJUxYLWgHnIGc538NWuaNKdo4B2ivo1CqQKc9O
-FGxUdVA0mijWj0BEl2PUzB71cBDfvQc8jZGc063j9GwNgyNssCzYY1JxWD8h2nb4
-vAO9DLcWPJ8UQFam4WdruX9fMOrLiYux81UKoWwUwWJlhIv5kN4PqH05ATMLr5YF
-FfvDWQyG4S4Wrg/wnsN6OqLLD/E+rczx6SinF1mJqikeaBbwt9OieTJCo/wUhiHF
-H1kQi3m54QrEm9IAlu5YiDVt8Nv4bf2wBddDxQIDAQABAoIBAEUNb2ndxXkKOvhP
-dGJoyIMhuz+XYPWhzcshTZ+b7JwktN4JrQasQXN6Oigp3iPBmm7ZjSxT8QDKpCqr
-CWI0sFXB5tCwMxDM209jTnKXrRLoNUNlzfovXouyM0bRPx+QzYLY+FQy+4ot4Zzf
-TOkEtYZ7FeRsGuNT/Aub5eSgk5AkXixhLVVzjW8I5rtEvZ1e/KMpJTI63UzWHcwi
-QGi0iayUyLB3T6rHzJ8ymFW6aDgBgFFjpSso/Z/omPfaf2nSkdKICzUgI7cKSb+d
-IC9sUuRAcMLPmN7/6Qhcu/1UOisLPYxL/hXKLAmkdmpLrAPVuYyBzdUDViQfh3Jf
-KvhbxQECgYEA/cU69XX5xoMrrWgwU6tcAq7Dx1MnVvAgOctSav17sEy2/SZkpvTp
-yzpg00nicDfgjgFHg7uikDonICjd4Vj0hDGY9aKzQ4/RUmbTiJjGXrXZdOBsMMIZ
-TEYPR018kYZutcjb/RO8dhAxizVhf9nCwG7a1hdwYIC+ZxT+abOwCCECgYEAwmo7
-te2dQsHnckp2jGdm/CzR5/+wtsZpg1mIWqkh6YblIlzqVmGAkNvk6ysNUisjQpUf
-nukIGjBhZALpD9kWJp66VuxeHBTZbBfNhbJdgRYszQoZbJAGlOUtgz7lE8lDwOfc
-VVvprqb4umdZOROWWsE77iozEARG3n21UqrHNyUCgYEAub6ADiQhA4UFFjK5lLRL
-b4c9s4qQs9ikrci9daQ9wWgVVCui5nVDHsaHEn/05tBvY2FaV/ih31FBTA+9f/Dd
-YFjxLXG+JoiA3QB4enXgVHhkR2Dwr6uSWrq4+iakM9wi8pmnM5Ebk4r8yHj0+WCJ
-ZNJ/CM81KN1y//5kzTeBdCECgYAvhfBapF7Qtr1wvqsD3zLZactVvrbfttiL9xLR
-to5Hm2XfZH8T5nma72Wh5sA22bygxfsYyTXl0PW9kMiPyy0S+7HpFZZbnu0W8yqW
-B+e7akRBSrq0QvCY7PyXHIS6tXQOb574bqNMwhwC1MiGnzcdsCaKLV6WB7WbJXdx
-YbWY0QKBgQDFYkIWiFDWj0AEBPyYEk0LCHvy//izcN++63T9XYc4si16Fx7kfsLu
-JZzZRlDujOLZz9RG3K5q7X0sFXJtqNc8Hy8rSPtcejW7Gkgs1Ly2tH7SbhN/kWwU
-yoOLs+yBd26lNXoGl4sHm7XPoe+5mQb6CW3cvQxyfiS5pF7G3DBCFg==
------END RSA PRIVATE KEY-----

PROYECTO/bin/oldpem/apns-key.pem

@@ -1,33 +0,0 @@
-Bag Attributes
-    localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74 
-Key Attributes: <No Attributes>
------BEGIN ENCRYPTED PRIVATE KEY-----
-MIIFHDBOBgkqhkiG9w0BBQ0wQTApBgkqhkiG9w0BBQwwHAQIBCKXJDrlx3UCAggA
-MAwGCCqGSIb3DQIJBQAwFAYIKoZIhvcNAwcECLJxsXmMJt0rBIIEyHK6pSLPkESi
-uztfGr7/EfA+Lnq7MvI1A50rIj5lRsGBuyweajpJ6+0lvL99w4V5/G0ae0insiNT
-/oVQJ47EiA6NA6HLovh1Ekza0odjcY6F5D3Q8ylK0Gn6Ja6pmanU+/ewtiVZTO4s
-Pmxl7aTrHP5ok5LuWTL7Bx+UZxKh+/TGULjFHY3lpOKQsYrj/p8JVlV6cLFJaSZb
-+hFMA6bi9jSjCSA8Ifa2P5UzwPUPNCo4bP5cufQ58hDaJf3JywcAV+FbUVSkSG3I
-PleF8ARPBk6UZE7u7G2l1R/a50COrh7v4lOkzVetwXKgtLY1fYVuLXuBPZ0ih4f0
-jwYRudQ/jqm/XOjwwRjmQa4eZnvXsQaJuwShUqhraJ63Y0L6xLeUjQ/BEyk1Z1NE
-53ZsOO0leHfita4v+QO0gb+XQ8+jQO90bZx4olXW01Nl+LcCJotXo0t/pcPJPOn6
-D/Agl9n2qBrsJaxWnEB3hntluPynuqtszgs1OHb1VaSNs86MCA6FOT+ahaoQ1nn3
-nDoAY4vczYkHqTMxaMFLW00+upNGjWpLscTWEnkfE3mRitR3OtJC4h61OWqViYuj
-q1gngAC9RmljsL/NHu7qYfuto01iGtZI31tnRvPoIYgLu8g+3uS7KcoVh8mTmVdh
-Zt+x57cdjUnAKk42q1L+OKZObmq6ju0j7YloH7TSktASCGMYuoIN1Qv11LR6dZUC
-rgLAF6zfsPwvonFHq3FVTm6B16iDBo6lSpnIMfgqqpUo2paKFDhDPi6T6Sp2gfNc
-hOkn9KnIA2ik37MghAh1vhyVqNtJACBsOO6E01CrriLSgnMSDnGQm/a0uwGtaaEF
-yrG/9vxZ+0rTrY8CEX4Ex1LX5oa077uj8ZdTOpV0w0MS3T2VdeMSgQ5GYDWmHCdr
-C4XAOJ6jpgH2PK3wQM/SD9+QrfqLCpODMm2mQBNOiBp8W0sJLv+bYa+xC/uamQ2l
-uzgJVM29uOkGx4GKMgM3fHFhWMdqiA1HVL885MS1BG5Z7RiaTWB26XVoX6r6gNL+
-AXvYb8sYrFP9kA3hyTiQhLQR9JkE7jF/elsDkiOgEc178ov8QMF1X+BmOtAkBk/E
-G/Nbm3LJUoK83NCLIBiWHNvg/hgkecQqQ1OVBO4AlVARWloRZQu4dSDfgP360ksK
-Fc4gvQZsNd//4joms7KhgTW7DWk9VP+SBzHzJz8rOiHap5Ad+fVpEbI9iR0S4uTa
-kb3cLw3qGu49XGhTdwGAD9uovthLDVRTSIV45ZDTyLT6r24GKzDoxgaRjTYPSBQS
-1BmYEnwVVTnlsgKgVv022Zf7HAbHXfaMD4EQo7lNnfVop0/+QKMXFEgknM9ZvHvn
-PAGrrAle0M6bnayrc5e/zr1QoyIAfb1WNVF5IaiX5WsWAQ4J57ZuDAfHN+RWEU3R
-K0z24ww73PvMvilrfsVxslxBATcRl5fmVn7cwHheArkIg3ofF+n1B1E0yrdEnFwU
-30acKzTgPRJZrSFxOeAu+mcin6x9F346vMnOp5QIHiL/WJamvvvwaaCAzRifxr8D
-vknj8z0+gbUM1qOg7LZuY/ToR+164e6szkhLGnCNgPYi32J6D+c0JLQPLg9sqlGP
-1qX5teldCi+FQVvq3mLtLg==
------END ENCRYPTED PRIVATE KEY-----

PROYECTO/bin/oldpem/apns.pem

@@ -1,87 +0,0 @@
-Bag Attributes
-    localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74 
-subject=street = "Calle Primera Res Sol Creciente no.14, Arroyo Hondo Viejo,00000,Santo Domingo", CN = JUAN FRANCISCO SOTO CONCEPCION, serialNumber = ICDDO-00104581939, GN = JUAN FRANCISCO, SN = SOTO CONCEPCION, C = DO
-
-issuer=organizationIdentifier = VATDO-40102368, CN = digifirma CA Subordinada 1, OU = digifirma, O = C\C3\A1mara de Comercio y Producci\C3\B3n de Santo Domingo, L = Distrito Nacional, C = DO
-
------BEGIN CERTIFICATE-----
-MIIJpzCCB4+gAwIBAgIIE3iFdHfYkzcwDQYJKoZIhvcNAQELBQAwgbgxFzAVBgNV
-BGEMDlZBVERPLTQwMTAyMzY4MSMwIQYDVQQDDBpkaWdpZmlybWEgQ0EgU3Vib3Jk
-aW5hZGEgMTESMBAGA1UECwwJZGlnaWZpcm1hMTswOQYDVQQKDDJDw6FtYXJhIGRl
-IENvbWVyY2lvIHkgUHJvZHVjY2nDs24gZGUgU2FudG8gRG9taW5nbzEaMBgGA1UE
-BwwRRGlzdHJpdG8gTmFjaW9uYWwxCzAJBgNVBAYTAkRPMB4XDTIzMDYxNTIyNDUw
-MFoXDTI0MDYxNDIyNDUwMFowgd0xVjBUBgNVBAkMTUNhbGxlIFByaW1lcmEgUmVz
-IFNvbCBDcmVjaWVudGUgbm8uMTQsIEFycm95byBIb25kbyBWaWVqbywwMDAwMCxT
-YW50byBEb21pbmdvMScwJQYDVQQDDB5KVUFOIEZSQU5DSVNDTyBTT1RPIENPTkNF
-UENJT04xGjAYBgNVBAUTEUlDRERPLTAwMTA0NTgxOTM5MRcwFQYDVQQqDA5KVUFO
-IEZSQU5DSVNDTzEYMBYGA1UEBAwPU09UTyBDT05DRVBDSU9OMQswCQYDVQQGEwJE
-TzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMC4xYk5nt9QCteq12ZL
-hF7qSZS1rSf0AGcUQ5omHZxIfL+Y23BITZ59QnZwcjoKDb3NluzvB3ybCVMWC1oB
-5yBnOd/DVrmjSnaOAdor6NQqkCnPThRsVHVQNJoo1o9ARJdj1Mwe9XAQ370HPI2R
-nNOt4/RsDYMjbLAs2GNScVg/Idp2+LwDvQy3FjyfFEBWpuFna7l/XzDqy4mLsfNV
-CqFsFMFiZYSL+ZDeD6h9OQEzC6+WBRX7w1kMhuEuFq4P8J7Dejqiyw/xPq3M8eko
-pxdZiaopHmgW8LfTonkyQqP8FIYhxR9ZEIt5ueEKxJvSAJbuWIg1bfDb+G39sAXX
-Q8UCAwEAAaOCBIwwggSIMHoGCCsGAQUFBwEDBG4wbDAIBgYEAI5GAQEwCwYGBACO
-RgEDAgEUMAgGBgQAjkYBBDA0BgYEAI5GAQUwKjAoFiJodHRwczovL2Rwcy5jYW1h
-cmFzYW50b2RvbWluZ28uZG8vEwJFTjATBgYEAI5GAQYwCQYHBACORgEGATCB3AYI
-KwYBBQUHAQEEgc8wgcwwSAYIKwYBBQUHMAKGPGh0dHBzOi8vd3d3LmNhbWFyYXNh
-bnRvZG9taW5nby5kby9kaWdpZmlybWEvQ0NQU0RfY2FkZW5hLmNydDA/BggrBgEF
-BQcwAYYzaHR0cDovL29jc3AxLmNhbWFyYXNhbnRvZG9taW5nby5kby9wdWJsaWMv
-cGtpL29jc3AvMD8GCCsGAQUFBzABhjNodHRwOi8vb2NzcDIuY2FtYXJhc2FudG9k
-b21pbmdvLmRvL3B1YmxpYy9wa2kvb2NzcC8wHQYDVR0OBBYEFIjeAk+muKu6AKX6
-gMOqQ1EWnXu5MB8GA1UdIwQYMBaAFM7rpVkdIemjmSWnCkqsx5WQBhELMCoGA1Ud
-EgQjMCGBH2RpZ2lmaXJtYUBjYW1hcmFzYW50b2RvbWluZ28uZG8wggHZBgNVHSAE
-ggHQMIIBzDAJBgcEAIvsQAEAMIIBvQYLKwYBBAGBzHwBAwEwggGsMC4GCCsGAQUF
-BwIBFiJodHRwczovL2Nwcy5jYW1hcmFzYW50b2RvbWluZ28uZG8vMIIBeAYIKwYB
-BQUHAgIwggFqHoIBZgBDAGUAcgB0AGkAZgBpAGMAYQBkAG8AIABwAGEAcgBhACAA
-cAByAG8AYwBlAGQAaQBtAGkAZQBuAHQAbwBzACAAdAByAGkAYgB1AHQAYQByAGkA
-bwBzACAAZQBuACAAcAAxADIAIABlAG0AaQB0AGkAZABvACAAcABvAHIAIABDAEMA
-UABTAEQALAAgAHUAYgBpAGMAYQBkAG8AIABBAHYAZQAuACAAMgA3ACAAZABlACAA
-ZgBlAGIAcgBlAHIAbwAgAGUAcwBxACAAdABpAHIAYQBkAGUAbgB0AGUAcwAgADIA
-MgA4ACAAdABvAHIAcgBlACAAZgByAGkAdQBzAGEALAAgAEwAYQAgAEUAcwBwAGUA
-cgBpAGwAbABhACwAIABTAGEAbgB0AG8AIABEAG8AbQBpAG4AZwBvACwAIABSAGUA
-cAD6AGIAbABpAGMAYQAgAEQAbwBtAGkAbgBpAGMAYQBuAGEwgY8GA1UdHwSBhzCB
-hDBAoD6gPIY6aHR0cDovL2NybDEuY2FtYXJhc2FudG9kb21pbmdvLmRvL3B1Ymxp
-Yy9wa2kvY3JsL0NDUFNELmNybDBAoD6gPIY6aHR0cDovL2NybDIuY2FtYXJhc2Fu
-dG9kb21pbmdvLmRvL3B1YmxpYy9wa2kvY3JsL0NDUFNELmNybDAOBgNVHQ8BAf8E
-BAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMCEGA1UdEQQaMBiB
-Fmp1YW4uZi5zb3RvY0BnbWFpbC5jb20wDQYJKoZIhvcNAQELBQADggIBAIOdH28n
-Yh8tjWQ2o1VUkDSudH5yJqLfKtlmPgBtRn68B/kSkhUpHYKUUJnNEnMUvwOy4dTK
-RM7R0WW5uLvAOpkm+mlRD7QiumogUfphI0k53ihA/0ScxXjQPDbPzcqBn9LPWbum
-lK1+4eKzIh3i+Sb/4Ip6wDx0g/oGva62EFy2oXkzdSuhb073Tpf/Z1uMxjlt7Ovy
-7vs9KeQjleYUpD2qh2eSjGFkg5kl9rdpxnRG0eM/L9SZyt9IWiV4rcbxWDCI8GNb
-G2ywTxUrg1hBwQsJ0RZl/YCT7RKkGtnXWPIaXqBTrXlRVNZwxSOj4y5a2vPXzP0q
-48ZHM/zApoOAjyPkVE5XlZAeZ2eXMjG96AJKU479Jt3gv7qjFqkVNnxGezD2C1Hz
-tAX1y/CSQis9UyOSAH1ryyjj8yzkj4KVC0zjCWgnr6aeW9qYEcrRi/C7/MNyMbPG
-OhjQCzAMf5kDQZet/T9La5DABne5nfnJ3PHuosKLea/56vy5gAXKuytJ4LcsK7TZ
-f50cNaEMrH0wVFvRUbYac6NYc7GNBMLa/1hZ2xaFRsjm08Lgn2jO8Z2tPixSYosV
-J1987Ut4P8BA8oJlSyWFMWfR1JhG6HHLo+/ve5/6qZBFziW88cswre3fdtJUfUWo
-Wv4IsWUzY37WB1Xp8yDedr1xnj0Ui5UrOI91
------END CERTIFICATE-----
------BEGIN RSA PRIVATE KEY-----
-MIIEpAIBAAKCAQEAwLjFiTme31AK16rXZkuEXupJlLWtJ/QAZxRDmiYdnEh8v5jb
-cEhNnn1CdnByOgoNvc2W7O8HfJsJUxYLWgHnIGc538NWuaNKdo4B2ivo1CqQKc9O
-FGxUdVA0mijWj0BEl2PUzB71cBDfvQc8jZGc063j9GwNgyNssCzYY1JxWD8h2nb4
-vAO9DLcWPJ8UQFam4WdruX9fMOrLiYux81UKoWwUwWJlhIv5kN4PqH05ATMLr5YF
-FfvDWQyG4S4Wrg/wnsN6OqLLD/E+rczx6SinF1mJqikeaBbwt9OieTJCo/wUhiHF
-H1kQi3m54QrEm9IAlu5YiDVt8Nv4bf2wBddDxQIDAQABAoIBAEUNb2ndxXkKOvhP
-dGJoyIMhuz+XYPWhzcshTZ+b7JwktN4JrQasQXN6Oigp3iPBmm7ZjSxT8QDKpCqr
-CWI0sFXB5tCwMxDM209jTnKXrRLoNUNlzfovXouyM0bRPx+QzYLY+FQy+4ot4Zzf
-TOkEtYZ7FeRsGuNT/Aub5eSgk5AkXixhLVVzjW8I5rtEvZ1e/KMpJTI63UzWHcwi
-QGi0iayUyLB3T6rHzJ8ymFW6aDgBgFFjpSso/Z/omPfaf2nSkdKICzUgI7cKSb+d
-IC9sUuRAcMLPmN7/6Qhcu/1UOisLPYxL/hXKLAmkdmpLrAPVuYyBzdUDViQfh3Jf
-KvhbxQECgYEA/cU69XX5xoMrrWgwU6tcAq7Dx1MnVvAgOctSav17sEy2/SZkpvTp
-yzpg00nicDfgjgFHg7uikDonICjd4Vj0hDGY9aKzQ4/RUmbTiJjGXrXZdOBsMMIZ
-TEYPR018kYZutcjb/RO8dhAxizVhf9nCwG7a1hdwYIC+ZxT+abOwCCECgYEAwmo7
-te2dQsHnckp2jGdm/CzR5/+wtsZpg1mIWqkh6YblIlzqVmGAkNvk6ysNUisjQpUf
-nukIGjBhZALpD9kWJp66VuxeHBTZbBfNhbJdgRYszQoZbJAGlOUtgz7lE8lDwOfc
-VVvprqb4umdZOROWWsE77iozEARG3n21UqrHNyUCgYEAub6ADiQhA4UFFjK5lLRL
-b4c9s4qQs9ikrci9daQ9wWgVVCui5nVDHsaHEn/05tBvY2FaV/ih31FBTA+9f/Dd
-YFjxLXG+JoiA3QB4enXgVHhkR2Dwr6uSWrq4+iakM9wi8pmnM5Ebk4r8yHj0+WCJ
-ZNJ/CM81KN1y//5kzTeBdCECgYAvhfBapF7Qtr1wvqsD3zLZactVvrbfttiL9xLR
-to5Hm2XfZH8T5nma72Wh5sA22bygxfsYyTXl0PW9kMiPyy0S+7HpFZZbnu0W8yqW
-B+e7akRBSrq0QvCY7PyXHIS6tXQOb574bqNMwhwC1MiGnzcdsCaKLV6WB7WbJXdx
-YbWY0QKBgQDFYkIWiFDWj0AEBPyYEk0LCHvy//izcN++63T9XYc4si16Fx7kfsLu
-JZzZRlDujOLZz9RG3K5q7X0sFXJtqNc8Hy8rSPtcejW7Gkgs1Ly2tH7SbhN/kWwU
-yoOLs+yBd26lNXoGl4sHm7XPoe+5mQb6CW3cvQxyfiS5pF7G3DBCFg==
------END RSA PRIVATE KEY-----

PROYECTO/bin/onlyCert.pem

@@ -1,60 +0,0 @@
-Bag Attributes
-    localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74 
-subject=street = "Calle Primera Res Sol Creciente no.14, Arroyo Hondo Viejo,00000,Santo Domingo", CN = JUAN FRANCISCO SOTO CONCEPCION, serialNumber = ICDDO-00104581939, GN = JUAN FRANCISCO, SN = SOTO CONCEPCION, C = DO
-
-issuer=organizationIdentifier = VATDO-40102368, CN = digifirma CA Subordinada 1, OU = digifirma, O = C\C3\A1mara de Comercio y Producci\C3\B3n de Santo Domingo, L = Distrito Nacional, C = DO
-
------BEGIN CERTIFICATE-----
-MIIJpzCCB4+gAwIBAgIIE3iFdHfYkzcwDQYJKoZIhvcNAQELBQAwgbgxFzAVBgNV
-BGEMDlZBVERPLTQwMTAyMzY4MSMwIQYDVQQDDBpkaWdpZmlybWEgQ0EgU3Vib3Jk
-aW5hZGEgMTESMBAGA1UECwwJZGlnaWZpcm1hMTswOQYDVQQKDDJDw6FtYXJhIGRl
-IENvbWVyY2lvIHkgUHJvZHVjY2nDs24gZGUgU2FudG8gRG9taW5nbzEaMBgGA1UE
-BwwRRGlzdHJpdG8gTmFjaW9uYWwxCzAJBgNVBAYTAkRPMB4XDTIzMDYxNTIyNDUw
-MFoXDTI0MDYxNDIyNDUwMFowgd0xVjBUBgNVBAkMTUNhbGxlIFByaW1lcmEgUmVz
-IFNvbCBDcmVjaWVudGUgbm8uMTQsIEFycm95byBIb25kbyBWaWVqbywwMDAwMCxT
-YW50byBEb21pbmdvMScwJQYDVQQDDB5KVUFOIEZSQU5DSVNDTyBTT1RPIENPTkNF
-UENJT04xGjAYBgNVBAUTEUlDRERPLTAwMTA0NTgxOTM5MRcwFQYDVQQqDA5KVUFO
-IEZSQU5DSVNDTzEYMBYGA1UEBAwPU09UTyBDT05DRVBDSU9OMQswCQYDVQQGEwJE
-TzCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMC4xYk5nt9QCteq12ZL
-hF7qSZS1rSf0AGcUQ5omHZxIfL+Y23BITZ59QnZwcjoKDb3NluzvB3ybCVMWC1oB
-5yBnOd/DVrmjSnaOAdor6NQqkCnPThRsVHVQNJoo1o9ARJdj1Mwe9XAQ370HPI2R
-nNOt4/RsDYMjbLAs2GNScVg/Idp2+LwDvQy3FjyfFEBWpuFna7l/XzDqy4mLsfNV
-CqFsFMFiZYSL+ZDeD6h9OQEzC6+WBRX7w1kMhuEuFq4P8J7Dejqiyw/xPq3M8eko
-pxdZiaopHmgW8LfTonkyQqP8FIYhxR9ZEIt5ueEKxJvSAJbuWIg1bfDb+G39sAXX
-Q8UCAwEAAaOCBIwwggSIMHoGCCsGAQUFBwEDBG4wbDAIBgYEAI5GAQEwCwYGBACO
-RgEDAgEUMAgGBgQAjkYBBDA0BgYEAI5GAQUwKjAoFiJodHRwczovL2Rwcy5jYW1h
-cmFzYW50b2RvbWluZ28uZG8vEwJFTjATBgYEAI5GAQYwCQYHBACORgEGATCB3AYI
-KwYBBQUHAQEEgc8wgcwwSAYIKwYBBQUHMAKGPGh0dHBzOi8vd3d3LmNhbWFyYXNh
-bnRvZG9taW5nby5kby9kaWdpZmlybWEvQ0NQU0RfY2FkZW5hLmNydDA/BggrBgEF
-BQcwAYYzaHR0cDovL29jc3AxLmNhbWFyYXNhbnRvZG9taW5nby5kby9wdWJsaWMv
-cGtpL29jc3AvMD8GCCsGAQUFBzABhjNodHRwOi8vb2NzcDIuY2FtYXJhc2FudG9k
-b21pbmdvLmRvL3B1YmxpYy9wa2kvb2NzcC8wHQYDVR0OBBYEFIjeAk+muKu6AKX6
-gMOqQ1EWnXu5MB8GA1UdIwQYMBaAFM7rpVkdIemjmSWnCkqsx5WQBhELMCoGA1Ud
-EgQjMCGBH2RpZ2lmaXJtYUBjYW1hcmFzYW50b2RvbWluZ28uZG8wggHZBgNVHSAE
-ggHQMIIBzDAJBgcEAIvsQAEAMIIBvQYLKwYBBAGBzHwBAwEwggGsMC4GCCsGAQUF
-BwIBFiJodHRwczovL2Nwcy5jYW1hcmFzYW50b2RvbWluZ28uZG8vMIIBeAYIKwYB
-BQUHAgIwggFqHoIBZgBDAGUAcgB0AGkAZgBpAGMAYQBkAG8AIABwAGEAcgBhACAA
-cAByAG8AYwBlAGQAaQBtAGkAZQBuAHQAbwBzACAAdAByAGkAYgB1AHQAYQByAGkA
-bwBzACAAZQBuACAAcAAxADIAIABlAG0AaQB0AGkAZABvACAAcABvAHIAIABDAEMA
-UABTAEQALAAgAHUAYgBpAGMAYQBkAG8AIABBAHYAZQAuACAAMgA3ACAAZABlACAA
-ZgBlAGIAcgBlAHIAbwAgAGUAcwBxACAAdABpAHIAYQBkAGUAbgB0AGUAcwAgADIA
-MgA4ACAAdABvAHIAcgBlACAAZgByAGkAdQBzAGEALAAgAEwAYQAgAEUAcwBwAGUA
-cgBpAGwAbABhACwAIABTAGEAbgB0AG8AIABEAG8AbQBpAG4AZwBvACwAIABSAGUA
-cAD6AGIAbABpAGMAYQAgAEQAbwBtAGkAbgBpAGMAYQBuAGEwgY8GA1UdHwSBhzCB
-hDBAoD6gPIY6aHR0cDovL2NybDEuY2FtYXJhc2FudG9kb21pbmdvLmRvL3B1Ymxp
-Yy9wa2kvY3JsL0NDUFNELmNybDBAoD6gPIY6aHR0cDovL2NybDIuY2FtYXJhc2Fu
-dG9kb21pbmdvLmRvL3B1YmxpYy9wa2kvY3JsL0NDUFNELmNybDAOBgNVHQ8BAf8E
-BAMCBeAwHQYDVR0lBBYwFAYIKwYBBQUHAwIGCCsGAQUFBwMEMCEGA1UdEQQaMBiB
-Fmp1YW4uZi5zb3RvY0BnbWFpbC5jb20wDQYJKoZIhvcNAQELBQADggIBAIOdH28n
-Yh8tjWQ2o1VUkDSudH5yJqLfKtlmPgBtRn68B/kSkhUpHYKUUJnNEnMUvwOy4dTK
-RM7R0WW5uLvAOpkm+mlRD7QiumogUfphI0k53ihA/0ScxXjQPDbPzcqBn9LPWbum
-lK1+4eKzIh3i+Sb/4Ip6wDx0g/oGva62EFy2oXkzdSuhb073Tpf/Z1uMxjlt7Ovy
-7vs9KeQjleYUpD2qh2eSjGFkg5kl9rdpxnRG0eM/L9SZyt9IWiV4rcbxWDCI8GNb
-G2ywTxUrg1hBwQsJ0RZl/YCT7RKkGtnXWPIaXqBTrXlRVNZwxSOj4y5a2vPXzP0q
-48ZHM/zApoOAjyPkVE5XlZAeZ2eXMjG96AJKU479Jt3gv7qjFqkVNnxGezD2C1Hz
-tAX1y/CSQis9UyOSAH1ryyjj8yzkj4KVC0zjCWgnr6aeW9qYEcrRi/C7/MNyMbPG
-OhjQCzAMf5kDQZet/T9La5DABne5nfnJ3PHuosKLea/56vy5gAXKuytJ4LcsK7TZ
-f50cNaEMrH0wVFvRUbYac6NYc7GNBMLa/1hZ2xaFRsjm08Lgn2jO8Z2tPixSYosV
-J1987Ut4P8BA8oJlSyWFMWfR1JhG6HHLo+/ve5/6qZBFziW88cswre3fdtJUfUWo
-Wv4IsWUzY37WB1Xp8yDedr1xnj0Ui5UrOI91
------END CERTIFICATE-----

PROYECTO/bin/onlyPK.pem

@@ -1,31 +0,0 @@
-Bag Attributes
-    localKeyID: DD 61 51 0C 4E 4F C7 E5 71 0A 84 78 94 FC 2D C6 E0 A1 E3 74 
-Key Attributes: <No Attributes>
------BEGIN PRIVATE KEY-----
-MIIEvgIBADANBgkqhkiG9w0BAQEFAASCBKgwggSkAgEAAoIBAQDAuMWJOZ7fUArX
-qtdmS4Re6kmUta0n9ABnFEOaJh2cSHy/mNtwSE2efUJ2cHI6Cg29zZbs7wd8mwlT
-FgtaAecgZznfw1a5o0p2jgHaK+jUKpApz04UbFR1UDSaKNaPQESXY9TMHvVwEN+9
-BzyNkZzTreP0bA2DI2ywLNhjUnFYPyHadvi8A70MtxY8nxRAVqbhZ2u5f18w6suJ
-i7HzVQqhbBTBYmWEi/mQ3g+ofTkBMwuvlgUV+8NZDIbhLhauD/Cew3o6ossP8T6t
-zPHpKKcXWYmqKR5oFvC306J5MkKj/BSGIcUfWRCLebnhCsSb0gCW7liINW3w2/ht
-/bAF10PFAgMBAAECggEARQ1vad3FeQo6+E90YmjIgyG7P5dg9aHNyyFNn5vsnCS0
-3gmtBqxBc3o6KCneI8GabtmNLFPxAMqkKqsJYjSwVcHm0LAzEMzbT2NOcpetEug1
-Q2XN+i9ei7IzRtE/H5DNgtj4VDL7ii3hnN9M6QS1hnsV5Gwa41P8C5vl5KCTkCRe
-LGEtVXONbwjmu0S9nV78oyklMjrdTNYdzCJAaLSJrJTIsHdPqsfMnzKYVbpoOAGA
-UWOlKyj9n+iY99p/adKR0ogLNSAjtwpJv50gL2xS5EBwws+Y3v/pCFy7/VQ6Kws9
-jEv+FcosCaR2akusA9W5jIHN1QNWJB+Hcl8q+FvFAQKBgQD9xTr1dfnGgyutaDBT
-q1wCrsPHUydW8CA5y1Jq/XuwTLb9JmSm9OnLOmDTSeJwN+COAUeDu6KQOicgKN3h
-WPSEMZj1orNDj9FSZtOImMZetdl04GwwwhlMRg9HTXyRhm61yNv9E7x2EDGLNWF/
-2cLAbtrWF3BggL5nFP5ps7AIIQKBgQDCaju17Z1CwedySnaMZ2b8LNHn/7C2xmmD
-WYhaqSHphuUiXOpWYYCQ2+TrKw1SKyNClR+e6QgaMGFkAukP2RYmnrpW7F4cFNls
-F82Fsl2BFizNChlskAaU5S2DPuUTyUPA59xVW+mupvi6Z1k5E5ZawTvuKjMQBEbe
-fbVSqsc3JQKBgQC5voAOJCEDhQUWMrmUtEtvhz2zipCz2KStyL11pD3BaBVUK6Lm
-dUMexocSf/Tm0G9jYVpX+KHfUUFMD71/8N1gWPEtcb4miIDdAHh6deBUeGRHYPCv
-q5Jaurj6JqQz3CLymaczkRuTivzIePT5YIlk0n8IzzUo3XL//mTNN4F0IQKBgC+F
-8FqkXtC2vXC+qwPfMtlpy1W+tt+22Iv3EtG2jkebZd9kfxPmeZrvZaHmwDbZvKDF
-+xjJNeXQ9b2QyI/LLRL7sekVllue7RbzKpYH57tqREFKurRC8Jjs/JcchLq1dA5v
-nvhuo0zCHALUyIafNx2wJootXpYHtZsld3FhtZjRAoGBAMViQhaIUNaPQAQE/JgS
-TQsIe/L/+LNw377rdP1dhziyLXoXHuR+wu4lnNlGUO6M4tnP1EbcrmrtfSwVcm2o
-1zwfLytI+1x6NbsaSCzUvLa0ftJuE3+RbBTKg4uz7IF3bqU1egaXiwebtc+h77mZ
-BvoJbdy9DHJ+JLmkXsbcMEIW
------END PRIVATE KEY-----

PROYECTO/bin/onlyRSA.pem

@@ -1,27 +0,0 @@
------BEGIN RSA PRIVATE KEY-----
-MIIEpAIBAAKCAQEAwLjFiTme31AK16rXZkuEXupJlLWtJ/QAZxRDmiYdnEh8v5jb
-cEhNnn1CdnByOgoNvc2W7O8HfJsJUxYLWgHnIGc538NWuaNKdo4B2ivo1CqQKc9O
-FGxUdVA0mijWj0BEl2PUzB71cBDfvQc8jZGc063j9GwNgyNssCzYY1JxWD8h2nb4
-vAO9DLcWPJ8UQFam4WdruX9fMOrLiYux81UKoWwUwWJlhIv5kN4PqH05ATMLr5YF
-FfvDWQyG4S4Wrg/wnsN6OqLLD/E+rczx6SinF1mJqikeaBbwt9OieTJCo/wUhiHF
-H1kQi3m54QrEm9IAlu5YiDVt8Nv4bf2wBddDxQIDAQABAoIBAEUNb2ndxXkKOvhP
-dGJoyIMhuz+XYPWhzcshTZ+b7JwktN4JrQasQXN6Oigp3iPBmm7ZjSxT8QDKpCqr
-CWI0sFXB5tCwMxDM209jTnKXrRLoNUNlzfovXouyM0bRPx+QzYLY+FQy+4ot4Zzf
-TOkEtYZ7FeRsGuNT/Aub5eSgk5AkXixhLVVzjW8I5rtEvZ1e/KMpJTI63UzWHcwi
-QGi0iayUyLB3T6rHzJ8ymFW6aDgBgFFjpSso/Z/omPfaf2nSkdKICzUgI7cKSb+d
-IC9sUuRAcMLPmN7/6Qhcu/1UOisLPYxL/hXKLAmkdmpLrAPVuYyBzdUDViQfh3Jf
-KvhbxQECgYEA/cU69XX5xoMrrWgwU6tcAq7Dx1MnVvAgOctSav17sEy2/SZkpvTp
-yzpg00nicDfgjgFHg7uikDonICjd4Vj0hDGY9aKzQ4/RUmbTiJjGXrXZdOBsMMIZ
-TEYPR018kYZutcjb/RO8dhAxizVhf9nCwG7a1hdwYIC+ZxT+abOwCCECgYEAwmo7
-te2dQsHnckp2jGdm/CzR5/+wtsZpg1mIWqkh6YblIlzqVmGAkNvk6ysNUisjQpUf
-nukIGjBhZALpD9kWJp66VuxeHBTZbBfNhbJdgRYszQoZbJAGlOUtgz7lE8lDwOfc
-VVvprqb4umdZOROWWsE77iozEARG3n21UqrHNyUCgYEAub6ADiQhA4UFFjK5lLRL
-b4c9s4qQs9ikrci9daQ9wWgVVCui5nVDHsaHEn/05tBvY2FaV/ih31FBTA+9f/Dd
-YFjxLXG+JoiA3QB4enXgVHhkR2Dwr6uSWrq4+iakM9wi8pmnM5Ebk4r8yHj0+WCJ
-ZNJ/CM81KN1y//5kzTeBdCECgYAvhfBapF7Qtr1wvqsD3zLZactVvrbfttiL9xLR
-to5Hm2XfZH8T5nma72Wh5sA22bygxfsYyTXl0PW9kMiPyy0S+7HpFZZbnu0W8yqW
-B+e7akRBSrq0QvCY7PyXHIS6tXQOb574bqNMwhwC1MiGnzcdsCaKLV6WB7WbJXdx
-YbWY0QKBgQDFYkIWiFDWj0AEBPyYEk0LCHvy//izcN++63T9XYc4si16Fx7kfsLu
-JZzZRlDujOLZz9RG3K5q7X0sFXJtqNc8Hy8rSPtcejW7Gkgs1Ly2tH7SbhN/kWwU
-yoOLs+yBd26lNXoGl4sHm7XPoe+5mQb6CW3cvQxyfiS5pF7G3DBCFg==
------END RSA PRIVATE KEY-----

PROYECTO/ccdir/ccprmt003.4gl

@@ -2758,11 +2758,11 @@ REPORT cctb01b(
 
 END REPORT
 FUNCTION verifica_orden()
-    LET tieneorden = TRUE
+    DEFINE cuantas INT
-    SELECT a.num_oc
+    # COUNT(*) en vez de SELECT num_oc: con ordenes duplicadas daba -284
+    LET cuantas = 0
+    SELECT COUNT(*) INTO cuantas
         FROM prtb00012 a
         WHERE a.cotizacion_no = recibo_nc.num_orden AND a.status_T IS NULL
-    IF STATUS = NOTFOUND THEN
+    LET tieneorden = (cuantas > 0)
-        LET tieneorden = FALSE
-    END IF
 END FUNCTION

PROYECTO/cpdir/cpfmrp002.4fd

@@ -10,7 +10,6 @@
     <RecordField colName="total4" fieldIdRef="5" name="total4" sqlTabName="formonly" sqlType="DECIMAL" table_alias_name="" uid="{7b3e519a-5aa7-41c8-97d1-ed500eb68b10}"/>
     <RecordField colName="total6" fieldIdRef="7" name="total6" sqlTabName="formonly" sqlType="DECIMAL" table_alias_name="" uid="{32d2bde6-9b8d-48b3-8a40-8ccd93a5ca6b}"/>
     <RecordField colName="total5" fieldIdRef="6" name="total5" sqlTabName="formonly" sqlType="DECIMAL" table_alias_name="" uid="{27b7fa06-6d88-4eba-afeb-c2ab80a2cd40}"/>
-    <RecordField colName="" defaultValue="MA" fieldIdRef="8" name="r_output" sqlTabName="" table_alias_name="" uid="{07894f4f-beae-4e6a-baa2-edd6bd6233b7}"/>
   </Record>
   <Form gridHeight="24" gridWidth="80" name="cpfmrp002">
     <Grid gridHeight="24" gridWidth="80" name="Grid1" posX="0" posY="0">
@@ -28,14 +27,6 @@
       <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="total4" columnCount="" fieldId="5" gridHeight="1" gridWidth="14" name="total4" noEntry="true" posX="50" posY="4" rowCount="" sqlTabName="formonly" sqlType="DECIMAL" stepX="" stepY="" tabIndex="6" table_alias_name="" widget="Edit"/>
       <Label posX="34" posY="5" text="Total Mas 120"/>
       <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="total6" columnCount="" fieldId="7" gridHeight="1" gridWidth="14" name="total6" noEntry="true" posX="50" posY="5" rowCount="" sqlTabName="formonly" sqlType="DECIMAL" stepX="" stepY="" tabIndex="7" table_alias_name="" widget="Edit"/>
-      <Group gridHeight="10" gridWidth="28" name="Group1" posX="5" posY="6" text="Opciones Salidas">
-        <RadioGroup aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" columnCount="" defaultValue="MA" fieldId="8" gridHeight="6" gridWidth="21" items="MATRICIAL, SCREEN, ACROBAT READER, EXCEL" name="r_output" posX="3" posY="2" rowCount="" sqlTabName="" stepX="" stepY="" tabIndex="9" table_alias_name="" title="RadioGroup1" widget="RadioGroup">
-          <Item lstrtext="false" name="MA" text="MATRICIAL"/>
-          <Item lstrtext="false" name="SVG" text="SCREEN"/>
-          <Item lstrtext="false" name="PDF" text="ACROBAT READER"/>
-          <Item lstrtext="false" name="XLS" text="EXCEL"/>
-        </RadioGroup>
-      </Group>
       <Label posX="34" posY="6" text="Total Saldo"/>
       <Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="total5" columnCount="" fieldId="6" gridHeight="1" gridWidth="14" name="total5" noEntry="true" posX="50" posY="6" rowCount="" sqlTabName="formonly" sqlType="DECIMAL" stepX="" stepY="" tabIndex="8" table_alias_name="" widget="Edit"/>
     </Grid>

PROYECTO/cpdir/cpprrp002.4gl

@@ -11,7 +11,6 @@ GLOBALS "cpprgb000.4gl"
     DEFINE fecha_corte DATE
     DEFINE cod_sp1 SMALLINT
     DEFINE idx_1, idx_2 SMALLINT
-    DEFINE p_reportfile STRING
     DEFINE doccli9 RECORD
            cod_sp         SMALLINT,
            cod_sp_sec     SMALLINT,
@@ -62,7 +61,7 @@ DEFINE valor1,valor2,valor3 DECIMAL(12,2)
     CALL msgrp000(tipo_papel)
 
 
-  INPUT BY NAME fecha_corte,cod_sp1,r_output
+  INPUT BY NAME fecha_corte,cod_sp1
 
         BEFORE FIELD fecha_corte
                LET fecha_corte = today
@@ -88,6 +87,7 @@ DEFINE valor1,valor2,valor3 DECIMAL(12,2)
                  LET int_flag = false
                  RETURN
               END IF
+    CALL seleccionarsalida() RETURNING r_output
 # Busca valor de las facturas cuyas fechas de vencimiento son menores 
 # a la fecha de corte  
     
@@ -125,11 +125,7 @@ DEFINE valor1,valor2,valor3 DECIMAL(12,2)
                                                        
        START REPORT reporte31 TO archivo
     ELSE
-       -- La API de configuracion de reportes (fgl_report_*) no esta
+       CALL configureoutput(r_output) RETURNING handler
-       -- disponible en este FGL; se escribe el XML directo a un archivo
-       -- en FGLSPOOL en lugar de la vista previa/exportacion nativa.
-       LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/cpprrp002_saldos.xml"
-       LET handler = om.XmlWriter.createFileWriter(p_reportfile)
        START REPORT reporte31 TO XML HANDLER handler
     END IF
     END IF
@@ -191,6 +187,7 @@ END FUNCTION
     DEFINE dias INTEGER 
 
     OUTPUT
+       RIGHT MARGIN 145
        TOP MARGIN 0
        LEFT MARGIN 0
        BOTTOM MARGIN 2

PROYECTO/ipdir/ipautorizareq.4gl

@@ -4,6 +4,7 @@
     FECHA   :           Mayo 9, 2022
 }
 
+IMPORT FGL greruntime
 GLOBALS "ipprgb000.4gl"
    DEFINE r INT,
         arr_busqueda1 DYNAMIC ARRAY OF RECORD

PROYECTO/lqdir/lqprrp009.4gl

@@ -14,6 +14,7 @@ GLOBALS
   "lqprgb000.4gl"
 ###### Variables para busqueda de rango de fecha
 DEFINE elije,imp,afecta CHAR(1)
+DEFINE hay_filas SMALLINT
 DEFINE m_mes,mes    SMALLINT 
 DEFINE chequea_ent,p_ano    CHAR(4)  
 DEFINE detalla CHAR(30)
@@ -81,6 +82,7 @@ END MAIN
      
    OPEN FORM lqfmrp009 FROM "lqfmrp009"
    DISPLAY FORM lqfmrp009
+CALL ui.Window.getCurrent().setText("Liquidacion Repuestos")
    DISPLAY "lqprrp009" AT 4,3 
    DISPLAY "Liquidacion Partes y Repuestos" AT 6,24 
 
@@ -101,7 +103,7 @@ END MAIN
        CALL msg(numero_msg)
        NEXT FIELD m_mes
     END IF
-    SELECT Convert(varchar(10),a.fecha_inicio,103),Convert(varchar(10),a.fecha_corte,103) INTO fecha_inicial,fecha_final
+    SELECT a.fecha_inicio,a.fecha_corte INTO fecha_inicial,fecha_final
     FROM prdtable a WHERE a.mes = m_mes and a.ano = p_ano
     
     DISPLAY BY NAME fecha_inicial,fecha_final ATTRIBUTE(BOLD)
@@ -143,16 +145,7 @@ END MAIN
           LET r_filename = 'lqprrp009.4rp'
           LET preview = 1
 
-        IF fgl_report_loadCurrentSettings(r_filename) THEN                          
+         LET hay_filas = FALSE
- 
-                 CALL seleccionarsalida() RETURNING r_output      -- 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   
-
-         IF HANDLER IS NOT NULL THEN 
-                            START REPORT liquida7 TO XML HANDLER HANDLER
 
 
 
@@ -179,6 +172,19 @@ END MAIN
        d.status_t is null ORDER BY c.num_oc,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
 
  FOREACH busca INTO busca_datos.*
+     IF NOT hay_filas THEN
+        IF fgl_report_loadCurrentSettings(r_filename) THEN
+           CALL seleccionarsalida() RETURNING r_output
+           CALL fgl_report_selectDevice(r_output)
+           CALL fgl_report_selectPreview(preview)
+           LET handler = fgl_report_commitCurrentSettings()
+        END IF
+        IF handler IS NULL THEN
+           EXIT FOREACH
+        END IF
+        START REPORT liquida7 TO XML HANDLER HANDLER
+        LET hay_filas = TRUE
+     END IF
      LET orden = busca_datos.num_oc USING "<<<<<<"
  IF elije != "L" THEN
 {# Busca el monto pagado al colector
@@ -239,9 +245,11 @@ END MAIN
      OUTPUT TO REPORT liquida7(busca_datos.*)
  END FOREACH
 
+ IF hay_filas THEN
  FINISH REPORT liquida7
-
+ ELSE
- END IF 
+    CALL fgl_winmessage("INFO","NO EXISTEN REGISTROS PARA ESTOS PARAMETROS","INFO")
+ END IF
 
  #IF imp = "S" THEN
  #   RUN imprime
@@ -730,7 +738,7 @@ FUNCTION entrada0271()
             LET entra1 = entra
 
   BEFORE FIELD fecha1
-           SELECT MAX (Convert(varchar(10),(a.fecha),103)) INTO p_fecha FROM cgtb00004 a
+           SELECT Convert(varchar(10),MAX(a.fecha),103) INTO p_fecha FROM cgtb00004 a
            WHERE a.ref[1,5] = entra1 AND a.status_t IS NULL
            LET fecha1 = p_fecha + 1
 

PROYECTO/otrodir/MainMenu.4gl

@@ -96,6 +96,7 @@ END MAIN
 FUNCTION show_mbs(d)
   DEFINE d ui.Dialog
   DEFINE rdir, rmbs  INTEGER
+  DEFINE runtime STRING
   DEFINE cmd STRING,file_path VARCHAR(100),
                     strconect VARCHAR(20)   
 
@@ -116,9 +117,24 @@ FUNCTION show_mbs(d)
                 a.programa = pprograma
   #           LET file_path = 'E:\\MARMOTECHC\\BIN320'
              DISPLAY BY NAME file_path,pperfil
-             DISPLAY "mainmenu credenciales: ",usuario clipped," ",clave clipped," ",file_path clipped 
+             -- (antes imprimia usuario y CLAVE en texto claro en la consola/log)
-             LET cmd = "fglrun ",file_path CLIPPED, "\\",mbs[rmbs].prog, ".42r " ,usuario CLIPPED," ",clave CLIPPED,
+             DISPLAY "mainmenu ejecuta: ",mbs[rmbs].prog CLIPPED," desde ",file_path CLIPPED
+             -- Mismo runtime que el menu (no el primer "fglrun" del PATH del servidor)
+             LET runtime = fgl_getenv("FGLDIR")
+             IF runtime IS NULL OR runtime.getLength() = 0 THEN
+                LET runtime = "fglrun"
+             ELSE
+                LET runtime = '"', runtime, '\\bin\\fglrun"'
+             END IF
+             LET cmd = runtime," ",file_path CLIPPED, "\\",mbs[rmbs].prog, ".42r " ,usuario CLIPPED," ",clave CLIPPED,
                     " ",pprinter1 ," ",pprinter2, " ",ckprinter," ",file_path," ",strconect
+             -- El programa arranca parado en su ruta de seg0005 (como en 3.20): ahi estan
+             -- cert\, filesXML\, net6.0\, tmp\... que la factura electronica busca con rutas
+             -- relativas, y sus .42m. Sin esto heredaba como directorio de trabajo la carpeta
+             -- del despliegue del GAR (que cambia en cada deploy y llego a tener .42m de 3.20).
+             IF file_path IS NOT NULL AND LENGTH(file_path CLIPPED) > 0 THEN
+                LET cmd = 'cd /d "', file_path CLIPPED, '" && ', cmd
+             END IF
       
              RUN cmd WITHOUT WAITING
              UPDATE seg0001 SET ultimo_programa_ejecutado = pprograma WHERE seg0001.usuario = usuario

PROYECTO/otrodir/fotos.4gl

@@ -0,0 +1,514 @@
+{
+
+==============================================================
+MODULO     : fotos.4gl
+FECHA      : 09/02/2017
+DESARROLLADO POR : ING. JUAN SOTO
+
+}
+IMPORT os
+ DEFINE xusername,xsmtphost,xsmtpport, xpassword STRING
+ 
+FUNCTION fotos(xcodn,xcodgrupo,xcodtipo,xcodsec,producto,xusuario,habilitar,xcantidadorden,
+              xtmpnumero,xcodmov,xbodega,xestado)
+  DEFINE xcodn,xcodgrupo,xcodtipo,xcodsec,xbodega SMALLINT,
+         producto VARCHAR(100),
+         xestado VARCHAR(1),
+         xcantidadorden,unidadorden DEC(12,5),
+         
+         habilitar,noexistencia BOOLEAN
+
+         DEFINE areageneral RECORD 
+           xtipo_material,xcantidad_minima VARCHAR(30),
+           bookmatch VARCHAR(50),
+           tipos     VARCHAR(50),
+           bodega    SMALLINT,
+           descrip_bodega VARCHAR(100)
+         END RECORD
+         DEFINE kdatos DYNAMIC ARRAY OF RECORD
+               kimagen VARCHAR(200),
+               
+               
+               lado_2   DEC(8,5),
+               lado_1   DEC(8,5),
+               lado_3   DEC(8,5), 
+               solicitado SMALLINT,
+        #       cantidadIni      SMALLINT,
+               cantidad      FLOAT,
+               cantidad2     FLOAT,
+               tono          VARCHAR(100),
+               calidad       VARCHAR(100),
+               
+               disponible    SMALLINT,
+               xobservacion  VARCHAR(200),
+               id_producto   CHAR(25),
+               
+               seccion   INT,
+               tramo     INT,
+               --codid INT,
+               borrar CHAR(2) ,
+               nombre_file VARCHAR(100)
+         END RECORD,
+         kimagen_dest,kimagen_dest2 STRING,
+         
+         xusuario VARCHAR(50),
+         i,xcodmov SMALLINT,
+         xtmpnumero INT,
+         TOemail,cuerpo_correo,
+         subject, procedimiento VARCHAR(200),
+         totalMedida DEC(12,5)  
+         
+         
+  DEFINE s_tipo,d_tipos,mensaje,f_tipos,filepath,dir_file,opcion STRING
+  
+  LET producto = xcodn USING "&&&&","-",xcodgrupo USING "&&&&","-",
+                 xcodtipo USING "&&&&","-",xcodsec USING "&&&&&&"," ",producto CLIPPED
+  OPEN WINDOW w1 WITH FORM "ipfmwd015"  
+  
+  DISPLAY BY NAME producto
+   DECLARE busca_imagen CURSOR FOR
+    SELECT a.imagen, SUM(a.lado_1),SUM(a.lado_2),SUM(isnull(a.lado_3,0)),SUM(a.cantidad),
+    SUM(a.cantidad2),a.observacion,a.id_producto, a.cod_seccion,a.cod_tramo,
+        a.nombre_file,a.solicitados,a.tono,a.calidad
+    FROM iptb00050 a
+    WHERE a.cod_n = xcodn AND
+          a.cod_grupo = xcodgrupo AND
+          a.cod_tipo =xcodtipo AND
+          a.cod_sec = xcodsec  AND
+          a.num_doc = xtmpnumero AND
+          a.cod_mov = xcodmov
+
+     GROUP BY a.imagen, a.observacion,a.id_producto, a.cod_bodega,a.cod_seccion,a.cod_tramo,
+             a.nombre_file,a.solicitados,a.tono,a.calidad
+      
+    UNION
+    SELECT a.imagen, SUM(a.lado_1),SUM(a.lado_2),SUM(isnull(a.lado_3,0)),SUM(a.cantidad),
+    SUM(a.cantidad2),a.observacion,a.id_producto, a.cod_seccion,a.cod_tramo,
+        a.nombre_file,a.solicitados,a.tono,a.calidad  
+    FROM tmpdesglose a
+    WHERE a.cod_n = xcodn AND
+          a.cod_grupo = xcodgrupo AND
+          a.cod_tipo =xcodtipo AND
+          a.cod_sec = xcodsec  AND
+          a.num_doc = xtmpnumero AND
+          a.cod_mov = xcodmov 
+    
+    GROUP BY a.imagen, a.observacion,a.id_producto, a.cod_seccion,a.cod_tramo,
+             a.nombre_file,a.solicitados,a.tono,a.calidad
+
+   LET kimagen_dest = "tmpfile.jpg"
+   LET kimagen_dest2="tmpfile2.jpg"
+   LET i=1 
+   LET d_tipos="jpeg"
+   LET f_tipos="*.jpg *.png *.jpeg"
+   LET mensaje=%"Elige Documento"
+   
+   
+   LET totalMedida = 0 
+   
+   FOREACH busca_imagen INTO kdatos[i].kimagen,kdatos[i].lado_1,
+                             kdatos[i].lado_2,kdatos[i].lado_3,kdatos[i].cantidad,kdatos[i].cantidad2,
+                             kdatos[i].xobservacion,kdatos[i].id_producto, 
+                             kdatos[i].seccion,kdatos[i].tramo,kdatos[i].nombre_file,
+                             kdatos[i].tono,kdatos[i].calidad,
+                             #,kdatos[i].solicitado,
+                             kdatos[i].tono,kdatos[i].calidad
+     LET kdatos[i].borrar='NO'
+         
+   #  LET kdatos[i].cantidadIni = kdatos[i].cantidad
+     LET totalMedida = totalMedida + kdatos[i].cantidad2 
+     LET i = i+1
+   
+   END FOREACH
+   
+   DISPLAY BY NAME totalMedida
+   
+   CALL  kdatos.deleteElement(i)
+   SELECT a.usuario FROM seg0003 a
+   WHERE a.usuario = xusuario AND
+         a.fotos_adicionales_inventario = "SI"
+
+   IF STATUS <> NOTFOUND THEN
+     LET habilitar = TRUE
+    
+     DIALOG   
+         INPUT BY NAME areageneral.*
+           BEFORE INPUT
+              DISPLAY BY NAME xcantidadOrden
+              IF habilitar = TRUE THEN 
+                 --CALL DIALOG.setActionHidden("xtipo_material",FALSE)
+                 --CALL DIALOG.setActionHidden("xcantidad_minima",FALSE)
+                 --CALL DIALOG.setActionHidden("foto",FALSE)
+             END IF 
+             SELECT DISTINCT a.tipo_material,a.cantidad_minima,a.bookmatch,a.tipos 
+             INTO areageneral.xtipo_material,areageneral.xcantidad_minima,areageneral.bookmatch,areageneral.tipos
+             FROM iptb00052 a
+             WHERE a.cod_n =xcodn AND a.cod_grupo = xcodgrupo AND
+                   a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec AND
+                   a.num_doc = xtmpnumero AND a.cod_mov = xcodmov
+             UNION
+             SELECT DISTINCT a.tipo_material,a.cantidad_minima,a.bookmatch,a.tipos 
+             INTO areageneral.xtipo_material,areageneral.xcantidad_minima,areageneral.bookmatch,areageneral.tipos
+             FROM tmpdesglose_master a
+             WHERE a.cod_n =xcodn AND a.cod_grupo = xcodgrupo AND
+                   a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec AND
+                   a.num_doc = xtmpnumero AND a.cod_mov = xcodmov
+
+             SELECT a.tipo_material,a.bookmatch,a.tipos 
+             INTO areageneral.xtipo_material,areageneral.bookmatch,areageneral.tipos
+             FROM iptb00002 a 
+             WHERE  a.cod_n =xcodn AND a.cod_grupo = xcodgrupo AND
+                   a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec
+             LET areageneral.bodega = xbodega
+             SELECT a.descripcion INTO areageneral.descrip_bodega FROM
+             intb00009 a WHERE a.cod_bodega = xbodega
+             
+             DISPLAY BY NAME areageneral.xtipo_material,areageneral.xcantidad_minima,
+                             areageneral.bookmatch,areageneral.tipos,
+                             areageneral.descrip_bodega,
+                             areageneral.bodega
+                        
+       
+         END INPUT
+         INPUT ARRAY kdatos FROM sdatos.* ATTRIBUTE(WITHOUT DEFAULTS)
+             BEFORE INPUT 
+                 IF habilitar = TRUE THEN    
+                                    
+                   CALL DIALOG.setFieldActive("lado_1",TRUE)
+                   CALL DIALOG.setFieldActive("lado_2",TRUE)
+                   CALL DIALOG.setFieldActive("lado_3",TRUE)
+                   CALL DIALOG.setFieldActive("cantidad",TRUE)
+                   CALL DIALOG.setFieldActive("cantidad2",TRUE)
+                   
+                   CALL DIALOG.setFieldActive("disponible",TRUE)
+                   CALL DIALOG.setFieldActive("xobservacion",TRUE)
+                   CALL DIALOG.setFieldActive("id_producto",TRUE)
+                   
+                   CALL DIALOG.setFieldActive("seccion",TRUE)
+                   CALL DIALOG.setFieldActive("tramo",TRUE)
+                   CALL DIALOG.setFieldActive("borrar",TRUE)
+                 
+                    CALL DIALOG.setFieldActive("solicitado",FALSE)
+                 END IF
+                  IF xestado = '2' THEN 
+                                                          
+                   CALL DIALOG.setFieldActive("lado_1",FALSE)
+                   CALL DIALOG.setFieldActive("lado_2",FALSE)
+                   CALL DIALOG.setFieldActive("lado_3",FALSE)
+                   CALL DIALOG.setFieldActive("cantidad",FALSE)
+                   CALL DIALOG.setFieldActive("cantidad2",FALSE)
+                   
+                   CALL DIALOG.setFieldActive("disponible",FALSE)
+                   NEXT FIELD id_producto
+                  END IF
+                   
+             BEFORE ROW
+              LET i=arr_curr()
+     #         LET kdatos[i].bodega = xbodega
+              CALL cseccion(xbodega)
+              
+              IF kdatos[i].kimagen IS NOT NULL THEN
+                 LET kimagen_dest = kdatos[i].kimagen 
+                 DISPLAY  kimagen_dest TO presenta
+              END IF 
+              IF kdatos[i].cantidad2 < 0 THEN
+                 LET kdatos[i].cantidad2 = kdatos[i].cantidad2 * -1
+              END IF      
+              DISPLAY kdatos[i].cantidad TO sdatos[scr_line()].cantidad
+              
+              
+              
+          
+             AFTER FIELD seccion
+                 CALL ctramo(xbodega, kdatos[i].seccion)
+                 
+                         
+             ON ACTION foto_down
+                  IF kdatos[i].kimagen IS NOT NULL THEN
+              
+                     LET dir_file = "tmp\\",xusuario CLIPPED,
+                                    kimagen_dest CLIPPED
+                     LET s_tipo = '*jpg *.png' 
+                  
+                     LET opcion = 'Archivo Imagen'
+                     LET kimagen_dest = dir_file
+                     DISPLAY kimagen_dest TO presenta
+                 
+                     LET mensaje = 'Guardar archivo' 
+                     CALL ui.Interface.frontCall("standard","getenv", ["TEMP"], [filepath] )
+              
+                     LET filepath = filepath CLIPPED,"\\",kdatos[i].nombre_file CLIPPED
+
+                     CALL ui.Interface.frontCall("standard","savefile", [dir_file,opcion,
+                                                 s_tipo,mensaje], [filepath] )     
+                     CALL fgl_putfile(dir_file,filepath)  
+                  
+                     CALL ui.Interface.frontCall("standard","shellexec",  [filepath],[opcion]) 
+         
+                    END IF 
+            
+              ON ACTION foto
+                  LET i = arr_curr()
+                  CALL ui.Interface.frontCall("standard","openfile", [dir_file,d_tipos,f_tipos,mensaje], [filepath] )     
+                
+                  IF filepath IS NOT NULL THEN
+                     IF downshift(os.Path.extension(filepath)) = "jpg" OR 
+                        downshift(os.Path.extension(filepath)) = "jpeg" OR
+                        downshift(os.Path.extension(filepath)) = "png" THEN
+
+                        LET dir_file = os.Path.basename(filepath)
+                   
+                        LET dir_file = "tmp\\",dir_file CLIPPED
+                       # CALL fgl_getfile(filepath,kimagen_dest2)
+                        CALL fgl_getfile(filepath,dir_file)
+
+                        CALL comprimeImagen(dir_file,' -resize 500x500 ') 
+
+                        
+                        LET kdatos[i].nombre_file = os.Path.basename(dir_file)
+                        DISPLAY dir_file TO presenta
+                        LET kdatos[i].kimagen = dir_file
+                     ELSE
+                      CALL fgl_winmessage("ERROR","EL FILE DEBE SER JPG, JPEG, PNG","INFO")
+                     END IF 
+                  END IF
+{
+             AFTER FIELD solicitado
+                LET i = arr_curr() 
+
+                IF  kdatos[i].solicitado IS NULL THEN 
+                    CALL fgl_winmessage("ERROR","DEBE ESPECIFICAR lA CANTIDAD SOLICITADA","INFO")
+                    NEXT FIELD solicitado
+                END IF 
+                
+                IF kdatos[i].solicitado > kdatos[i].cantidad THEN 
+                    CALL fgl_winmessage("ERROR","lA CANTIDAD SOLICITADA SUPERA LA DISPONIBLE","INFO")
+                    NEXT FIELD solicitado
+                ELSE                        
+                    DISPLAY "kdatos[i].cantidadIni: ",kdatos[i].cantidadIni
+                    DISPLAY "kdatos[i].solicitado: ",kdatos[i].solicitado
+                    
+                    LET  kdatos[i].cantidad = kdatos[i].cantidadIni - kdatos[i].solicitado      
+                    LET  kdatos[i].cantidad2= kdatos[i].lado_1 * kdatos[i].lado_2 * kdatos[i].cantidad
+
+                    DISPLAY kdatos[i].cantidad TO sdatos[scr_line()].cantidad
+                    DISPLAY kdatos[i].cantidad2 TO sdatos[scr_line()].cantidad2
+                END IF 
+ }               
+             AFTER FIELD cantidad
+                  LET i = arr_curr()           
+                  LET  kdatos[i].cantidad2= kdatos[i].lado_1 * kdatos[i].lado_2 * kdatos[i].cantidad
+                  DISPLAY kdatos[i].cantidad2 TO sdatos[scr_line()].cantidad2
+
+             AFTER FIELD id_producto
+                 IF xestado = '2' THEN
+                 
+                     SELECT DISTINCT a.lado_1,a.lado_2,a.lado_3,a.tono,a.calidad
+                     INTO kdatos[i].lado_1,kdatos[i].lado_2,kdatos[i].lado_3,
+                          kdatos[i].tono,kdatos[i].calidad
+                     FROM iptb00050 a WHERE a.id_producto = kdatos[i].id_producto
+
+                     IF STATUS = NOTFOUND THEN
+                        CALL msg(3)
+                        NEXT FIELD id_producto
+                     END IF 
+                     DISPLAY kdatos[i].lado_1 TO sdatos[scr_line()].lado_1
+                     DISPLAY kdatos[i].lado_2 TO sdatos[scr_line()].lado_2
+                     DISPLAY kdatos[i].lado_3 TO sdatos[scr_line()].lado_3
+                     
+                     DISPLAY kdatos[i].tono TO sdatos[scr_line()].tono
+                     DISPLAY kdatos[i].calidad TO sdatos[scr_line()].calidad
+                END IF
+         ON ACTION guardar ATTRIBUTE(TEXT="Salvar",IMAGE="save")
+             
+             BEGIN WORK
+                  SELECT a.num_doc FROM tmpdesglose_master a
+                  WHERE a.num_doc = xtmpnumero AND a.cod_mov = xcodmov AND a.us_crea = xusuario
+                  IF STATUS = NOTFOUND THEN
+                     INSERT INTO tmpdesglose_master (cod_n,cod_grupo,cod_tipo,cod_Sec,tipo_material,cantidad_minima,us_crea,fech_crea,cantidadorden,num_doc,cod_mov,fecha,bookmatch,tipos,bodega)
+                     VALUES (xcodn,xcodgrupo,xcodtipo,xcodsec,areageneral.xtipo_material,areageneral.xcantidad_minima,xusuario,getdate(),xcantidadorden,xtmpnumero,xcodmov,getdate(),areageneral.bookmatch,areageneral.tipos,
+                             xbodega)
+                  END IF
+                  DELETE FROM tmpdesglose WHERE num_doc = xtmpnumero AND cod_mov = xcodmov AND
+                                                cod_n = xcodn AND cod_grupo = xcodgrupo AND 
+                                                cod_tipo = xcodtipo AND cod_sec = xcodsec AND
+                                                us_crea = xusuario
+                   LET xcantidadorden = 0
+                   LET unidadorden =0
+                   FOR i =1 TO kdatos.getLength()
+                    IF kdatos[i].calidad IS NOT NULL THEN
+                          IF kdatos[i].id_producto IS NULL THEN
+                             ROLLBACK WORK
+                             CALL msg(16)
+                             NEXT FIELD id_producto
+                          END IF
+                          IF xestado = '2' THEN
+                             SELECT DISTINCT id_producto FROM iptb00050 WHERE id_producto = kdatos[i].id_producto
+
+                              IF STATUS = NOTFOUND THEN
+                                 CALL msg(3)
+                                 NEXT FIELD id_producto
+                              END IF 
+                                    IF kdatos[i].cantidad2 < 0 THEN
+                             LET kdatos[i].cantidad2 = kdatos[i].cantidad2 * -1
+                          END IF
+                          CALL idexistencia(kdatos[i].id_producto,kdatos[i].cantidad2,xbodega,
+                                            kdatos[i].seccion,kdatos[i].tramo) RETURNING noexistencia
+                          IF noexistencia THEN
+                             ROLLBACK WORK
+                             CALL msg(30)
+                             NEXT FIELD cantidad2
+                          END IF
+                          END IF
+                          LET kdatos[i].id_producto=kdatos[i].id_producto CLIPPED
+                    
+                          LET xcantidadorden = xcantidadorden + kdatos[i].cantidad2
+                          LET unidadorden = unidadorden + kdatos[i].cantidad
+                          IF xestado = '2' THEN
+                             
+                             LET kdatos[i].cantidad2 = kdatos[i].cantidad2  * -1
+                          END IF
+                             INSERT INTO tmpdesglose (cod_n,cod_grupo,cod_tipo,cod_Sec,imagen,observacion,
+                                                    lado_1,lado_2,lado_3,cantidad,
+                                                    nombre_file,us_crea,fech_crea,id_producto,
+                                                    cantidad2,cod_bodega,cod_seccion,cod_tramo,tono,calidad,num_doc,cod_mov
+                                                    )
+                             VALUES (xcodn,xcodgrupo,xcodtipo,xcodsec,kdatos[I].kimagen,kdatos[i].xobservacion,
+                                     kdatos[i].lado_1,kdatos[i].lado_2,kdatos[i].lado_3,
+                                     kdatos[i].cantidad, kdatos[i].nombre_file,xusuario,getdate(),kdatos[i].id_producto,
+                                     kdatos[i].cantidad2,xbodega,kdatos[i].seccion,kdatos[i].tramo,kdatos[i].tono,
+                                     kdatos[i].calidad,xtmpnumero,xcodmov)
+                    END IF    
+                END FOR
+
+                COMMIT WORK
+                
+                CALL msg(1)
+                
+               LET subject="ACTUALIZACION IMAGEN PRODUCTO"
+               LET cuerpo_correo = "EL ARTICULO ",producto CLIPPED, " FUE ACTUALIZADO CON UNA IMAGEN"
+            #   LET toemail ='vendedores@marmotech.com.do;jsoto@marmotech.com.do'
+               LET toemail ='jsoto@marmotech.com.do'    
+             #  LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
+               
+            #   CALL envia_correo(TOemail,CCEmail,cuerpo_correo,
+            #                             subject, procedimiento )
+
+            
+            LET xusername   ='notificacion@marmotech.com.do'
+            LET xsmtphost   ='smtp.office365.com' 
+            LET xsmtpport   = '587'
+            LET xpassword   = 'Lmmjvsd2020'
+          #        CALL enviaemail(Toemail,subject,cuerpo_correo,NULL,xusername,xsmtphost,xsmtpport,xpassword) 
+                #  RETURNING retorne        
+                       LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
+  
+      END INPUT
+                    
+      ON ACTION retornar ATTRIBUTE(TEXT="Retornar",IMAGE="fa-long-arrow-left")
+         IF xcantidadorden IS NULL THEN
+            LET xcantidadorden=0
+         END IF
+         IF unidadorden IS NULL THEN
+            LET unidadorden = 0
+         END IF       
+         EXIT DIALOG
+   
+     END DIALOG 
+   ELSE
+      DISPLAY ARRAY kdatos TO sdatos.*
+       BEFORE ROW
+          LET i=arr_curr()
+          IF kdatos[i].kimagen IS NOT NULL THEN
+             LET kimagen_dest =kdatos[i].kimagen 
+             DISPLAY  kimagen_dest TO presenta
+          END IF 
+ 
+        ON ACTION foto_down
+           IF kdatos[i].kimagen IS NOT NULL THEN
+      
+              LET dir_file = "tmp\\",xusuario CLIPPED,
+                            kimagen_dest CLIPPED
+              LET s_tipo = '*jpg *.png' 
+          
+             LET opcion = 'Archivo Imagen'
+             
+         
+             LET mensaje = 'Guardar archivo' 
+             CALL ui.Interface.frontCall("standard","getenv", ["TEMP"], [filepath] )
+      
+             LET filepath = filepath CLIPPED,"\\",kdatos[i].nombre_file CLIPPED
+
+             CALL ui.Interface.frontCall("standard","savefile", [dir_file,opcion,
+                                         s_tipo,mensaje], [filepath] )     
+             CALL fgl_putfile(dir_file,filepath)  
+             CALL comprimeImagen(filepath,' -resize 500x500 ') 
+
+             CALL ui.Interface.frontCall("standard","shellexec",  [filepath],[opcion]) 
+ 
+          END IF       
+       AFTER DISPLAY
+         EXIT DISPLAY
+       END DISPLAY  
+   END IF
+   CLOSE WINDOW w1
+   
+   RETURN xcantidadorden,unidadorden
+  
+END FUNCTION
+FUNCTION idexistencia(id,cantidad,pbodega, secc,fila)
+  DEFINE id VARCHAR(25),
+         existencia,cantidad DEC(12,5),
+         secc,fila,pbodega INT
+
+  SELECT ISNULL(SUM(a.cantidad2),0) INTO existencia FROM iptb00050 a 
+  WHERE a.id_producto = id AND
+        a.cod_bodega = pbodega AND
+        a.cod_seccion = secc AND
+        a.cod_tramo = fila AND  
+        a.status_t IS NULL
+
+  IF cantidad > existencia THEN
+     RETURN TRUE
+  ELSE
+     RETURN FALSE   
+  END IF
+
+    
+END FUNCTION
+
+FUNCTION cseccion(almacen)
+ DEFINE kcod_seccion,almacen SMALLINT,
+        kdescripcion CHAR(30),
+        pseccion ui.ComboBox
+ 
+ LET pseccion = ui.combobox.forname("formonly.seccion")
+ 
+ DECLARE busca_sec CURSOR FOR
+  SELECT a.cod_seccion,a.descripcion FROM Intb00010 a
+  WHERE a.cod_bodega = almacen
+  
+  CALL pseccion.clear()
+  FOREACH busca_sec INTO kcod_seccion,kdescripcion
+   CALL pseccion.additem(kcod_seccion,kdescripcion)
+  END FOREACH 
+  CALL pseccion.additem(99,"TODAS")
+END FUNCTION
+
+FUNCTION ctramo(almacen,seccion)
+ DEFINE kcod_tramo,almacen,seccion SMALLINT,kdescripcion CHAR(30),
+        ptramo ui.ComboBox
+ 
+ LET ptramo = ui.combobox.forname("formonly.tramo")
+ 
+ DECLARE busca_tramo CURSOR FOR
+  SELECT a.cod_tramo,a.descripcion FROM Intb00043 a
+  WHERE a.cod_bodega =  almacen and a.cod_Seccion = seccion
+  
+  CALL ptramo.clear()
+  FOREACH busca_tramo INTO kcod_tramo,kdescripcion
+   DISPLAY "tramos ",kcod_tramo,kdescripcion," ",almacen," ",seccion
+   CALL ptramo.additem(kcod_tramo,kdescripcion)
+  END FOREACH 
+  CALL ptramo.additem(99,"TODOS")
+END FUNCTION

PROYECTO/vedir/veconvierteorden.4gl

@@ -126,6 +126,18 @@ FUNCTION convierteorden(
     UPDATE prtb00020
         SET num_oc = ISNULL(num_oc, 0) + 1, us_crea = xusuario, fech_crea = GETDATE()
     SELECT num_oc INTO ult_numero FROM prtb00020
+    # RE-VALIDACION YA CON EL BLOQUEO DE prtb00020: la validacion del inicio
+    # corre fuera de la transaccion; si otro usuario estaba convirtiendo la
+    # misma cotizacion, aqui ya vemos su orden confirmada (cot 340001, 20/10/2026)
+    LET existe_oc = 0
+    SELECT COUNT(*) INTO existe_oc FROM prtb00012
+        WHERE cotizacion_no = xcotizacion_no AND status_t IS NULL
+    IF existe_oc > 0 THEN
+        ROLLBACK WORK
+        CALL fgl_winmessage(
+            "ERROR", "COTIZACION TIENE ORDEN, NO PUEDE CREAR ORDEN", "STOP")
+        RETURN 0, FALSE
+    END IF
     # AUTOCORRECCION: si el contador quedo por detras de prtb00012
     # (otro programa creo ordenes sin avanzarlo), salta al siguiente libre
     LET existe_oc = 0

WEBSERVICES/bin/24789663_ws.marmotech.com.do_8098.key

@@ -1,27 +0,0 @@
------BEGIN RSA PRIVATE KEY-----
-MIIEpAIBAAKCAQEAv6Ap2OBlMV8W6k96xyiRZqzbsYkwkLNzu7R6c4OV3lKjp4Er
-cNHmtGNsmK3F1nvYqKsTNQzXh8IBdw15fZwytL+KgSltYxglAh0xn3dcSQzrydLO
-efpaGaF8u3wA202H35zrlc4WnS1LJJBarrqPwoXhcgNj03CrS3cPHWUIFCJ+dG6O
-F1AUKyDBzdI7Oo95Usch/UVV5XfWlNDKG1p1h/Ds6S6hQ1l7ssNnAMJal1TNRI8A
-zghhlPHND/e0CdE+DaF1IdYPIQjzAAG3m560U8e4li0VX+onEpDr+nqjHchfdBg7
-Yo4CB8SPNQMvY/qJTu8lXH0vn+cLJB0kYeiF0QIDAQABAoIBAQCBGyz2pQEoyXNL
-/K6xHkEQl2gRbmgdJfrUvZ0+1KoVt0Hx6lJVWeaBJPeWyoWfo6NuyIxRUsyn9+s6
-xgZTvfhf1SlBKqM7f5n3manEUgwIX79BJFnezvEDkczTGJIPL2ZbH4OOU+LilRCq
-muOuE54mJkOlqGkKnT+bwaSaXmaaARUEomEvBYifakx3jiTx2keouxG4rnFyATd6
-FoI63Q/vwYgmVLKhcQKGaGS000iPEZZLBwb8aI6gCuObscp/Jfopfyp7Wj2eLdVa
-fzhEBrynm+YxZTVrLgZtlEFGmIMDjvTdflChyHrx2rq8O5DJcb4sxS9qjnuqGc7p
-J+TO4+TRAoGBAOHxVv9Xe9FyuLWVdHTL9eE7i+bLmOzhLXZ+kJrWrzm2Ic2FReJg
-22LcwqrgLbs/EtauNsUnGiHJQX5d8x8usYzgvavKiD49hk2xr4F+euJiV5zqg2bS
-63M5+3GixHayOwwkGgqTXH9CRE6SsozxWoOkG1tzFPpkPwGEzDEbmMHdAoGBANke
-IKfFJzMZ+jQ/rfYFIbSBaEP9nUzvhOUmRR9bZnNCP4HEdcm1Vf5+i05xqwXS6ghH
-SlXxP7yK49WHy9rnofLSE94PKIToGveV92z4hXHQdQIisbruuaRT5fOdfSYm/+GB
-c9r9iMNK9KaQjIT9QgxptG101oJOFyy716HmCSaFAoGACoE1AUQo/pDt44tiUbfV
-47XoCD/5CTJi8bpqsLhAh1dfdPW4TREhwhPvfRBVL/p7vr100G/D+EQqJlzp285I
-9PrR9rXA5dvobZ5QQZ4GypW16xbAKzytM7tDZIIjzjz1H9hh2ZIGX+hN0rVhVco2
-4h30I6lTFV0pzMFG2RWmYYUCgYEA2P+YibWtiRB0lpXyq0nTtxIDgLjQ550YiOJo
-AYAbdCUJTgxp4TDhAtu9JajL0qVLjPybmivllO6H6dmwcFhD72nxu2YRDEzi7wMu
-6PW2gdtjpr/APOHuHwRPdt23wFMIOX1lqsDtWKrovDUKjLyGr9tSHnfBETk1Rltz
-l/dOu/UCgYAvuP0KKCknpZQ68rtRuxrCVpHeK/9a4efJmyHTPLAiuzNUNYmGWIlW
-Ejy6Nvz4Ix52ZOwl+3p09oPABDneEnLW3sdNGrkB6PH0PF2uXqtgZ4xWwx3PWUpK
-nBB57PClyOar7RZ9hiIeuixbO6dyB8QEIccln7gR4czIptMhnUeoDQ==
------END RSA PRIVATE KEY-----

WEBSERVICES/bin/ClientCAList.pem

@@ -1,67 +0,0 @@
-Certificate:
-    Data:
-        Version: 3 (0x2)
-        Serial Number:
-            1a:a3:12:3c:c3:af:da:b9:42:04:55:65:ed:82:14:3a
-    Signature Algorithm: sha1WithRSAEncryption
-        Issuer: CN=ws.marmotech.com.do
-        Validity
-            Not Before: Jul 12 19:42:14 2019 GMT
-            Not After : Jul 13 19:42:14 2029 GMT
-        Subject: CN=ws.marmotech.com.do
-        Subject Public Key Info:
-            Public Key Algorithm: rsaEncryption
-                Public-Key: (2048 bit)
-                Modulus:
-                    00:c7:13:cc:69:ff:12:2d:2a:1f:e2:7c:06:64:3d:
-                    33:42:c0:7d:23:97:d9:2a:16:90:01:cf:58:2a:c5:
-                    be:6f:c3:14:2d:17:b3:94:66:c4:64:0b:8b:9e:54:
-                    87:58:eb:0f:3b:81:16:1a:ee:17:b0:76:30:b1:26:
-                    86:a7:e7:8c:9e:99:90:f0:55:3d:65:13:bd:3b:0b:
-                    96:66:e7:bc:ba:60:cc:45:b5:6e:d7:1b:af:c7:7c:
-                    15:22:1a:5b:03:5d:8a:c5:2f:a0:51:b1:49:df:1d:
-                    92:18:04:c5:73:f4:33:d2:4b:10:6c:13:c0:32:e5:
-                    7c:a5:e4:91:e7:f4:ef:d1:36:72:84:19:0d:cb:50:
-                    1a:31:59:3d:2c:f7:0c:73:81:d6:ff:80:4f:24:b7:
-                    63:fc:04:8c:98:dc:6f:88:11:96:03:d4:d4:61:ee:
-                    55:ca:1f:16:f8:93:13:4a:c2:d4:e5:6b:84:97:e6:
-                    14:1f:f9:e2:43:37:6b:83:18:ed:ee:c4:eb:ca:69:
-                    f5:93:08:99:e3:6d:62:69:a8:0f:54:5c:04:72:61:
-                    1e:9b:99:b5:23:59:82:af:ac:7f:18:3e:b6:fe:66:
-                    f3:eb:73:d2:07:8f:34:b5:d6:6f:a1:88:f7:6b:7e:
-                    65:37:dd:55:4c:93:21:a4:00:9c:9a:90:3d:0f:54:
-                    99:71
-                Exponent: 65537 (0x10001)
-    Signature Algorithm: sha1WithRSAEncryption
-         a1:26:90:11:49:37:df:ac:d0:97:28:70:ed:ca:27:d9:dd:9d:
-         46:2d:a3:f6:f2:14:4a:39:6e:42:27:55:35:5d:81:0c:16:6b:
-         6c:13:eb:40:2a:f3:d0:e1:13:bc:a7:a6:db:1c:8c:31:ca:8a:
-         a8:11:7c:92:27:d4:31:80:29:ab:05:f0:a6:55:2d:0c:ff:70:
-         23:d1:6f:0f:bc:7d:69:a9:bb:b0:9d:ee:ed:28:31:0e:23:a9:
-         3d:2f:50:d7:40:0b:bc:00:6f:94:86:d3:72:75:c3:57:50:e1:
-         b0:7b:97:c2:8d:2c:9b:8d:4f:c4:5b:dd:57:53:cf:c7:7c:1a:
-         31:f1:82:6f:7c:90:93:0e:15:7e:d0:21:30:71:b1:d8:48:27:
-         97:59:1f:ae:b9:55:01:42:57:70:ad:e7:69:4e:a9:88:45:04:
-         1b:fc:33:4d:e9:07:e9:20:98:82:e0:b7:5b:cc:cc:f9:ad:62:
-         53:3e:8d:fa:4d:08:fe:93:f9:62:c9:4d:e7:d6:7d:db:17:16:
-         1a:11:3c:7e:05:26:2a:a1:c3:18:11:a2:ad:76:8f:05:66:9d:
-         d8:18:d4:4b:49:d0:36:56:1b:88:79:43:02:61:9f:4d:fe:06:
-         c3:0c:25:25:a4:09:a2:bf:85:e7:99:08:cf:77:8f:c0:18:af:
-         0d:47:2d:dd
------BEGIN CERTIFICATE-----
-MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
-MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
-DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
-ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
-fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
-kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
-EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
-1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
-HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
-AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
-SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
-I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
-V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
-6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
-2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
------END CERTIFICATE-----

WEBSERVICES/bin/clienteCAlist.pem

@@ -1,2 +0,0 @@
-The file cannot be copied onto itself.
-        0 file(s) copied.

WEBSERVICES/bin/marmotechCA.cer

@@ -1,18 +0,0 @@
------BEGIN CERTIFICATE-----
-MIIC8DCCAdigAwIBAgIQFM8pBaIO1oxO+Zg62blEgzANBgkqhkiG9w0BAQsFADAh
-MR8wHQYDVQQDExZEQ00tREMubWFybW90ZWNoLmxvY2FsMB4XDTE5MDcxMzIzMjQx
-N1oXDTIwMDcxMzAwMDAwMFowITEfMB0GA1UEAxMWRENNLURDLm1hcm1vdGVjaC5s
-b2NhbDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAOllg3whQPnFtOn8
-No1CRjS/mk0cuwuXSbl98pnTd3ejiEJxg3DyFn40INhlM+kQoJV9mk7jvopR91n7
-BrH4pv8bCWIMra3Eak9sZ/jx+4R/s44jDLhqaPs1gtlKw69/MkFL3CIcweQODa+u
-tdbv44QFTSOYzNtK2z0DblJhIbyAX9qYWY6iwSewiYoreI4wi/M4YbZAjEAkCiG7
-WduVF3lS5Pg8rPpIVXPYo01gyjMOUYZWfg1NzsvTF7Z5ex7UR9bJ6zS5WGfoWcNz
-wnxx/3c2F2NBzq0IJAKWSvuBlc0ruYLZZlkYsOxenklSIiP0xwevEmsoH/20P166
-bcUmF78CAwEAAaMkMCIwCwYDVR0PBAQDAgQwMBMGA1UdJQQMMAoGCCsGAQUFBwMB
-MA0GCSqGSIb3DQEBCwUAA4IBAQANOPSnj3Rb5XGILZEoTBWt+T7Y6xXz49MLtNFn
-uEOHp80F14H4gSAmqBsGVh4RXmb7FX/iZHdsmERlVLyDXHpDvKnl7NIsyKRIMPbB
-IO7/STG4Y/KRKUfOiCtYLECKcON6FPMQPtfnoSDPjii4Zl4BwcKgMN2uzhqfufOJ
-3W2L9wBiVp2G6YzCH/U577Mhwb4jnkUH2OHPbm8DpPSn2dQGdqgLqfdEL9vkeVLT
-7QJWxYqInGPZuUSntMnHF6idf/xzkVdad8ajvpmynXMOCYz2tlbEHdPWjC0kTXGO
-52UkcEfVuMFKDSeiIKJg3TMKJQQQZH+Z2jSELlrbRWb9on8c
------END CERTIFICATE-----

WEBSERVICES/bin/marmotechCA.pem

@@ -1,73 +0,0 @@
-Certificate:
-    Data:
-        Version: 3 (0x2)
-        Serial Number:
-            14:cf:29:05:a2:0e:d6:8c:4e:f9:98:3a:d9:b9:44:83
-        Signature Algorithm: sha256WithRSAEncryption
-        Issuer: CN = DCM-DC.marmotech.local
-        Validity
-            Not Before: Jul 13 23:24:17 2019 GMT
-            Not After : Jul 13 00:00:00 2020 GMT
-        Subject: CN = DCM-DC.marmotech.local
-        Subject Public Key Info:
-            Public Key Algorithm: rsaEncryption
-                RSA Public-Key: (2048 bit)
-                Modulus:
-                    00:e9:65:83:7c:21:40:f9:c5:b4:e9:fc:36:8d:42:
-                    46:34:bf:9a:4d:1c:bb:0b:97:49:b9:7d:f2:99:d3:
-                    77:77:a3:88:42:71:83:70:f2:16:7e:34:20:d8:65:
-                    33:e9:10:a0:95:7d:9a:4e:e3:be:8a:51:f7:59:fb:
-                    06:b1:f8:a6:ff:1b:09:62:0c:ad:ad:c4:6a:4f:6c:
-                    67:f8:f1:fb:84:7f:b3:8e:23:0c:b8:6a:68:fb:35:
-                    82:d9:4a:c3:af:7f:32:41:4b:dc:22:1c:c1:e4:0e:
-                    0d:af:ae:b5:d6:ef:e3:84:05:4d:23:98:cc:db:4a:
-                    db:3d:03:6e:52:61:21:bc:80:5f:da:98:59:8e:a2:
-                    c1:27:b0:89:8a:2b:78:8e:30:8b:f3:38:61:b6:40:
-                    8c:40:24:0a:21:bb:59:db:95:17:79:52:e4:f8:3c:
-                    ac:fa:48:55:73:d8:a3:4d:60:ca:33:0e:51:86:56:
-                    7e:0d:4d:ce:cb:d3:17:b6:79:7b:1e:d4:47:d6:c9:
-                    eb:34:b9:58:67:e8:59:c3:73:c2:7c:71:ff:77:36:
-                    17:63:41:ce:ad:08:24:02:96:4a:fb:81:95:cd:2b:
-                    b9:82:d9:66:59:18:b0:ec:5e:9e:49:52:22:23:f4:
-                    c7:07:af:12:6b:28:1f:fd:b4:3f:5e:ba:6d:c5:26:
-                    17:bf
-                Exponent: 65537 (0x10001)
-        X509v3 extensions:
-            X509v3 Key Usage: 
-                Key Encipherment, Data Encipherment
-            X509v3 Extended Key Usage: 
-                TLS Web Server Authentication
-    Signature Algorithm: sha256WithRSAEncryption
-         0d:38:f4:a7:8f:74:5b:e5:71:88:2d:91:28:4c:15:ad:f9:3e:
-         d8:eb:15:f3:e3:d3:0b:b4:d1:67:b8:43:87:a7:cd:05:d7:81:
-         f8:81:20:26:a8:1b:06:56:1e:11:5e:66:fb:15:7f:e2:64:77:
-         6c:98:44:65:54:bc:83:5c:7a:43:bc:a9:e5:ec:d2:2c:c8:a4:
-         48:30:f6:c1:20:ee:ff:49:31:b8:63:f2:91:29:47:ce:88:2b:
-         58:2c:40:8a:70:e3:7a:14:f3:10:3e:d7:e7:a1:20:cf:8e:28:
-         b8:66:5e:01:c1:c2:a0:30:dd:ae:ce:1a:9f:b9:f3:89:dd:6d:
-         8b:f7:00:62:56:9d:86:e9:8c:c2:1f:f5:39:ef:b3:21:c1:be:
-         23:9e:45:07:d8:e1:cf:6e:6f:03:a4:f4:a7:d9:d4:06:76:a8:
-         0b:a9:f7:44:2f:db:e4:79:52:d3:ed:02:56:c5:8a:88:9c:63:
-         d9:b9:44:a7:b4:c9:c7:17:a8:9d:7f:fc:73:91:57:5a:77:c6:
-         a3:be:99:b2:9d:73:0e:09:8c:f6:b6:56:c4:1d:d3:d6:8c:2d:
-         24:4d:71:8e:e7:65:24:70:47:d5:b8:c1:4a:0d:27:a2:20:a2:
-         60:dd:33:0a:25:04:10:64:7f:99:da:34:84:2e:5a:db:45:66:
-         fd:a2:7f:1c
------BEGIN CERTIFICATE-----
-MIIC8DCCAdigAwIBAgIQFM8pBaIO1oxO+Zg62blEgzANBgkqhkiG9w0BAQsFADAh
-MR8wHQYDVQQDExZEQ00tREMubWFybW90ZWNoLmxvY2FsMB4XDTE5MDcxMzIzMjQx
-N1oXDTIwMDcxMzAwMDAwMFowITEfMB0GA1UEAxMWRENNLURDLm1hcm1vdGVjaC5s
-b2NhbDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAOllg3whQPnFtOn8
-No1CRjS/mk0cuwuXSbl98pnTd3ejiEJxg3DyFn40INhlM+kQoJV9mk7jvopR91n7
-BrH4pv8bCWIMra3Eak9sZ/jx+4R/s44jDLhqaPs1gtlKw69/MkFL3CIcweQODa+u
-tdbv44QFTSOYzNtK2z0DblJhIbyAX9qYWY6iwSewiYoreI4wi/M4YbZAjEAkCiG7
-WduVF3lS5Pg8rPpIVXPYo01gyjMOUYZWfg1NzsvTF7Z5ex7UR9bJ6zS5WGfoWcNz
-wnxx/3c2F2NBzq0IJAKWSvuBlc0ruYLZZlkYsOxenklSIiP0xwevEmsoH/20P166
-bcUmF78CAwEAAaMkMCIwCwYDVR0PBAQDAgQwMBMGA1UdJQQMMAoGCCsGAQUFBwMB
-MA0GCSqGSIb3DQEBCwUAA4IBAQANOPSnj3Rb5XGILZEoTBWt+T7Y6xXz49MLtNFn
-uEOHp80F14H4gSAmqBsGVh4RXmb7FX/iZHdsmERlVLyDXHpDvKnl7NIsyKRIMPbB
-IO7/STG4Y/KRKUfOiCtYLECKcON6FPMQPtfnoSDPjii4Zl4BwcKgMN2uzhqfufOJ
-3W2L9wBiVp2G6YzCH/U577Mhwb4jnkUH2OHPbm8DpPSn2dQGdqgLqfdEL9vkeVLT
-7QJWxYqInGPZuUSntMnHF6idf/xzkVdad8ajvpmynXMOCYz2tlbEHdPWjC0kTXGO
-52UkcEfVuMFKDSeiIKJg3TMKJQQQZH+Z2jSELlrbRWb9on8c
------END CERTIFICATE-----

WEBSERVICES/bin/ws_marmotech_com_do.crt

@@ -1,17 +0,0 @@
------BEGIN CERTIFICATE-----
-MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
-MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
-DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
-ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
-fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
-kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
-EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
-1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
-HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
-AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
-SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
-I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
-V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
-6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
-2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
------END CERTIFICATE-----

WEBSERVICES/bin/ws_marmotech_com_do.pem

@@ -1,67 +0,0 @@
-Certificate:
-    Data:
-        Version: 3 (0x2)
-        Serial Number:
-            1a:a3:12:3c:c3:af:da:b9:42:04:55:65:ed:82:14:3a
-    Signature Algorithm: sha1WithRSAEncryption
-        Issuer: CN=ws.marmotech.com.do
-        Validity
-            Not Before: Jul 12 19:42:14 2019 GMT
-            Not After : Jul 13 19:42:14 2029 GMT
-        Subject: CN=ws.marmotech.com.do
-        Subject Public Key Info:
-            Public Key Algorithm: rsaEncryption
-                Public-Key: (2048 bit)
-                Modulus:
-                    00:c7:13:cc:69:ff:12:2d:2a:1f:e2:7c:06:64:3d:
-                    33:42:c0:7d:23:97:d9:2a:16:90:01:cf:58:2a:c5:
-                    be:6f:c3:14:2d:17:b3:94:66:c4:64:0b:8b:9e:54:
-                    87:58:eb:0f:3b:81:16:1a:ee:17:b0:76:30:b1:26:
-                    86:a7:e7:8c:9e:99:90:f0:55:3d:65:13:bd:3b:0b:
-                    96:66:e7:bc:ba:60:cc:45:b5:6e:d7:1b:af:c7:7c:
-                    15:22:1a:5b:03:5d:8a:c5:2f:a0:51:b1:49:df:1d:
-                    92:18:04:c5:73:f4:33:d2:4b:10:6c:13:c0:32:e5:
-                    7c:a5:e4:91:e7:f4:ef:d1:36:72:84:19:0d:cb:50:
-                    1a:31:59:3d:2c:f7:0c:73:81:d6:ff:80:4f:24:b7:
-                    63:fc:04:8c:98:dc:6f:88:11:96:03:d4:d4:61:ee:
-                    55:ca:1f:16:f8:93:13:4a:c2:d4:e5:6b:84:97:e6:
-                    14:1f:f9:e2:43:37:6b:83:18:ed:ee:c4:eb:ca:69:
-                    f5:93:08:99:e3:6d:62:69:a8:0f:54:5c:04:72:61:
-                    1e:9b:99:b5:23:59:82:af:ac:7f:18:3e:b6:fe:66:
-                    f3:eb:73:d2:07:8f:34:b5:d6:6f:a1:88:f7:6b:7e:
-                    65:37:dd:55:4c:93:21:a4:00:9c:9a:90:3d:0f:54:
-                    99:71
-                Exponent: 65537 (0x10001)
-    Signature Algorithm: sha1WithRSAEncryption
-         a1:26:90:11:49:37:df:ac:d0:97:28:70:ed:ca:27:d9:dd:9d:
-         46:2d:a3:f6:f2:14:4a:39:6e:42:27:55:35:5d:81:0c:16:6b:
-         6c:13:eb:40:2a:f3:d0:e1:13:bc:a7:a6:db:1c:8c:31:ca:8a:
-         a8:11:7c:92:27:d4:31:80:29:ab:05:f0:a6:55:2d:0c:ff:70:
-         23:d1:6f:0f:bc:7d:69:a9:bb:b0:9d:ee:ed:28:31:0e:23:a9:
-         3d:2f:50:d7:40:0b:bc:00:6f:94:86:d3:72:75:c3:57:50:e1:
-         b0:7b:97:c2:8d:2c:9b:8d:4f:c4:5b:dd:57:53:cf:c7:7c:1a:
-         31:f1:82:6f:7c:90:93:0e:15:7e:d0:21:30:71:b1:d8:48:27:
-         97:59:1f:ae:b9:55:01:42:57:70:ad:e7:69:4e:a9:88:45:04:
-         1b:fc:33:4d:e9:07:e9:20:98:82:e0:b7:5b:cc:cc:f9:ad:62:
-         53:3e:8d:fa:4d:08:fe:93:f9:62:c9:4d:e7:d6:7d:db:17:16:
-         1a:11:3c:7e:05:26:2a:a1:c3:18:11:a2:ad:76:8f:05:66:9d:
-         d8:18:d4:4b:49:d0:36:56:1b:88:79:43:02:61:9f:4d:fe:06:
-         c3:0c:25:25:a4:09:a2:bf:85:e7:99:08:cf:77:8f:c0:18:af:
-         0d:47:2d:dd
------BEGIN CERTIFICATE-----
-MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
-MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
-DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
-ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
-fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
-kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
-EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
-1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
-HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
-AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
-SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
-I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
-V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
-6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
-2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
------END CERTIFICATE-----

WEBSERVICES/config_ca/certificados/ClientCAList.pem

@@ -1,67 +0,0 @@
-Certificate:
-    Data:
-        Version: 3 (0x2)
-        Serial Number:
-            1a:a3:12:3c:c3:af:da:b9:42:04:55:65:ed:82:14:3a
-    Signature Algorithm: sha1WithRSAEncryption
-        Issuer: CN=ws.marmotech.com.do
-        Validity
-            Not Before: Jul 12 19:42:14 2019 GMT
-            Not After : Jul 13 19:42:14 2029 GMT
-        Subject: CN=ws.marmotech.com.do
-        Subject Public Key Info:
-            Public Key Algorithm: rsaEncryption
-                Public-Key: (2048 bit)
-                Modulus:
-                    00:c7:13:cc:69:ff:12:2d:2a:1f:e2:7c:06:64:3d:
-                    33:42:c0:7d:23:97:d9:2a:16:90:01:cf:58:2a:c5:
-                    be:6f:c3:14:2d:17:b3:94:66:c4:64:0b:8b:9e:54:
-                    87:58:eb:0f:3b:81:16:1a:ee:17:b0:76:30:b1:26:
-                    86:a7:e7:8c:9e:99:90:f0:55:3d:65:13:bd:3b:0b:
-                    96:66:e7:bc:ba:60:cc:45:b5:6e:d7:1b:af:c7:7c:
-                    15:22:1a:5b:03:5d:8a:c5:2f:a0:51:b1:49:df:1d:
-                    92:18:04:c5:73:f4:33:d2:4b:10:6c:13:c0:32:e5:
-                    7c:a5:e4:91:e7:f4:ef:d1:36:72:84:19:0d:cb:50:
-                    1a:31:59:3d:2c:f7:0c:73:81:d6:ff:80:4f:24:b7:
-                    63:fc:04:8c:98:dc:6f:88:11:96:03:d4:d4:61:ee:
-                    55:ca:1f:16:f8:93:13:4a:c2:d4:e5:6b:84:97:e6:
-                    14:1f:f9:e2:43:37:6b:83:18:ed:ee:c4:eb:ca:69:
-                    f5:93:08:99:e3:6d:62:69:a8:0f:54:5c:04:72:61:
-                    1e:9b:99:b5:23:59:82:af:ac:7f:18:3e:b6:fe:66:
-                    f3:eb:73:d2:07:8f:34:b5:d6:6f:a1:88:f7:6b:7e:
-                    65:37:dd:55:4c:93:21:a4:00:9c:9a:90:3d:0f:54:
-                    99:71
-                Exponent: 65537 (0x10001)
-    Signature Algorithm: sha1WithRSAEncryption
-         a1:26:90:11:49:37:df:ac:d0:97:28:70:ed:ca:27:d9:dd:9d:
-         46:2d:a3:f6:f2:14:4a:39:6e:42:27:55:35:5d:81:0c:16:6b:
-         6c:13:eb:40:2a:f3:d0:e1:13:bc:a7:a6:db:1c:8c:31:ca:8a:
-         a8:11:7c:92:27:d4:31:80:29:ab:05:f0:a6:55:2d:0c:ff:70:
-         23:d1:6f:0f:bc:7d:69:a9:bb:b0:9d:ee:ed:28:31:0e:23:a9:
-         3d:2f:50:d7:40:0b:bc:00:6f:94:86:d3:72:75:c3:57:50:e1:
-         b0:7b:97:c2:8d:2c:9b:8d:4f:c4:5b:dd:57:53:cf:c7:7c:1a:
-         31:f1:82:6f:7c:90:93:0e:15:7e:d0:21:30:71:b1:d8:48:27:
-         97:59:1f:ae:b9:55:01:42:57:70:ad:e7:69:4e:a9:88:45:04:
-         1b:fc:33:4d:e9:07:e9:20:98:82:e0:b7:5b:cc:cc:f9:ad:62:
-         53:3e:8d:fa:4d:08:fe:93:f9:62:c9:4d:e7:d6:7d:db:17:16:
-         1a:11:3c:7e:05:26:2a:a1:c3:18:11:a2:ad:76:8f:05:66:9d:
-         d8:18:d4:4b:49:d0:36:56:1b:88:79:43:02:61:9f:4d:fe:06:
-         c3:0c:25:25:a4:09:a2:bf:85:e7:99:08:cf:77:8f:c0:18:af:
-         0d:47:2d:dd
------BEGIN CERTIFICATE-----
-MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
-MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
-DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
-ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
-fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
-kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
-EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
-1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
-HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
-AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
-SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
-I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
-V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
-6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
-2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
------END CERTIFICATE-----

WEBSERVICES/config_ca/certificados/ws_marmotech_com_do.crt

@@ -1,17 +0,0 @@
------BEGIN CERTIFICATE-----
-MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
-MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
-DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
-ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
-fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
-kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
-EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
-1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
-HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
-AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
-SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
-I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
-V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
-6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
-2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
------END CERTIFICATE-----

WEBSERVICES/config_ca/certificados/ws_marmotech_com_do.pem

@@ -1,67 +0,0 @@
-Certificate:
-    Data:
-        Version: 3 (0x2)
-        Serial Number:
-            1a:a3:12:3c:c3:af:da:b9:42:04:55:65:ed:82:14:3a
-    Signature Algorithm: sha1WithRSAEncryption
-        Issuer: CN=ws.marmotech.com.do
-        Validity
-            Not Before: Jul 12 19:42:14 2019 GMT
-            Not After : Jul 13 19:42:14 2029 GMT
-        Subject: CN=ws.marmotech.com.do
-        Subject Public Key Info:
-            Public Key Algorithm: rsaEncryption
-                Public-Key: (2048 bit)
-                Modulus:
-                    00:c7:13:cc:69:ff:12:2d:2a:1f:e2:7c:06:64:3d:
-                    33:42:c0:7d:23:97:d9:2a:16:90:01:cf:58:2a:c5:
-                    be:6f:c3:14:2d:17:b3:94:66:c4:64:0b:8b:9e:54:
-                    87:58:eb:0f:3b:81:16:1a:ee:17:b0:76:30:b1:26:
-                    86:a7:e7:8c:9e:99:90:f0:55:3d:65:13:bd:3b:0b:
-                    96:66:e7:bc:ba:60:cc:45:b5:6e:d7:1b:af:c7:7c:
-                    15:22:1a:5b:03:5d:8a:c5:2f:a0:51:b1:49:df:1d:
-                    92:18:04:c5:73:f4:33:d2:4b:10:6c:13:c0:32:e5:
-                    7c:a5:e4:91:e7:f4:ef:d1:36:72:84:19:0d:cb:50:
-                    1a:31:59:3d:2c:f7:0c:73:81:d6:ff:80:4f:24:b7:
-                    63:fc:04:8c:98:dc:6f:88:11:96:03:d4:d4:61:ee:
-                    55:ca:1f:16:f8:93:13:4a:c2:d4:e5:6b:84:97:e6:
-                    14:1f:f9:e2:43:37:6b:83:18:ed:ee:c4:eb:ca:69:
-                    f5:93:08:99:e3:6d:62:69:a8:0f:54:5c:04:72:61:
-                    1e:9b:99:b5:23:59:82:af:ac:7f:18:3e:b6:fe:66:
-                    f3:eb:73:d2:07:8f:34:b5:d6:6f:a1:88:f7:6b:7e:
-                    65:37:dd:55:4c:93:21:a4:00:9c:9a:90:3d:0f:54:
-                    99:71
-                Exponent: 65537 (0x10001)
-    Signature Algorithm: sha1WithRSAEncryption
-         a1:26:90:11:49:37:df:ac:d0:97:28:70:ed:ca:27:d9:dd:9d:
-         46:2d:a3:f6:f2:14:4a:39:6e:42:27:55:35:5d:81:0c:16:6b:
-         6c:13:eb:40:2a:f3:d0:e1:13:bc:a7:a6:db:1c:8c:31:ca:8a:
-         a8:11:7c:92:27:d4:31:80:29:ab:05:f0:a6:55:2d:0c:ff:70:
-         23:d1:6f:0f:bc:7d:69:a9:bb:b0:9d:ee:ed:28:31:0e:23:a9:
-         3d:2f:50:d7:40:0b:bc:00:6f:94:86:d3:72:75:c3:57:50:e1:
-         b0:7b:97:c2:8d:2c:9b:8d:4f:c4:5b:dd:57:53:cf:c7:7c:1a:
-         31:f1:82:6f:7c:90:93:0e:15:7e:d0:21:30:71:b1:d8:48:27:
-         97:59:1f:ae:b9:55:01:42:57:70:ad:e7:69:4e:a9:88:45:04:
-         1b:fc:33:4d:e9:07:e9:20:98:82:e0:b7:5b:cc:cc:f9:ad:62:
-         53:3e:8d:fa:4d:08:fe:93:f9:62:c9:4d:e7:d6:7d:db:17:16:
-         1a:11:3c:7e:05:26:2a:a1:c3:18:11:a2:ad:76:8f:05:66:9d:
-         d8:18:d4:4b:49:d0:36:56:1b:88:79:43:02:61:9f:4d:fe:06:
-         c3:0c:25:25:a4:09:a2:bf:85:e7:99:08:cf:77:8f:c0:18:af:
-         0d:47:2d:dd
------BEGIN CERTIFICATE-----
-MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
-MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
-DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
-ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
-fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
-kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
-EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
-1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
-HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
-AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
-SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
-I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
-V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
-6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
-2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
------END CERTIFICATE-----

WEBSERVICES/config_ca/ws_marmotech_com_do.crt

@@ -1,17 +0,0 @@
------BEGIN CERTIFICATE-----
-MIICxDCCAaygAwIBAgIQGqMSPMOv2rlCBFVl7YIUOjANBgkqhkiG9w0BAQUFADAe
-MRwwGgYDVQQDExN3cy5tYXJtb3RlY2guY29tLmRvMB4XDTE5MDcxMjE5NDIxNFoX
-DTI5MDcxMzE5NDIxNFowHjEcMBoGA1UEAxMTd3MubWFybW90ZWNoLmNvbS5kbzCC
-ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAMcTzGn/Ei0qH+J8BmQ9M0LA
-fSOX2SoWkAHPWCrFvm/DFC0Xs5RmxGQLi55Uh1jrDzuBFhruF7B2MLEmhqfnjJ6Z
-kPBVPWUTvTsLlmbnvLpgzEW1btcbr8d8FSIaWwNdisUvoFGxSd8dkhgExXP0M9JL
-EGwTwDLlfKXkkef079E2coQZDctQGjFZPSz3DHOB1v+ATyS3Y/wEjJjcb4gRlgPU
-1GHuVcofFviTE0rC1OVrhJfmFB/54kM3a4MY7e7E68pp9ZMImeNtYmmoD1RcBHJh
-HpuZtSNZgq+sfxg+tv5m8+tz0gePNLXWb6GI92t+ZTfdVUyTIaQAnJqQPQ9UmXEC
-AwEAATANBgkqhkiG9w0BAQUFAAOCAQEAoSaQEUk336zQlyhw7con2d2dRi2j9vIU
-SjluQidVNV2BDBZrbBPrQCrz0OETvKem2xyMMcqKqBF8kifUMYApqwXwplUtDP9w
-I9FvD7x9aam7sJ3u7SgxDiOpPS9Q10ALvABvlIbTcnXDV1DhsHuXwo0sm41PxFvd
-V1PPx3waMfGCb3yQkw4VftAhMHGx2Egnl1kfrrlVAUJXcK3naU6piEUEG/wzTekH
-6SCYguC3W8zM+a1iUz6N+k0I/pP5YslN59Z92xcWGhE8fgUmKqHDGBGirXaPBWad
-2BjUS0nQNlYbiHlDAmGfTf4GwwwlJaQJor+F55kIz3ePwBivDUct3Q==
------END CERTIFICATE-----

WEBSERVICES/veconvierteorden.4gl

@@ -139,6 +139,17 @@ BEGIN WORK
                             us_crea = xusuario,
                             fech_crea = GETDATE()
        SELECT num_oc INTO ult_numero FROM prtb00020
+       # RE-VALIDACION YA CON EL BLOQUEO DE prtb00020: evita dos ordenes para la
+       # misma cotizacion si dos usuarios convierten a la vez (cot 340001, 20/10/2026)
+       LET existe_oc = 0
+       SELECT COUNT(*) INTO existe_oc FROM prtb00012
+           WHERE cotizacion_no = xcotizacion_no AND status_t IS NULL
+       IF existe_oc > 0 THEN
+          LET pmensaje_error =
+              SFMT("La cotizacion %1 ya tiene orden, no puede crear otra.", xcotizacion_no)
+          ROLLBACK WORK
+          RETURN 0,FALSE
+       END IF
        # AUTOCORRECCION: si el contador quedo por detras de prtb00012, salta al siguiente libre
        LET existe_oc = 0
        SELECT COUNT(*) INTO existe_oc FROM prtb00012 WHERE num_oc = ult_numero