Skip to content

KVSGAEB Management#

Procedures#

ConvertTextToDec(Integer, Integer, Text) : Decimal#

Summary: Converts a text string to a decimal value by parsing integer and decimal parts separately. Used for parsing GAEB formatted decimal values from text files.

procedure ConvertTextToDec(AmountBeforePar: Integer; DecimalsPar: Integer; DecimalStringPar: Text): Decimal

Parameters:

  • AmountBeforePar: Number of characters to read for the integer part.
  • DecimalsPar: Number of characters to read for the decimal part.
  • DecimalStringPar: The text string containing the decimal value to convert.

Returns: The converted decimal value combining integer and decimal parts.

RenumberDocLines(Record KVSGAEB Document Lines) :#

Obsolete

This Element will be removed or changed with a future Version of the App.

Summary: Renumber Doclines in Steps of 10000

[Obsolete('Use new Overload of same function.', '26.3')]
procedure RenumberDocLines(var TempDocLinesVar: Record "KVSGAEB Document Lines"):

Parameters:

  • TempDocLinesVar: Document Lines to renumer

RenumberDocLines(Record KVSGAEB Document Header, Record KVSGAEB Document Lines) :#

Summary: Renumber Doclines in Steps of 10000

procedure RenumberDocLines(DocumentHeader: Record "KVSGAEB Document Header"; var DocumentLine: Record "KVSGAEB Document Lines"):

Parameters:

  • DocumentHeader: related Document Header
  • TempDocLinesVar: Document Lines to renumber

TransferToSalesQuoteAgain(Notification) :#

Summary: Handles the notification action to transfer a GAEB document to a sales quote again. Processes notification data to identify the document and performs transfer for quotes or expenditures.

procedure TransferToSalesQuoteAgain(NotificationPar: Notification):

Parameters:

  • NotificationPar: The notification containing document information and transfer type.

CheckForLocks(Record KVSGAEB Document Header) :#

Summary: Checks for document and line locks based on the setup configuration. Validates user permissions and throws errors if the document or lines are locked by another user.

procedure CheckForLocks(DocHeaderPar: Record "KVSGAEB Document Header"):

Parameters:

  • DocHeaderPar: The GAEB document header to check for locks.

Events#

SetAutomaticImport(Boolean) :#

[IntegrationEvent(false, false)]
local procedure SetAutomaticImport(var IsActive: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSGAEB Management", 'SetAutomaticImport', '', false, false)]
local procedure DoSomethingSetAutomaticImport(var IsActive: Boolean)
begin
end;

SetIsHandled(Boolean) :#

[IntegrationEvent(false, false)]
local procedure SetIsHandled(var IsActive: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSGAEB Management", 'SetIsHandled', '', false, false)]
local procedure DoSomethingSetIsHandled(var IsActive: Boolean)
begin
end;

OnBeforeMapSurch(Record KVSGAEB Group Mapping Ext, Enum KVSGAEB Position Type Internal, Code[20]) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeMapSurch(var SurchMappingVar: Record "KVSGAEB Group Mapping Ext"; Type: Enum "KVSGAEB Position Type Internal"; NoPar: Code[20]): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSGAEB Management", 'OnBeforeMapSurch', '', false, false)]
local procedure DoSomethingOnBeforeMapSurch(var SurchMappingVar: Record "KVSGAEB Group Mapping Ext"; Type: Enum "KVSGAEB Position Type Internal"; NoPar: Code[20])
begin
end;

OnAfterFindSurchMapping(Record KVSGAEB Group Mapping Ext, Enum KVSGAEB Position Type Internal, Code[20], Code[20], Decimal, Decimal, Boolean) :#

Summary: This event is called AFTER the default sucharge mapping is ececuted. This is used to check or change the Surcharge Mapping Line.

[IntegrationEvent(false, false)]
local procedure OnAfterFindSurchMapping(var SurchMapping: Record "KVSGAEB Group Mapping Ext"; Type: Enum "KVSGAEB Position Type Internal"; CustomerNo: Code[20]; No: Code[20]; var Surcharge: Decimal; var Surcharge2: Decimal; isProd: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSGAEB Management", 'OnAfterFindSurchMapping', '', false, false)]
local procedure DoSomethingOnAfterFindSurchMapping(var SurchMapping: Record "KVSGAEB Group Mapping Ext"; Type: Enum "KVSGAEB Position Type Internal"; CustomerNo: Code[20]; No: Code[20]; var Surcharge: Decimal; var Surcharge2: Decimal; isProd: Boolean)
begin
end;

Parameters:

  • SurchMapping: The found (or empty) Surcharge Mapping Line
  • Type: Type of the surcharge related Position (item, ressource...)
  • CustomerNo: Customer No.
  • No: No. (depending on Type) of the surcharge related line
  • Surcharge: Surcharge
  • Surcharge2: Second Surcharge
  • isProd: Indicates wether Production is used or GAEB Calc BOM

OnAfterRenumberDocLine(Record KVSGAEB Document Lines, Integer) :#

[IntegrationEvent(false, false)]
local procedure OnAfterRenumberDocLine(var DocLineVar: Record "KVSGAEB Document Lines"; OldLineNoPar: Integer): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSGAEB Management", 'OnAfterRenumberDocLine', '', false, false)]
local procedure DoSomethingOnAfterRenumberDocLine(var DocLineVar: Record "KVSGAEB Document Lines"; OldLineNoPar: Integer)
begin
end;

SetConfirmQuoteIsHandled(Boolean) :#

[IntegrationEvent(false, false)]
local procedure SetConfirmQuoteIsHandled(var IsActive: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSGAEB Management", 'SetConfirmQuoteIsHandled', '', false, false)]
local procedure DoSomethingSetConfirmQuoteIsHandled(var IsActive: Boolean)
begin
end;