PROCEDURE IsRecordLock(Fichier,cbMarq)
Requete est chaîne = "USE MaBDD DECLARE @Res int EXECUTE
CB_IsRecordLock '"+Fichier+"',"+cbMarq+",@Res OUTPUT SELECT @Res as
block"
ValRetour est entier = 0
SI PAS SQLExec(Requete,"BLOCK") ALORS
SQLInfoGene("BLOCK")
Info(SQL.MesErreur+RC+requete)
RENVOYER 1
FIN
SI SQLAvance("BLOCK")=0
ValRetour = SQLLitCol("BLOCK",1)
FIN
SQLFerme("BLOCK")
RENVOYER ValRetour
Spiderman a présenté l'énoncé suivant :
pour les pros de SAGE, connaissez-vous le moyen de savoir si une pièce
est
bloquée ?
--
Pierre BOUSQUET
" Ne me dites pas que ce problème est difficile.
S'il n'était pas difficile, ce ne serait pas un problème. "