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;