Problema de Append

[Maligno]

Ops, Enverti...

Realmente. Enverteu mesmo.

[alaminojunior]

E isso muda o que diante do que afirmei ?

[Maligno]

Absolutamente nada. E tudo até agora são suposições. Pelo menos até o Junior analisar o append e ver se foi ele ou não o culpado pelo problema.

[juniorcamilo]

Absolutamente nada. E tudo até agora são suposições. Pelo menos até o Junior analisar o append e ver se foi ele ou não o culpado pelo problema.

o problema é que realmente nao da para testar, pois fiz o dia inteiro de teste aqui e funcionou normalmente uma coisa que vou fazer é testar c o append foi executado com sucesso;....

aproposito a funcao travar5 esta ai ....

Function TRAVAR5(aliarq,bTrava)
Local tTelTrava := savenv(00,00,24,80)
Private aLias := Aliarq
if bTrava == nil; bTrava := .t.; endif
travou := .f.
sele &aLias.
mensagem("Travar Registro!!!")
do while .T.
If &alias.->(DBRlock())
mensagem("Registro Travado(pronto para aplicacao)")
exit
else
if bTrava == .t. ; msgbox3d({"Aguarde... o Registro "+alias+" esta sendo Utilizado","por outro Computador","Problema na de Rede dos Computadores","Tentando ( ) Acesso ao Registro..","<ESC>-Abandona Processo de Abertura"},"Aten‡„o",,x_cortjadi,"w+/w",x_corgets); endif
&alias.->(dbunlock())
&alias.->(dbcommit())
ncol := (((80-(42+len(Space(12))))/2))+20
if subs(str(ncol,5,2),4,2) # "00"
ncol++
endif
Tentando(13,nCol)
Inkey(.1)
If lastkey() # K_ESC
LOOP
ELSE
if bTrava == .t.
msgbox3d({"Para maior seguran‡a","Todos os arquivo serÆo fechados","Repita a Opera‡Æo.", "Reinicie todas as Maquinas."},"Aten‡„o",,x_cortjadi,"w+/w",x_corgets)
inkey(0)
endif
dbCloseAll()
SetColor('W/N')
CLS
Qexit(,,,.F.)
RETURN .F.
ENDIF
travou=.t.
endif
ENDDO
rstenv(tTelTrava)
return(travou)


esta funcao é usada para travar o registro tanto para inclusao (mesmo sabendo que o append trava automaticamente) quando alteracao ou exclusao ,, mas acho que da pra fazer no começo dela o teste de erro por eventual append, nao da?

[Maligno]

o problema é que realmente nao da para testar, pois fiz o dia inteiro de teste aqui e funcionou normalmente

Ih, então já sei: o Murphy se apaixonou. Não vai sair do seu pé. ))

[alaminojunior]

mas acho que da pra fazer no começo dela o teste de erro por eventual append, nao da?

Dá sim, estude aí a melhor maneira, mas que dá, isso dá.

Pode ser que testando em apenas uma ou duas maquinas, o erro não apareça. Mas na hora que tiver no meio do basquete aí meu amigo, várias maquinas acessando, e coisa e tal, o Murphy entra em ação.