lentidÃ£o rede

nardeypm · May 23, 2013

mencionaram usar ads com dbf, mas nÃ£o consegui localizar no forum como utilizar e o que eu preciso para implantar isso. essa lentidÃ£o tÃ¡ me tirando do sÃ©rio. se alguem puder me direcionar, agradeÃ§o.

Luiz Fernando · May 23, 2013

mencionaram usar ads com dbf, mas nÃ£o consegui localizar no forum como utilizar e o que eu preciso para implantar isso. essa lentidÃ£o tÃ¡ me tirando do sÃ©rio. se alguem puder me direcionar, agradeÃ§o.

Tb nÃ£o consegui localizar os topico, e nem os exemplos postado pelo Giovany Vecchi, no link abaixo segue a LIB do Giovany com os fonte, e tem inclusive um Help criado por ele...

embora o Gilmer mencionou acima que nÃ£o tem que mudar nada no codigo, aqui so obtive sucesso depois que passei a usar comandos nativos do ADS , tipo no lugar do set filter, usar ADSSETAOF() entre outros detalhe que vc ira ver no manual criado pelo Giovany que esta no link abaixo...

http://www.4shared.com/rar/qSiCOBae/xAds.html

AbraÃ§os

Luiz Fernando

marcioe · May 24, 2013

amigo de boa de for para voce mudar de RDD, jÃ¡ mude para MYSQL ou outro banco de dados SQL.

Pois pelo visto terÃ¡ que mudar comandos, se for assim jÃ¡ mude para SQL de uma vez que acaba seu sofrimento....

nardeypm · May 24, 2013

OlÃ¡,

FaÃ§a um teste e retire o

#xcommand @ <nRow>,<nCol> SAY <cText> OF <oPrinter> => <oPrinter>:Say(<nRow>, <nCol>, <cText> )

vou testar e dou retorno.....

Ariston Santos · May 25, 2013

OlÃ¡, amigo.

Vejo que vocÃª usa algumas funÃ§Ãµes do meu "Pacote Fivewin". Por isso, resolvi entrar nessa.

1Âº - NÃ£o estou mais indexando mostrando um "progress bar" para todo o processos de indexaÃ§Ã£o. Para indexar mais rÃ¡pido, funÃ§Ã£o BuildIndex() mudou para:

FUNCTION BuildIndex( oMeter, oText, oDlg, lEnd, campo, bolsa )
   LOCAL a_Filds := dbstruct()
   oDlg:lHelpIcon := .f.
   nScan := ASCAN(a_Filds, {|nCel|ALIAS()+"->"+nCel[1] = campo})
   IF nScan = 0
      nScan := ASCAN(a_Filds, {|nCel|nCel[1] $ campo})
      IF nScan = 0
         RETURN NIL
      ENDIF
   ENDIF
   oMeter:nTotal = RecCount()
   OrdSetFocus(0)
   oMeter:Set( (RecCount() / 10) * 9 ) // Pulo logo para 90%
   oMeter:Refresh()
   INDEX ON &(Campo) TAG &(Bolsa) TO &(ALIAS()) // Crio o Ãndice sem atualizar o Meter
   oMeter:Set( RecCount() ) // Pulo direto para 100%
   oMeter:Refresh()
   SysWait(0.1) // Espero 0.1 segundo sÃ³ para mostrar o oMeter concluÃdo. Isso Ã© desnecessÃ¡rio.
RETURN NIL

2Âº - NÃ£o uso mais SET FILTER para selecionar dados ao gerar relatÃ³rios. Em vez disso uso Ãndice temporÃ¡rio, no PC local, com a tag WHILE. Por exemplo, se eu pretendo gerar um relatÃ³rio de vendas, por perÃodo, mesmo que o DBF tenha milhares de registros, consigo "filtrar" os dados de um perÃodo curto - uma semana, por exemplo - em menos de um segundo, O exemplo abaixo mostra como faÃ§o o "filtro".

      // Criar um arquivo temporÃ¡rio Ãºnico para Ãndice no PC local
      cTmpName := ""
      nFile := 1
      cPasta := CurDrive()+":\"+GetCurDir()+"\DADOS"
      WHILE .T.
         cTmpName := cPasta+"\VNDTMP"+STRZERO(nFile,2)+".CDX"
         FERASE(cTmpName)
         if ! file(cTmpName)
            EXIT
         endif
         nFile ++
      END
      cTmpName := "VNDTMP"+STRZERO(nFile,2)

      SET SOFTSEEK ON // Preciso localizar o valor mais proximo, nÃ£o o exeto.
      SELECT 2 // DBF vendas
      VENDAS->(DBSETORDER(3)) // Ordem por DATA
      VENDAS->(DBSEEK(dIni)) // Localizo a data inicial (dIni) ou a mais prÃ³xima
      // Crio o indice temporÃ¡rio
      INDEX ON VENDAS->DATAMOV TAG DATAS TO &(cTmpName) WHILE( VENDAS->DATAMOV >= dIni .AND. VENDAS->DATAMOV <= dFim )
      ordListClear()
      OrdListAdd(cTmpName, "VNDTMP01")
      SET SOFTSEEK OFF // Desligo o SOFTSEEK para que os prÃ³ximos DBSEEKs localizem apenas valores exatos

      // SET FILTER TO VENDAS->... (Isso nÃ£o existe mais.)
      VENDAS->(DBGOTOP())
      WHILE ! VENDAS->(EOF())
         // ImpressÃ£o do relatÃ³rio ...
         VENDAS->(DBSKIP())
      END
      // Fecho e Reabrir VENDAS com os Ãndices corretos
      SELECT 2
      CLOSE VENDAS
      SysWait(0.2) // Isso Ã© sÃ³ pra dar um tempinho para o PC "pensar". DesnecessÃ¡rio.
      SELECT 2
      USE VENDAS SHARED
      ordListClear()
      OrdListAdd("VENDAS", "VENDCODI", "VENDCLIE", "VENDDATA", "VENDNCNT", "VENDPLAC", "VENDNCLI", "VENDNCCF")

