CREATE OR REPLACE
PROCEDURE ProcedureImportarEmpleados
IS
    intEmpleado INTEGER;
    strNombres VARCHAR(500);
    strApellidos VARCHAR(500);
    strApellidoCasada VARCHAR(500);
    intGenero INTEGER;
    datFechaNacimiento DATE;
    intEstadoCivil INTEGER;
    strIdEmpleado VARCHAR(500);
    intSistemaIdentificador INTEGER;
    intEstadoActivo INTEGER;
    intSecuenciaPersonaNatural INTEGER;
    intPersonaNatural INTEGER;
    intSecuenciaEmpleado INTEGER;

    CURSOR CursorImportarEmpleados IS
        SELECT
            Empleado,
            Nombres,
            Apellidos,
            ApellidoCasada,
            Genero,
            FechaNacimiento,
            EstadoCivil,
            IdEmpleado,
            TipoIdentificador,
            EstadoActivo
        FROM
            IMP_Empleado
        WHERE
            Actualizado = 0;
BEGIN
    OPEN CursorImportarEmpleados;
    LOOP
        FETCH CursorImportarEmpleados INTO intEmpleado, strNombres, strApellidos, strApellidoCasada, intGenero, datFechaNacimiento, intEstadoCivil, strIdEmpleado, intSistemaIdentificador, intEstadoActivo;

    EXIT WHEN CursorImportarEmpleados%NOTFOUND;

        SELECT PersonaNatural INTO intPersonaNatural
        FROM WFM_Empleado
        WHERE Identificador = strIdEmpleado
            AND SistemaIdentificador = intSistemaIdentificador;

            --Actualiza la persona natural en WFM_PersonaNatural
            UPDATE WFM_PersonaNatural
            SET
                Nombres = strNombres,
                Apellidos = strApellidos,
                ApellidoCasada = strApellidoCasada,
                Genero = intGenero,
                FechaNacimiento = datFechaNacimiento,
                EstadoCivil = intEstadoCivil
            WHERE PersonaNatural = intPersonaNatural;

    END LOOP;
    COMMIT;
    CLOSE CursorImportarEmpleados;
EXCEPTION WHEN NO_DATA_FOUND THEN
      --Obtiene la siguiente secuencia de GEN_secuencia para WFM_PersonaNatural
            ProcedureObtenerSecuencia(22,intSecuenciaPersonaNatural);

            --Inserta la persona natural en WFM_PersonaNatural
            INSERT INTO  WFM_PersonaNatural
                (PersonaNatural,Nombres,Apellidos,ApellidoCasada,Genero,FechaNacimiento,EstadoCivil,ValorDocIdentificacion,TipoDocIdentificacion,EstadoEliminado)
            VALUES
                (intSecuenciaPersonaNatural,strNombres,strApellidos,strApellidoCasada,intGenero,datFechaNacimiento,intEstadoCivil,NULL,NULL,1);

            --Obtiene la siguiente secuencia de GEN_secuencia para WFM_Empleado
            ProcedureObtenerSecuencia(23,intSecuenciaEmpleado);

            --Inserta el empleado en WFM_Empleado
            INSERT INTO WFM_Empleado
                (Empleado,PersonaNatural,Usuario,Identificador,SistemaIdentificador,EstadoEliminado)
            VALUES
                (intSecuenciaEmpleado,intSecuenciaPersonaNatural,NULL,strIdEmpleado,intSistemaIdentificador,1);
END;