KVSKBASalesPriceLib#
Procedures#
KVSKBAAddPricesHierachy(Codeunit Price Source List, Code[20], Code[20]) :#
procedure KVSKBAAddPricesHierachy(var PriceSourceList: Codeunit "Price Source List"; CustomerNo: Code[20]; ItemCategoryCode: Code[20]):
AddSalesPricesHierachCU7000(Record KVSKBASalesPrice, Record KVSKBASalesPrice, Record KVSKBASalesConditionLine, Code[20], Record Currency, Decimal, Date, Code[10], Decimal, Decimal, Code[20], Code[20], Code[10], Code[10]) :#
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 AddSalesPricesHierachCU7000(var fromSalesPriceVar: Record "KVSKBASalesPrice"; var toSalesPriceVar: Record "KVSKBASalesPrice"; var toSalesCondLineVar: Record "KVSKBASalesConditionLine"; custNoPar: Code[20]; docCurrencyPar: Record "Currency"; docCurrencyFactorPar: Decimal; docExchRateDatePar: Date; docUOMCodePar: Code[10]; docQtyPerUOMPar: Decimal; docQtyPar: Decimal; docItemNoPar: Code[20]; ItemCategoryCodePar: Code[20]; DocVariantCodePar: Code[10]; DocLocationCodePar: Code[10]):
CopySalesCondLinesPriceCalculation(Record Price List Line, Record KVSKBASalesConditionLine, Code[20], Code[10], Code[10], Record Currency, Decimal, Date, Code[10], Decimal, Decimal) :#
procedure CopySalesCondLinesPriceCalculation(var FromPriceListLine: Record "Price List Line"; var toSalesCondLineVar: Record "KVSKBASalesConditionLine"; itemNoPar: Code[20]; DocVariantCodePar: Code[10]; DocLocationCodePar: Code[10]; docCurrencyPar: Record "Currency"; docCurrencyFactorPar: Decimal; docExchRateDatePar: Date; docUOMCodePar: Code[10]; docQtyPerUOMPar: Decimal; docQtyPar: Decimal):
CopySalesCondLinesLDiscPriceCalculation(Record Price List Line, Record KVSKBASalesConditionLine, Code[20], Decimal, Record Currency, Decimal, Date, Code[10], Decimal) :#
procedure CopySalesCondLinesLDiscPriceCalculation(var FromPriceListLine: Record "Price List Line"; var toSalesCondLineVar: Record "KVSKBASalesConditionLine"; itemNoPar: Code[20]; initialPricePar: Decimal; docCurrencyPar: Record "Currency"; docCurrencyFactorPar: Decimal; docExchDatePar: Date; docUOMCodePar: Code[10]; docQtyPerUOMPar: Decimal):
CalcSalesPriceInitialPrice(Record KVSKBASalesConditionHeader, Record KVSKBASalesPrice, Record Item, Code[10], Code[10], Decimal, Decimal, Decimal, Code[10], Decimal, Date, Code[10], Decimal) :#
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 CalcSalesPriceInitialPrice(salesCondHeaderPar: Record "KVSKBASalesConditionHeader"; salesPricePar: Record "KVSKBASalesPrice"; itemPar: Record "Item"; DocVariantCodePar: Code[10]; DocLocationCodePar: Code[10]; DocQtyPar: Decimal; DocQtyPerUOMPar: Decimal; var initialPriceVar: Decimal; var initialPriceCurrencyCodeVar: Code[10]; var initialPriceCurrencyFactorVar: Decimal; var initialPriceExchRateDateVar: Date; var initialPriceUOMCodeVar: Code[10]; var initialPriceQtyPerUOMVar: Decimal):
CalcSalesPriceInitialPrice(Record KVSKBASalesConditionHeader, Record Price List Line, Record Item, Code[10], Code[10], Decimal, Decimal, Decimal, Code[10], Decimal, Date, Code[10], Decimal) :#
procedure CalcSalesPriceInitialPrice(salesCondHeaderPar: Record "KVSKBASalesConditionHeader"; PriceListLine: Record "Price List Line"; itemPar: Record "Item"; DocVariantCodePar: Code[10]; DocLocationCodePar: Code[10]; DocQtyPar: Decimal; DocQtyPerUOMPar: Decimal; var initialPriceVar: Decimal; var initialPriceCurrencyCodeVar: Code[10]; var initialPriceCurrencyFactorVar: Decimal; var initialPriceExchRateDateVar: Date; var initialPriceUOMCodeVar: Code[10]; var initialPriceQtyPerUOMVar: Decimal):
CalcDirectUnitCostForSalesCondition(Record Item, Code[10], Code[10], Decimal, Decimal) : Decimal#
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 CalcDirectUnitCostForSalesCondition(ItemPar: Record "Item"; DocVariantCodePar: Code[10]; DocLocationCodePar: Code[10]; DocQtyPar: Decimal; DocQtyPerUOMPar: Decimal): Decimal
CalcDirectUnitCostForSalesConditionPriceListLine(Record Item, Code[10], Code[10], Decimal, Decimal) : Decimal#
procedure CalcDirectUnitCostForSalesConditionPriceListLine(Item: Record "Item"; VariantCode: Code[10]; LocationCode: Code[10]; Quantity: Decimal; SalesQtyPerUOM: Decimal): Decimal
CalculateSalesCondition(Record KVSKBASalesConditionHeader, Decimal, Code[10], Decimal, Date, Code[10], Decimal, Record Currency, Decimal, Date, Code[10], Decimal, Code[10], Decimal, Integer, Record KVSKBASalesConditionLine) :#
procedure CalculateSalesCondition(salesCondNoHeaderPar: Record "KVSKBASalesConditionHeader"; initialPricePar: Decimal; initialPriceCurrencyCodePar: Code[10]; initialPriceCurrencyFactorPar: Decimal; initialPriceExchRateDatePar: Date; initialPriceUOMCodePar: Code[10]; initialPriceQtyPerUOMPar: Decimal; docCurrencyPar: Record "Currency"; docCurrencyFactorPar: Decimal; docExchRateDatePar: Date; docUOMCodePar: Code[10]; docQtyPerUOMPar: Decimal; uOMCodePar: Code[10]; qtyPerUOMPar: Decimal; referenceNoPar: Integer; var tempSalesCondLineVar: Record "KVSKBASalesConditionLine" temporary):
ShowSalesPriceDiscCalcLines(Record Sales Line, Option) :#
procedure ShowSalesPriceDiscCalcLines(var salesLineVar: Record "Sales Line"; lineTypePar: Option):
ShowSalesPriceDiscCalcLineArch(Record Sales Line Archive, Option) :#
procedure ShowSalesPriceDiscCalcLineArch(salesLineArchPar: Record "Sales Line Archive"; lineTypePar: Option):
ShowPostSalesPriceDiscCalcLine(Record Sales Header, Record Sales Line, Option, Code[20], Integer, Option) :#
procedure ShowPostSalesPriceDiscCalcLine(PostedSalesHeaderPar: Record "Sales Header"; PostedSalesLinePar: Record "Sales Line"; DocTypePar: Option; DocNoPar: Code[20]; DocLineNoPar: Integer; LineTypePar: Option):
DeleteSalesPriceDiscCalcTab36(Record Sales Header) :#
procedure DeleteSalesPriceDiscCalcTab36(salesHeaderPar: Record "Sales Header"):
DeleteSalesPriceDiscCalcTab37(Record Sales Line, Option, Boolean, Decimal, Boolean) :#
procedure DeleteSalesPriceDiscCalcTab37(salesLinePar: Record "Sales Line"; lineTypePar: Option; unconditionalPar: Boolean; comparativeValuePar: Decimal; hideConfirmPar: Boolean):
DeletePostSalesPriceDiscT110(Record Sales Shipment Header) :#
procedure DeletePostSalesPriceDiscT110(salesShptHeaderPar: Record "Sales Shipment Header"):
CopySalesPriceDiscTab37Tab37(Record Sales Line, Record Sales Line) :#
procedure CopySalesPriceDiscTab37Tab37(fromSalesLinePar: Record "Sales Line"; toSalesLinePar: Record "Sales Line"):
CopySalesPriceDiscTab5108Tab37(Record Sales Line Archive, Record Sales Line) :#
procedure CopySalesPriceDiscTab5108Tab37(fromSalesLineArchPar: Record "Sales Line Archive"; toSalesLinePar: Record "Sales Line"):
NewCalcUPriceLDiscSalesLine(Record Sales Line, Record Sales Line) :#
Summary: This function starts a new calculation of the fields "Unit Price" and "Line Discount %" of a Sales Line. The price origin and discount origin are reset in the process.
procedure NewCalcUPriceLDiscSalesLine(var SourceSalesLine: Record "Sales Line"; OldSalesLine: Record "Sales Line"):
Parameters:
SourceSalesLine: Current sales line where the prices and discounts are to be recalculated.OldSalesLine: Previous content of the Records Sales Line
SavePriceAndDiscount(Record Sales Line, Record Sales Line) :#
procedure SavePriceAndDiscount(salesLinePar: Record "Sales Line"; var salesLineVar: Record "Sales Line"):
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
SetCalcDate(Date) :#
procedure SetCalcDate(NewDate: Date):
GetCalcDate() : Date#
procedure GetCalcDate(): Date
Events#
OnShowSalesPriceDiscCalcLinesOnbeforeCaseLineTypePrice(Record Sales Line, Option, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnShowSalesPriceDiscCalcLinesOnbeforeCaseLineTypePrice(var SalesLine: Record "Sales Line"; LineType: Option; var Handled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnShowSalesPriceDiscCalcLinesOnbeforeCaseLineTypePrice', '', false, false)]
local procedure DoSomethingOnShowSalesPriceDiscCalcLinesOnbeforeCaseLineTypePrice(var SalesLine: Record "Sales Line"; LineType: Option; var Handled: Boolean)
begin
end;
OnBeforeShowSalesPriceDiscCalcLines(Record Sales Line, Option, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeShowSalesPriceDiscCalcLines(var SalesLineVar: Record "Sales Line"; LineTypePar: Option; var Handled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnBeforeShowSalesPriceDiscCalcLines', '', false, false)]
local procedure DoSomethingOnBeforeShowSalesPriceDiscCalcLines(var SalesLineVar: Record "Sales Line"; LineTypePar: Option; var Handled: Boolean)
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::"KVSKBASalesPriceLib", 'OnBeforeCheckExtendedPriceCalcEnabled', '', false, false)]
local procedure DoSomethingOnBeforeCheckExtendedPriceCalcEnabled(var ExtendedPriceCalcEnabled: Boolean; var Handled: Boolean)
begin
end;
OnLookupSalesCondNoInSalesPriceOnAfterSetfilter(Record KVSKBASalesConditionHeader, Record KVSKBASalesPrice) :#
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 OnLookupSalesCondNoInSalesPriceOnAfterSetfilter(var SalesCondHeader: Record "KVSKBASalesConditionHeader"; SalesPrice: Record "KVSKBASalesPrice"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnLookupSalesCondNoInSalesPriceOnAfterSetfilter', '', false, false)]
local procedure DoSomethingOnLookupSalesCondNoInSalesPriceOnAfterSetfilter(var SalesCondHeader: Record "KVSKBASalesConditionHeader"; SalesPrice: Record "KVSKBASalesPrice")
begin
end;
OnLookupSalesPriceCondNoInPriceListLineOnAfterSetFilter(Record KVSKBASalesConditionHeader, Record Price List Line) :#
[IntegrationEvent(false, false)]
local procedure OnLookupSalesPriceCondNoInPriceListLineOnAfterSetFilter(var KVSKBASalesConditionHeader: Record "KVSKBASalesConditionHeader"; PriceListLine: Record "Price List Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnLookupSalesPriceCondNoInPriceListLineOnAfterSetFilter', '', false, false)]
local procedure DoSomethingOnLookupSalesPriceCondNoInPriceListLineOnAfterSetFilter(var KVSKBASalesConditionHeader: Record "KVSKBASalesConditionHeader"; PriceListLine: Record "Price List Line")
begin
end;
OnLookupSalesCondNoInSalesLiDiscOnAfterSetfilter(Record KVSKBASalesConditionHeader, Record KVSKBASalesLineDiscount) :#
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 OnLookupSalesCondNoInSalesLiDiscOnAfterSetfilter(var SalesCondHeader: Record "KVSKBASalesConditionHeader"; SalesLineDiscount: Record "KVSKBASalesLineDiscount"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnLookupSalesCondNoInSalesLiDiscOnAfterSetfilter', '', false, false)]
local procedure DoSomethingOnLookupSalesCondNoInSalesLiDiscOnAfterSetfilter(var SalesCondHeader: Record "KVSKBASalesConditionHeader"; SalesLineDiscount: Record "KVSKBASalesLineDiscount")
begin
end;
OnLookupSalesDiscountCondNoInPriceListLineDiscOnAfterSetfilter(Record KVSKBASalesConditionHeader, Record Price List Line) :#
[IntegrationEvent(false, false)]
local procedure OnLookupSalesDiscountCondNoInPriceListLineDiscOnAfterSetfilter(var KVSKBASalesConditionHeader: Record "KVSKBASalesConditionHeader"; PriceListLine: Record "Price List Line"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnLookupSalesDiscountCondNoInPriceListLineDiscOnAfterSetfilter', '', false, false)]
local procedure DoSomethingOnLookupSalesDiscountCondNoInPriceListLineDiscOnAfterSetfilter(var KVSKBASalesConditionHeader: Record "KVSKBASalesConditionHeader"; PriceListLine: Record "Price List Line")
begin
end;
OnCalcSalesCondNoInSalesPriceOnBeforeCheckAllowBaseofCalculation(Record KVSKBASalesPrice, Record KVSKBASalesConditionHeader, 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 OnCalcSalesCondNoInSalesPriceOnBeforeCheckAllowBaseofCalculation(SalesPrice: Record "KVSKBASalesPrice"; SalesCondHeader: Record "KVSKBASalesConditionHeader"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCalcSalesCondNoInSalesPriceOnBeforeCheckAllowBaseofCalculation', '', false, false)]
local procedure DoSomethingOnCalcSalesCondNoInSalesPriceOnBeforeCheckAllowBaseofCalculation(SalesPrice: Record "KVSKBASalesPrice"; SalesCondHeader: Record "KVSKBASalesConditionHeader"; var IsHandled: Boolean)
begin
end;
OnCalcSalesPriceCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculation(Record Price List Line, Record KVSKBASalesConditionHeader, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnCalcSalesPriceCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculation(PriceListLine: Record "Price List Line"; KVSKBASalesConditionHeader: Record "KVSKBASalesConditionHeader"; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCalcSalesPriceCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculation', '', false, false)]
local procedure DoSomethingOnCalcSalesPriceCondNoInPriceListLineOnBeforeCheckAllowBaseofCalculation(PriceListLine: Record "Price List Line"; KVSKBASalesConditionHeader: Record "KVSKBASalesConditionHeader"; var IsHandled: Boolean)
begin
end;
OnCalcSalesPriceInitialPriceOnCaseBaseofCalculationOnBeforeCaseElse(Record KVSKBASalesConditionHeader, Record KVSKBASalesPrice, Record Item, Code[10], Code[10], Decimal, Decimal, Decimal, Code[10], Decimal, Date, Code[10], Decimal, 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 OnCalcSalesPriceInitialPriceOnCaseBaseofCalculationOnBeforeCaseElse(SalesConditionHeader: Record "KVSKBASalesConditionHeader"; SalesPrice: Record "KVSKBASalesPrice"; Item: Record "Item"; DocVariantCode: Code[10]; DocLocationCode: Code[10]; DocQty: Decimal; DocQtyPerUOM: Decimal; var InitialPrice: Decimal; var InitialPriceCurrencyCode: Code[10]; var InitialPriceCurrencyFactor: Decimal; var InitialPriceExchRateDate: Date; var InitialPriceUOMCode: Code[10]; var InitialPriceQtyPerUOM: Decimal; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCalcSalesPriceInitialPriceOnCaseBaseofCalculationOnBeforeCaseElse', '', false, false)]
local procedure DoSomethingOnCalcSalesPriceInitialPriceOnCaseBaseofCalculationOnBeforeCaseElse(SalesConditionHeader: Record "KVSKBASalesConditionHeader"; SalesPrice: Record "KVSKBASalesPrice"; Item: Record "Item"; DocVariantCode: Code[10]; DocLocationCode: Code[10]; DocQty: Decimal; DocQtyPerUOM: Decimal; var InitialPrice: Decimal; var InitialPriceCurrencyCode: Code[10]; var InitialPriceCurrencyFactor: Decimal; var InitialPriceExchRateDate: Date; var InitialPriceUOMCode: Code[10]; var InitialPriceQtyPerUOM: Decimal; var IsHandled: Boolean)
begin
end;
OnCalcSalesPriceInitialPriceOnCaseBaseofCalculationOnCaseElse(Record KVSKBASalesConditionHeader, Record KVSKBASalesPrice, Record Item, Code[10], Code[10], Decimal, Decimal, Decimal, Code[10], Decimal, Date, Code[10], Decimal, 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(true, false)]
local procedure OnCalcSalesPriceInitialPriceOnCaseBaseofCalculationOnCaseElse(SalesConditionHeader: Record "KVSKBASalesConditionHeader"; SalesPrice: Record "KVSKBASalesPrice"; Item: Record "Item"; DocVariantCode: Code[10]; DocLocationCode: Code[10]; DocQty: Decimal; DocQtyPerUOM: Decimal; var InitialPrice: Decimal; var InitialPriceCurrencyCode: Code[10]; var InitialPriceCurrencyFactor: Decimal; var InitialPriceExchRateDate: Date; var InitialPriceUOMCode: Code[10]; var InitialPriceQtyPerUOM: Decimal; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCalcSalesPriceInitialPriceOnCaseBaseofCalculationOnCaseElse', '', false, false)]
local procedure DoSomethingOnCalcSalesPriceInitialPriceOnCaseBaseofCalculationOnCaseElse(SalesConditionHeader: Record "KVSKBASalesConditionHeader"; SalesPrice: Record "KVSKBASalesPrice"; Item: Record "Item"; DocVariantCode: Code[10]; DocLocationCode: Code[10]; DocQty: Decimal; DocQtyPerUOM: Decimal; var InitialPrice: Decimal; var InitialPriceCurrencyCode: Code[10]; var InitialPriceCurrencyFactor: Decimal; var InitialPriceExchRateDate: Date; var InitialPriceUOMCode: Code[10]; var InitialPriceQtyPerUOM: Decimal; var IsHandled: Boolean)
begin
end;
OnCalcSalesPriceInitialPricePriceLineListOnCaseBaseofCalculationOnCaseElse(Record KVSKBASalesConditionHeader, Record Price List Line, Record Item, Code[10], Code[10], Decimal, Decimal, Decimal, Code[10], Decimal, Date, Code[10], Decimal, Boolean) :#
[IntegrationEvent(true, false)]
local procedure OnCalcSalesPriceInitialPricePriceLineListOnCaseBaseofCalculationOnCaseElse(KVSKBASalesConditionHeader: Record "KVSKBASalesConditionHeader"; PriceListLine: Record "Price List Line"; Item: Record "Item"; DocVariantCode: Code[10]; DocLocationCode: Code[10]; DocQty: Decimal; DocQtyPerUOM: Decimal; var InitialPrice: Decimal; var InitialPriceCurrencyCode: Code[10]; var InitialPriceCurrencyFactor: Decimal; var InitialPriceExchRateDate: Date; var InitialPriceUOMCode: Code[10]; var InitialPriceQtyPerUOM: Decimal; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCalcSalesPriceInitialPricePriceLineListOnCaseBaseofCalculationOnCaseElse', '', false, false)]
local procedure DoSomethingOnCalcSalesPriceInitialPricePriceLineListOnCaseBaseofCalculationOnCaseElse(KVSKBASalesConditionHeader: Record "KVSKBASalesConditionHeader"; PriceListLine: Record "Price List Line"; Item: Record "Item"; DocVariantCode: Code[10]; DocLocationCode: Code[10]; DocQty: Decimal; DocQtyPerUOM: Decimal; var InitialPrice: Decimal; var InitialPriceCurrencyCode: Code[10]; var InitialPriceCurrencyFactor: Decimal; var InitialPriceExchRateDate: Date; var InitialPriceUOMCode: Code[10]; var InitialPriceQtyPerUOM: Decimal; var IsHandled: Boolean)
begin
end;
OnAfterCalculateSalesCondition(Record KVSKBASalesConditionHeader, Decimal, Code[10], Decimal, Date, Code[10], Decimal, Record Currency, Decimal, Date, Code[10], Decimal, Code[10], Decimal, Integer, Record KVSKBASalesConditionLine) :#
[IntegrationEvent(false, false)]
local procedure OnAfterCalculateSalesCondition(SalesConditionHeader: Record "KVSKBASalesConditionHeader"; InitialPrice: Decimal; InitialPriceCurrencyCode: Code[10]; InitialPriceCurrencyFactor: Decimal; initialPriceExchRateDate: Date; InitialPriceUOMCode: Code[10]; InitialPriceQtyPerUOM: Decimal; DocCurrency: Record "Currency"; DocCurrencyFactor: Decimal; DocExchRateDate: Date; DocUOMCode: Code[10]; DocQtyPerUOM: Decimal; UOMCode: Code[10]; QtyPerUOM: Decimal; ReferenceNo: Integer; var TempSalesConditionLine: Record "KVSKBASalesConditionLine" temporary):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnAfterCalculateSalesCondition', '', false, false)]
local procedure DoSomethingOnAfterCalculateSalesCondition(SalesConditionHeader: Record "KVSKBASalesConditionHeader"; InitialPrice: Decimal; InitialPriceCurrencyCode: Code[10]; InitialPriceCurrencyFactor: Decimal; initialPriceExchRateDate: Date; InitialPriceUOMCode: Code[10]; InitialPriceQtyPerUOM: Decimal; DocCurrency: Record "Currency"; DocCurrencyFactor: Decimal; DocExchRateDate: Date; DocUOMCode: Code[10]; DocQtyPerUOM: Decimal; UOMCode: Code[10]; QtyPerUOM: Decimal; ReferenceNo: Integer; var TempSalesConditionLine: Record "KVSKBASalesConditionLine" temporary)
begin
end;
OnCopySalesCondLinesPriceCU7000OnBeforeItemGet(Record KVSKBASalesPrice, Record KVSKBASalesConditionLine, Record Item, Code[10], Code[10], Record Currency, Decimal, Date, Code[10], Decimal, Decimal, 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 OnCopySalesCondLinesPriceCU7000OnBeforeItemGet(var SalesPrice: Record "KVSKBASalesPrice"; var SalesConditionLine: Record "KVSKBASalesConditionLine"; var Item: Record "Item"; DocVariantCode: Code[10]; DocLocationCode: Code[10]; DocCurrency: Record "Currency"; DocCurrencyFactor: Decimal; DocExchRateDate: Date; DocUOMCode: Code[10]; DocQtyPerUOM: Decimal; DocQty: Decimal; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCopySalesCondLinesPriceCU7000OnBeforeItemGet', '', false, false)]
local procedure DoSomethingOnCopySalesCondLinesPriceCU7000OnBeforeItemGet(var SalesPrice: Record "KVSKBASalesPrice"; var SalesConditionLine: Record "KVSKBASalesConditionLine"; var Item: Record "Item"; DocVariantCode: Code[10]; DocLocationCode: Code[10]; DocCurrency: Record "Currency"; DocCurrencyFactor: Decimal; DocExchRateDate: Date; DocUOMCode: Code[10]; DocQtyPerUOM: Decimal; DocQty: Decimal; var IsHandled: Boolean)
begin
end;
OnCopySalesCondLinesPriceCalculationOnBeforeItemGet(Record Price List Line, Record KVSKBASalesConditionLine, Record Item, Code[10], Code[10], Record Currency, Decimal, Date, Code[10], Decimal, Decimal, Boolean, Code[20]) :#
[IntegrationEvent(false, false)]
local procedure OnCopySalesCondLinesPriceCalculationOnBeforeItemGet(var PriceListLine: Record "Price List Line"; var KVSKBASalesConditionLine: Record "KVSKBASalesConditionLine"; var Item: Record "Item"; DocVariantCode: Code[10]; DocLocationCode: Code[10]; DocCurrency: Record "Currency"; DocCurrencyFactor: Decimal; DocExchRateDate: Date; DocUOMCode: Code[10]; DocQtyPerUOM: Decimal; DocQty: Decimal; var IsHandled: Boolean; ItemNo: Code[20]):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCopySalesCondLinesPriceCalculationOnBeforeItemGet', '', false, false)]
local procedure DoSomethingOnCopySalesCondLinesPriceCalculationOnBeforeItemGet(var PriceListLine: Record "Price List Line"; var KVSKBASalesConditionLine: Record "KVSKBASalesConditionLine"; var Item: Record "Item"; DocVariantCode: Code[10]; DocLocationCode: Code[10]; DocCurrency: Record "Currency"; DocCurrencyFactor: Decimal; DocExchRateDate: Date; DocUOMCode: Code[10]; DocQtyPerUOM: Decimal; DocQty: Decimal; var IsHandled: Boolean; ItemNo: Code[20])
begin
end;
OnBeforeCheckWriteDiscountLinesOnCalculateSalesCondition(Record KVSKBASalesConditionHeader, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckWriteDiscountLinesOnCalculateSalesCondition(SalesConditionHeader: Record "KVSKBASalesConditionHeader"; var ReturnValue: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnBeforeCheckWriteDiscountLinesOnCalculateSalesCondition', '', false, false)]
local procedure DoSomethingOnBeforeCheckWriteDiscountLinesOnCalculateSalesCondition(SalesConditionHeader: Record "KVSKBASalesConditionHeader"; var ReturnValue: Boolean; var IsHandled: Boolean)
begin
end;
OnBeforeCheckWritePriceLinesOnCalculateSalesCondition(Record KVSKBASalesConditionHeader, Boolean, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCheckWritePriceLinesOnCalculateSalesCondition(SalesConditionHeader: Record "KVSKBASalesConditionHeader"; var ReturnValue: Boolean; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnBeforeCheckWritePriceLinesOnCalculateSalesCondition', '', false, false)]
local procedure DoSomethingOnBeforeCheckWritePriceLinesOnCalculateSalesCondition(SalesConditionHeader: Record "KVSKBASalesConditionHeader"; var ReturnValue: Boolean; var IsHandled: Boolean)
begin
end;
OnCopySalesCondLinesPriceCalculationOnAfterAssignPriceListLineValues(Record Price List Line, Record Price List Line, Record KVSKBASalesConditionLine) :#
[IntegrationEvent(false, false)]
local procedure OnCopySalesCondLinesPriceCalculationOnAfterAssignPriceListLineValues(var xPriceListLine: Record "Price List Line"; var PriceListLine: Record "Price List Line"; KVSKBASalesConditionLine: Record "KVSKBASalesConditionLine"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCopySalesCondLinesPriceCalculationOnAfterAssignPriceListLineValues', '', false, false)]
local procedure DoSomethingOnCopySalesCondLinesPriceCalculationOnAfterAssignPriceListLineValues(var xPriceListLine: Record "Price List Line"; var PriceListLine: Record "Price List Line"; KVSKBASalesConditionLine: Record "KVSKBASalesConditionLine")
begin
end;
OnCopySalesCondLinesPriceCalculationOnBeforeAssignPriceListLineValues(Record Price List Line, Record Price List Line, Record KVSKBASalesConditionLine) :#
[IntegrationEvent(false, false)]
local procedure OnCopySalesCondLinesPriceCalculationOnBeforeAssignPriceListLineValues(var xPriceListLine: Record "Price List Line"; var PriceListLine: Record "Price List Line"; KVSKBASalesConditionLine: Record "KVSKBASalesConditionLine"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCopySalesCondLinesPriceCalculationOnBeforeAssignPriceListLineValues', '', false, false)]
local procedure DoSomethingOnCopySalesCondLinesPriceCalculationOnBeforeAssignPriceListLineValues(var xPriceListLine: Record "Price List Line"; var PriceListLine: Record "Price List Line"; KVSKBASalesConditionLine: Record "KVSKBASalesConditionLine")
begin
end;
OnBeforeCalcSalesPriceInitialPrice(Record KVSKBASalesConditionHeader, Record Price List Line, Record Item) :#
[IntegrationEvent(false, false)]
local procedure OnBeforeCalcSalesPriceInitialPrice(KVSKBASalesConditionLine: Record "KVSKBASalesConditionHeader"; PriceListLine: Record "Price List Line"; Item: Record "Item"):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnBeforeCalcSalesPriceInitialPrice', '', false, false)]
local procedure DoSomethingOnBeforeCalcSalesPriceInitialPrice(KVSKBASalesConditionLine: Record "KVSKBASalesConditionHeader"; PriceListLine: Record "Price List Line"; Item: Record "Item")
begin
end;
OnKVSKBAAddPricesHierachyOnBeforeFindCustomerPriceGroup(Record Customer, Code[20], Code[10], Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnKVSKBAAddPricesHierachyOnBeforeFindCustomerPriceGroup(Customer: Record "Customer"; ItemCategoryCode: Code[20]; var CustPriceGrCode: Code[10]; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnKVSKBAAddPricesHierachyOnBeforeFindCustomerPriceGroup', '', false, false)]
local procedure DoSomethingOnKVSKBAAddPricesHierachyOnBeforeFindCustomerPriceGroup(Customer: Record "Customer"; ItemCategoryCode: Code[20]; var CustPriceGrCode: Code[10]; var IsHandled: Boolean)
begin
end;
OnCalculateSalesConditionOnCaseTempSalesCondLineSetPercentandDiscountCaseAmountCurrency(Record KVSKBASalesConditionLine, Decimal, Decimal, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnCalculateSalesConditionOnCaseTempSalesCondLineSetPercentandDiscountCaseAmountCurrency(var TempSalesConditionLine: Record "KVSKBASalesConditionLine" temporary; var PriceDecimal: Decimal; var DiscountDecimal: Decimal; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCalculateSalesConditionOnCaseTempSalesCondLineSetPercentandDiscountCaseAmountCurrency', '', false, false)]
local procedure DoSomethingOnCalculateSalesConditionOnCaseTempSalesCondLineSetPercentandDiscountCaseAmountCurrency(var TempSalesConditionLine: Record "KVSKBASalesConditionLine" temporary; var PriceDecimal: Decimal; var DiscountDecimal: Decimal; var IsHandled: Boolean)
begin
end;
OnCalculateSalesConditionOnCaseTempSalesCondLineSetPercentandDiscountCaseElse(Record KVSKBASalesConditionLine, Decimal, Decimal, Boolean) :#
[IntegrationEvent(false, false)]
local procedure OnCalculateSalesConditionOnCaseTempSalesCondLineSetPercentandDiscountCaseElse(var TempSalesConditionLine: Record "KVSKBASalesConditionLine" temporary; var PriceDecimal: Decimal; var DiscountDecimal: Decimal; var IsHandled: Boolean):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCalculateSalesConditionOnCaseTempSalesCondLineSetPercentandDiscountCaseElse', '', false, false)]
local procedure DoSomethingOnCalculateSalesConditionOnCaseTempSalesCondLineSetPercentandDiscountCaseElse(var TempSalesConditionLine: Record "KVSKBASalesConditionLine" temporary; var PriceDecimal: Decimal; var DiscountDecimal: Decimal; var IsHandled: Boolean)
begin
end;
OnCalculateSalesConditionOnCaseTempSalesCondLineCalcValuesCaseElse(Record KVSKBASalesConditionLine, Decimal, Decimal) :#
[IntegrationEvent(false, false)]
local procedure OnCalculateSalesConditionOnCaseTempSalesCondLineCalcValuesCaseElse(var TempSalesConditionLine: Record "KVSKBASalesConditionLine" temporary; PriceDecimal: Decimal; DiscountDecimal: Decimal):
[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBASalesPriceLib", 'OnCalculateSalesConditionOnCaseTempSalesCondLineCalcValuesCaseElse', '', false, false)]
local procedure DoSomethingOnCalculateSalesConditionOnCaseTempSalesCondLineCalcValuesCaseElse(var TempSalesConditionLine: Record "KVSKBASalesConditionLine" temporary; PriceDecimal: Decimal; DiscountDecimal: Decimal)
begin
end;