Clipper/FiveWin - No se como se hace para volver a compilarlo luego de algunos cambios

function ALTAFICHA

   local Local1:= "ALTA DE FICHAS SERVICIOS"

   dbUseArea(.T., Nil, "EMPRESA", Nil, .T.)

   Static23:= alltrim(empresa->nombre)

   dbCloseArea("empresa")

   do while (.T.)

      close databases

      set color to (Static17)

      clear screen

      pansup(Local1)

      setcursor(2)

      cajaconv(3, 0, 21, 79)

      cajaconv(22, 0, 24, 79)

      @ 23,  1 say ;

         "[Enter] = Confirma    [ESC] = Salir   [] = Para seleccionar   [F10] = Ayuda " ;

         color Static20

      set color to (Static17)

      set message to 22

      row:= 4

      ncodcli:= a_cli2()

      close databases

      if (ncodcli == 0)

         exit

         return .T.

      endif

      nentre:= 0

      dbUseArea(.T., Nil, "CLIENTE.DBF", Nil, .F.)

      cliente->(dbGoTop())

      set index to CODCLI, DESCLI

      cliente->(dbSeek(ncodcli))

      if (cliente->(EOF()))

.

.

.

etc

etc

etc