Sync cambios recientes 3.20 -> migracion (10 programas)

PROYECTOS/irdir/irprmt036.4gl

@@ -38,7 +38,32 @@ DEFINE CheckApi RECORD
        checkRep BOOLEAN 
 END RECORD 
 
-DEFINE fakeData RECORD LIKE cotb00001.*
+# fakeData se pasa POR POSICION (fakeData.*) al parametro Data de
+# ApiMaintainC en api_test.4gl, por lo que su estructura (orden y tipos)
+# debe ser IDENTICA a ese record. No usar RECORD LIKE cotb00001.* porque
+# el orden fisico de las columnas de cotb00001 no coincide con ese record
+# y provoca el error -1260 al convertir los tipos.
+DEFINE fakeData 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 data RECORD 
          rnumeroDoc,rcodMov,rtipo_cliente,num_oc,tipo_cliente,sec_cliente,bodega,bodega_destino INT,