Titolo: Cancellare record non bloccati
Categoria: Codice |
|
Ultimo Aggiornamento: 15/02/06 |
Ecco un frammento di codice da usare per cancellare dei record selezionati in un form di output, controllando che non siano bloccati.
CREATE SET(Current form table->;"SetSelezione")
USE SET("UserSet")
DELETE SELECTION(Current form table->)
USE SET("OriginalSet")
$lockedRecords:=Records in set("LockedSet")
Case of :($lockedRecords=1)
$msg:=”Un record è bloccato e non può essere cancellato. Lo visualizzo?“
:($lockedRecords>1)
$msg:=”Alcuni record sono bloccati e non possono essere cancellati. Li visualizzo?“
Else $msg:=””
End caseIf ($lockedRecords#0)
CONFIRM$msg;"Yes";"No")
If (OK=1)
USE SET("LockedSet")
End if CLEAR SET("LockedSet")
End if CLEAR SET("SetSelezione ")
FLUSH BUFFERS
Per altre informazioni sull'uso dei set consultare
questa faq.
Inviato da: PierPaolo Sichera |
|
Visite: 12239 |
Se accedi con utente e password, puoi aggiungere dei commenti.