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&reg; 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&#45;12, 2009. Register now&#33;
http://p.sf.net/sfu/devconf
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers

Reply via email to