Procedimiento almacenado interbase

[adrian_]

Hola

Tengo el siguiente procedimiento almacenado que funciona bien en desarrollo pero en producción no funciona y hace rollback espero puedan ayudarme, el procedimiento recibe una serie de parámetros que son obtenidos desde delphi

Código SQL:

CREATE PROCEDURE CR_IMPORTA_CS (
    ID_CLIENTE INTEGER,
    ID_PROMOTOR INTEGER,
    ID_PRODUCTO INTEGER,
    NO_TARJETA VARCHAR (20),
    TITULAR VARCHAR (100),
    TELEFONO_DOM VARCHAR (20),
    TELEFONO_TRB VARCHAR (20),
    CELULAR VARCHAR (20),
    EMAIL VARCHAR (60),
    ENTIDAD VARCHAR (30),
    MUNICIPIO VARCHAR (60),
    COLONIA VARCHAR (60),
    CALLE VARCHAR (100),
    CP VARCHAR (5),
    PROCESADO TIMESTAMP,
    INI_VIGENCIA TIMESTAMP,
    FIN_VIGENCIA TIMESTAMP,
    COSTO INTEGER)
RETURNS (
    PCODIGO INTEGER,
    PMENSAJE VARCHAR (50))
AS
  DECLARE VARIABLE EXISTE_VENTA INTEGER;
BEGIN
 
  PCODIGO=0;
  PMENSAJE='';
 
        INSERT INTO CR_CLIENTES(
              ID_CLIENTE,
              ID_PROMOTOR,
              ID_PRODUCTO,
              NO_TARJETA,
              TITULAR,
              TELEFONO_DOM,
              TELEFONO_TRB,
              CELULAR,
              EMAIL,
              ENTIDAD,
              MUNICIPIO,
              COLONIA,
              CALLE,
              CP,
              PROCESADO,
              INI_VIGENCIA,
              FIN_VIGENCIA,
              COSTO)
       VALUES(
              :id_cliente,
              :id_promotor,
              :id_producto,
              :no_tarjeta,
              :titular,
              :telefono_dom,
              :telefono_trb,
              :celular,
              :email,
              :entidad,
              :municipio,
              :colonia,
              :calle,
              :cp,
              :procesado,
              :ini_vigencia,
              :fin_vigencia,
              :costo);
  WHEN ANY DO BEGIN
       PCODIGO = 1;
       PMENSAJE = 'ERROR AL INSERTA LA VENTA';
       EXIT;
  END
  /*SUSPEND;*/
  /*END*/
END
 

[Libras]

y el error es???

[adrian_]

El error es que no lo hace, cuando corro el programa linea por linea entra a rollback y no realiza la inserción no encuentro la causa, ya me esta poniendo de malas esta cosa.