FoxPro/Visual FoxPro - inlist

USE empleados IN 0

USE fullemp IN 0

SELECT empleados

SELECT idnomina,idempleado,nombre_emp, rfc, imss, cenope FROM fullemp

  INLIST(ALLTRIM(cenope,"Presa Solís","Presa Solís Gayosso","Direccion Duraznos","Querétaro"))

  SELECT TMP

  GO TOP

  SCAN

      cIdnomina = STR(tmp.idnomina)

      cIdempleado = STR(tmp.idempleado)

      cRfc = ALLTRIM(tmp.rfc)

      IF SEEK (cIdnomina+cIdempleado,'Empleados','NOMYIDEMP')

         IF cRfc != ALLTRIM (empleados.rfc)

         ****INSERTAR DATOS***

         ENDIF

       ENDIF

  ENDSCAN

&& ----------------------------------

SELECT Empleado, "No Cargados" as Estado FROM Tabla1 ;

	WHERE EmpleadoID not in (SELECT DISTINCT EmpleadoID FROM Tabla2) ;

	UNION ;

	SELECT Empleado, "Cargados" as Estado FROM Tabla1 ;

	WHERE EmpleadoID In (SELECT DISTINCT EmpleadoID FROM Tabla2) ;

	INTO CURSOR NuevoCursor

&& ----------------------------------

SET FILTER TO Estado="No Cargados"

SET FILTER TO Estado="Cargados"