FoxPro/Visual FoxPro - Borrar Registros de dos tablas relacionadas en FoxPro 9.0

Borrar Registros de dos tablas relacionadas en FoxPro 9.0

Publicado por Jorge Arturo (3 intervenciones) el 24/10/2017 18:09:08

Tengo dos tablas, tabla1 y tabla2, necesito borrar los registros de las dos tablas que estan relacionadas por n_factura. ytengo informacion desde el año 2009 y solo tengo que dejar la información de dos años, el campo de la fecha es fecha2. como hago esto, ya que si lo hago de una sola tabla si lo hace, pero necesito hacerlo de las dos tablas. El Foxpro que utilizo es el FoxPro 9.0
Les agradesco quien me pueda ayudar.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 4

Val: 471

Borrar Registros de dos tablas relacionadas en FoxPro 9.0

Publicado por Mauricio Antonio (1541 intervenciones) el 24/10/2017 19:29:24

Puedes poner el codigo con el que eliminas de una tabla?
Tienes 2 tablas (Tabla1 - Tabla2), con informacion desde el 2009, quieres dejar solo 2 años. Cuales 2 años serian?

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Borrar Registros de dos tablas relacionadas en FoxPro 9.0

Publicado por Jorge Arturo (3 intervenciones) el 24/10/2017 20:27:09

Gracias por la pronta respuesta.

El Código es el siguiente

SET EXCLUSIVE ON

SET DELETE ON

USE TABLA1

BROWSE

DELETE FROM TABLA1 WHERE FECHA1 = ^06-02-2017

PACK

SET DELETE OFF

SET EXCLUSIVE OFF

Aqui si me funcional, pero necesito incluirle una segunda tabla la cual es la tabla2 y la relacion es por medio del campo tabla1.dorden = tabla2.dorden

No se como hacerlo.

Gracias

Valora esta respuesta

Comentar

Pos: 1

Val: 1.115

Borrar Registros de dos tablas relacionadas en FoxPro 9.0

Publicado por Leonardo Daniel A. (507 intervenciones) el 25/10/2017 04:19:45

Hola deberas borrar primero de la tabla2, supongo que la tabla2 no tiene fecha y esta relacionada con la tabla1 por algun ID

si son tablas libres yo haria...

DELETE FROM Tabla2 WHERE Id IN ( SELECT Id FROM Tabla1 WHERE Fecha1= ^06-02-2017

DELETE FROM Tabla2 WHERE Fecha1 = ^06-02-2017

pero si hay un fallo quedaran registros huerfanos...

si las tablas las tienes ligadas a una DBC debes usar una TRANSACCION

CLEAR

SET MULTILOCKS ON      && Required for buffering

USE tabla1

=CURSORSETPROP("Buffering",5)

USE tabla2

=CURSORSETPROP("Buffering",5)

BEGIN TRANSACTIO

DELETE FROM Tabla2 WHERE Id IN ( SELECT Id FROM Tabla1 WHERE Fecha1= ^06-02-2017

DELETE FROM Tabla2 WHERE Fecha1 = ^06-02-2017

lActualizo = TABLEUPDATE(.T.,.T.,’Tabla1′) .AND.  TABLEUPDATE(.T.,.T.,’Tabla2′)

IF lActualizo THEN

  MESSAGEBOX(‘Transacción realizada.’, 0)

  END TRANSACTION

ELSE

  ROLLBACK

  MESSAGEBOX( ‘Uno o más de las tablas no fueron actualizadas. Cancelación de la transacción.’, 0)

  TABLEREVERT(.T.,’Tabla1′)

  TABLEREVERT(.T.,’Tabla2′)

ENDIFIF

Valora esta respuesta

Comentar

COMBOBOX

REFOX disponible