Lentidão em acesso rede XP

[Marcio_Carneiro]

Olá, amigos

Estou com um problema num cliente.:
De uns tempos para cá, ele passou a reclamar da demora em gravar e imprimir notas de orçamento.
Sempre funcionou redondo, mas agora tá travando.

Ex:
De um ponto da rede acesso (via atalho) o prg, cadastro e imprimo normalmente,
Se outro ponto de rede acessar o mesmo programa, mesmo não fazendo nada, no outro ponto da rede já fica lento, sendo que na impressão (local) chega a pausar e depois continuar.

Já baixei o set_xp da área de dowload e dá erro na execução, e não corrige nada.


O que os amigos sugerem?

Marcio

[Jairo Maia]

Olá Márcio,

Eu sugiro algumas coisas:

1 - Independente do tipo de contrato que você tenha com seu cliente, não chame para si um problema que é do SO Windows. Este problema não está em seu sistema, mas sim no SO.

2 - Se seu contrato também prevê suporte ao SO, sugiro os seguintes passos para tentar resolver um problema que não foi seu sistema que criou:
a-Verifique se não existe mais de 1 antivírus instalado nas máquinas. Clientes são loucos para clicar em prosseguir naqueles montes de coisinhas que baixam e instalam, e juram por Deus que nunca fizeram isso. Já cheguei ver máquina com 4 antivírus.
b-Se seu cliente não tem instalado o CCleaner por exemplo, instale em todos computadores, rode e limpe tudo que ele sugerir.
c-Depois, baixe em www.baixaki.com.br o utilitário adwcleaner.exe e rode também nos computadores. Tenha em mente que após passar este utilitário a máquina precisará ser reiniciada.
d-Após isso, faça uma varredura na memória do computador a fim de verificar tudo que está em segundo plano atrapalhando o funcionamento do micro, e remova.

Tudo isso, porquê seu cliente tem que ter em mente que as máquinas precisam de manutenção severa no SO, e isso é para tentar não ter que pará-las para enviar a um técnico para formatá-las e reinstalar o sistema operacional limpo. O que não é preciso dizer quanto transtorno isso causa.

[Marcio_Carneiro]

Obrigado pela atenção

Infelizmente, não tenho responsabilidade pelo SO, mas no interior é difícil não dar uma olhada
para o cliente, pois o profissional que atua na parte do SO já trocou até o switch.

O Anti-vírus é Microsoft Security Essentials.

Tenho certeza que é uma variável do sistema operacional, mas o problema é que meu cliente
fica na minha cola, para tentar ajudar ele...

Por isso pedi ajuda aos amigos.

No caso de programa em Harbour acaba a necessidade de config.nt/autoexec? Mesmo sendo DBF/NTX?

[Toledo]

Márcio, uma outra dica que reduz o trafego na rede é fazer a instalação do programa em cada ponto da rede, evitar colocar o EXE apenas no servidor, compartilhando na rede apenas os arquivos DBF e NTX.

Abraços,

[Marcio_Carneiro]

Obrigado pela atenção.

Mas já sendo chato, como fazer isto:
eu utilizo uma procedure que abre os arquivos.dbf, que no caso estão na pasta local,
e como trataria isto em mapeamento de rede?

Marcio

[Kapiaba]

Primeiro, voce deve mudar seus indices para .CDX, que e muito mais rapido que
indices .NTX. E deixar o seu MENU PRINCIPAL, como no exemplo abaixo.

Serve tanto para o .EXE na REDE, como para o .EXE na maquina LOCAL.

Em 32 bits, nao necessita mudar nada no config.nt e autoexec.nt

Código: Selecionar todos

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

NNOUNCE RDDSYS
ANNOUNCE FPTCDX
REQUEST DBFCDX, DBFFPT

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto

