KVSADVAdvanceChainMgtBase#
Procedures#
GetAdvChainDisplayText(Integer, Enum KVSADVAdvanceChainType, Boolean) : Text#
procedure GetAdvChainDisplayText(AdvanceChainNo: Integer; AdvanceChainType: Enum "KVSADVAdvanceChainType"; Active: Boolean): Text
GetAdvChainDisplayTextBoolean(Integer, Boolean) : Text[10]#
procedure GetAdvChainDisplayTextBoolean(AdvanceChainNo: Integer; Active: Boolean): Text[10]
SelectAdvanceChain(Enum KVSADVSourceAccountType, Code[20], Code[20], Integer, Boolean) : Boolean#
procedure SelectAdvanceChain(SourceAccountType: Enum "KVSADVSourceAccountType"; SourceAccountNo: Code[20]; JobNo: Code[20]; var AdvanceChainNo: Integer; ExcludeCurrentAdvChainNo: Boolean): Boolean
SelectAdvanceChain(Enum KVSADVSourceAccountType, Code[20], Code[20], Integer) : Boolean#
procedure SelectAdvanceChain(SourceAccountType: Enum "KVSADVSourceAccountType"; SourceAccountNo: Code[20]; JobNo: Code[20]; var AdvanceChainNo: Integer): Boolean
OpenAdvanceChainSelectionMenuForSourceDocument(Integer, Guid, Enum KVSADVSourceAccountType, Code[20], Code[20], Integer, Enum KVSADVAdvanceChainType) : Boolean#
procedure OpenAdvanceChainSelectionMenuForSourceDocument(TableNo: Integer; SystemID: Guid; SourceAccountType: Enum "KVSADVSourceAccountType"; SourceAccountNo: Code[20]; JobNo: Code[20]; var AdvanceChainNo: Integer; var AdvanceChainType: Enum "KVSADVAdvanceChainType"): Boolean
GetAdvanceChainBySystemID(Integer, Guid, Record KVSADVAdvanceChain) : Boolean#
procedure GetAdvanceChainBySystemID(TableNo: Integer; ForSystemID: Guid; var AdvanceChain: Record "KVSADVAdvanceChain"): Boolean
GetOrCreateAdvanceChainBySystemID(Integer, Guid, Record KVSADVAdvanceChain) : Integer#
procedure GetOrCreateAdvanceChainBySystemID(TableNo: Integer; ForSystemID: Guid; var AdvanceChain: Record "KVSADVAdvanceChain"): Integer
GetOrCreateAdvanceChainBySystemID(Integer, Guid) : Integer#
procedure GetOrCreateAdvanceChainBySystemID(TableNo: Integer; ForSystemID: Guid): Integer
DeleteAdvanceChainIfNoDocumentsPostedRelatedToIt(Integer, Enum KVSADVWarnForAdvChainDeletion, Boolean) :#
procedure DeleteAdvanceChainIfNoDocumentsPostedRelatedToIt(AdvanceChainNo: Integer; ShowWarningIfDocumentsExisting: Enum "KVSADVWarnForAdvChainDeletion"; ShouldClearAdvChainNoFromSourceDocument: Boolean):
CheckOpenAdvanceInvoicesExistsForAdvanceChain(Integer) : Boolean#
procedure CheckOpenAdvanceInvoicesExistsForAdvanceChain(AdvanceChainNo: Integer): Boolean
OpenAdvancePlanningChartForAdvChain(Record KVSADVAdvanceChain) :#
procedure OpenAdvancePlanningChartForAdvChain(AdvanceChain: Record "KVSADVAdvanceChain"):
OpenAdvancePlanningChartForAdvChain(Integer) :#
procedure OpenAdvancePlanningChartForAdvChain(AdvanceChainNo: Integer):
OpenAdvancePlanningChartForMultipleAdvChains(Text) :#
procedure OpenAdvancePlanningChartForMultipleAdvChains(AdvanceChainNoFilter: Text):
OpenAdvancePlanningChartForMultipleAdvChains(Record KVSADVAdvanceChain) :#
procedure OpenAdvancePlanningChartForMultipleAdvChains(var AdvanceChain: Record "KVSADVAdvanceChain"):
OpenAdvanceStatisticsForSingleAdvanceChain(Integer) :#
procedure OpenAdvanceStatisticsForSingleAdvanceChain(AdvanceChainNo: Integer):
OpenAdvanceStatisticsForMultipleAdvanceChain(Text) :#
procedure OpenAdvanceStatisticsForMultipleAdvanceChain(AdvanceChainNoFilter: Text):
OpenCVLedgerEntriesForAdvanceChain(Integer) :#
procedure OpenCVLedgerEntriesForAdvanceChain(AdvanceChainNo: Integer):
OpenCVLedgerEntriesForAdvanceChainsByFilter(Enum KVSADVSourceAccountType, Text) :#
procedure OpenCVLedgerEntriesForAdvanceChainsByFilter(SourceAccountType: Enum "KVSADVSourceAccountType"; AdvanceChainFilter: Text):
UpdateAdvanceChainSystemID(Integer, Guid) :#
procedure UpdateAdvanceChainSystemID(AdvanceChainNo: Integer; NewSystemID: Guid):
GetReceivUnrealGLAccountForAdvChain(Integer) : Code[20]#
procedure GetReceivUnrealGLAccountForAdvChain(AdvanceChainNo: Integer): Code[20]
GetReceivUnrealGLAccountForAdvChain(Record KVSADVAdvanceChain) : Code[20]#
procedure GetReceivUnrealGLAccountForAdvChain(AdvanceChain: Record "KVSADVAdvanceChain"): Code[20]
GetLabelShouldCreateAdvanceChain() : Text#
procedure GetLabelShouldCreateAdvanceChain(): Text
GetLabelShouldLinkAdvanceChain() : Text#
procedure GetLabelShouldLinkAdvanceChain(): Text
GetLabelShouldDeleteAdvanceChain() : Text#
procedure GetLabelShouldDeleteAdvanceChain(): Text
GetLabelOpenAdvancePlanForCurrAdvanceChain() : Text#
procedure GetLabelOpenAdvancePlanForCurrAdvanceChain(): Text
FillAdvanceChainFieldsFromSourceAccount(Integer, Boolean) :#
procedure FillAdvanceChainFieldsFromSourceAccount(AdvanceChainNo: Integer; ShouldModify: Boolean):
FillAdvanceChainFieldsFromSourceAccount(Record KVSADVAdvanceChain, Boolean) :#
procedure FillAdvanceChainFieldsFromSourceAccount(var AdvanceChain: Record "KVSADVAdvanceChain"; ShouldModify: Boolean):
FillAdvanceChainFieldsFromSourceDocument(Integer, Boolean) :#
procedure FillAdvanceChainFieldsFromSourceDocument(AdvanceChainNo: Integer; ShouldModify: Boolean):
FillAdvanceChainFieldsFromSourceDocument(Record KVSADVAdvanceChain, Boolean) :#
procedure FillAdvanceChainFieldsFromSourceDocument(var AdvanceChain: Record "KVSADVAdvanceChain"; ShouldModify: Boolean):
GetBaseAmount(Integer) : Decimal#
procedure GetBaseAmount(AdvanceChainNo: Integer): Decimal
GetBaseAmount(Record KVSADVAdvanceChain) : Decimal#
procedure GetBaseAmount(var AdvanceChain: Record "KVSADVAdvanceChain"): Decimal
IsJobNoEditableInAdvPlanningEntries(Integer) : Boolean#
procedure IsJobNoEditableInAdvPlanningEntries(AdvanceChainNo: Integer): Boolean
IsJobNoEditableInAdvPlanningEntries(Record KVSADVAdvanceChain) : Boolean#
procedure IsJobNoEditableInAdvPlanningEntries(var AdvanceChain: Record "KVSADVAdvanceChain"): Boolean
IsJobTaskNoEditableInAdvPlanningEntries(Integer) : Boolean#
procedure IsJobTaskNoEditableInAdvPlanningEntries(AdvanceChainNo: Integer): Boolean
IsJobTaskNoEditableInAdvPlanningEntries(Record KVSADVAdvanceChain) : Boolean#
procedure IsJobTaskNoEditableInAdvPlanningEntries(var AdvanceChain: Record "KVSADVAdvanceChain"): Boolean
CheckMandatoryFieldsForAdvanceChainSupportAreFilled(RecordRef) : Boolean#
procedure CheckMandatoryFieldsForAdvanceChainSupportAreFilled(RecRef: RecordRef): Boolean
ShowSourceDocumentOfAdvanceChain(Record KVSADVAdvanceChain) :#
procedure ShowSourceDocumentOfAdvanceChain(AdvanceChain: Record "KVSADVAdvanceChain"):
CheckAdvanceChainMustBeDeletedAfterSourceDocumentAdvChainNoModification(Integer, Integer, Enum KVSADVWarnForAdvChainDeletion) :#
procedure CheckAdvanceChainMustBeDeletedAfterSourceDocumentAdvChainNoModification(PrevAdvanceChainNo: Integer; NewAdvanceChainNo: Integer; ShowWarningIfDocumentsExisting: Enum "KVSADVWarnForAdvChainDeletion"):
CheckAdvanceChainMustBeDeletedAfterSourceDocumentAdvChainNoModification(Integer, Integer, Enum KVSADVWarnForAdvChainDeletion, Boolean) :#
procedure CheckAdvanceChainMustBeDeletedAfterSourceDocumentAdvChainNoModification(PrevAdvanceChainNo: Integer; NewAdvanceChainNo: Integer; ShowWarningIfDocumentsExisting: Enum "KVSADVWarnForAdvChainDeletion"; ShouldClearAdvChainNoFromSourceDocument: Boolean):
UpdateAdvanceChainNoForSourceDocument(Variant, Guid, Boolean, Integer, Enum KVSADVAdvanceChainType, Integer) : Boolean#
procedure UpdateAdvanceChainNoForSourceDocument(RecVariant: Variant; SystemID: Guid; AutoAssignNewAdvanceChain: Boolean; xRecAdvanceChainNo: Integer; var AdvanceChainType: Enum "KVSADVAdvanceChainType"; var AdvanceChainNo: Integer): Boolean
IsClosingInvoiceCreationFromAdvancePlanSupported(Record KVSADVAdvanceChain, Boolean) : Boolean#
procedure IsClosingInvoiceCreationFromAdvancePlanSupported(AdvanceChain: Record "KVSADVAdvanceChain"; ShowError: Boolean): Boolean
IsClosingInvoiceCreationFromAdvancePlanSupported(Integer, Boolean) : Boolean#
procedure IsClosingInvoiceCreationFromAdvancePlanSupported(AdvanceChainNo: Integer; ShowError: Boolean): Boolean
IsDocumentLineTypeAndNoForClosingInvoiceManuallyAssignableInAdvancePlan(Record KVSADVAdvanceChain) : Boolean#
procedure IsDocumentLineTypeAndNoForClosingInvoiceManuallyAssignableInAdvancePlan(AdvanceChain: Record "KVSADVAdvanceChain"): Boolean
CreateClosingInvoiceFromAdvancePlan(Record KVSADVAdvanceChain, Record KVSADVAdvance Planning Entry) :#
procedure CreateClosingInvoiceFromAdvancePlan(AdvanceChain: Record "KVSADVAdvanceChain"; var SelectedAdvPlanningEntries: Record "KVSADVAdvance Planning Entry"):
IsCreatePlanningEntriesByLinesSupported(Record KVSADVAdvanceChain, Boolean) : Boolean#
procedure IsCreatePlanningEntriesByLinesSupported(AdvanceChain: Record "KVSADVAdvanceChain"; ShowError: Boolean): Boolean
IsUseQuantityShareInAdvanceInvoiceSupported(Record KVSADVAdvanceChain, Boolean) : Boolean#
procedure IsUseQuantityShareInAdvanceInvoiceSupported(AdvanceChain: Record "KVSADVAdvanceChain"; ShowError: Boolean): Boolean
GetBaseQuantityFromAdvancePlanningEntry(Record KVSADVAdvanceChain, Record KVSADVAdvance Planning Entry) : Decimal#
procedure GetBaseQuantityFromAdvancePlanningEntry(AdvanceChain: Record "KVSADVAdvanceChain"; AdvancePlanningEntry: Record "KVSADVAdvance Planning Entry"): Decimal
GetBaseAmountForSourceDocumentLine(Record KVSADVAdvanceChain, Record KVSADVAdvance Planning Entry) : Decimal#
procedure GetBaseAmountForSourceDocumentLine(AdvanceChain: Record "KVSADVAdvanceChain"; AdvancePlanningEntry: Record "KVSADVAdvance Planning Entry"): Decimal
CreatePlanningEntriesFromLine(Record KVSADVAdvanceChain) :#
procedure CreatePlanningEntriesFromLine(AdvanceChain: Record "KVSADVAdvanceChain"):
ClearAdvanceChainNoForSourceDocument(Record KVSADVAdvanceChain) :#
procedure ClearAdvanceChainNoForSourceDocument(var AdvanceChain: Record "KVSADVAdvanceChain"):
IsAdvancePlanTemplateSupported(Record KVSADVAdvanceChain, Boolean) : Boolean#
procedure IsAdvancePlanTemplateSupported(AdvanceChain: Record "KVSADVAdvanceChain"; ShowError: Boolean): Boolean
IsAutomaticAdvancePlanTemplateSupported(Record KVSADVAdvanceChain) : Boolean#
procedure IsAutomaticAdvancePlanTemplateSupported(AdvanceChain: Record "KVSADVAdvanceChain"): Boolean
GetBaseDateForAdvancePlanTemplate(Record KVSADVAdvanceChain) : Date#
procedure GetBaseDateForAdvancePlanTemplate(AdvanceChain: Record "KVSADVAdvanceChain"): Date
GetNonDeductibleVATPercent(Record KVSADVAdvanceChain) : Decimal#
procedure GetNonDeductibleVATPercent(AdvanceChain: Record "KVSADVAdvanceChain"): Decimal
GetNonDeductibleVATPercentForSourceDocumentLine(Record KVSADVAdvanceChain, Record KVSADVAdvance Planning Entry) : Decimal#
procedure GetNonDeductibleVATPercentForSourceDocumentLine(AdvanceChain: Record "KVSADVAdvanceChain"; AdvancePlanningEntry: Record "KVSADVAdvance Planning Entry"): Decimal
SelectNonEmptySystemIDFromRecAndxRec(Guid, Guid) : Guid#
procedure SelectNonEmptySystemIDFromRecAndxRec(RecSystemID: Guid; xRecSystemID: Guid): Guid
SetNotShowOptionLinkto(Boolean) :#
Summary: Allow to Link to Option not Shown at proeedure ShowAdvanceChainSelectionMenuAndGetUserChoice
procedure SetNotShowOptionLinkto(NewNotShowOptionLinkto: Boolean):
Parameters:
NewNotShowOptionLinkto
: Set the value to display the option. The value is reset after execution.
GetAdvanceChainInterfaceImplementation(Record KVSADVAdvanceChain, Interface KVSADViAdvanceChainInterface) :#
procedure GetAdvanceChainInterfaceImplementation(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"):
GetAdvanceChainInterfaceImplementation(Record KVSADVAdvanceChain, Interface KVSADViAdvanceChainInterface, Boolean) : Boolean#
procedure GetAdvanceChainInterfaceImplementation(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; ShowError: Boolean): Boolean
GetAdvanceChainClosInvoiceFromAdvPlanInterfaceImplementation(Record KVSADVAdvanceChain, Interface KVSADViAdvanceChainInterfaceClosInvoiceFromAdvPlan, Boolean) : Boolean#
procedure GetAdvanceChainClosInvoiceFromAdvPlanInterfaceImplementation(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterfaceClosInvoiceFromAdvPlan"; ShowError: Boolean): Boolean
GetAdvanceChainCreatePlanEntriesFromLinesInterfaceImplementation(Record KVSADVAdvanceChain, Interface KVSADViAdvanceChainCreatePlanningEntriesByLines, Boolean) : Boolean#
procedure GetAdvanceChainCreatePlanEntriesFromLinesInterfaceImplementation(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainCreatePlanningEntriesByLines"; ShowError: Boolean): Boolean
GetAdvanceChainApplyAdvancePlanTemplateInterfaceImplementation(Record KVSADVAdvanceChain, Interface KVSADViApplyAdvancePlanTemplate, Boolean) : Boolean#
procedure GetAdvanceChainApplyAdvancePlanTemplateInterfaceImplementation(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViApplyAdvancePlanTemplate"; ShowError: Boolean): Boolean
UpdateCompletionStatusOfAdvanceChain(Integer) :#
procedure UpdateCompletionStatusOfAdvanceChain(AdvanceChainNo: Integer):
Events#
OnRetrieveAdvanceChainInterfaceProvider(Integer, Guid, Interface KVSADViAdvanceChainInterface, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnRetrieveAdvanceChainInterfaceProvider(SourceTableNo: Integer; SourceSystemID: Guid; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnRetrieveAdvanceChainInterfaceProvider', '', false, false)]
local procedure DoSomethingOnRetrieveAdvanceChainInterfaceProvider(SourceTableNo: Integer; SourceSystemID: Guid; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean)
begin
end;
OnRetrieveAdvanceChainClosInvoiceFromAdvPlanInterfaceProvider(Integer, Guid, Interface KVSADViAdvanceChainInterfaceClosInvoiceFromAdvPlan, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnRetrieveAdvanceChainClosInvoiceFromAdvPlanInterfaceProvider(SourceTableNo: Integer; SourceSystemID: Guid; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterfaceClosInvoiceFromAdvPlan"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnRetrieveAdvanceChainClosInvoiceFromAdvPlanInterfaceProvider', '', false, false)]
local procedure DoSomethingOnRetrieveAdvanceChainClosInvoiceFromAdvPlanInterfaceProvider(SourceTableNo: Integer; SourceSystemID: Guid; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterfaceClosInvoiceFromAdvPlan"; var IsHandled: Boolean)
begin
end;
OnCheckPostingRelevantFieldChanged(Record KVSADVAdvanceChain, Record KVSADVAdvanceChain, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnCheckPostingRelevantFieldChanged(PrevAdvanceChain: Record "KVSADVAdvanceChain"; UpdatedAdvanceChain: Record "KVSADVAdvanceChain"; var PostingRelevantFieldChanged: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnCheckPostingRelevantFieldChanged', '', false, false)]
local procedure DoSomethingOnCheckPostingRelevantFieldChanged(PrevAdvanceChain: Record "KVSADVAdvanceChain"; UpdatedAdvanceChain: Record "KVSADVAdvanceChain"; var PostingRelevantFieldChanged: Boolean)
begin
end;
OnBeforeGetAdvanceChainDisplayText(Integer, Enum KVSADVAdvanceChainType, Boolean, Text) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetAdvanceChainDisplayText(AdvanceChainNo: Integer; AdvanceChainType: Enum "KVSADVAdvanceChainType"; Active: Boolean; var DisplayText: Text):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeGetAdvanceChainDisplayText', '', false, false)]
local procedure DoSomethingOnBeforeGetAdvanceChainDisplayText(AdvanceChainNo: Integer; AdvanceChainType: Enum "KVSADVAdvanceChainType"; Active: Boolean; var DisplayText: Text)
begin
end;
OnAfterSetFiltersSelectAdvanceChain(Enum KVSADVSourceAccountType, Code[20], Code[20], Boolean, Record KVSADVAdvanceChain) :#
[IntegrationEvent(false, false)]
local procedure OnAfterSetFiltersSelectAdvanceChain(SourceAccountType: Enum "KVSADVSourceAccountType"; SourceAccountNo: Code[20]; JobNo: Code[20]; ExcludeCurrentAdvChainNo: Boolean; var AdvanceChain: Record "KVSADVAdvanceChain"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnAfterSetFiltersSelectAdvanceChain', '', false, false)]
local procedure DoSomethingOnAfterSetFiltersSelectAdvanceChain(SourceAccountType: Enum "KVSADVSourceAccountType"; SourceAccountNo: Code[20]; JobNo: Code[20]; ExcludeCurrentAdvChainNo: Boolean; var AdvanceChain: Record "KVSADVAdvanceChain")
begin
end;
OnBeforeDeleteAdvanceChainsIfNoDocumentsPostedRelatedToIt(Record KVSADVAdvanceChain, Boolean, Boolean, Enum KVSADVDocExistForAdvanceChain, Enum KVSADVWarnForAdvChainDeletion) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeDeleteAdvanceChainsIfNoDocumentsPostedRelatedToIt(var AdvanceChain: Record "KVSADVAdvanceChain"; ShouldClearAdvChainNoFromSourceDocument: Boolean; var IsHandled: Boolean; DocExistForAdvanceChain: Enum "KVSADVDocExistForAdvanceChain"; ShowWarningIfDocumentsExisting: Enum "KVSADVWarnForAdvChainDeletion"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeDeleteAdvanceChainsIfNoDocumentsPostedRelatedToIt', '', false, false)]
local procedure DoSomethingOnBeforeDeleteAdvanceChainsIfNoDocumentsPostedRelatedToIt(var AdvanceChain: Record "KVSADVAdvanceChain"; ShouldClearAdvChainNoFromSourceDocument: Boolean; var IsHandled: Boolean; DocExistForAdvanceChain: Enum "KVSADVDocExistForAdvanceChain"; ShowWarningIfDocumentsExisting: Enum "KVSADVWarnForAdvChainDeletion")
begin
end;
OnAfterUpdateAdvanceChainSystemID(Record KVSADVAdvanceChain) :#
[IntegrationEvent(false, false)]
local procedure OnAfterUpdateAdvanceChainSystemID(var AdvanceChain: Record "KVSADVAdvanceChain"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnAfterUpdateAdvanceChainSystemID', '', false, false)]
local procedure DoSomethingOnAfterUpdateAdvanceChainSystemID(var AdvanceChain: Record "KVSADVAdvanceChain")
begin
end;
OnBeforeGetReceivUnrealGLAccountForAdvChain(Record KVSADVAdvanceChain, Code[20]) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetReceivUnrealGLAccountForAdvChain(AdvanceChain: Record "KVSADVAdvanceChain"; var GLAccountNo: Code[20]):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeGetReceivUnrealGLAccountForAdvChain', '', false, false)]
local procedure DoSomethingOnBeforeGetReceivUnrealGLAccountForAdvChain(AdvanceChain: Record "KVSADVAdvanceChain"; var GLAccountNo: Code[20])
begin
end;
OnBeforeFillAdvanceChainFieldsFromSourceAccount(Record KVSADVAdvanceChain, Boolean, Interface KVSADViAdvanceChainInterface, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeFillAdvanceChainFieldsFromSourceAccount(var AdvanceChain: Record "KVSADVAdvanceChain"; ShouldModify: Boolean; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeFillAdvanceChainFieldsFromSourceAccount', '', false, false)]
local procedure DoSomethingOnBeforeFillAdvanceChainFieldsFromSourceAccount(var AdvanceChain: Record "KVSADVAdvanceChain"; ShouldModify: Boolean; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean)
begin
end;
OnBeforeFillAdvanceChainFieldsFromSourceDocument(Record KVSADVAdvanceChain, Boolean, Interface KVSADViAdvanceChainInterface, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeFillAdvanceChainFieldsFromSourceDocument(var AdvanceChain: Record "KVSADVAdvanceChain"; ShouldModify: Boolean; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeFillAdvanceChainFieldsFromSourceDocument', '', false, false)]
local procedure DoSomethingOnBeforeFillAdvanceChainFieldsFromSourceDocument(var AdvanceChain: Record "KVSADVAdvanceChain"; ShouldModify: Boolean; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean)
begin
end;
OnBeforeGetBaseAmount(Record KVSADVAdvanceChain, Interface KVSADViAdvanceChainInterface, Decimal, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetBaseAmount(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var BaseAmount: Decimal; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeGetBaseAmount', '', false, false)]
local procedure DoSomethingOnBeforeGetBaseAmount(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var BaseAmount: Decimal; var IsHandled: Boolean)
begin
end;
OnBeforeIsJobNoEditableInAdvPlanningEntries(Record KVSADVAdvanceChain, Interface KVSADViAdvanceChainInterface, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeIsJobNoEditableInAdvPlanningEntries(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsEditable: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeIsJobNoEditableInAdvPlanningEntries', '', false, false)]
local procedure DoSomethingOnBeforeIsJobNoEditableInAdvPlanningEntries(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsEditable: Boolean; var IsHandled: Boolean)
begin
end;
OnBeforeIsJobTaskNoEditableInAdvPlanningEntries(Record KVSADVAdvanceChain, Interface KVSADViAdvanceChainInterface, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeIsJobTaskNoEditableInAdvPlanningEntries(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsEditable: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeIsJobTaskNoEditableInAdvPlanningEntries', '', false, false)]
local procedure DoSomethingOnBeforeIsJobTaskNoEditableInAdvPlanningEntries(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsEditable: Boolean; var IsHandled: Boolean)
begin
end;
OnBeforeCheckMandatoryFieldsForAdvanceChainSupportAreFilled(RecordRef, Interface KVSADViAdvanceChainInterface, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckMandatoryFieldsForAdvanceChainSupportAreFilled(var RecRef: RecordRef; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeCheckMandatoryFieldsForAdvanceChainSupportAreFilled', '', false, false)]
local procedure DoSomethingOnBeforeCheckMandatoryFieldsForAdvanceChainSupportAreFilled(var RecRef: RecordRef; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean)
begin
end;
OnBeforeShowSourceDocumentOfAdvanceChain(Record KVSADVAdvanceChain, Interface KVSADViAdvanceChainInterface, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeShowSourceDocumentOfAdvanceChain(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeShowSourceDocumentOfAdvanceChain', '', false, false)]
local procedure DoSomethingOnBeforeShowSourceDocumentOfAdvanceChain(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean)
begin
end;
OnBeforeCreateClosingInvoiceFromAdvancePlan(Record KVSADVAdvanceChain, Record KVSADVAdvance Planning Entry, Interface KVSADViAdvanceChainInterfaceClosInvoiceFromAdvPlan, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCreateClosingInvoiceFromAdvancePlan(AdvanceChain: Record "KVSADVAdvanceChain"; var SelectedAdvPlanningEntries: Record "KVSADVAdvance Planning Entry"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterfaceClosInvoiceFromAdvPlan"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeCreateClosingInvoiceFromAdvancePlan', '', false, false)]
local procedure DoSomethingOnBeforeCreateClosingInvoiceFromAdvancePlan(AdvanceChain: Record "KVSADVAdvanceChain"; var SelectedAdvPlanningEntries: Record "KVSADVAdvance Planning Entry"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterfaceClosInvoiceFromAdvPlan"; var IsHandled: Boolean)
begin
end;
OnBeforeClearAdvanceChainNoForSourceDocument(Record KVSADVAdvanceChain, Interface KVSADViAdvanceChainInterface, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeClearAdvanceChainNoForSourceDocument(var AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeClearAdvanceChainNoForSourceDocument', '', false, false)]
local procedure DoSomethingOnBeforeClearAdvanceChainNoForSourceDocument(var AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainInterface"; var IsHandled: Boolean)
begin
end;
OnAfterCalculateAdvanceChainCompletionStatus(Record KVSADVAdvanceChain, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnAfterCalculateAdvanceChainCompletionStatus(AdvanceChain: Record "KVSADVAdvanceChain"; var AdvanceChainIsCompleted: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnAfterCalculateAdvanceChainCompletionStatus', '', false, false)]
local procedure DoSomethingOnAfterCalculateAdvanceChainCompletionStatus(AdvanceChain: Record "KVSADVAdvanceChain"; var AdvanceChainIsCompleted: Boolean)
begin
end;
OnBeforeDeleteAdvancePlanningEntriesOfAdvanceChain(Integer, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeDeleteAdvancePlanningEntriesOfAdvanceChain(AdvanceChainNo: Integer; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeDeleteAdvancePlanningEntriesOfAdvanceChain', '', false, false)]
local procedure DoSomethingOnBeforeDeleteAdvancePlanningEntriesOfAdvanceChain(AdvanceChainNo: Integer; var IsHandled: Boolean)
begin
end;
OnAfterDeleteAdvancePlanningEntriesOfAdvanceChain(Integer) :#
[IntegrationEvent(false, false)]
local procedure OnAfterDeleteAdvancePlanningEntriesOfAdvanceChain(AdvanceChainNo: Integer):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnAfterDeleteAdvancePlanningEntriesOfAdvanceChain', '', false, false)]
local procedure DoSomethingOnAfterDeleteAdvancePlanningEntriesOfAdvanceChain(AdvanceChainNo: Integer)
begin
end;
OnBeforeCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChain(Record KVSADVAdvanceChain, Enum KVSADVDocumentsExistForAdvanceChain, Boolean) :#
Obsolete
This Element will be removed or changed with a future Version of the App.
[Obsolete('This enum must be replaced with OnBeforeCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChainwithIsHandled, because change the enum KVSADVDocumentsExistForAdvanceChain', '24.4')]
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChain(AdvanceChain: Record "KVSADVAdvanceChain"; var Result: Enum "KVSADVDocumentsExistForAdvanceChain"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChain', '', false, false)]
local procedure DoSomethingOnBeforeCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChain(AdvanceChain: Record "KVSADVAdvanceChain"; var Result: Enum "KVSADVDocumentsExistForAdvanceChain"; var IsHandled: Boolean)
begin
end;
OnBeforeCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChainwithIsHandled(Record KVSADVAdvanceChain, Enum KVSADVDocExistForAdvanceChain, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChainwithIsHandled(AdvanceChain: Record "KVSADVAdvanceChain"; var Result: Enum "KVSADVDocExistForAdvanceChain"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChainwithIsHandled', '', false, false)]
local procedure DoSomethingOnBeforeCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChainwithIsHandled(AdvanceChain: Record "KVSADVAdvanceChain"; var Result: Enum "KVSADVDocExistForAdvanceChain"; var IsHandled: Boolean)
begin
end;
OnBeforeRecalculateAdvancePlanningEntry(Record KVSADVAdvance Planning Entry, Record KVSADVAdvanceChain) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeRecalculateAdvancePlanningEntry(var AdvancePlanningEntry: Record "KVSADVAdvance Planning Entry"; AdvanceChain: Record "KVSADVAdvanceChain"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeRecalculateAdvancePlanningEntry', '', false, false)]
local procedure DoSomethingOnBeforeRecalculateAdvancePlanningEntry(var AdvancePlanningEntry: Record "KVSADVAdvance Planning Entry"; AdvanceChain: Record "KVSADVAdvanceChain")
begin
end;
OnBeforeCreateAdvanceChainFromSystemID(Record KVSADVAdvanceChain) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCreateAdvanceChainFromSystemID(var AdvanceChain: Record "KVSADVAdvanceChain"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeCreateAdvanceChainFromSystemID', '', false, false)]
local procedure DoSomethingOnBeforeCreateAdvanceChainFromSystemID(var AdvanceChain: Record "KVSADVAdvanceChain")
begin
end;
OnBeforeGetAdvanceChainDisplayTextBoolean(Integer, Boolean, Text[10]) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetAdvanceChainDisplayTextBoolean(AdvanceChainNo: Integer; Active: Boolean; var DisplayText: Text[10]):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeGetAdvanceChainDisplayTextBoolean', '', false, false)]
local procedure DoSomethingOnBeforeGetAdvanceChainDisplayTextBoolean(AdvanceChainNo: Integer; Active: Boolean; var DisplayText: Text[10])
begin
end;
OnRetrieveAdvanceChainCreatePlanningEntriesPlanInterfaceProvider(Integer, Guid, Interface KVSADViAdvanceChainCreatePlanningEntriesByLines, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnRetrieveAdvanceChainCreatePlanningEntriesPlanInterfaceProvider(SourceTableID: Integer; SourceRecordSystemID: Guid; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainCreatePlanningEntriesByLines"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnRetrieveAdvanceChainCreatePlanningEntriesPlanInterfaceProvider', '', false, false)]
local procedure DoSomethingOnRetrieveAdvanceChainCreatePlanningEntriesPlanInterfaceProvider(SourceTableID: Integer; SourceRecordSystemID: Guid; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainCreatePlanningEntriesByLines"; var IsHandled: Boolean)
begin
end;
OnBeforeCreatePlanningEntriesFromLines(Record KVSADVAdvanceChain, Interface KVSADViAdvanceChainCreatePlanningEntriesByLines, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCreatePlanningEntriesFromLines(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainCreatePlanningEntriesByLines"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeCreatePlanningEntriesFromLines', '', false, false)]
local procedure DoSomethingOnBeforeCreatePlanningEntriesFromLines(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvanceChainCreatePlanningEntriesByLines"; var IsHandled: Boolean)
begin
end;
OnRetrieveApplyAdvancePlanTemplateInterfaceProvider(Integer, Guid, Interface KVSADViApplyAdvancePlanTemplate, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnRetrieveApplyAdvancePlanTemplateInterfaceProvider(SourceTableID: Integer; SourceRecordSystemID: Guid; var iAdvanceChainProvider: Interface "KVSADViApplyAdvancePlanTemplate"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnRetrieveApplyAdvancePlanTemplateInterfaceProvider', '', false, false)]
local procedure DoSomethingOnRetrieveApplyAdvancePlanTemplateInterfaceProvider(SourceTableID: Integer; SourceRecordSystemID: Guid; var iAdvanceChainProvider: Interface "KVSADViApplyAdvancePlanTemplate"; var IsHandled: Boolean)
begin
end;
OnBeforeGetAdvChNonDedVATPercentInterfaceImplementation(Record KVSADVAdvanceChain, Interface KVSADViAdvChNonDedVATPercent, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeGetAdvChNonDedVATPercentInterfaceImplementation(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvChNonDedVATPercent"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeGetAdvChNonDedVATPercentInterfaceImplementation', '', false, false)]
local procedure DoSomethingOnBeforeGetAdvChNonDedVATPercentInterfaceImplementation(AdvanceChain: Record "KVSADVAdvanceChain"; var iAdvanceChainProvider: Interface "KVSADViAdvChNonDedVATPercent"; var IsHandled: Boolean)
begin
end;
OnBeforeCheckChainNoDeletedinDocsAllowed(Integer, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckChainNoDeletedinDocsAllowed(AdvanceChainNo: Integer; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeCheckChainNoDeletedinDocsAllowed', '', false, false)]
local procedure DoSomethingOnBeforeCheckChainNoDeletedinDocsAllowed(AdvanceChainNo: Integer; var IsHandled: Boolean)
begin
end;
OnBeforeDeleteAdvanceChainSourceRecordSystemID(Integer, Guid, Integer, Enum KVSADVAdvanceChainType, Integer, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeDeleteAdvanceChainSourceRecordSystemID(TableNo: Integer; ForSystemID: Guid; OldAdvanceChainNo: Integer; OldAdvanceChainTypee: Enum "KVSADVAdvanceChainType"; NewAdvanceChainNo: Integer; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeDeleteAdvanceChainSourceRecordSystemID', '', false, false)]
local procedure DoSomethingOnBeforeDeleteAdvanceChainSourceRecordSystemID(TableNo: Integer; ForSystemID: Guid; OldAdvanceChainNo: Integer; OldAdvanceChainTypee: Enum "KVSADVAdvanceChainType"; NewAdvanceChainNo: Integer; var IsHandled: Boolean)
begin
end;
OnAfterCheckChainNoDeletedinDocsAllowed(Record KVSADVAdvanceChain) :#
[IntegrationEvent(false, false)]
local procedure OnAfterCheckChainNoDeletedinDocsAllowed(AdvanceChain: Record "KVSADVAdvanceChain"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnAfterCheckChainNoDeletedinDocsAllowed', '', false, false)]
local procedure DoSomethingOnAfterCheckChainNoDeletedinDocsAllowed(AdvanceChain: Record "KVSADVAdvanceChain")
begin
end;
OnCheckPostingRelevantFieldChangesAllowedOnCaseDocumentsExistCaseElse(Record KVSADVAdvanceChain, Enum KVSADVDocExistForAdvanceChain) :#
[IntegrationEvent(false, false)]
local procedure OnCheckPostingRelevantFieldChangesAllowedOnCaseDocumentsExistCaseElse(AdvanceChain: Record "KVSADVAdvanceChain"; DocExistForAdvanceChain: Enum "KVSADVDocExistForAdvanceChain"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnCheckPostingRelevantFieldChangesAllowedOnCaseDocumentsExistCaseElse', '', false, false)]
local procedure DoSomethingOnCheckPostingRelevantFieldChangesAllowedOnCaseDocumentsExistCaseElse(AdvanceChain: Record "KVSADVAdvanceChain"; DocExistForAdvanceChain: Enum "KVSADVDocExistForAdvanceChain")
begin
end;
OnBeforeCheckPostingRelevantFieldChangesAllowed(Record KVSADVAdvanceChain, Record KVSADVAdvanceChain, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckPostingRelevantFieldChangesAllowed(PreviousAdvanceChain: Record "KVSADVAdvanceChain"; UpdatedAdvanceChain: Record "KVSADVAdvanceChain"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnBeforeCheckPostingRelevantFieldChangesAllowed', '', false, false)]
local procedure DoSomethingOnBeforeCheckPostingRelevantFieldChangesAllowed(PreviousAdvanceChain: Record "KVSADVAdvanceChain"; UpdatedAdvanceChain: Record "KVSADVAdvanceChain"; var IsHandled: Boolean)
begin
end;
OnAfterCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChain(Record KVSADVAdvanceChain, Enum KVSADVDocExistForAdvanceChain) :#
[IntegrationEvent(false, false)]
local procedure OnAfterCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChain(AdvanceChain: Record "KVSADVAdvanceChain"; var DocExistForAdvanceChain: Enum "KVSADVDocExistForAdvanceChain"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSADVAdvanceChainMgtBase", 'OnAfterCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChain', '', false, false)]
local procedure DoSomethingOnAfterCheckAdvanceDocsOrAdvancePlanningEntriesExistForAdvChain(AdvanceChain: Record "KVSADVAdvanceChain"; var DocExistForAdvanceChain: Enum "KVSADVDocExistForAdvanceChain")
begin
end;