xHarbour 1.2.1-6406 de xHarbour.org

[Hasse]

Boa tarde colegas.

Hoje me deparei com outro problema do xHarbour, versão 1.2.1-6406, baixado do site oficial.

Quando há somente um registro que atende ao SET SCOPE ele não aparece na tela. Quando há mais registros tudo está OK.

Quando compilado com a versão 1.0.0-beta o registro é apresentado na tela.

Vejam o código abaixo:

Código: Selecionar todos

...
...
oColuna       := TBCOLUMNNEW("Exa",{||E_EXA})
OTB1:addcolumn(oColuna)
oFieldName[1] := oColuna:heading
oColuna       := TBCOLUMNNEW("  Data",{||E_DATA})
OTB1:addcolumn(oColuna)
oFieldName[2] := oColuna:heading
oColuna       := TBCOLUMNNEW("Usu rio",{||E_USUAR})
OTB1:addcolumn(oColuna)
oFieldName[3] := oColuna:heading
oColuna       := TBCOLUMNNEW("Retirou",{||E_RETIR})
OTB1:addcolumn(oColuna)
oFieldName[4] := oColuna:heading
*
oTB1          := TBrowse():new( 00, 41, 23, 78 )
*
SET SCOPE TO cCod
*
WHILE .T.
   IF ! OTB1:stable                 && Quando o TBROWSE
      oTB1:forceStable()            && estiver estabilizado.
      LOOP
   ELSE
      IF OTB1:colPos() = 1
         OTB1:right()
         LOOP
      ENDIF
      nTecla := INKEY(0)            && Aguarda o pressionamento de uma tecla.
   ENDIF
   IF nTecla ) == 27
      EXIT
   ENDIF
   OTB1:refreshall()
ENDDO
*
SET SCOPE TO
RETURN(.T.)

Algum erro meu ou é BUG

Vou ter que retornar ao 1.0.0-beta ou há alguma forma de contornar o problema ?

[sygecom]

Olá Hasse,
Tente colocar um Dbgotop() logo após ao SET SCOPE

[alaminojunior]

Olá Hasse,
Tente colocar um Dbgotop() logo após ao SET SCOPE

Eu uso muito o Set Scope ... e ainda não aconteceu este problema. Mas é como o Leonardo citou:
Mando o Set Scope To ... e em seguida o DbGoTop().

[Hasse]

Bom dia colegas.

Testei a sugestão, mas, infelizmente, não deu certo.

Aliás, eu já tentei esta solução anteriormente. Também já tentei: (uma de cada vez)

DBGoTop()
Keyboard CHR(24)
Keyboard CHR(5)
e outros do mesmo naipe...

Como vocês podem notar, coloquei um OTB1:RefreshCurrent() no loop inicial, que teoricamente, deveria forçar a apresentação do único registro na tela, que também não deu resultado esperado.

Voltando ao xHarbour 1.0.0-beta, tudo funciona corretamente.

[asimoes]

Hasse,

O projeto xHarbour ficou muito abandonado, quase nenhuma atualização tenho verificado na CVS, olha que eu faço um "CVS ATUALIZAR" a cada 5 dias.
Diante disso eu já passei para o Harbour e estou compatibilizando o que eu fiz em xHarbour em harbour.

Esses erros ficam muito mais difíceis de corrigir se o pessoal que mantém o projeto não os corrige.

[alaminojunior]

Sendo assim, ao invéz de dbgotop(), faça o seguinte:

Código: Selecionar todos

otb1:gotop()

[Hasse]

Salve Alamino.

F U N C I O N O U....................

Obrigado.