[Lazarus-es] zeos-firebird: ejemplo transacciones

[Paola Bruccoleri]

Ismael L. Donis García escribió:
> Paola, lo primero que  te recomiendo es que pases la lógica hacia la 
> BD, segundo puedes obtener el valor del generador desde el mismo 
> procedimiento que usas para incrementar el generador y guardarlo en 
> una variable con la cual trabajarías después.
>
> Te pasó un código de ejemplo que yo uso para que tengas una idea.
>
> SET TERM ^ ;
> CREATE PROCEDURE P_NUM_REC (
>    VCH_ENTIDAD Varchar(7),
>    SIN_ALMACEN Smallint )
> RETURNS (
>    INT_NREC Integer )
> AS
> BEGIN
>  /* Actualiza el número de la recepción */
>  select a.no_r from vtaconteo a where ((a.entidad = :vch_entidad) and 
> (a.almacen = :sin_almacen)) into :int_nrec;
>  update vtaconteo set no_r = no_r + 1 where ((vtaconteo.entidad = 
> :vch_entidad) and (vtaconteo.almacen = :sin_almacen));
>  suspend;
> END^
> SET TERM ; ^
>
Hola Ismael..

como obtengo desde el programa ese numero int_nrec? con el 
parambyname('init_nrec').asinteger?
chauuuuuuuuuuuu