Ver Mensaje Individual
  #1  
Antiguo 28-06-2006
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Reputación: 24
BlueSteel Va por buen camino
Manejo de Exception

Hola.. estube revisando algunos ejemplos.. para poder crear unas store procedure... y encontre esto en el manual de interbase..

Código SQL [-]
CREATE PROCEDURE ADD_EMP_PROJ (EMP_NO SMALLINT, PROJ_ID CHAR(5))
AS
BEGIN
BEGIN
INSERT INTO EMPLOYEE_PROJECT (EMP_NO, PROJ_ID)
VALUES (:EMP_NO, :PROJ_ID);
WHEN SQLCODE -530 DO
EXCEPTION UNKNOWN_EMP_ID;
END
SUSPEND;
END

ahora tengo una duda con las siguientes lineas
WHEN SQLCODE -530 DO
EXCEPTION UNKNOWN_EMP_ID;


el procedimiento que hice es el siguiente

Código SQL [-]
CREATE PROCEDURE AGREGAR_CARGO (
    VORD_NUMERO VARCHAR(5) CHARACTER SET NONE,
    VCEN_CODIGO VARCHAR(4) CHARACTER SET NONE,
    VCAR_MONTO FLOAT,
    VCAR_OBSERVACION BLOB SUB_TYPE 0 SEGMENT SIZE 80)
AS
begin
   begin
        Insert into "Cargos" ("Ord_Numero", "Cen_Codigo", "Car_Monto", "Car_Observacion")
        values (:vord_numero, :vcen_codigo, :vcar_monto, :vcar_observacion);
   end;
   suspend;
end

si bien lo he probado en el IBExpert.. me funciona bien.. pero me gustaria saber como le agrego una exception... y como tendria que ser..
__________________
BlueSteel

Última edición por BlueSteel fecha: 28-06-2006 a las 16:27:34.
Responder Con Cita