VcsAfterAssignVersion

If this method is exported from the DLL, it will be called after a Version Label has been assigned to an archive.

VcsAfterAssignVersion

procedure VcsAfterAssignVersion( pProject, pFolder, pObjectName, pUserName, pRevision, pVersionLabel: PChar; UserID, FileID, RevisionID, VersionID: Cardinal ); stdcall; export;

This procedure is called after an Assign Version action occurs. This is a notification event only and none of the values passed in can be modified.

Parameters

Name	Description
pProject	The name of the Project containing the file
pFolder	The name of the Folder containing the file
pObjectName	The name of the file object that the Version Label was assigned to
pUserName	The name of the user that carried out the action
pRevision	The name of the revision the Version Label was assigned to
pVersionLabel	The name of the Version Label
UserID	The ID of the user that carried out the action
FileID	The ID of the file
RevisionID	The ID of the revision the Version Label was assigned to
VersionID	The ID of the Version Label being assigned

Example (Delphi)

The following method is called after a Version Label is successfully assigned to a file and simply logs the action to a local text file:

procedure VcsAfterAssignVersion( pProject, pFolder, pObjectName, pUserName, pRevision, pVersionLabel: PChar; UserID, FileID, RevisionID, VersionID: Cardinal );

var

Name, FullName, EMail, Location, Extra: String;

begin

// This method is called after a Version Label is successfully assigned to a file

GetUserInfo( UserID, Name, FullName, EMail, Location, Extra );

LogIt( Format( '%s - ''%s (%s)'' Assigned Version ''%s'' to revision ''%s'' of ''%s''', [ DateTimeToStr( Now ), String( pUserName ), EMail, String( pVersionLabel ), String( pRevision ), String( pObjectName ) ] ) );

end;