Crear procedure en Firebird desde delphi

[jourdan]

Hola a todos, alguien sabe si es posible crear o modificar una stored procedure de firebird desde delphi

Tengo algo así:
IF (:iserie = 'G') THEN
BEGIN
RFACTURA_ID = GEN_ID(gen_factura_id_serie_G,1);
END

IF (:iserie = 'A') THEN
BEGIN
RFACTURA_ID = GEN_ID(gen_factura_id_serie_A,1);
END

Pero ahora quiero dar al usuario la opcion de que escoja la serie que puede ser incluisve de 10 caracteres por lo que habria que modificar el procedimiento pero ya desde el programa en ejecucion.

Muchas gracias

[[duilioisola]]

Supongo que se podrá, utilizando un componente para pasar scripts, pero tendrás el problema de que deberás hacer que todos los demás usuarios salgan de la aplicación.

Yo creo que deberías hacer un procedimiento y una tabla auxiliar que te devuelva el siguiete número de una serie

Tabla

Numeros_segun_serie
tipo  serie  numero
'FAC'   'A'        1
'ALB'   'A'        1
'PED'   'A'        1

Código SQL [-]
procedure dame_numero (tipo varchar(3), serie varchar(10)) returns (numero integer)
begin
   numero = null;
   select max(numero) from Numeros_segun_serie
   where tipo=:tipo and serie=:serie
   into :numero;

   if ((numero is null) or (numero=0)) then numero=1;

   update Numeros_segun_serie
   set numero=:numero
   where tipo=:tipo and serie=:serie;
end

[jourdan]

Mucha sgracias, lo que pasa es que es para una aplicacion cliente servidor y el usuario puede escoger la serie de su facturacion entonce stengo que bsucar la forma de que se genere el procedimiento para que este vaya autoincrementando la serie de facturacion automaticamente por determinada serie

[[duilioisola]]

tengo que bsucar la forma de que se genere el procedimiento

Pues no es el enfoque correcto.

Yo tengo una aplicación que trabaja con series. Las series las define el usuario y están en una tabla.
Tengo otra tabla que tiene la serie y un número.

Hago dos cosas:
En los triggers Before Insert verifico si el número es 0 o es nulo.
Si lo es, busco el número siguiente con un procedimiento como el que te he enviado..

En la parte Delphi tengo el método BeforePost del dataset.

Ahí hago algo parecido a esto:

Código Delphi [-]
begin
   if (DataSet.State=dsInsert) then
   begin
      DataSet.FieldByName('NUMERO').AsInteger := DameNumero(DataSet.FieldByName('SERIE'));
   end;
end;

DameNuero es un función que llama al procedimiento de la base que te envié antes.

[jourdan]

Encontre esta información, esta en ingles por si a alguien le sirve:


create InterBase stored procedures in my InterBase database using Delphi

Problem:
Can I create InterBase stored procedures in my InterBase database using Delphi or C++ Builder?

Solution:
*******************************************************
This document refers to:
* InterBase versions 4.X and above.
*******************************************************

Yes, you can create stored procedures via Delphi. You can use the TQuery component to pass the
SQL statements needed to create the stored procedure on the InterBase server. One caveat you
will want to be aware of is that you need to have two colons in front of memory variables instead of
one when you call the stored procedure.

Listed below are steps to create an example of defining stored Procedures via Delphi or C++ Builder:

1. Select File | New Application from the menu.
--This will bring up a new application with a blank form.

2. Click on the button icon on the standard tab of the component
palette.

3. Click on the "Data Access" tab.

4. Click on the Query icon.

5. Hit to bring up the Object Inspector.

6. Set the DatabaseName property to your InterBase alias.

7. Click on the three dots in the space next to the "SQL" property.

8. You can now enter the text of your stored procedure.

9. Type in the text of the stored procedure definition code:

create procedure myproc returns (a integer)
as
begin
a=5;
end

10. After you have entered the code for your stored procedure,
click on the button.

11. Next, you will need to tell Delphi to run your stored
procedure code. To that, do the steps listed below:
a. Click on the button.
b. Hit to bring up the Object Inspector.
c. Click on the Events tab.
d. DoubleClick on the space next to "OnClick"
e. Enter in the following code after the line
with the word 'begin' on it:
query1.execSQL;

12. Push to run the program.

[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.