Página 1 de 1

Utilitario para varias acciones

Publicado: Vie Abr 27, 2018 7:07 pm
por eweimann
Existe en Clarion, o alguien ha desarrollado un utilitario para poder hacer las siguientes acciones con CUALQUIER archivo TPS?:
- extraer determinado grupo o selección de registros a otro archivo
- juntar 2 archivos o "Mergear" se decía antes en un tercero?
Lógicamente deberán tener la misma estructura.
Gracias por adelantado.
Ernesto Weimann - Consultora Informática

Re: Utilitario para varias acciones

Publicado: Lun May 07, 2018 9:16 pm
por martinq
Hola, no sé si te servirá de algo, tal vez te sirva como para poder adaptarlo a 2 tablas revisando entre mis archivos encontré lo siguiente:

#! Copy fields from one file to other
-------------------------------------------------------------------------
#CODE (CopyFieldList, 'Copy fields from one file to other'), MULTI,
PROCEDURE
#PROMPT('File FROM: ',FILE),%JALFromAssign
#PROMPT('File TO: ',FILE),%JALToAssign
#DECLARE(%TrgetFile),MULTI
#DECLARE(%FromPrefx)
#FIX(%File,%JALFromAssign)
#FOR(%Field)
#ADD(%TrgetFile,%FieldID)
#ENDFOR
#SET(%FromPrefx,%FilePrefix)
#FIX(%File,%JALToAssign)
#FOR(%Field)
#FIX(%TrgetFile,%FieldID)
#IF(%TrgetFile)
%Field = %FromPrefx:%TrgetFile
#ENDIF
#ENDFOR

Es un code template (se intercala entre el código), y sólo hace falta poner
el archivo desde y el archivo hasta. Con la ventaja que copia no solo los
campos del Record sino los memos también.
Con un pequeño agregado podría copiar los Blob también.