llamar procedimiento dentro de otro procedimiento

[novato_erick]

Hola a todos como están chicos?


Trabajando un poco e tratado de realizar consultas, insert, update con procedimientos Almacenados, leyendo un poco dentro del foro había pensado en realizar dos procedimientos por aparte en firebird 2.5 para una consulta capturando el id y luego otro procedimiento para insertar. pero leyendo un poco me percate que se puede llamar el procedimiento de consulta dentro de un procedimiento para que inserte la consulta lo trate de hacer pero aun no logro correrlo correctamente:

Procedimiento de Consulta:

Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE CONSULTACEDULA(
  CEDULA VARCHAR(20) CHARACTER SET NONE COLLATE NONE)
RETURNS(
  ID INTEGER)
AS
BEGIN
  /* Procedure body */
  SELECT ID_EMPLEADOS FROM TEMPLEADOS WHERE CEDULA_EMPL =:CEDULA INTO :ID;

END^

SET TERM ; ^

Procedimiento que llama al procedimiento de consulta

Código SQL [-]
CREATE PROCEDURE ADJUNTO(
  ID INTEGER,
  HOJADVIDA CHAR(1) CHARACTER SET NONE COLLATE NONE,
  FOTO CHAR(1) CHARACTER SET NONE COLLATE NONE,
  CED CHAR(1) CHARACTER SET NONE COLLATE NONE,
  TITULOS CHAR(1) CHARACTER SET NONE COLLATE NONE,
  REFERENCIAS CHAR(1) CHARACTER SET NONE COLLATE NONE,
  RP CHAR(1) CHARACTER SET NONE COLLATE NONE,
  EXAM CHAR(1) CHARACTER SET NONE COLLATE NONE)
AS
DECLARE VARIABLE Cedula VARCHAR(20);
DECLARE VARIABLE dd INTEGER;
BEGIN
EXECUTE procedure CONSULTACEDULA(:Cedula) RETURNING_VALUES :dd;
INSERT INTO TADJUNTOSEMPL (ID_EMPLEADOS,HOJADEVIDA,FOTOCARNET,COPIACED,
                           COPIATITULOS,REFERENCIAS,RECORDPOLICIACO,EXAMEMBARAZO)
  VALUES (:dd,:HOJADVIDA,:FOTO,:CEDULA,:TITULOS,:REFERENCIAS,:RP,:EXAM);
  SUSPEND;
END;

Alguien podría orientarme que pasará?

Saludos

novato_erick

[Casimiro Notevi]

Creo que te falta el suspend del primero.

Código SQL [-]
CREATE PROCEDURE CONSULTACEDULA( CEDULA VARCHAR(20) )
RETURNS( ID INTEGER ) 
AS
BEGIN
  SELECT ID_EMPLEADOS 
  FROM TEMPLEADOS 
  WHERE CEDULA_EMPL =:CEDULA 
  INTO :ID;
  
  suspend;  /* creo que te falta esto */

END

[novato_erick]

lo extraño es que con el suspend es lo mismo...
cuando ingreso el numero de identificacion me manda este error...

Validation error for column ID_EMPLEADOS, value "*** null ***".
At procedure 'ADJUNTO' line: 19, col: 1.

Código SQL [-]
CREATE PROCEDURE ADJUNTO(
  ID INTEGER,
  HOJADVIDA CHAR(1) CHARACTER SET NONE COLLATE NONE,
  FOTO CHAR(1) CHARACTER SET NONE COLLATE NONE,
  CED CHAR(1) CHARACTER SET NONE COLLATE NONE,
  TITULOS CHAR(1) CHARACTER SET NONE COLLATE NONE,
  REFERENCIAS CHAR(1) CHARACTER SET NONE COLLATE NONE,
  RP CHAR(1) CHARACTER SET NONE COLLATE NONE,
  EXAM CHAR(1) CHARACTER SET NONE COLLATE NONE)
AS
DECLARE VARIABLE Cedula VARCHAR(20);
DECLARE VARIABLE dd INTEGER;
BEGIN
EXECUTE procedure CONSULTACEDULA(:Cedula) RETURNING_VALUES :dd;
INSERT INTO TADJUNTOSEMPL (ID_EMPLEADOS,HOJADEVIDA,FOTOCARNET,COPIACED,
                           COPIATITULOS,REFERENCIAS,RECORDPOLICIACO,EXAMEMBARAZO)
  VALUES (:dd,:HOJADVIDA,:FOTO,:CEDULA,:TITULOS,:REFERENCIAS,:RP,:EXAM); /* el parametro dd no aparece lo extraño que cuando*/
  SUSPEND;                    /* lo ejecuto me trae parametro ID que no lo he puesto en ningun lado pero si esta en el procedimiento de consulta.*/    
