Crear procedure en Firebird desde delphi

[jourdan]

duilioisola, muchas gracias por la información, lo voy a intentar hacer de esta forma.
Una pregunta, no hast tenido problemas si dos usuarios hacen una factura al mismo timepo, etc. hace tiempo lei que por eso era importante que els ervidor controlara los incrementos para no tener bloqueos, etc.
Que tengas un excelente día

[[duilioisola]]

no hast tenido problemas si dos usuarios hacen una factura al mismo timepo

Pues no...
Lo que debes hacer es poner el código que busca el último numero de factura según la serie en el evento BeforePost del DataSet, como el ejemplo que te he dado anteriormente.

Este evento se ejecuta justo antes de grabar los datos. Debe ser rápido.

Mientras el usuario está metiendo los datos de la factura (cliente, fecha, forma de pago, etc.) otros usuarios pueden estar haciendo lo mismo. El estado del DataSet es dsInsert, pero todavía no está en la base.

Justo en el momento en que ejecutan el Post es donde abro una transacción, ejecuto el query que me da el número de factura y cierro la transacción. Esto solo toma una fracción de segundo, por lo que es casi imposible que otro usuario ejecute el post en ese mismo momento.

Nunca he tenido un error con esta forma de proceder.

De todos modos, si algún día hago un sistema en el que se entran 100 facturas (ofertas, pedidos o lo que sea) por minuto, me lo pensaré un poco mejor. Aunque esto creo que no existe.

Ten en cuenta que además de todo esto, tienes las series, por lo que tiene que darse el caso de que durante la fracción de segundo que tarda en traer el número de factura siguiente, otro usuario tiene que hacer el post con una factura de la misma serie.

Finalmente, debes contar con las PKs (Primary Keys). Estas evitarán que metas dos veces la misma factura. Por lo que el primero que hiciera el post, se quedaría con el número y el seguno obtendría un error. Si el error es de PK, vuelves a pedir un número.

Saludos

[jourdan]

duilio, muchas gracias, estoy intentando recrear lo que me dices pero ya me atore en el trigger de Before Insert
Me imagino que el codigo del trigger before insert debe de quedar algo asi:


BEGIN
IF (NEW.numero IS NULL) THEN
NEW.numero = procedure(tipo, serie);
END

Por como paso esos valoras al trigger?

nuevamente gracias

[jourdan]

Abusando d etu amabilidad, me podrias decir en que parte incrementas el folio
Muchas gracias

[rastafarey]

Yo no te voy responder tu pregunta aunque si se puede hacer. Mas no se deberia alterar la estructura de la base de datos. A menos que estes haciendo una aplicacion tipo ib-expert. De lo contrario si es uan base de datos final jamas deberias modificar su estructura desde tu aplicacion. Si no estas creando un aaplicacion tipo ib-expert y tu aplicacion necesita alterar la estructura de la bd entonces debes tener un error en el diseño de la base datos.