CREATE PROCEDURE A_CONSULTA_EXISTENCIA (
VUSUARIO VarChar(50))
returns (
VNOEMPLEADO VarChar(50),
VAPATERNO VarChar(50),
VAMATERNO VarChar(50),
VNOMBREE VarChar(50),
VUSUARIOS VarChar(50))
AS
DECLARE VARIABLE VAPELLIDOPATERNO VARCHAR(50);
DECLARE VARIABLE VAPELLIDOMATERNO VARCHAR(50);
DECLARE VARIABLE VNOMBRE VARCHAR(50);
BEGIN
FOR
SELECT APELLIDOPATERNO,APELLIDOMATERNO,NOMBRE,USUARIOCREADOR
FROM EMPLEADOS WHERE USUARIOCREADOR = :VUSUARIO
INTO :VAPELLIDOPATERNO,:VAPELLIDOMATERNO,:VNOMBRE, :VUSUARIOS
DO
BEGIN
SELECT NOEMPLEADO,APELLIDOPATERNO,APELLIDOMATERNO,NOMBRE
FROM EMPLEADOSACTIVOS
WHERE APELLIDOPATERNO =:VAPELLIDOPATERNO AND APELLIDOMATERNO=:VAPELLIDOMATERNO AND NOMBRE=:VNOMBRE
INTO :VNOEMPLEADO,:VAPATERNO,:VAMATERNO, :VNOMBREE ;
IF (NOT EXISTS(SELECT EXISTEN FROM A_EXISTENTE WHERE EXISTEN=:VNOEMPLEADO))THEN
INSERT INTO A_EXISTENTE (EXISTEN,APATERNO,AMATERNO,NOMBRE,USUARIO)VALUES(:VNOEMPLEADO,:VAPATERNO,:VAMATERNO,:VNOMBREE,:VUSUA RIOS);
END
END ^^
SET TERM ; ^^