<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18975">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>Gestiona los consecutivos en el servidor.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Te paso un ejemplo con Firebird</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>SET TERM ^ ;<BR>CREATE PROCEDURE P_NUM_REC
(<BR> VCH_ENTIDAD VARCHAR(7),<BR>
SIN_ALMACEN SMALLINT )<BR>RETURNS (<BR> INT_NREC INTEGER
)<BR>AS<BR>BEGIN<BR> /* Actualiza el número de la recepción */<BR>
select a.no_r from vtaconteo a where ((a.entidad = :vch_entidad) and (a.almacen
= :sin_almacen)) into :int_nrec;<BR> update vtaconteo set no_r = no_r + 1
where ((vtaconteo.entidad = :vch_entidad) and (vtaconteo.almacen =
:sin_almacen));<BR> suspend;<BR>END^<BR>SET TERM ; ^</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Saludos Cordiales</FONT></DIV>
<DIV>=========<BR>|| ISMAEL ||<BR>=========</DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=davidenamorado@gmail.com href="mailto:davidenamorado@gmail.com">David
Enamorado</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, May 11, 2011 3:07
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [Lazarus-es] consecutivos</DIV>
<DIV><BR></DIV>
<P style="TEXT-ALIGN: justify; MARGIN: 0cm 0cm 10pt" class=MsoNormal><FONT
size=3 face=Calibri>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 <SPAN
style="mso-spacerun: yes"> </SPAN>la factura el consecutivo se me
duplica, <SPAN style="mso-spacerun: yes"> </SPAN>pues leen el valor al
mismo tiempo en la tabla consecutivos. ¿ Alguna idea como franquear este
problema?</FONT></P><BR clear=all>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>