Codeunit "Purch.-Calc.Discount"

ID 70

Namespace: Microsoft.Purchases.Document

Properties

Name	Value
Permissions	tabledata "Purchase Header" = rm, tabledata "Purchase Line" = rm
TableNo	Table Microsoft.Purchases.Document."Purchase Line"

Methods

CalculateInvoiceDiscount

procedure CalculateInvoiceDiscount(var PurchHeader: Record "Purchase Header", var PurchLine2: Record "Purchase Line")

Parameters

Name	Type	Description
PurchHeader	Table Microsoft.Purchases.Document."Purchase Header"
PurchLine2	Table Microsoft.Purchases.Document."Purchase Line"

CalculateIncDiscForHeader

procedure CalculateIncDiscForHeader(var PurchHeader: Record "Purchase Header")

Parameters

Name	Type	Description
PurchHeader	Table Microsoft.Purchases.Document."Purchase Header"

CalculateInvoiceDiscountOnLine

procedure CalculateInvoiceDiscountOnLine(var PurchLineToUpdate: Record "Purchase Line")

Parameters

Name	Type	Description
PurchLineToUpdate	Table Microsoft.Purchases.Document."Purchase Line"

Events

OnBeforeCalcPurchaseDiscount

[IntegrationEvent(False,False)]
local procedure OnBeforeCalcPurchaseDiscount(var PurchaseHeader: Record "Purchase Header", var IsHandled: Boolean, var PurchaseLine: Record "Purchase Line", UpdateHeader: Boolean, var GlobalPurchaseLine: Record "Purchase Line")

Parameters

Name	Type	Description
PurchaseHeader	Table Microsoft.Purchases.Document."Purchase Header"
IsHandled	Boolean
PurchaseLine	Table Microsoft.Purchases.Document."Purchase Line"
UpdateHeader	Boolean
GlobalPurchaseLine	Table Microsoft.Purchases.Document."Purchase Line"

OnAfterCalcPurchaseDiscount

[IntegrationEvent(False,False)]
local procedure OnAfterCalcPurchaseDiscount(var PurchaseHeader: Record "Purchase Header")

Parameters

Name	Type	Description
PurchaseHeader	Table Microsoft.Purchases.Document."Purchase Header"

OnBeforeGetVendInvDisc

[IntegrationEvent(False,False)]
local procedure OnBeforeGetVendInvDisc(var PurchaseHeader: Record "Purchase Header", CurrencyDate: Date, ChargeBase: Decimal, InvDiscBase: Decimal, BaseAmount: Decimal, var IsHandled: Boolean, var VendInvDisc: Record "Vendor Invoice Disc.")

Parameters

Name	Type	Description
PurchaseHeader	Table Microsoft.Purchases.Document."Purchase Header"
CurrencyDate	Date
ChargeBase	Decimal
InvDiscBase	Decimal
BaseAmount	Decimal
IsHandled	Boolean
VendInvDisc	Table Microsoft.Purchases.Vendor."Vendor Invoice Disc."

OnCalculateInvoiceDiscountOnAfterPurchLine2ValidateQuantity

[IntegrationEvent(False,False)]
local procedure OnCalculateInvoiceDiscountOnAfterPurchLine2ValidateQuantity(var PurchHeader: Record "Purchase Header", var PurchLine2: Record "Purchase Line", var VendInvDisc: Record "Vendor Invoice Disc.")

Parameters

Name	Type	Description
PurchHeader	Table Microsoft.Purchases.Document."Purchase Header"
PurchLine2	Table Microsoft.Purchases.Document."Purchase Line"
VendInvDisc	Table Microsoft.Purchases.Vendor."Vendor Invoice Disc."

OnCalculateInvoiceDiscountOnBeforeCurrencyInitialize

[IntegrationEvent(False,False)]
local procedure OnCalculateInvoiceDiscountOnBeforeCurrencyInitialize(var VendorPostingGroup: Record "Vendor Posting Group")

Parameters

Name	Type	Description
VendorPostingGroup	Table Microsoft.Purchases.Vendor."Vendor Posting Group"

OnCalculateInvoiceDiscountOnBeforeCheckVendInvDiscServiceCharge

[IntegrationEvent(False,False)]
local procedure OnCalculateInvoiceDiscountOnBeforeCheckVendInvDiscServiceCharge(var VendorInvoiceDisc: Record "Vendor Invoice Disc.", var PurchaseHeader: Record "Purchase Header", CurrencyDate: Date, ChargeBase: Decimal)

Parameters

Name	Type	Description
VendorInvoiceDisc	Table Microsoft.Purchases.Vendor."Vendor Invoice Disc."
PurchaseHeader	Table Microsoft.Purchases.Document."Purchase Header"
CurrencyDate	Date
ChargeBase	Decimal

OnCalculateInvoiceDiscountOnbeforePurchLineInsert

[IntegrationEvent(False,False)]
local procedure OnCalculateInvoiceDiscountOnbeforePurchLineInsert(var PurchaseLine: Record "Purchase Line", PurchHeader: Record "Purchase Header")

Parameters

Name	Type	Description
PurchaseLine	Table Microsoft.Purchases.Document."Purchase Line"
PurchHeader	Table Microsoft.Purchases.Document."Purchase Header"

OnCalculateIncDiscForHeaderOnBeforeCalculateInvoiceDiscount

[IntegrationEvent(False,False)]
local procedure OnCalculateIncDiscForHeaderOnBeforeCalculateInvoiceDiscount(var PurchHeader: Record "Purchase Header", var PurchLine: Record "Purchase Line", UpdateHeader: Boolean, var IsHandled: Boolean)

Parameters

Name	Type	Description
PurchHeader	Table Microsoft.Purchases.Document."Purchase Header"
PurchLine	Table Microsoft.Purchases.Document."Purchase Line"
UpdateHeader	Boolean
IsHandled	Boolean

OnCalculateInvoiceDiscountOnBeforeFindForCalcVATAmountLines

[IntegrationEvent(False,False)]
local procedure OnCalculateInvoiceDiscountOnBeforeFindForCalcVATAmountLines(var PurchHeader: Record "Purchase Header", var PurchLine2: Record "Purchase Line", UpdateHeader: Boolean)

Parameters

Name	Type	Description
PurchHeader	Table Microsoft.Purchases.Document."Purchase Header"
PurchLine2	Table Microsoft.Purchases.Document."Purchase Line"
UpdateHeader	Boolean

OnCalculateInvoiceDiscountOnBeforeDeletePurchaseLine

[IntegrationEvent(False,False)]
local procedure OnCalculateInvoiceDiscountOnBeforeDeletePurchaseLine(UpdateHeader: Boolean, var PurchaseLine: Record "Purchase Line", var IsHandled: Boolean)

Parameters

Name	Type	Description
UpdateHeader	Boolean
PurchaseLine	Table Microsoft.Purchases.Document."Purchase Line"
IsHandled	Boolean

OnOnRunOnBeforeUpdateHeader

[IntegrationEvent(False,False)]
local procedure OnOnRunOnBeforeUpdateHeader(var PurchaseHeader: Record "Purchase Header", var PurchaseLine: Record "Purchase Line")

Parameters

Name	Type	Description
PurchaseHeader	Table Microsoft.Purchases.Document."Purchase Header"
PurchaseLine	Table Microsoft.Purchases.Document."Purchase Line"

See also

• Codeunit