xHarbour 1.2.1-6406 de xHarbour.org
Enviado: 12 Dez 2009 15:00
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:
Algum erro meu ou é BUG 
Vou ter que retornar ao 1.0.0-beta ou há alguma forma de contornar o problema ?
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.)Vou ter que retornar ao 1.0.0-beta ou há alguma forma de contornar o problema ?