Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Trigger / Stored Procedure
Message
From
19/06/2003 08:35:45
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivia
 
 
To
19/06/2003 08:27:15
Cleber Ferrari
Capta Tecnologia
Brazil
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00801688
Message ID:
00801692
Views:
12
>Pessoal,
>
>Como eu precisava replicar determinados dados de uma tabela sempre que ocorresse uma inclusão/alteração/exclusão, resolvi fazer o uso de trigger e stored procedure.
>
>O sistema roda em VFP6.
>
>Coloquei trigger para o update e o delete.
>
>Vejam um exemplo da trigger de update :
>
>
>Procedur produto_update
> Scatter memo to loscatt
> Use \\outroservidor\outrapasta\produto in 0 shared alias destino
> Sele destino
> Set order to 1
> Seek produto.prod
> If eof()
>  Append blank
> Endif
> Gather from loscatt memo
> Use
> Release loscatt
> Sele produto
>Endproc
>
>
>Este procedimento está funcionando corretamente quando tenho apenas 1 usuário trabalhando no sistema. Quando existem 2 usuários fazendo o mesmo tipo de tarefa ( no exemplo, incluindo produtos ), dá erro de "Arquivo em uso".
>
>O que pode estar errado?
>
>Alguém tem alguma dica?
>
>Alguém faria diferente?
>
>Muito obrigado

Podería ajudar bloquear o file header. Também podería ajudar ussar USE ... AGAIN - é possível que o problema é com outra instáncia do arquivo aberto, e não com outro ussuario.

Outras dicas:

Use a nova sintaxis SCATTER ... NAME (e GATHER NAME) para ter uma só variável, similar a um objeto. Os campos individuais são copiados a propriedades.
Seek produto.prod
If eof()
Pode cambiar por:
if not seek(producto.prod)
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform