Arthur Silvestre Posted October 25, 2012 Report Share Posted October 25, 2012 set order to 3 set softseek on seek tlotaini set softseek off ?lotafun +" "+ matrfun +" "+ nomefun if eof() MsgInfo("Não ha funcionários nesse(s) Departamento(s).","Atenção") Return .f. endif set filter to lotafun>=tlotaini .and. lotafun<=tlotafin go topid=code>id=code>Pessoal esses comandos ai estão chegando no EOF() porém existe registro com o valor da variavel q esta sendo dado o seek, alguem sabe o por que disso ? FWH.11.12 + xHarbour12.1 + Pelles C IDE E-mail:ArthurSilvestreSnt@hotmail.com Editado por - arthursilvestre on 26/10/2012 10:20:23 Quote Link to comment Share on other sites More sharing options...
Arthur Silvestre Posted October 25, 2012 Author Report Share Posted October 25, 2012 set order to 3 set softseek on seek tlotaini set softseek off ?lotafun +" "+ matrfun +" "+ nomefun if eof() MsgInfo("Não ha funcionários nesse(s) Departamento(s).","Atenção") Return .f. endif set filter to lotafun>=tlotaini .and. lotafun<=tlotafin go topid=code>id=code>Pessoal esses comandos ai estão chegando no EOF() porém existe registro com o valor da variavel q esta sendo dado o seek, alguem sabe o por que disso ? FWH.11.12 + xHarbour12.1 + Pelles C IDE E-mail:ArthurSilvestreSnt@hotmail.com Editado por - arthursilvestre on 26/10/2012 10:20:23 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 25, 2012 Report Share Posted October 25, 2012 IF .NOT. FOUND() MsgInfo("Não ha funcionários nesse(s) Departamento(s).","Atenção") id=code>id=code>João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
eevaldo Posted October 25, 2012 Report Share Posted October 25, 2012 ola, troque o set softseek on por dbseek(suavariavel,.t.) Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com Editado por - eevaldo on 25/10/2012 18:03:39 Editado por - eevaldo on 25/10/2012 18:04:13 Quote Link to comment Share on other sites More sharing options...
Arthur Silvestre Posted October 25, 2012 Author Report Share Posted October 25, 2012 infelizmente permanece o erro, tentei das duas maneiras citadas. FWH.11.12 + xHarbour12.1 + Pelles C IDE E-mail:ArthurSilvestreSnt@hotmail.com Quote Link to comment Share on other sites More sharing options...
roberio Posted October 25, 2012 Report Share Posted October 25, 2012 FUN->(DbSetOrder("FUN3")) // ex de onde vem o FUN3: INDEX ON fun->seucampo TAG FUN3 TO FUN Set( 9, "On" ) FUN->(DbSeek(tlotaini)) Set( 9, "Off" ) If FUN->(Eof()) FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX Quote Link to comment Share on other sites More sharing options...
AnaCatacombs Posted October 26, 2012 Report Share Posted October 26, 2012 Essa variavel é de qual tipo? Como está a ordem 3 desse arquivo? Quote Link to comment Share on other sites More sharing options...
lecojales Posted October 26, 2012 Report Share Posted October 26, 2012 Experimente ver o conteúdo do indice com Indexkey() As vezes você acha que está em uma ordem, mas na verdade está outra. Leco citação: set order to 3 set softseek on seek tlotaini set softseek off ?lotafun +" "+ matrfun +" "+ nomefun if eof() MsgInfo("Não ha funcionários nesse(s) Departamento(s).","Atenção") Return .f. endif set filter to lotafun>=tlotaini .and. lotafun<=tlotafin go topid=code>id=code>Pessoal esses comandos ai estão chegando no EOF() porém existe registro com o valor da variavel q esta sendo dado o seek, alguem sabe o por que disso ? FWH.11.12 + xHarbour12.1 + Pelles C IDE E-mail:ArthurSilvestreSnt@hotmail.com id=quote>id=quote>Five PPC Harbour 1.0.1 - 1999-2008 Quote Link to comment Share on other sites More sharing options...
AnaCatacombs Posted October 26, 2012 Report Share Posted October 26, 2012 Pelo pouco que consegui visualizar do erro, não parece ser com softseek. Se o registro existe no banco, o problema é com o seek e/ou com a ordem. Quote Link to comment Share on other sites More sharing options...
jfaguiar Posted October 26, 2012 Report Share Posted October 26, 2012 Utilizando algum utilitário de dbf,faça o seguinte: 1 Exporte os dados dessa tabela (append from) para outra tabela, com o indice fechado. 2 Exclua a tabela com pau 3 Renomeie a tabela para onde vc exportou os dados para o nome da tabela que estava com pau. Isto provalvelmente resolverá, pois ao que parece a sua tabela está com uma quebra no meio. Boa sorte Quote Link to comment Share on other sites More sharing options...
Arthur Silvestre Posted October 26, 2012 Author Report Share Posted October 26, 2012 valeu lecojales Estava com uma ordem errada, desculpa pessoal ter atrapalhado vocês. FWH.11.12 + xHarbour12.1 + Pelles C IDE E-mail:ArthurSilvestreSnt@hotmail.com Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.