Create Error: ArqTem39.Dbf Dos Error 32

[Ricardo Sales Ribeiro]

Bom Dia Galera

Estou a precisar dos amigos novamente, estar dando o seguinte erro:

Create Error: ArqTem39.Dbf Dos Error 32

O q significa?, como posso corrigir?

Segue a seguir uma parte da rotina, estou criando arquivos temporarios para depois apaga-los, só q eu consigo criar uma vez, na sequencia da rotina dar esse erro: segue parte da rotina para avaliação:

Eu consigo criar o wBak1, qdo vou criar o wBak2 dar error

Código: Selecionar todos

**************** Rotina ******************
Mensagem('Aguarde! Processamento ...')
Set Curs Off
wBak1:='ArqTem'+Substr(Time(),7,2)+'.Dbf'
Copy To &wBak1 For (Dat_Lan >= wDatIni .and. Dat_Lan <= wDatFin) .and. (Cta_lan >= '600' .and. Cta_Lan <= '899')
Use &wBak1 Exclusive Alias a_Bak1 New
Select a_Bak1
If Eof()
   Som()
   Mensagem('Intervalo Solicitado Incorreto! Tecle [ENTER]')
   Set Curs Off
   Inkey(0)
   DbCloseAll()
   Dele File ('&wBak1')
   Mensagem('')
   Rest Scre From ConDes91
   Retu
Endif
Inde On Cta_Lan To Cta
Set Inde To Cta
wBak2:='ArqTem'+Substr(Time(),7,2)+'.Dbf'
Total To &wBak2 On Cta_Lan Fields Val_Lan  ****************** (Dar Erro aqui!)
Use &wBak2 Exclusive Alias a_Bak2 New
Select a_Bak2
wTotDes:=0
wPerLan:=0
Sum Val_Lan To wTotDes
Go Top
Do while !Eof()
   wValLan:=Val_Lan
   wPerLan:=(wValLan/wTotDes)*100
   Do while !RLock()
   Enddo
   Repl Per_Lan with wPerLan
   DbSkip()
Enddo
DbCommit()
DbUnlock()
Inde On Val_Lan To wBak2
Set Inde To wBak2

Gratos pela ajuda!

-------------------------------
Nota de Moderação (Toledo): mensagem editada para colocar a tag [ code ]
Veja mais detalhes: faq.php?mode=bbcode#f21

[gvc]

Erro de violação de compartilhamento.

Sua aplicação esta tentando abrir um arquivo já aberto em modo exclusivo. Pode ser a sua aplicação ou outra que já tem o tal arquivo aberto.