Seguindo as idÃ©ias acima, mesmo com DBF muito grandes (300 mil registros), os relatÃ³rios sÃ£o muito rÃ¡pidos.

No entanto, vale ressaltar que, devido a fragilidade do DBF, tambÃ©m jÃ¡ estou migrando para banco de dados relacional. Optei pelo Firebird com SQLRDD, visto que atÃ© o BANCO DO BRASIL usa este.

mkyx · June 3, 2013

^{NÃ£o sei se demorei para postar, mas SET FILTER TO , deixar o sistema muito lento, no CLIPPER Ã© uma beleza, mas no FIVEWIN, nunca deve ser usado.}

Arthur Silvestre · June 3, 2013

Como disse, peguei esta rotina aqui mesmo no forum, talvez possso lhe ajudar, faÃ§a o teste:

*--( Grava no registro do windows instruÃ§Ã£o para agilizar gravaÃ§Ã£o em rede )--*

Function TurbinaRede()

local oReg

oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" )

oReg:Set("EnableOplocks", "00000000")

oReg:Set("CachedOpenLimit", "00000000")

oReg:Set("Autodisconnect", "ffffffff")

oReg:Set("EnableOplockForceClose", "00000001")

oReg:Set("MaxKeepSearch", "000000b4")

oReg:Set("MinKeepSearch", "0000000a")

oReg:Set("ScavTimeout", "0000000a")

oReg:Set("ThreadPriority", "00000002")

oReg:Close()

*

If MsgYesNo("Ã‰ NecessÃ¡rio Reiniciar o Computador"+CRLF+"Deseja Reiniciar Agora?","Reiniciar")

oWndMain:End()

WinExec( "ShutDown -s" )

End

*

RETURN NIL

* -------------------- *

AlguÃ©m jÃ¡ testou isso aqui? VocÃª jÃ¡ testou Rone?

Theotokos · June 3, 2013

AlguÃ©m jÃ¡ testou isso aqui? VocÃª jÃ¡ testou Rone?

eu uso esta rotina, e realmente melhorou no meu caso... o problema que eu tinha Ã© que mesmo uma abertura simples do arquivo em um terminal, a abertura ficava lenta (simples browse) ai com esta rotina acabou o problema.

Arthur Silvestre · June 4, 2013

eu uso esta rotina, e realmente melhorou no meu caso... o problema que eu tinha Ã© que mesmo uma abertura simples do arquivo em um terminal, a abertura ficava lenta (simples browse) ai com esta rotina acabou o problema.

Obrigado, vou experimentar.

MatheusFarias · June 4, 2013

Usa um arquivo de controle para controlar esses benditos indices , como um ChecaServidor.txt , se ele existir no disco C: ( Local ) essa maquina serÃ¡ o servidor , muito mais pratico so acho

nardeypm · June 5, 2013

vagner, on 23 May 2013 - 07:40, said:

OlÃ¡,

FaÃ§a um teste e retire o

#xcommand @ <nRow>,<nCol> SAY <cText> OF <oPrinter> => <oPrinter>:Say(<nRow>, <nCol>, <cText> )

Theotokos, on 22 May 2013 - 07:25, said:

Como disse, peguei esta rotina aqui mesmo no forum, talvez possso lhe ajudar, faÃ§a o teste:

*--( Grava no registro do windows instruÃ§Ã£o para agilizar gravaÃ§Ã£o em rede )--*

Function TurbinaRede()

local oReg

oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" )

oReg:Set("EnableOplocks", "00000000")

oReg:Set("CachedOpenLimit", "00000000")

oReg:Set("Autodisconnect", "ffffffff")

oReg:Set("EnableOplockForceClose", "00000001")

oReg:Set("MaxKeepSearch", "000000b4")

oReg:Set("MinKeepSearch", "0000000a")

oReg:Set("ScavTimeout", "0000000a")

oReg:Set("ThreadPriority", "00000002")

oReg:Close()

*

If MsgYesNo("Ã‰ NecessÃ¡rio Reiniciar o Computador"+CRLF+"Deseja Reiniciar Agora?","Reiniciar")

oWndMain:End()

WinExec( "ShutDown -s" )

End

*

RETURN NIL

* -------------------- *

parece que ambas sugestÃµes determinaram o aumento da performance dos dbf's.

A sugestÃ£o de alteraÃ§Ã£o da funÃ§Ã£o BuildIndex() tb foi introduzida no sistema e acelerou muito o processo de indexaÃ§Ã£o.

Acredito que seja a soluÃ§Ã£o para o meu problema de lentidÃ£o e provavelmente de outros tb.

De forma geral, aproveitei tudo que foi sugerido pelos colegas.

Grato a todos.

Sign In

lentidÃ£o rede

Recommended Posts

nardeypm

Link to comment

Share on other sites

Luiz Fernando

Link to comment

Share on other sites

marcioe

Link to comment

Share on other sites

nardeypm

Link to comment

Share on other sites

Ariston Santos

Link to comment

Share on other sites

mkyx

Link to comment

Share on other sites

Arthur Silvestre

Link to comment

Share on other sites

Theotokos

Link to comment

Share on other sites

Arthur Silvestre

Link to comment

Share on other sites

MatheusFarias

Link to comment

Share on other sites

nardeypm

Link to comment

Share on other sites

Join the conversation

Browse

Activity