FUNCTION MAIN()

    SET DATE BRITISH
    SET EPOCH TO 1950
    SET CENTURY ON
    SET SOFTSEEK OFF
    SET WRAP ON
    SETCANCEL( .F. )
    SET CONFIRM OFF
    SET DELETED ON
    SET ESCAPE OFF
    SET EXACT ON
    SET EXCLUSIVE OFF
    SET MULTIPLE OFF
    /*
    SET AUTOPEN ON
    SET DBFLOCKSCHEME TO 3
    */

    RDDSETDEFAULT("DBFCDX")

    HB_LANGSELECT( 'PT' )
    HB_SETCODEPAGE( "PT850" )

[Toledo]

Bom, primeira coisa é compartilhar no Servidor a pasta onde está os arquivos DBF e NTX, depois em cada terminal fazer o mapeamento da pasta, atribuindo uma letra para a unidade (pasta) na rede (por exemplo Y:).

No seu programa principal criar uma variável contendo a letra do mapeamento (por exemplo x_DirDBF:="Y:\").

Na sua procedure que abre os DBF's, usar a variável acima como caminho até o DBF, por exemplo:

Código: Selecionar todos

Func Abre_Dbf( xcArquivo, xcAlias, lModo, nTentativa )
LOCAL lSempre, lRetor := .F.

if !file( x_DirDBF + xcArquivo + ".dbf" )
   Alert( "Arquivo " + xcArquivo + " não encontrado" )
   Retu ( .F. )
endif
lSempre := ( nTentativa == 0 )
IF EMPTY( SELECT( xcAlias ) )
   DO WHILE ( lSempre .OR. nTentativa > 0 ) .AND. INKEY() <> 27
      IF lModo                     // .T. ABRE ARQUIVO EXCLUSIVO ...
         USE ( x_DirDBF + xcArquivo ) ALIAS ( xcAlias ) EXCLUSIVE NEW
      ELSE                         // .F. ABRE ARQUIVO COMPARTILHADO ...
         USE ( x_DirDBF + xcArquivo ) ALIAS ( xcAlias ) SHARED NEW
      END
      IF ( .NOT. NETERR() )          // COM SUCESSO ...
         lRetor := .T.
         EXIT
      END
      INKEY( 1 )             // TENTATIVAS 1 SEGUNDO ...
      nTentativa := nTentativa - 1
   END
ELSE
   SELE SELECT( xcAlias )
   lRetor := .T.
ENDIF
Retu ( lRetor )

Abre_Dbf(<cArquivo>,<cAlias>,<lTipo>,<nTentativas>)
cArquivo = Nome do arquivo DBF
cAlias = Alias do arquivo DBF
lTipo = .T. para modo EXCLUSIVO e .F. para modo COMPARTILHADO
nTentativas = número de tentativas para abrir o arquivo

Como usar a função:

Código: Selecionar todos

   if !Abre_Dbf( "clientes", "clientes", .f. , 10 )
      Alert( "Não foi possível abrir o arquivo CLIENTES" )
      Close All
      Return
   endif
   _c_ntx1 := x_DirDBF + "cli_cod"  //NTX ordenado por código
   _c_ntx2 := x_DirDBF + "cli_nome" //NTX por nome
   if !File( _c_ntx1 + ".ntx" ) .or. !File( _c_ntx2 + ".ntx" )
      INDEX ON CODIGO TO ( _c_ntx1 )
      INDEX ON NOME TO ( _c_ntx2 )
   endif
   SET INDEX TO ( _c_ntx1 ), ( _c_ntx2 )

Abraços,

[Marcio_Carneiro]

Obrigado pela atenção, Mestre Toledo.

Quanto aos índices, a consulta é super rápida, mesmo sendo ntx.

Obrigado pela aula, vou estudar a lição e aplicá-la.

É muito estranho isto.

Marcio

[rochinha]

Amiguinho,

Nas impressoras que estão sendo usadas, desabilite a impressão por spool. Configure para impressão direta sem este recurso.

Nas maquinas que acessam impressora faça o mesmo.