Código: Selecionar todos
#include "fivewin.ch"
function main()
for nArea = 1 to 10
dbSelectArea( nArea-1 )
? "Passo 1", nArea-1, Select()
// Obtive 0,1 1,1 2,2 3,3 4,4 5,5 6,6 7,7 8,8 9,9
next
for nArea = 1 to 10
dbSelectArea( 0 )
? "Passo 2", nArea-1, Select()
// Obtive 0,1 1,1 2,1 3,1 4,1 5,1 6,1 7,1 8,1 9,1
next
for nArea = 1 to 10
dbSelectArea( "0" )
? "Passo 3", nArea-1, Select()
// Obtive 0,1 1,1 2,1 3,1 4,1 5,1 6,1 7,1 8,1 9,1
next
return .t.
Ele retornou numeros sequencias no Passo 1 apenas, pois numerei as áreas.Seu teste seguiu isso, porque tem horas que retorna o mesmo número, tem horas que retorna o próximo.
Encontrei isto em https://www.itlnet.net onde fala de SELECT 0 que no nos .CHs é traduzido por dbSelectArea( <(area)> ) sendo assim, existe o bug.USE...NEW: Instead of using SELECT 0 and USE <xcDatabase> to
open a database file in a new work area, the preferred method is to
USE <xcDatabase> NEW.
c:\temp>harbour
Harbour Compiler Alpha build 45.0 (Flex)
Copyright 1999-2005, http://www.harbour-project.org/
Código: Selecionar todos
FUNCTION AbreArquivo( cFile )
SELECT ( Select( cFile ) )
USE
USE ( cFile )
RETURN .T.