Hi Viktor,
There is an other issue also in the ttable.prg:
missing an EXIT statement of the SWITCH structure in the method Undo.
METHOD Undo( nBuffer, nLevel ) CLASS HBTable
...
SWITCH nBuffer
CASE _DELETE_BUFFER
IF !EMPTY( ::DeleteBuffers )
SET( _SET_DELETED, .F. ) // make deleted records visible
temporarily...
nLen := LEN( ::deleteBuffers )
DEFAULT nLevel TO nLen
IF nLevel == 0 .OR. nLevel == nLen // DO ALL...
FOR EACH aBuffers IN ::deleteBuffers
( ::Alias )->( DBGOTO( aBuffers[ 1 ] ) )
IF ( ::Alias )->( NetRecall() )
lRet := .T.
ELSE
lRet := .F.
ENDIF
NEXT
IF lRet
::deleteBuffers := {}
ENDIF
ELSE // DO CONTROLLED...
FOR EACH aBuffers IN ::deleteBuffers
IF aBuffers:__EnumIndex() > ( nLen - nLevel )
( ::Alias )->( DBGOTO( aBuffers[ 1 ] ) )
IF ( ::Alias )->( NetRecall() )
lRet := .T.
ELSE
lRet := .F.
ENDIF
ENDIF
NEXT
IF lRet
ASIZE( ::deleteBuffers, ( nLen - nLevel ) )
ENDIF
ENDIF
SET( _SET_DELETED, lDelState )
ENDIF
EXIT // added here
CASE _WRITE_BUFFER
...
Can you fix it after revising, of course?
--
Kind Regards,
Grigory Filatov
vszakats wrote:
>
> Revision: 11386
>
> http://harbour-project.svn.sourceforge.net/harbour-project/?rev=11386&view=rev
> Author: vszakats
> Date: 2009-06-16 13:43:07 +0000 (Tue, 16 Jun 2009)
>
> Log Message:
> -----------
> 2009-06-16 15:42 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
> * contrib/xhb/ttable.prg
> ! Typo fixed. Reported by newsgroup user.
>
> Modified Paths:
> --------------
> trunk/harbour/ChangeLog
> trunk/harbour/contrib/xhb/ttable.prg
>
>
--
View this message in context:
http://www.nabble.com/SF.net-SVN%3A-harbour-project%3A-11386--trunk-harbour-tp24054672p24055621.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
