Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-05-2006
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Poder: 21
AGAG4 Va por buen camino
Problema con Control de Versiones

Uso Firebird 1.53, estoy empezando a llevar un control de versiones de mis Bases de Datos, es decir, si se realiza algún cambio en la Estructura de estos, voy añadiendo los Script's a 1 archivo de texto para Ejectutarlos en Otras Sucursales donde también vayan a ocupar dicha Modificación, pero tengo el siguiente Problema, ejecuto los Script's dentro del Script EXECUTE del IBEXPERT en la primer línea Ejecuto un Store Procedure para comparar de que Sistema se Trata, la Versión y la Fecha de Versión si la Versión ó la Fecha de Versión es Diferente con la que tiene actualmente la Base de datos se lanza una excepción pero el problema es que se continua con las demás Instrucciones del archivo y es lo que no quiero, pongo un ejemplo del contenido del archivo de texto:
Código SQL [-]
/*Llamamos Versión Actual si se lanza una Excepción DESEARÍA QUE NO CONTINUARÁ HACÍA ABAJO*/

EXECUTE PROCEDURE REVISA_VERSION('FAC',1.010,'20.04.2006') ;
 
/*Actualizamos SISTEMA*/
Update TSISTEMAS set Version = 1.010,Fec_Ver='02.05.2006' where Clave='FAC' ;
 
/*Agregamos Campo en Tabla*/
ALTER TABLE TCOMPUTADORAS
ADD CVEUSUARIO ENTERO_N ;

El Contenido del Procedimiento Almacenado es:
Código SQL [-]
CREATE PROCEDURE REVISA_VERSION(
    SISTEMA VARCHAR(3),
    VERSION_SIS FLOAT,
    FECHA_VERSION DATE)
RETURNS (
    ERROR SMALLINT)
AS
DECLARE VARIABLE XVERSION FLOAT;
DECLARE VARIABLE XFEC_VER DATE;
begin
  Select Version,Fec_Ver from tsistemas
  where
    Clave = : Sistema
  into
    :xVersion ,:xFec_Ver;
  if (:xVersion <> :Version_Sis or :xFec_Ver <> :Fecha_Version) then 
    Exception EX_VERSION_DIFERENTE;
end

Como ven la excepción se lanza y me la muestra pero que tengo que hacer para que se detenga????

Tendré que hacer una aplicación en delphi para cachar dicha Excepción????

Agradezco cualquier sugerencia.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Versiones de Delphi woody Varios 7 22-02-2016 00:19:34
Control de Versiones JorgeBec Varios 1 27-01-2005 04:49:45
Microsoft y sus versiones eduarcol Debates 15 24-01-2004 13:10:50
Control de Versiones cone220 Varios 1 20-01-2004 19:58:01
Control de numeracion de versiones erickperez6 Varios 2 14-05-2003 17:10:28


La franja horaria es GMT +2. Ahora son las 21:43:03.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi