Crée un verrou sur l'enregistrement.
L'application d'un verrou d'enregistrement inclut la possibilité de spécifier un temps d'attente maximum en secondes. Cette valeur correspond à la durée pendant laquelle il est nécessaire d'attendre la levée d'un verrou existant avant l'échec de la tentative de verrouillage. Cet échec a lieu si le verrou ne peut pas être appliqué avant l'écoulement de la durée spécifiée par le paramètre wait_seconds.
$entity->LockRecord(0);
VBScript
entity.LockRecord attente_secondes
Perl
$entity->LockRecord(attente_secondes);
VBScript
Function Defect_LockRecord(param)
' Lock Record for RECORD_SCRIPT_ALIAS action
' param As Variant
' record type name is Defect
REM add your hook code here
' don't wait
LockRecord(0)
End Function
Sub Defect_Initialization(actionname, actiontype)
' Lock Record for BASE action Action_Initialization hook
' actionname As String
' actiontype As Long
' action is LockRecord
' record type name is Defect
REM do any setup for the action here
LockRecord(0)
End Sub
Perl
sub Defect_LockRecord {
# Lock Record Script for RECORD_SCRIPT_ALIAS action
my($result);
my($param) = @_;
# record type name is Defect
if (ref ($param) eq "CQEventObject") {
# add your CQEventObject parameter handling code here
} elsif (ref (\$param) eq "SCALAR") {
# Add your scalar parameter handling code here
# The Web clients support scalar parameter type only,
# so the hook code added in the above section, needs to be duplicated here
} else {
# Add your handling code for other type parameters here, for example:
# die("Unknown parameter type");
}
# don't wait
$entity->LockRecord(0);
return $result;
}
sub Defect_Initialization {
# Lock Record script for BASE action Action_Initialization hook
my($actionname, $actiontype) = @_;
# $actionname : scalaire de chaîne
# $actiontype : scalaire long
# l'action est Verrouiller l'enregistrement
# le nom du type d'enregistrement est Défaut
# C'est ici que se configure l'action.
$entity->LockRecord(0);
}