END^

creo que el parametro dd debe ser el que trae el id del retorno del procedimiento de consulta...



Saludos

[Casimiro Notevi]

¿Pero consultacedula devuelve algo?, ¿lo has probado?

[Casimiro Notevi]

Por cierto, le sobra el "dos puntos" a dd
EXECUTE procedure CONSULTACEDULA(:Cedula) RETURNING_VALUES :dd;
EXECUTE procedure CONSULTACEDULA(:Cedula) RETURNING_VALUES dd;

[novato_erick]

Si lo he probado y solamente ejecutando el de consulta no hay problema se me ocurria talvez haciendo esto a ver dime si me equivoco porque tampoco me hace nada:

Código SQL [-]
CREATE PROCEDURE ADJUNTO2(
  ID INTEGER CHARACTER SET NONE COLLATE NONE,
  HOJA_DVIDA CHAR(1) CHARACTER SET NONE COLLATE NONE,
  FOTO CHAR(1) CHARACTER SET NONE COLLATE NONE,
  CED CHAR(1) CHARACTER SET NONE COLLATE NONE,
  TITULOS CHAR(1) CHARACTER SET NONE COLLATE NONE,
  REFERENCIAS CHAR(1) CHARACTER SET NONE COLLATE NONE,
  RP CHAR(1) CHARACTER SET NONE COLLATE NONE,
  EXAM CHAR(1) CHARACTER SET NONE COLLATE NONE)
RETURNS(
  ID_CONSULTA INTEGER)
AS
BEGIN
EXECUTE procedure CONSULTACEDULA(:Cedula) RETURNING_VALUES(:ID_CONSULTA);
  BEGIN
     INSERT INTO TADJUNTOSEMPL (ID_EMPLEADOS,HOJADEVIDA,FOTOCARNET,COPIACED,
                           COPIATITULOS,REFERENCIAS,RECORDPOLICIACO,EXAMEMBARAZO)
  VALUES (:ID_CONSULTA,:HOJA_DVIDA,:FOTO,:CEDULA,:TITULOS,:REFERENCIAS,:RP,:EXAM);
  END
  SUSPEND;
END;

Probe de esa manera pero me manda error.


Saludos

[Casimiro Notevi]

Bastante difícil es poder ayudar sin ver ni tocar, si además dices cosas como esta:

Empezado por novato_erick

Probe de esa manera pero me manda error.

Entonces la ayuda se vuelve casi imposible, ¿qué error?

[novato_erick]

Ok lo deje asi:

Código SQL [-]
CREATE PROCEDURE ADJUNTO(
  ID INTEGER,
  HOJADVIDA CHAR(1) CHARACTER SET NONE COLLATE NONE,
  FOTO CHAR(1) CHARACTER SET NONE COLLATE NONE,
  CED CHAR(1) CHARACTER SET NONE COLLATE NONE,
  TITULOS CHAR(1) CHARACTER SET NONE COLLATE NONE,
  REFERENCIAS CHAR(1) CHARACTER SET NONE COLLATE NONE,
  RP CHAR(1) CHARACTER SET NONE COLLATE NONE,
  EXAM CHAR(1) CHARACTER SET NONE COLLATE NONE)
AS
DECLARE VARIABLE Cedula VARCHAR(20);
DECLARE VARIABLE dd INTEGER;
BEGIN
EXECUTE procedure CONSULTACEDULA(:Cedula) RETURNING_VALUES dd;
INSERT INTO TADJUNTOSEMPL (ID_EMPLEADOS,HOJADEVIDA,FOTOCARNET,COPIACED,
                           COPIATITULOS,REFERENCIAS,RECORDPOLICIACO,EXAMEMBARAZO)
  VALUES (:dd,:HOJADVIDA,:FOTO,:CEDULA,:TITULOS,:REFERENCIAS,:RP,:EXAM);
  SUSPEND;
END^

Pero me manda este error:

Validation error for column ID_EMPLEADOS, value "*** null ***".
At procedure 'ADJUNTO' line: 19, col: 1.

en mi db si existe ese empleado con esa identificacion

pero me manda ese error...

Saludos