Hola hice 4 bases de datos A, B, C, D. Relacion A 0,1 a 0,N con B. En B pongo en el analisis que A puede borrar B Relacion A 0,1 a 0,N con C. En C pongo en el analisis que A puede borrar C Relacion A 0,N a 0,1 con D. Aqui tengo problemas de integridad al no tener datos para borrar. Pueden darme un ejemplo de como proceder, cundo borro A, borra sin problemas B y C, pero con D tengo problemas ya que la relacion es al reves y necesito que A borre todo.
El codigo seria este.
IF YesNo(0,"Esta seguro de borrar el registro?") = True THEN HReadSeekFirst(A,A_ID,TABLE_CONS_A.COL_A_ID) IF HFound = True THEN HDelete(A) //Aqui borra A,B,C sin problemas HReadSeekFirst(A,D_ID,TABLE_CONS_A.COL_D_ID) IF HFound = True THEN HDelete(D) //Aqui tengo el problema ya que esta realacion es A 0,N a 0,1 Info("El registro se elimino correctamente") END END END TableDisplay(TABLE_CONS_A,taReExecuteQuery)
Estoy aprendiendo, agradesco cualquier ayuda... Saludos desde Argentina... |