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