Skip to content

KVSKBAPurchasePriceLib#

Procedures#

AddPricesListLineHierachy(Codeunit Price Source List, Code[20]) :#

procedure AddPricesListLineHierachy(var PriceSourceList: Codeunit "Price Source List"; VendorNo: Code[20]): 

CopyPurchCondLinesLDiscPriceListLine(Record Price List Line, Record KVSKBAPurchaseConditionLine, Code[20], Decimal, Record Currency, Decimal, Date, Code[10], Decimal) :#

procedure CopyPurchCondLinesLDiscPriceListLine(var FromPriceListLine: Record "Price List Line"; var toPurchCondLineVar: Record "KVSKBAPurchaseConditionLine"; itemNoPar: Code[20]; initialPricePar: Decimal; docCurrencyPar: Record "Currency"; docCurrencyFactorPar: Decimal; docExchDatePar: Date; docUOMCodePar: Code[10]; docQtyPerUOMPar: Decimal): 

ShowPurchPriceDiscCalcLines(Record Purchase Line, Option) :#

procedure ShowPurchPriceDiscCalcLines(var purchLineVar: Record "Purchase Line"; lineTypePar: Option): 

DeletePurchPriceDiscCalcTab38(Record Purchase Header) :#

procedure DeletePurchPriceDiscCalcTab38(purchHeaderPar: Record "Purchase Header"): 

DeletePurchPriceDiscCalcTab39(Record Purchase Line, Option, Boolean, Decimal, Boolean) :#

procedure DeletePurchPriceDiscCalcTab39(purchLinePar: Record "Purchase Line"; lineTypePar: Option; unconditionalPar: Boolean; comparativeValuePar: Decimal; hideConfirmPar: Boolean): 

CopyPurchPriceDiscTab39Tab39(Record Purchase Line, Record Purchase Line) :#

procedure CopyPurchPriceDiscTab39Tab39(fromPurchLinePar: Record "Purchase Line"; toPurchLinePar: Record "Purchase Line"): 

CopyPurchPriceDiscTab5110Tab39(Record Purchase Line Archive, Record Purchase Line) :#

procedure CopyPurchPriceDiscTab5110Tab39(fromPurchLineArchPar: Record "Purchase Line Archive"; toPurchLinePar: Record "Purchase Line"): 

NewCalcDUCostLDiscPurchLines(Record Purchase Line) :#

Summary: the function starts a new calculation of "Direct Unit Cost" and "Line Discount %" of the filtered purchase lines

procedure NewCalcDUCostLDiscPurchLines(var PurchaseLine: Record "Purchase Line"): 

Parameters:

  • PurchaseLine: filtered purchase lines

CheckExtendedPriceCalcEnabled() : Boolean#

Obsolete

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

[Obsolete('The price calculation needs a redesign due to the standard changes, possibly the function will not be available in the future.', '18.3')]
procedure CheckExtendedPriceCalcEnabled(): Boolean

Events#

OnLookupPurchCondNoInPurchPriceOnSetFilterPurchCondHeader(Record KVSKBAPurchaseConditionHeader, Record KVSKBAPurchasePrice) :#

Obsolete

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

