PC Toledo

Amigos, esse código rídiculo acontece a mesma coisa em REDE 3 micros, de vez em quando, é um código bem mais simples vejam:

SELE 26

IF .NOT. USEREDE("COPIAS",.F.,10)
MSG("O arquivo COPIAS nÆo est  dispon¡vel")
RETURN
ELSE
SET INDEX TO COPIAS01
ENDIF


XCOPIA = 0
M->QUANTOTAL = 30
DO WHILE XCOPIA < M->QUANTOTAL
*******
SELE 26
*******
IF .NOT. ADIREG(0)
MSGBOX1("InclusÆo nÆo foi bem sucedida, novamente...")
LOOP
ENDIF

XCOPIA += 1

REPLACE CODFILME WITH M->CODFILME
REPLACE TIPO WITH M->DUB
REPLACE ESTADO WITH '1'
REPLACE COPIA WITH XCOPIA
REPLACE INVESTI WITH ( M->VALORINV / M->QUANTOTAL )
COMMIT
UNLOCK
ENDDO
:-O

Vc pode postar essa função Adireg() ?
Já tentou usar um laço FOR...NEXt ao invés do While...enddo ??
Tipo assim...

For xCopias := 1 to m->QUANTOTAL

Next

DUDU, NÃO VERDADE NÃO TENTEI USAR O LAÇO, A FUNÇÃP ADIREG, SEGUE ABAIXO:

FUNCTION ADIREG
PARA TEMPO
PRIVATE SEMPRE
APPEND BLANK
IF .NOT. NETERR()
RETURN .T.
ENDIF
SAVE SCREEN
M->SEMPRE=(M->TEMPO=0)
DO WHILE (M->SEMPRE .OR. M->TEMPO>0)
APPEND BLANK
IF .NOT. NETERR()
RESTORE SCREEN
RETURN .T.
ENDIF
M->TEC=INKEY(.5)
M->TEMPO=M->TEMPO - 0.5
IF M->TEC=27
EXIT
ENDIF
ENDDO
RESTORE SCREEN
RETURN .F.
-:]

Olá DUDU, ai está ?
Honório

Hasa me desculpe teste o código abaixo.
Prefira utilizar a função DBAPPEND() é função mais recomendada para inclusão de registros em ambientes de rede.


// Modificação usando dbappend e laço For

:*

DUDU, estou testando no cliente direto, espero que de certo ok, valeu pela atenção e muito obrigado,
-:]

resolveu ?

Dudu, só consegui instalar ontem, vamos dar uma semaninha.

:*
Dudu, creio que deu certo, ao menos em testes preliminares, mas o primeiro poste que fiz , esse sim não teve solução, valeu :xau