Crea un bloqueo en el registro.
Obtener un bloqueo de registros incluye la posibilidad de especificar un tiempo de espera en segundos. Este valor es el tiempo que hay que esperar a que se libere un bloqueo antes de que el intento de bloqueo falle. El intento de bloqueo falla si el bloqueo no se puede obtener antes de que el valor especificado por el parámetro wait_seconds haya transcurrido.
$entity->LockRecord(0);
VBScript
entity.LockRecord wait_seconds
Perl
$entity->LockRecord(wait_seconds);
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 as string scalar # $actiontype as long scalar # action is LockRecord # record type name is Defect # Do any setup for the action here. $entity->LockRecord(0); }