Sync cambios recientes 3.20 -> migracion (10 programas)

PROYECTO/cgdir/cgprmt004.4gl

@@ -20,7 +20,7 @@ DEFINE
 DEFINE
     dias, registros, pcod_sp, numero_entrada SMALLINT,
     secuencia_entrada INT,
-    xentrada VARCHAR(14),
+    xentrada VARCHAR(25),
     nom1_emp, nom2_Emp, apell1_Emp, apell2_emp VARCHAR(30),
     num_doccxp, num_doccxc VARCHAR(25)
 

PROYECTO/codir/coprmt025.4gl

@@ -35,7 +35,27 @@ DEFINE     xusername,xsmtphost,xsmtpport,xpassword  STRING,
 
            toEmail, orden_trabajo, answer_workorder, descrip_depto STRING, depto INT 
 
-DEFINE data RECORD LIKE cotb00001.*
+DEFINE data RECORD 
+        area_sp        VARCHAR(10),
+        ciu_sp         VARCHAR(30),
+        cod_pais       VARCHAR(3),
+        cod_sp         SMALLINT,
+        cod_sp_sec     SMALLINT,
+        cont_sp        VARCHAR(30),
+        contactID      INTEGER,
+        dir_sp         VARCHAR(60),
+        email          VARCHAR(60),
+        fax_sp         VARCHAR(25),
+        fech_crea      DATETIME YEAR TO FRACTION,
+        fech_mod       DATETIME YEAR TO FRACTION,
+        id_maintainx   INTEGER,
+        nom_sp         VARCHAR(41),
+        status_t       VARCHAR(1),
+        tel_sp         VARCHAR(25),
+        term_sp        SMALLINT,
+        us_crea        VARCHAR(50),
+        us_mod         VARCHAR(50)
+    END RECORD
 
 DEFINE container RECORD 
        tipo_inv STRING,

PROYECTO/cpdir/cpprmt001.4gl

@@ -1596,7 +1596,7 @@ FUNCTION cppcmd000()
                 END IF
             END FOR
 
-        IF entradas_atadas[0].entrada IS NOT NULL THEN 
+        IF entradas_atadas[1].entrada IS NOT NULL THEN 
             DELETE FROM cptb00010
                 WHERE num_doc = factura.num_doc
                     AND cod_sp = factura.cod_sp