Firebird Suma 2 valores en un campo autoincrementado en insercion de registro
Estimados Amigos:
Estoy desarrollando un modulo para Agregar, Modificar y Consultar datos de articulos para un kiosco. Trabajo con Delphi 2005 y Firebird 2.0 y IBX Tengo 2 tablas Articulos y Marcas( de Articulos ) ej: A: Chocolate - M: Pepito. la estructura es la sig: Articulos. Articulo_ID, Integer, Autoincrem.(clave primaria) Descripcion, char 50, Precio Double, Marca_ID, integer (Foreign Key) ... Marcas. Marca_ID, Integer, Autoincrem. (clave primaria) Nombre char 50 ... Tengo estos formularios: 1. un datamodule que contiene un control IBDatabase, otro IBTransaction configurado: " read_committed rec_version nowait " y en defaultaction: "TACommitRetaining"., Ademas 2 IBDataset : Articulos y Marcas, donde Marcas tiene las siguientes definiciones en : InsertSQL : "insert into Marcas( Nombre ) Values ( :Nombre )" SelectSQL: "Select * from Marcas" RefreshSQL: "Select * from Marcas" GeneratorField : " Generator : MARCAS_MARCAID_GEN field : MARCA_ID INCREMENT BY : 1 EVENT : ON NEW RECORD; " 2. Formulario para agregar, modificar articulos , que contiene una grilla en la cual presionando un boton se abre otro formulario para ingresar un articulo nuevo. Este formulario tiene controles del tipo TEdit y un boton para grabar. En un control TComboBox selecciono la marca del producto o la agrego mediante un boton, donde se abre otro formulario para agregar la Marca (Nombre solamente), cuando termina de agregar la marca, sigo agregando los datos del articulo.. Pues bien, cuando termino de agregar la marca y se cierra el formulario (de Marcas), me graba el nuevo registro( nombre de la marca ) pero el Marca_ID , que es el campo autoincrementado, en vez de sumar 1 al ultimo, suma 2. el codigo donde grabo los datos en la tabla de Marcas es el siguiente:
Cuando se ejecuta la linea coloreada ya se observa ( con el IBExpert ) el incremento incorrecto. Que puede estar sucediendo ?- Desde ya Muchas Gracias |
¿no habrás creado un trigger before Insert/post ?
Suena exactamente a que el propio ibx incrementa en uno (por decirle que lo haga en el OnNewRecord) y después el servidor, en el trigger, lo vuelve a hacer. PD: podrías usar InsertRecord que sustituye a :
Saludos |
Muchas gracias por contestar.
El trigger esta creado en el servidor, pero tuve que llenar el campo Generatorfield con .
supongo que con este codigo estaria creando un trigger en los IBX, pero me vi obligado pues cuando queria insertar el registro salia un error indicandome que el campo MARCA_ID no podia ser nulo. Ahora bien, cual seria la mejor opcion: Quitar el trigger del servidor, dejando el del IBX, o al reves, pero en este caso como soluciono el mensaje de error (del valor nulo en MARCA_ID); Hay alguna forma mejor de realizar esto ?. desde ya muchas gracias. |
el cuerpo del trigger debería ser así:
El trigger saltará, pero dado que IBX ha llamado internamente a este trigger, el campo marca_id ya tiene un valor, y el trigger no hace nada. Saludos |
Gracias por responder...
El trigger esta creado de la forma que me indicas pues lo he creado con la ayuda del software EMS SQL Manager para IB /fB, te transcribo la declaracion que hace el EMS :
que puede estar sucediendo ?? |
Hasta el momento no me ha sucedido nada parecido.
En mi aplicación tengo exactamente lo mismo que tú (salvo que uso los componentes MDOLIB, que provienen de los IBX). No sabría decirte por qué falla, mis incrementos son consecutivos. Supongo que deshabilitando el Trigger en el servidor, todo funcionará bien, pero si en algún momento usas un sql como este, fallará la inserción:
Saludos |
La franja horaria es GMT +2. Ahora son las 17:19:00. |
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