Skip to content

KVSDMSStorageDefinitionMgt#

Summary: This codeunit contains all code to create Storage Definitions

Procedures#

ProcessNotificationForActiveDefinition(Notification) :#

Summary: This procedure is called as action within the notification dialog and makes the assigned definition to editable by setting flag "active" to "false".

procedure ProcessNotificationForActiveDefinition(currNotification: Notification): 

Parameters:

  • currNotification: The given Notification dialog.

Events#

OnAfterGetPlaceholderDisplayText(Integer, Code[20], Text) :#

[IntegrationEvent(false, false)]
local procedure OnAfterGetPlaceholderDisplayText(sourceTableID: Integer; storageDefCode: Code[20]; var displayText: Text): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnAfterGetPlaceholderDisplayText', '', false, false)]
local procedure DoSomethingOnAfterGetPlaceholderDisplayText(sourceTableID: Integer; storageDefCode: Code[20]; var displayText: Text)
begin
end;

OnAfterValidateStorageDefinition(Record KVSDMSStorageDefinition) :#

[IntegrationEvent(false, false)]
local procedure OnAfterValidateStorageDefinition(storageDefinition: Record "KVSDMSStorageDefinition"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnAfterValidateStorageDefinition', '', false, false)]
local procedure DoSomethingOnAfterValidateStorageDefinition(storageDefinition: Record "KVSDMSStorageDefinition")
begin
end;

OnAfterValidateSearchDefinition(Record KVSDMSDocSearchDefinition) :#

[IntegrationEvent(false, false)]
local procedure OnAfterValidateSearchDefinition(searchDefinition: Record "KVSDMSDocSearchDefinition"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnAfterValidateSearchDefinition', '', false, false)]
local procedure DoSomethingOnAfterValidateSearchDefinition(searchDefinition: Record "KVSDMSDocSearchDefinition")
begin
end;

OnAfterValidateTags(Record KVSDMSStorageDefinitionTag) :#

[IntegrationEvent(false, false)]
local procedure OnAfterValidateTags(var filteredTags: Record "KVSDMSStorageDefinitionTag"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnAfterValidateTags', '', false, false)]
local procedure DoSomethingOnAfterValidateTags(var filteredTags: Record "KVSDMSStorageDefinitionTag")
begin
end;

OnAfterValidateDocumentDrive(Record KVSDMSDocumentDrive) :#

[IntegrationEvent(false, false)]
local procedure OnAfterValidateDocumentDrive(documentDrive: Record "KVSDMSDocumentDrive"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnAfterValidateDocumentDrive', '', false, false)]
local procedure DoSomethingOnAfterValidateDocumentDrive(documentDrive: Record "KVSDMSDocumentDrive")
begin
end;

OnSetTableAndFieldNoByPredefinedTagTypeElse(Record KVSDMSArchivingTagCode) :#

[IntegrationEvent(false, false)]
local procedure OnSetTableAndFieldNoByPredefinedTagTypeElse(var archivingTagCode: Record "KVSDMSArchivingTagCode"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnSetTableAndFieldNoByPredefinedTagTypeElse', '', false, false)]
local procedure DoSomethingOnSetTableAndFieldNoByPredefinedTagTypeElse(var archivingTagCode: Record "KVSDMSArchivingTagCode")
begin
end;

OnCopyStorageDefinitionBeforeInsertStorageDefinition(Record KVSDMSStorageDefinition, Record KVSDMSStorageDefinition) :#

[IntegrationEvent(false, false)]
local procedure OnCopyStorageDefinitionBeforeInsertStorageDefinition(fromStorageDefinition: Record "KVSDMSStorageDefinition"; var toStorageDefinition: Record "KVSDMSStorageDefinition"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnCopyStorageDefinitionBeforeInsertStorageDefinition', '', false, false)]
local procedure DoSomethingOnCopyStorageDefinitionBeforeInsertStorageDefinition(fromStorageDefinition: Record "KVSDMSStorageDefinition"; var toStorageDefinition: Record "KVSDMSStorageDefinition")
begin
end;

OnCopyStorageDefinitionBeforeInsertPlaceholder(Record KVSDMSStorageDefPlaceholder, Record KVSDMSStorageDefPlaceholder, Record KVSDMSStorageDefinition) :#

[IntegrationEvent(false, false)]
local procedure OnCopyStorageDefinitionBeforeInsertPlaceholder(fromPlaceholder: Record "KVSDMSStorageDefPlaceholder"; var toPlaceholder: Record "KVSDMSStorageDefPlaceholder"; toStorageDefinition: Record "KVSDMSStorageDefinition"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnCopyStorageDefinitionBeforeInsertPlaceholder', '', false, false)]
local procedure DoSomethingOnCopyStorageDefinitionBeforeInsertPlaceholder(fromPlaceholder: Record "KVSDMSStorageDefPlaceholder"; var toPlaceholder: Record "KVSDMSStorageDefPlaceholder"; toStorageDefinition: Record "KVSDMSStorageDefinition")
begin
end;

OnCopyStorageDefinitionBeforeInsertSubDirectory(Record KVSDMSStorageDefSubdirectory, Record KVSDMSStorageDefSubdirectory, Record KVSDMSStorageDefinition) :#

[IntegrationEvent(false, false)]
local procedure OnCopyStorageDefinitionBeforeInsertSubDirectory(fromSubDirectory: Record "KVSDMSStorageDefSubdirectory"; var toSubDirectory: Record "KVSDMSStorageDefSubdirectory"; toStorageDefinition: Record "KVSDMSStorageDefinition"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnCopyStorageDefinitionBeforeInsertSubDirectory', '', false, false)]
local procedure DoSomethingOnCopyStorageDefinitionBeforeInsertSubDirectory(fromSubDirectory: Record "KVSDMSStorageDefSubdirectory"; var toSubDirectory: Record "KVSDMSStorageDefSubdirectory"; toStorageDefinition: Record "KVSDMSStorageDefinition")
begin
end;

OnCopyStorageDefinitionBeforeInsertTag(Record KVSDMSStorageDefinitionTag, Record KVSDMSStorageDefinitionTag, Record KVSDMSStorageDefinition) :#

[IntegrationEvent(false, false)]
local procedure OnCopyStorageDefinitionBeforeInsertTag(fromTag: Record "KVSDMSStorageDefinitionTag"; var toTag: Record "KVSDMSStorageDefinitionTag"; toStorageDefinition: Record "KVSDMSStorageDefinition"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnCopyStorageDefinitionBeforeInsertTag', '', false, false)]
local procedure DoSomethingOnCopyStorageDefinitionBeforeInsertTag(fromTag: Record "KVSDMSStorageDefinitionTag"; var toTag: Record "KVSDMSStorageDefinitionTag"; toStorageDefinition: Record "KVSDMSStorageDefinition")
begin
end;

OnCopySearchDefinitionBeforeInsertSearchDefinition(Record KVSDMSDocSearchDefinition, Record KVSDMSDocSearchDefinition) :#

[IntegrationEvent(false, false)]
local procedure OnCopySearchDefinitionBeforeInsertSearchDefinition(fromSearchDefinition: Record "KVSDMSDocSearchDefinition"; var toSearchDefinition: Record "KVSDMSDocSearchDefinition"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnCopySearchDefinitionBeforeInsertSearchDefinition', '', false, false)]
local procedure DoSomethingOnCopySearchDefinitionBeforeInsertSearchDefinition(fromSearchDefinition: Record "KVSDMSDocSearchDefinition"; var toSearchDefinition: Record "KVSDMSDocSearchDefinition")
begin
end;

OnCopySearchDefinitionBeforeInsertSearchDirectory(Record KVSDMSSearchDirectory, Record KVSDMSSearchDirectory, Record KVSDMSDocSearchDefinition) :#

[IntegrationEvent(false, false)]
local procedure OnCopySearchDefinitionBeforeInsertSearchDirectory(fromSearchDirectory: Record "KVSDMSSearchDirectory"; var toSearchDirectory: Record "KVSDMSSearchDirectory"; toSearchDefinition: Record "KVSDMSDocSearchDefinition"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnCopySearchDefinitionBeforeInsertSearchDirectory', '', false, false)]
local procedure DoSomethingOnCopySearchDefinitionBeforeInsertSearchDirectory(fromSearchDirectory: Record "KVSDMSSearchDirectory"; var toSearchDirectory: Record "KVSDMSSearchDirectory"; toSearchDefinition: Record "KVSDMSDocSearchDefinition")
begin
end;

OnCopySearchDefinitionBeforeInsertTag(Record KVSDMSStorageDefinitionTag, Record KVSDMSStorageDefinitionTag, Record KVSDMSDocSearchDefinition) :#

[IntegrationEvent(false, false)]
local procedure OnCopySearchDefinitionBeforeInsertTag(fromTag: Record "KVSDMSStorageDefinitionTag"; var toTag: Record "KVSDMSStorageDefinitionTag"; toSearchDefinition: Record "KVSDMSDocSearchDefinition"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnCopySearchDefinitionBeforeInsertTag', '', false, false)]
local procedure DoSomethingOnCopySearchDefinitionBeforeInsertTag(fromTag: Record "KVSDMSStorageDefinitionTag"; var toTag: Record "KVSDMSStorageDefinitionTag"; toSearchDefinition: Record "KVSDMSDocSearchDefinition")
begin
end;

OnBeforeAutoFillSearchDefTagDataSourceByStorageDef(Record KVSDMSStorageDefinitionTag, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAutoFillSearchDefTagDataSourceByStorageDef(var searchDefinitionTag: Record "KVSDMSStorageDefinitionTag"; var isHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnBeforeAutoFillSearchDefTagDataSourceByStorageDef', '', false, false)]
local procedure DoSomethingOnBeforeAutoFillSearchDefTagDataSourceByStorageDef(var searchDefinitionTag: Record "KVSDMSStorageDefinitionTag"; var isHandled: Boolean)
begin
end;

OnAfterCopySearchDefinitionTagDataSourceFromStorageDefinitionTag(Record KVSDMSStorageDefinitionTag, Record KVSDMSStorageDefinitionTag) :#

[IntegrationEvent(false, false)]
local procedure OnAfterCopySearchDefinitionTagDataSourceFromStorageDefinitionTag(var searchDefinitionTag: Record "KVSDMSStorageDefinitionTag"; storageDefinitionTag: Record "KVSDMSStorageDefinitionTag"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSDMSStorageDefinitionMgt", 'OnAfterCopySearchDefinitionTagDataSourceFromStorageDefinitionTag', '', false, false)]
local procedure DoSomethingOnAfterCopySearchDefinitionTagDataSourceFromStorageDefinitionTag(var searchDefinitionTag: Record "KVSDMSStorageDefinitionTag"; storageDefinitionTag: Record "KVSDMSStorageDefinitionTag")
begin
end;