oziel Posted January 27, 2012 Report Share Posted January 27, 2012 Colegas. Faço essa pesquisa com várias variaveis e só consegui com o SET FILTER, mais na rede fica bem lenta, demora de 08 seg em diante, na maq. local é instantânea. Outras pesquisas que fiz no prog. com datas fiz com OrdScope() e ficou perfeita. Filtro com 05 variaveis: Intervalo entre IdadeA e IdadeB - Sexo - Grau - Area Alguem tem alguma dica. Vejam: // Criando arquivo temporario Hora = Time() Hora_Rand = Space(6) Hora_Rand = Subst(Hora,1,2)+Subst(Hora,4,2)+Subst(Hora,7,2) CL = "CL"+LTRIM(Subst(Hora_Rand,1,6)) // arq. temporario. //---------------------------------------------------------- Sele Cadastro Index on Nome+Idade TAG CADIDADE to ".\temp\&CL" While Idade <= oIdade2 // oIdade = Caracteres Sele Cadastro Set Index to ".\temp\&CL" // arq. temp. DbGotop() oIdadeA = 0 oIdadeB = 0 oIdadeA = Val(oIdade1)-1 // oIdadeB = Val(oIdade2)+1 Set Filter to Idade > str(oIdadeA,2) .and. Idade < str(oIdadeB,2) .and. Sexo = cSexo .and. Grau = cGrau .and. Area = cArea //---------------------------------------------------------- OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Editado por - oziel on 31/01/2012 18:23:20 Quote Link to comment Share on other sites More sharing options...
oziel Posted January 27, 2012 Author Report Share Posted January 27, 2012 Colegas. Faço essa pesquisa com várias variaveis e só consegui com o SET FILTER, mais na rede fica bem lenta, demora de 08 seg em diante, na maq. local é instantânea. Outras pesquisas que fiz no prog. com datas fiz com OrdScope() e ficou perfeita. Filtro com 05 variaveis: Intervalo entre IdadeA e IdadeB - Sexo - Grau - Area Alguem tem alguma dica. Vejam: // Criando arquivo temporario Hora = Time() Hora_Rand = Space(6) Hora_Rand = Subst(Hora,1,2)+Subst(Hora,4,2)+Subst(Hora,7,2) CL = "CL"+LTRIM(Subst(Hora_Rand,1,6)) // arq. temporario. //---------------------------------------------------------- Sele Cadastro Index on Nome+Idade TAG CADIDADE to ".\temp\&CL" While Idade <= oIdade2 // oIdade = Caracteres Sele Cadastro Set Index to ".\temp\&CL" // arq. temp. DbGotop() oIdadeA = 0 oIdadeB = 0 oIdadeA = Val(oIdade1)-1 // oIdadeB = Val(oIdade2)+1 Set Filter to Idade > str(oIdadeA,2) .and. Idade < str(oIdadeB,2) .and. Sexo = cSexo .and. Grau = cGrau .and. Area = cArea //---------------------------------------------------------- OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Editado por - oziel on 31/01/2012 18:23:20 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 30, 2012 Report Share Posted January 30, 2012 USE ORDSCOPE() João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
oziel Posted January 31, 2012 Author Report Share Posted January 31, 2012 Na condição abaixo o OrdScope() seleciona o intervalo das Idades A e B - mais não consegui resultados com os outros filros exemplo: Sexo = M - Grau = 2 - Area = Vendas. //------------------------------------ Cadastro->(DbSetOrder(4)) Cadastro->(DbGoTop()) Cadastro->(OrdScope(0,str(oIdadeA,2))) Cadastro->(OrdScope(1,str(oIdadeB,2))) //------------------------------------ Tentei. //----------------------------------------------- Cadastro->(OrdScope(0,str(cSexo,1)+str(cGrau,1)+(str(oIdadeA,2)))) Cadastro->(OrdScope(1,str(cSexo,1)+str(cGrau,1)+(str(oIdadeB,2)))) //----------------------------------------------- Mais o Browse vem em branco. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 1, 2012 Report Share Posted February 1, 2012 citação:Na condição abaixo o OrdScope() seleciona o intervalo das Idades A e B - mais não consegui resultados com os outros filros exemplo: Sexo = M - Grau = 2 - Area = Vendas. //------------------------------------ Cadastro->(DbSetOrder(4)) Cadastro->(DbGoTop()) Cadastro->(OrdScope(0,str(oIdadeA,2))) Cadastro->(OrdScope(1,str(oIdadeB,2))) //------------------------------------ Tentei. //----------------------------------------------- Cadastro->(OrdScope(0,str(cSexo,1)+str(cGrau,1)+(str(oIdadeA,2)))) Cadastro->(OrdScope(1,str(cSexo,1)+str(cGrau,1)+(str(oIdadeB,2)))) //----------------------------------------------- Mais o Browse vem em branco. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0 FWH 6.12 Free - xHarbour 0.99.71 Simplex - BCC55 - Pelles C - xDev. id=quote>id=quote>BASTA CRIAR INDICES PELO Q VC. DESEJA E SELECIONAR O INDICE DESEJADO E FAZER O ORDSCOPE(). João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 http://pt-br.facebook.com/people/Jo%C3%A3o-Santos/100001195894196 FWH 2.7 - xHARBOUR WorkShop.Exe 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.