Clarion - copiar registroas de un archivo tps a otro

Tengo un problema, tengo un sistema en mi trabajo que fue hecho en clarion, pero una compañera accidentalmente borro información de un día, tengo el respaldo, pero solo tengo el topspeed scan y puedo abrir los archivos, pero no me permite importar información,

Tengo que modificar tres archivos tps que fuern los afectados. pero es mucha la información como para capturarla toda en el top speed.

Alguen me puede ayudar.

No tengo editores, ni compiladores de Clarion. solo el top speed, ni el código fuente del programa.

Jorge

Tranquilo que lo podes solucionar.
Al archivo del respaldo donde tenes los registros borrados, renombralo y copialo en la carpeta donde está el resto de los archivos.
Luego abres Clarion, el DCT y vas a import Table, la dices que es tps y lo elijes y verás que te trae el formato completo de los registros y claves.
Bien, ya hemos incorporado el archivo con los registros que se borraron al DCT.
Luego en tu APP agregas un process donde lees el archivo que renombraste.
Agregas el código necesario para que te cargue los datos al archivo de trabajo, y por último lo grabas.
Ej.
Si el archivo se llamara facturas.tps y el prefijo es (fac) en el respaldo renombra facturas.tps como factura_1.tps Clarion te va a ofrecer un prefijo para ese archivo, no te complique y dejales ese, seguro va a ofrecerte (fac1)
pasa ese archivo a la carpeta donde se encuentra facturas.tps.
Haz un process donde leas factura_1.tps y luego grabes facturas.tps
En: Take Record debes agregar el código para que grabe.
Para mover registro a registro es: FAC:Record :=: fac1:Record
o si prefieres puedes hacerlo campo por campo.
FAC:ID_Cliente = FAC1:ID_Cliente
FAC:Fecha = FAC1:Fecha
.......
.......
por último lo grabas dando un insert.



Debes buscar una/s referencia/s para poder identificar los registros que se borraron.

IF FAC1:NumeroComprobante > 4445 or FAC1:NumeroComprobante < 4702
FAC:Record :=: FAC1:Record
! Inicio de grabar un registro

IF ACCESS:Facturas.INSERT()
MESSAGE('NO GRABA Facturas','Mensaje del Sistema',ICON:Exclamation)
END
END ! End IF



ATENCIÓN!!!! Si tienes calve Autonumber en Facturas.tps quítala del dct luego corre el process y por último vuelve a
poner autonumber las clave.

Espero ter sirva, cualquier cosa avisa y vemos como lo solucionamos.

Saludos desde Venado Tuerto - Argentina