Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-06-2008
Avatar de Zakio14
Zakio14 Zakio14 is offline
Miembro
 
Registrado: feb 2008
Ubicación: Costa Rica
Posts: 22
Poder: 0
Zakio14 Va por buen camino
Funcion de autoincremento

Pura vida foreros!!

Trabajo con firebird
Tabla: Factura
Campo: ID_factura(llave primaria)

Mi consulta es esta:
Quiero crear una función que me cree automáticamente el ID_factura en la Tabla

Por ejemplo cada ves que yo guarde en la Tabla, llamar esta función para que autoincremente el ID_factura sin repetirlo por ser una llave primaria

He buscado durante un buen rato en google he escudriñado aquí también pero no encuentro nada… me encantarían que me ayuden con este problemita…

Desde Costa Rica un Aprendiz les Agradece
Pura vida foreros!!

Trabajo con firebird
Tabla: Factura
Campo: ID_factura(llave primaria)

Mi consulta es esta:
Quiero crear una función que me cree automáticamente el ID_factura en la Tabla

Por ejemplo cada ves que yo guarde en la Tabla, llamar esta función para que autoincremente el ID_factura sin repetirlo por ser una llave primaria

He buscado durante un buen rato en google he escudriñado aquí también no se si he buscado lo suficiente pero no encuentro nada… me encantarían que me ayuden con este problemita…

Desde Costa Rica un Aprendiz les Agradece

Última edición por Zakio14 fecha: 09-06-2008 a las 05:17:13.
Responder Con Cita
  #2  
Antiguo 09-06-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
Lo que tu estás buscando se consigue con un generador y un trigger:

Un ejemplo de un generador:
Código SQL [-]
CREATE GENERATOR EMP_NO_GEN;

Un generador pemite llevar ese incremento. Y puede, si se desea, indicarle un valor inicial:
Código SQL [-]
SET GENERATOR EMP_NO_GEN TO 145;

En el ejemplo vale 145.

Y un ejemplo de un trigger:

Código SQL [-]
CREATE TRIGGER SET_EMP_NO FOR EMPLOYEE
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
    /* FIXED by helebor 19.01.2004 */
    if (new.emp_no is null) then
    new.emp_no = gen_id(emp_no_gen, 1);
END
La función gen_id() recibe como parámetro un generador y un valor de incremento. En este caso de 1.

El disparador (Trigger) se dispara antes de insertar (en este ejemplo). En tu caso debe ser AFTER INSERT.

Entonces, antes de insertar en la tabla, se dispara el trigger, llama a la función gen_id() con el generador en cuestión. Al final del proceso, el valor obtenido es 146.

Los ejemplos que te pasee fueron extraídos de la DB de ejemplo EMPLOYEE que acompaña a la instalación de Firebird.

Sería bueno ahora darte una pequeña advertencia: el uso de los generadores violan el concepto de transaccionalidad. Es decir que si en una transacción se ejecutan dichos procesos, un rollback no volverá el valor hacia atrás.

Deberás analizar efectivamente si el uso de los generadores es que estás buscando. Puesto que también hay otras maneras de conseguir este efecto.

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
  #3  
Antiguo 09-06-2008
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Poder: 29
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
¡Hola!

Además de la estupenda recomendación de Marcelo, recomiendo que tomes muy en cuenta estos dos mensajes sobre llaves primarias que escribí hace tiempo:

http://www.clubdelphi.com/foros/show...3&postcount=14

http://www.clubdelphi.com/foros/show...66&postcount=2

Saludos.

Al González.
Responder Con Cita
  #4  
Antiguo 09-06-2008
Avatar de Zakio14
Zakio14 Zakio14 is offline
Miembro
 
Registrado: feb 2008
Ubicación: Costa Rica
Posts: 22
Poder: 0
Zakio14 Va por buen camino
gracias por su ayuda es muy Enriquecedora para mi!!

Al Rodriguez
Estube viendo tu ejemplo que dejaste en el enlase y diculpa mi ingnorancia soy nuevo y tengo poca experiencia me pueden decir donde pongo esto

Código SQL [-]
CREATE PROCEDURE SPIDGENERAL 
RETURNS (
    ID INTEGER)
AS
BEGIN
  ID = Gen_ID (GNGENERAL, 1);
END
Responder Con Cita
  #5  
Antiguo 09-06-2008
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
Cita:
Empezado por Al González Ver Mensaje
¡Hola!

Además de la estupenda recomendación de Marcelo, recomiendo que tomes muy en cuenta estos dos mensajes sobre llaves primarias que escribí hace tiempo:

http://www.clubdelphi.com/foros/show...3&postcount=14

http://www.clubdelphi.com/foros/show...66&postcount=2

Saludos.

Al González.
Pues precisamente amigo a dichos comentarios me refiería con alternativas.

Por ello el tema de las facturas es, como he leído en otros hilos, un tema peliaduro (o algo así... no recuerdo la palabra exacta). Y debo admitir que a mi cada vez que se me pasa por la cabeza esos ejemplos (ese constante ejercicio que hago a diario) de facturas o algo similar se me plantean otra vez que es bueno hacer, que es malo...
En fin, al final se trata de un análisis de la situación y del dominio.
Por ello a mi me gusta apegarme a la regla: análisis primero, código después.

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Problema con autoincremento!! magnu9 Conexión con bases de datos 4 08-11-2006 00:10:34
Campo autoincremento en FB Phacko Firebird e Interbase 1 02-08-2005 20:29:12
campo autoincremento para tabla con ADO VRO Conexión con bases de datos 2 06-06-2005 12:01:06
Autoincremento Alex2000 Firebird e Interbase 1 10-05-2005 19:22:42
Problemas en Campos de Autoincremento edum Conexión con bases de datos 7 21-09-2004 05:54:22


La franja horaria es GMT +2. Ahora son las 19:48:02.


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