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"