PC Toledo

Sim José,
São criados em arquivos separados.
Vc sabe se existe debugador na harbour ou é esse mesmo que utiliza no clippper, executando com ALT+D e F6 p/ visualziar os arquivos abertos e tudo mais ?

Olá Pessoal!

Estou precisando da vossa ajuda!

Graças a ajuda do Itamar, consegui compilar um sistema em clipper na harbour.

Porém estou com dúvida ao executar o sistema com debugador, quem se lembra do clipper, basta compilar com o /b, em seguida abrir o executável utilizando o cld <nome do ...

Ok José,

Muito obrigado aí pelas orientações e dicas!

Valeu!

JoséQuintas escreveu:

rede.png

Meu backup mais antigo, de 2008.
Está aí a função da época.

Na época gravava o nome do usuário, pra mostrar aonde estava bloqueado.

Valeu José!
Vou aplicar aqui.
Muito obrigado pela sua atenção!

Meu recorde com DBF foram mais de 100 terminais simultâneos.
TODOS acessando o DBF de pedidos ao mesmo tempo.
Não sei o que é índice corrompido, a não ser aqueles problemas de Windows 95/98/2000 que citei.
Não sei o que é falhar append, a não ser aquele problema da rede novell 3.11, talvez há 30 ...

JoséQuintas escreveu:Use pelo menos o OL_AutoYield(.T.) no início do aplicativo, e a OSLIB.

Já utilizo faz tempo.
Beleza, entendi, vou seguir sua orientação e passar a testar o dbappend().

https://comp.lang.clipper.visual-objects.narkive.com/h94B7M0U/windows-7-corruption-network
Leia aqui tem alguma coisa explicando. O Harbour tem umas funções para desligar, mas não está atualizado para as novas versões do SMB. Talvez funcione, mas não evita os antivirus de atrapalhar. O Norton ...

Só vai resolver usando Terminal Service, LetoDbf. Nem usando Harbour com rede mapeada resolve, vira e mexe dá um problema de corromper indices, precisando no mínimo de reindexar.

Então Itamar, preciso tomar uma atitude, os problemas estão ocorrendo com frequência, com isso os usuários(vendedores ...

JoséQuintas escreveu:O DBF acusava um registro a mais, o que causava erro em append.

Então, no meu caso ele não grava nada, se gerasse pelo menos registro em branco, o caso seria outro, não deixa nem rastro.

Quanto ao Skip 0, testado também numa época usando Clipper+Sixcdx e VB6 com ADS Local, e não se trata nem de ficar visível na rede, mas também na mesma máquina em uso simultâneo.

NÃO SEI dizer sobre COMMIT, nunca usei, nunca precisei, e nunca testei.

Então José, a vida inteira uso dbcommit ...

Acho melhor não complicar.
Quando chama alias->( fAppend() ), a função já vai ser executada no alias indicado, não precisa complicar a função, além do mais, elimina parâmetro a mais, e evita esquecer dele.

Não José, estou dizendo é ALIAS->(dbappend()) mesmo, sem usar sua função no momento ...

Itamar M. Lins Jr. escreveu:Olá!
Isso não irá resolver em definitivo.
Se antes funcionava ?

Quando os terminais eram XP funcionavam perfeitamente!

Está testando o bloqueio, e não o append.

Certo José, para eu testar o append, não o bloqueio, o que acha dessa implementação ?

Function FAppend(ALIAS)

nTent:=1 ; rOk:=.f.

Do While .t.
(ALIAS)->(dbappend())
if ! neterr()
rOk:=.t.
// Posso colocar numa funcao, como no seu exemplo.
if ...

JoséQuintas,

Apesar de estar em harbour a rotina que postou, pelo que entendi, vc executa o append, testa erro na rede depois trava o registro, é o que faço tbem, a diferença é que trabalho referenciando o alias, tipo ALIAS->(dbappend()), ALIAS->(dbrlock()), assim por diante.

No caso da sua rotina ...

Olá JoseQuintas!

No fonte está assim mesmo, gravo a venda em dois arquivos de dados, cabecalho e itens, estou tendo problema é no arquivo onde gravo o cabecalho, daí tenho que verificar, quando não grava a parte do cabecalho, o sistema tenta gravar novamente, quando atinge o numero de tentativas ...