Gracias Ramiretor pero intento fallido, me ha dejao muy claro que el into no va donde propones.....
Tras arduas averiguaciones he realizado otra version del polemico procedure que por lo menos no da errores sintacticos.
El problema es que ahora me dice: "Column Unknow" con lo quue flipo porque he archicomprobado los nombres en las dos consultas.
Socorrroooo!
set term !!;
CREATE PROCEDURE Insertar_Cita ( ID_CLIENTE INTEGER, ID_USUARIO INTEGER,
ID_TRATAMIENTO INTEGER, FECHA DATE, INICIO TIME,
FIN TIME, AVISAR VARCHAR(2), ESTADO VARCHAR(2),
CICLICO VARCHAR(2), OBSERVACIONES VARCHAR(3000),
NOMBRE VARCHAR(50), TELEFONO VARCHAR(15),
SECUNDARIA VARCHAR(3), COSTE NUMERIC(10, 2),
COBRADA VARCHAR(3), PRIMERA_CITA VARCHAR(3),
PREV_ADELANTAMIENTO VARCHAR(10), DUO VARCHAR(3),
TRATAMIENTO VARCHAR(30) )
RETURNS (idcita INTEGER ) AS
DECLARE VARIABLE ncita integer;
DECLARE VARIABLE conflicto integer;
BEGIN
SELECT COUNT(*)
FROM CITA
WHERE fecha=:fecha AND id_usuario=:id_usuario AND secundaria=:secundaria
AND (:inicio<fin AND fin<=:fin AND :inicio<=inicio AND inicio<:fin
AND ((inicio<=:inicio AND :inicio<fin AND inicio<:fin AND :fin<=fin )
oR ( :inicio<=inicio AND inicio<:fin AND :inicio<fin AND fin<=:fin )))
INTO conflicto;
IF (conflicto=0) THEN
BEGIN
ncita=GEN_ID(NUEVA_CITA,1);
INSERT INTO CITA (ID_CITA,ID_CLIENTE,ID_USUARIO,ID_TRATAMIENTO,FECHA,
INICIO, FIN, AVISAR,ESTADO,CICLICO,OBSERVACIONES,NOMBRE,
TELEFONO,SECUNDARIA,COSTE,COBRADA,PRIMERA_CITA,PREV_ADELANTAMIENTO,
DUO,TRATAMIENTO)
VALUES
(:ncita,:ID_CLIENTE,:ID_USUARIO,:ID_TRATAMIENTO,:FECHA,
:INICIO, :FIN, :AVISAR,:ESTADO,:CICLICO,:OBSERVACIONES,:NOMBRE,
:TELEFONO,:SECUNDARIA,:COSTE,:COBRADA,:PRIMERA_CITA,:PREV_ADELANTAMIENTO,
UO,:TRATAMIENTO);
idcita=ncita;
EXIT;
END
ELSE
POST_EVENT "falloInsercion" ;
END!!
set term ;!!