Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Trigger / Stored Procedure
Message
De
19/06/2003 08:35:45
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
 
 
À
19/06/2003 08:27:15
Cleber Ferrari
Capta Tecnologia
Brésil
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00801688
Message ID:
00801692
Vues:
13
>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)
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform