Eliminar y Copiar Registros a otra tabla

Tengo el sig código para identificar unos riesgos y sus recomendaciones
como puedo hacer para eliminarlas de la
tabla y copiarlas a otra tabla
public ries_excluido
SELECT riesgos
GO TOP
DO WHILE NOT EOF()
&&Excluir los riesgos y sus recomendaciones de un intervalo de fechas especificadas en donde el estado de los
&&Riesgos esten como concluidos
IF (riesgos.estadonum=3 .and. Riesgos.fecha_cumplimiento>=thisform.txtfecha_detec.value .and. Riesgos.fecha_cumplimiento<=thisform.txtfecha_mayor.value)
Messagebox("El riesgo cae dentro de este rango de fechas y esta concluido")
ries_excluido=riesgos.clave_riesgo
SELECT recomendaciones
GO TOP
DO WHILE NOT EOF()
IF (recomendaciones.clave_riesgo=ries_excluido)
Messagebox("Recomendacion pertenece a un riesgo excluido")
&&aqui quiero que la quite de la tabla
&&y copie a otra tabal todos los campos
ENDIF
if not eof() &&si no es fin de archivo que se brinque al sig. Registro
SKIP
ENDIF
ENDDO
ELSE &&en caso de que no se deba excluir
Messagebox("Riesgo no cae dentro de este intervalo o no esta concluido")
&&aqui quiero que la quite de la tabla
&&y copie a otra tabal todos los campos
Endif
if not eof() &&si no es fin de archivo que se brinque al sig. Registro
SKIP
ENDIF
enddo

1 Respuesta

Respuesta
1
Intenta:
public ries_excluido
SELECT riesgos
GO TOP
DO WHILE NOT EOF()
&&Excluir los riesgos y sus recomendaciones de un intervalo de fechas especificadas en donde el estado de los
&&Riesgos esten como concluidos
IF (riesgos.estadonum=3 .and. riesgos.fecha_cumplimiento>=thisform.txtfecha_detec.value .and. riesgos.fecha_cumplimiento<=thisform.txtfecha_mayor.value)
Messagebox("El riesgo cae dentro de este rango de fechas y esta concluido")
ries_excluido=riesgos.clave_riesgo
SELECT recomendaciones
GO TOP
DO WHILE NOT EOF()
IF (recomendaciones.clave_riesgo=ries_excluido)
Messagebox("Recomendacion pertenece a un riesgo excluido")
DELETE
&&aqui quiero que la quite de la tabla
&&y copie a otra tabal todos los campos
ENDIF
if not eof() &&si no es fin de archivo que se brinque al sig. registro
SKIP
ENDIF
ENDDO
COPY TO __Temporal FOR DELETED()
PACK
SELECT Eliminados && Donde van a quedar los registros eliminados de la tabla
APPEND FROM __Temporal
ELSE &&en caso de que no se deba excluir
Messagebox("Riesgo no cae dentro de este intervalo o no esta concluido")
COPY TO __Temporal NEXT 1
SELECT Eliminados && Donde van a quedar los registros eliminados de la tabla
APPEND FROM __Temporal
SELECT riesgos
&&aqui quiero que la quite de la tabla
&&y copie a otra tabal todos los campos
Endif
if not eof() &&si no es fin de archivo que se brinque al sig. registro
SKIP
ENDIF
enddo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas