[Lazarus-es] consecutivos

[Ismael L. Donis García]

Gestiona los consecutivos en el servidor.

Te paso un ejemplo con Firebird

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 ; ^

Saludos Cordiales
=========
|| ISMAEL ||
=========
  ----- Original Message ----- 
  From: David Enamorado 
  To: lazarus-es en lists.lazarus.freepascal.org 
  Sent: Wednesday, May 11, 2011 3:07 PM
  Subject: [Lazarus-es] consecutivos


  Hola chicos, estoy escribiendo un aplicación que funcionara en red con varios usuarios concurrentes, ahora tengo un inconveniente y es que al momento de generar  la factura el consecutivo se me duplica,  pues leen el valor al mismo tiempo en la tabla consecutivos. ¿ Alguna idea como franquear este problema?





------------------------------------------------------------------------------


  _______________________________________________
  Lazarus-es mailing list
  Lazarus-es en lists.lazarus.freepascal.org
  http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110511/eecd96aa/attachment-0002.html>