DEFINE Pcia = '''001'''; DEFINE PempOld = '''MARCELOO-110'''; DEFINE PempNew = '''MARCELOO-111'''; -------------------------------- 1. Crear el empleado nuevo: -------------------------------- Insert into plaempleado select CIA,&pempNew,NOMBRE,FECHANAC,SEXO,CEDULA, TIPOID,SEGUROSOCIAL,ESTADOCIVIL,DIRECCION,TELEFONO,CONYUGUE,HIJOS, HIJOSMAY,DEPENDIENTES,PLANILLA,SUCURSAL,DEPARTAMENTO,PUESTO,CATEGORIA, JEFEINMEDIATO,HORARIO,GANAEXTRAS,GANACOMIS,MARCATARJETA,TIPOPAGO,BANCO, CUENTA,ASOCIACION,FECHAINGRESO,FECHASALIDA,ESTADO,PENSIONADO,MONEDASALARIO, curp from plaempleado where cia = &pcia and empleado = &pempOld; commit; ----------------------------------------- 2. Corregir datos asociados al empleado: ----------------------------------------- update PlaControlVac set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaHistPagoEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaDeducEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaEstadisticas set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaPerInc set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaPensionEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaLaboresTrab set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaMarca set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaHistDetDeven set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaDevenEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaPerVac set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaResumenSalTmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaAboPre set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaAguinaldo set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update plaIdiomaEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaDeducciones set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaDetDeven set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaPrestamo set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaLiquidacion set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaSalario set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaDetPasivo set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaHistDeducEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaProvEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaCcostoEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaAusencia set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaVacacionEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaMovProEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaHistDevenEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaIncapEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaPagoEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update PlaHorasTrab set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update RhCapacitacionEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update RhEvaluacionProf set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update RhAccionEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update RhProgramaVac set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update RhEstadisPuntos set empleado = &pempNew where cia = &pcia and empleado = &pempOld; update RhInfoEmp set empleado = &pempNew where cia = &pcia and empleado = &pempOld; 3. Borrar el empleado viejo: delete from PlaEmpleado where cia = &pcia and empleado = &pempOld; ---Si todo salio bien ---COMMIT;