This code add 9 extra lines to error lines:
METHOD SemaforoOn( lTry ) BLOCK <|Self,lTry|
LOCAL lReturn := .T.
IF Empty( lTry )
WHILE ! (::cAliParEje)->(
lLockRecord(, {|| .F. } ) )
ENDDO
ELSEIF ! (::cAliParEje)->( lLockRecord(
, {|| .F. } ) )
lReturn := .F.
ENDIF
RETURN lReturn
>
Best regards,
Miguel Angel Marchuet
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4442 (20090921) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
------------------------------------------------------------------------------
Come build with us! The BlackBerry® Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9-12, 2009. Register now!
http://p.sf.net/sfu/devconf
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers