レコードのロックを作成します。
レコードのロックの取得には、最大の待ち時間 (秒数) を指定する機能が含まれます。この値は、ロックを試みて失敗するまで、既存のロックが解除されるのを待機する時間です。wait_seconds パラメータで指定された値が経過するまでに、ロックを取得できない場合、ロックの試みは失敗します。
$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);
}