Clipper/FiveWin - Eliminar registros coincidentes en dos bases diferentes con la misma estructura

Sele 1

Use base1 shared

index on codigo to codigo

Sele 2

Use Base2 shared

index on codigo to codigo

//de aqui en adelante no se si mandas a buscar el código o estas sobre él.

Sele 1

//pregunto si quiero eliminarlo y doy 10 segundos para enllavar en modo exclusivo mi tabla

if bien='S'

    code := Codigo

    //Si vas a eliminar el registro de la tabla1, si no omiti este if

    If Registro(10)  //uso la función registro para enllavar tabla

       Delete   //marcamos el registro 

    EndIf

    //Elimnar registro de la tabla2

    Sele 2

     If Registro(10)   //uso la función registro para enllavar tabla

        delete all for codigo = code   //marcamos los regisros tabal 2

     EndIf

     Do aplicarborrado    //aplicamos el borrado estando en tabla 2

     Sele 1

     Do Aplicarborrado  //aplicamos borrado en tabla 1

EndIf

//Despues lo demás

// Esta función es para enllavar la tabla

Function Registro(nEspera)

Local lSiempre

nEspera:=Iif(nEspera==Nil,2,nEspera)

If Flock()

   Return .T.

EndIf

lSiempre:=(nEspera==0)

Do While (lSiempre .Or. (nEspera>0))

   If Flock()

      Return(.T.)

   EndIf

   Inkey(.5)

   nEspera-=.5

EndDo

Return(.F.)

//procedimiento aplicar borrado

Procedure Aplicarborrado

locate for delete()      //localizamos todos los registros marcados

if found()       //Si encuentra aplicacmos el pack

   segund=10

   do while segund>0

      if .not. neterr()

         set exclusive on

         pack

         exit

      endif

      inkey(.5)

      segund=segund-.5

   enddo

endif