[Obsolete('The price calculation needs a redesign due to the standard changes, possibly the function will not be available in the future.', '18.3')]
[IntegrationEvent(false, false)]
local procedure OnLookupPurchCondNoInPurchPriceOnSetFilterPurchCondHeader(PurchaseConditionHeader: Record "KVSKBAPurchaseConditionHeader"; var PurchasePrice: Record "KVSKBAPurchasePrice"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAPurchasePriceLib", 'OnLookupPurchCondNoInPurchPriceOnSetFilterPurchCondHeader', '', false, false)]
local procedure DoSomethingOnLookupPurchCondNoInPurchPriceOnSetFilterPurchCondHeader(PurchaseConditionHeader: Record "KVSKBAPurchaseConditionHeader"; var PurchasePrice: Record "KVSKBAPurchasePrice")
begin
end;

OnLookupPurchPriceCondNoInPricePriceListOnSetFilterPurchCondHeader(Record KVSKBAPurchaseConditionHeader, Record Price List Line) :#

[IntegrationEvent(false, false)]
local procedure OnLookupPurchPriceCondNoInPricePriceListOnSetFilterPurchCondHeader(KVSKBAPurchaseConditionHeader: Record "KVSKBAPurchaseConditionHeader"; var PriceListLine: Record "Price List Line"): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAPurchasePriceLib", 'OnLookupPurchPriceCondNoInPricePriceListOnSetFilterPurchCondHeader', '', false, false)]
local procedure DoSomethingOnLookupPurchPriceCondNoInPricePriceListOnSetFilterPurchCondHeader(KVSKBAPurchaseConditionHeader: Record "KVSKBAPurchaseConditionHeader"; var PriceListLine: Record "Price List Line")
begin
end;

OnCalcPurchCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculation(Record KVSKBAPurchaseConditionHeader, Record Price List Line, Boolean) :#

Obsolete

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

[IntegrationEvent(false, false)]
[Obsolete('Use OnCalcPurchCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculationwithIsHandled instead', '24.3')]
local procedure OnCalcPurchCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculation(KVSKBAPurchaseConditionHeader: Record "KVSKBAPurchaseConditionHeader"; var PriceListLine: Record "Price List Line"; IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAPurchasePriceLib", 'OnCalcPurchCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculation', '', false, false)]
local procedure DoSomethingOnCalcPurchCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculation(KVSKBAPurchaseConditionHeader: Record "KVSKBAPurchaseConditionHeader"; var PriceListLine: Record "Price List Line"; IsHandled: Boolean)
begin
end;

OnCalcPurchCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculationwithIsHandled(Record KVSKBAPurchaseConditionHeader, Record Price List Line, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnCalcPurchCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculationwithIsHandled(KVSKBAPurchaseConditionHeader: Record "KVSKBAPurchaseConditionHeader"; var PriceListLine: Record "Price List Line"; var IsHandled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAPurchasePriceLib", 'OnCalcPurchCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculationwithIsHandled', '', false, false)]
local procedure DoSomethingOnCalcPurchCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculationwithIsHandled(KVSKBAPurchaseConditionHeader: Record "KVSKBAPurchaseConditionHeader"; var PriceListLine: Record "Price List Line"; var IsHandled: Boolean)
begin
end;

OnShowPurchPriceDiscCalcLinesOnBeforeCaseLineType(Record Purchase Line, Option, Record KVSKBAPurchPriceDiscCalcLine, Record KVSKBAPurchPriceDiscCalcLine) :#

[IntegrationEvent(false, false)]
local procedure OnShowPurchPriceDiscCalcLinesOnBeforeCaseLineType(var PurchaseLine: Record "Purchase Line"; LineType: Option; PurchPriceDiscCalcLine: Record "KVSKBAPurchPriceDiscCalcLine"; var TempPurchPriceDiscCalcLine: Record "KVSKBAPurchPriceDiscCalcLine" temporary): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAPurchasePriceLib", 'OnShowPurchPriceDiscCalcLinesOnBeforeCaseLineType', '', false, false)]
local procedure DoSomethingOnShowPurchPriceDiscCalcLinesOnBeforeCaseLineType(var PurchaseLine: Record "Purchase Line"; LineType: Option; PurchPriceDiscCalcLine: Record "KVSKBAPurchPriceDiscCalcLine"; var TempPurchPriceDiscCalcLine: Record "KVSKBAPurchPriceDiscCalcLine" temporary)
begin
end;

OnBeforeCheckExtendedPriceCalcEnabled(Boolean, Boolean) :#

Obsolete

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

[Obsolete('The price calculation needs a redesign due to the standard changes, possibly the function will not be available in the future.', '18.3')]
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckExtendedPriceCalcEnabled(var ExtendedPriceCalcEnabled: Boolean; var Handled: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAPurchasePriceLib", 'OnBeforeCheckExtendedPriceCalcEnabled', '', false, false)]
local procedure DoSomethingOnBeforeCheckExtendedPriceCalcEnabled(var ExtendedPriceCalcEnabled: Boolean; var Handled: Boolean)
begin
end;

OnBeforeDeletePurchPriceDiscCalcTab39(Record Purchase Line, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeDeletePurchPriceDiscCalcTab39(PurchaseLine: Record "Purchase Line"; var Unconditional: Boolean): 
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAPurchasePriceLib", 'OnBeforeDeletePurchPriceDiscCalcTab39', '', false, false)]
local procedure DoSomethingOnBeforeDeletePurchPriceDiscCalcTab39(PurchaseLine: Record "Purchase Line"; var Unconditional: Boolean)
begin
end;