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
Utilitario para varias acciones
-
- Mensajes: 9
- Registrado: Lun Ago 01, 2011 6:52 pm
- Contactar:
Utilitario para varias acciones
Cordialmente
ANTARES Consultora Informática
eweimann@3net.com.ar
ANTARES Consultora Informática
eweimann@3net.com.ar
- martinq
- Al nivel de RZ
- Mensajes: 128
- Registrado: Dom Feb 06, 2011 9:43 pm
- Ubicación: Montevideo - Uruguay
- Contactar:
Re: Utilitario para varias acciones
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.
#! 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.
¿Quién está conectado?
Usuarios navegando por este Foro: Bing [Bot] y 61 invitados