LetoDB - Problemas com DbCommit()

[alxsts]

Olá!

Sinceramente nunca vi o Leto.

Chamou a minha atenção nos arquivos .INI onde um tem "RDD=LETO" e o outro "Default_Driver = CDX "

[alaminojunior]

Alamino, tente isso para forçar o refresh do registro:

É meu caro ... já havia tentado isso também. E nada !

Chamou a minha atenção nos arquivos .INI onde um tem "RDD=LETO" e o outro "Default_Driver = CDX "

Alex, a linha RDD=LETO é para o meu exe saber que é para se conectar via LETODB, caso contrário conecta via DBFCDX. Já a outra linha é do arquivo INI onde o motor do LetoDB identifica se utilizará o padrão CDX ou NTX.

A luta continua.

[asimoes]

Alamnino,

Você tentou simular este erro local, abrindo duas instancias do programa no windows?

[asimoes]

Alamino,

A solução é antes do RLOCK coloque um SKIP -1 ou DbSkip(-1) ou DbGoTop()

Código: Selecionar todos

sele cdpar000
do while .t.
   DbGoTop() ou DbSkip(-1)
   if !rlock()
      msgexclamation("Aguardando para criar novo orçamento ...","ATENÇÃO")
      loop
   else
      repl numnum with numnum + ="posthilit">1</span>
      dbcommit()
      orc = numnum
      dbunlock() 

[alaminojunior]

A solução é antes do RLOCK coloque um SKIP -1 ou DbSkip(-1) ou DbGoTop()

Agora você derrubou a árvore inteira. ) ) )

Usei um dbgotop(). Vai entender né !?
Assimoes e também Andril, obrigadíssimo pelo esforço.

[alaminojunior]

Então o danado estava dando um skip sem eu mandar ?

[vddnet]

Alamino, passei pela mesma dificuldade, não sei se já resolvei, mas a solução é esta

sele cdpar000
do while .t.
if !rlock()
msgexclamation("Aguardando para criar novo orçamento ...","ATENÇÃO")
loop
else
repl numnum with numnum + 1
Goto 1 // Adiciona somente esta linha no seu código fonte, levando em consideração que o banco de dados de número de pedido só tenha este registro, diga-me se teve exito
dbcommit()
orc = numnum
dbunlock()
* OBS.: Se já resolveu esta situação desconsidere este ajuda.