KVSPSAJobDocumentLinePrice#
Procedures#
CopyToBuffer(Codeunit Price Calculation Buffer Mgt.) : Boolean#
procedure CopyToBuffer(var PriceCalculationBufferMgt: Codeunit "Price Calculation Buffer Mgt."): Boolean
GetAssetType() : Enum#
Summary: Get the asset type based on the job document line type. This procedure determines the asset type of the job document line and sets it to the provided AssetType variable.
procedure GetAssetType(): Enum Price Asset Type
Returns: Returns the asset type as an Enum "Price Asset Type".
GetLine(Variant) :#
Summary: Get the current job document line. This procedure retrieves the current job document line and returns it as a Variant.
procedure GetLine(var LineVariant: Variant):
Parameters:
LineVariant: Pass a reference to a Variant where the job document line will be stored.
GetLine(Variant, Variant) :#
Summary: Get the current job document header and line. This procedure retrieves the current job document header and line, storing them in the provided variants.
procedure GetLine(var HeaderVariant: Variant; var LineVariant: Variant):
Parameters:
HeaderVariant: Pass a reference to a Variant where the job document header will be stored.LineVariant: Pass a reference to a Variant where the job document line will be stored.
GetPriceType() : Enum#
Summary: Get the current price type. This procedure retrieves the current price type and returns it as an Enum "Price Type".
procedure GetPriceType(): Enum Price Type
Returns: Returns the current price type as an Enum "Price Type".
GetTableNo() : Integer#
Summary: Get the table number for the job document line. This procedure retrieves the table number for the job document line and returns it as an Integer.
procedure GetTableNo(): Integer
Returns: Returns the table number for the job document line as an Integer.
IsDiscountAllowed() : Boolean#
Summary: Check if a discount is allowed. This procedure checks if a discount is allowed based on the global discount flag and whether the price has been calculated.
procedure IsDiscountAllowed(): Boolean
Returns: Returns true if a discount is allowed, otherwise false.
IsPriceUpdateNeeded(Enum Price Amount Type, Boolean, Integer) : Boolean#
procedure IsPriceUpdateNeeded(AmountType: Enum "Price Amount Type"; FoundPrice: Boolean; CalledByFieldNo: Integer): Boolean
SetAssetSourceForSetup(Record Dtld. Price Calculation Setup) : Boolean#
Summary: Set the asset source for the detailed price calculation setup. This procedure initializes a new "Dtld. Price Calculation Setup" record and sets the asset source based on the current job document line.
procedure SetAssetSourceForSetup(var DtldPriceCalculationSetup: Record "Dtld. Price Calculation Setup"): Boolean
Parameters:
DtldPriceCalculationSetup: Pass a reference to the "Dtld. Price Calculation Setup" record where the asset source will be set.
Returns: Returns true if the asset source is set successfully, otherwise false.
SetLine(Enum Price Type, Variant) :#
procedure SetLine(PriceType: Enum "Price Type"; LineVariant: Variant):
SetLine(Enum Price Type, Variant, Variant) :#
procedure SetLine(PriceType: Enum "Price Type"; HeaderVariant: Variant; LineVariant: Variant):
SetPrice(Enum Price Amount Type, Record Price List Line) :#
procedure SetPrice(AmountType: Enum "Price Amount Type"; PriceListLine: Record "Price List Line"):
SetSources(Codeunit Price Source List) :#
procedure SetSources(var NewPriceSourceList: Codeunit "Price Source List"):
Update(Enum Price Amount Type) :#
procedure Update(AmountType: Enum "Price Amount Type"):
ValidatePrice(Enum Price Amount Type) :#
procedure ValidatePrice(AmountType: Enum "Price Amount Type"):
Verify() :#
Summary: Verify the job document line. This procedure checks the job document line fields for validity.
procedure Verify():
Events#
KVSPSAOnAfterAddSources(Record KVSPSAJob Document Header, Record KVSPSAJob Document Line, Enum Price Type, Codeunit Price Source List) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterAddSources(JobDocumentHeader: Record "KVSPSAJob Document Header"; JobDocumentLine: Record "KVSPSAJob Document Line"; PriceType: Enum "Price Type"; var PriceSourceList: Codeunit "Price Source List"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAJobDocumentLinePrice", 'KVSPSAOnAfterAddSources', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterAddSources(JobDocumentHeader: Record "KVSPSAJob Document Header"; JobDocumentLine: Record "KVSPSAJob Document Line"; PriceType: Enum "Price Type"; var PriceSourceList: Codeunit "Price Source List")
begin
end;
KVSPSAOnAfterFillBuffer(Record Price Calculation Buffer, Record KVSPSAJob Document Header, Record KVSPSAJob Document Line) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterFillBuffer(var PriceCalculationBuffer: Record "Price Calculation Buffer"; JobDocumentHeader: Record "KVSPSAJob Document Header"; JobDocumentLine: Record "KVSPSAJob Document Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAJobDocumentLinePrice", 'KVSPSAOnAfterFillBuffer', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterFillBuffer(var PriceCalculationBuffer: Record "Price Calculation Buffer"; JobDocumentHeader: Record "KVSPSAJob Document Header"; JobDocumentLine: Record "KVSPSAJob Document Line")
begin
end;
KVSPSAOnAfterGetAssetType(Record KVSPSAJob Document Line, Enum Price Asset Type) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterGetAssetType(JobDocumentLine: Record "KVSPSAJob Document Line"; var AssetType: Enum "Price Asset Type"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAJobDocumentLinePrice", 'KVSPSAOnAfterGetAssetType', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterGetAssetType(JobDocumentLine: Record "KVSPSAJob Document Line"; var AssetType: Enum "Price Asset Type")
begin
end;
KVSPSAOnAfterSetPrice(Record KVSPSAJob Document Line, Record Price List Line, Enum Price Amount Type) :#
[IntegrationEvent(false, false)]
local procedure KVSPSAOnAfterSetPrice(var JobDocumentLine: Record "KVSPSAJob Document Line"; PriceListLine: Record "Price List Line"; AmountType: Enum "Price Amount Type"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSPSAJobDocumentLinePrice", 'KVSPSAOnAfterSetPrice', '', false, false)]
local procedure DoSomethingKVSPSAOnAfterSetPrice(var JobDocumentLine: Record "KVSPSAJob Document Line"; PriceListLine: Record "Price List Line"; AmountType: Enum "Price Amount Type")
begin
end;