Skip to content

KVSGAEB Management#

Procedures#

ConvertTextToDec(Integer, Integer, Text) : Decimal#

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

RenumberDocLines(Record KVSGAEB Document Lines) :#

procedure RenumberDocLines(var TempDocLinesVar: Record "KVSGAEB Document Lines"):

TransferToSalesQuoteAgain(Notification) :#

procedure TransferToSalesQuoteAgain(NotificationPar: Notification):

CheckForLocks(Record KVSGAEB Document Header) :#

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

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;