24 de marzo de 2004

Comparar dos registros completos

La siguiente función permíte comparar de forma simple, dos registros completos de una o diferentes tablas.

Arroja resultado .T. si tanto la estructura como el contenido de cada campo es igual.

? m_CompReg("cVentas","Ventas")

FUNCTION M_COMPREG()
LParameters tcCursor1, tcCursor2
  SELECT (tcCursor1)
  SCATTER NAME OL_01 &&  Posicionado en uno de los registros a comparar
   SELECT (tcCursor2)
  SCATTER NAME OL_02 &&  Posicionado en el otro de los registros a comparar
  RETURN  COMPOBJ(OL_01,OL_02)
ENDFUNC

Julio Rossi

No hay comentarios. :

Publicar un comentario