---
id: object/codeunit/60
type: object
title: Codeunit 60 "Sales-Calc. Discount"
summary: Codeunit 60 "Sales-Calc. Discount" in Base Application (Microsoft.Sales.Document). 5 public procedures, 18 events. Present since at least BC23, still in BC30, changed in BC28.
tier: official
language: en
tags:
  - codeunit
  - base application
versions:
  introduced: null
  last_changed: "28"
  deprecated: null
review:
  state: derived
  by: null
  at: null
  flags: []
generated:
  at: "2026-10-11T00:31:51.816Z"
  pipeline: 0.2.0
  prompts: {}
  input_hash: 786b3d4df9b197254d84f28fbf61ac1af8b525216faf3f0df059aa3a808f1379
evidence:
  - kind: code
    url: https://github.com/microsoft/BCApps/blob/ea08af5ef2d6a9b5c5af4a029288abbe2c883220/src/Layers/W1/BaseApp/Sales/Document/SalesCalcDiscount.Codeunit.al
    title: src/Layers/W1/BaseApp/Sales/Document/SalesCalcDiscount.Codeunit.al (releases/29.x)
    date: null
    commit: ea08af5ef2d6a9b5c5af4a029288abbe2c883220
    t: null
    quote: null
links:
  learn: []
  objects: []
  features: []
  topics: []
  localizations:
    - localization/es
  videos: []
  posts: []
  guidelines: []
object_type: codeunit
object_id: 60
name: Sales-Calc. Discount
namespace: Microsoft.Sales.Document
app: Base Application
extends: null
first_version: "23"
last_version: "30"
present_in:
  - "23"
  - "24"
  - "25"
  - "26"
  - "27"
  - "28"
  - "29"
  - "30"
changed_in:
  - "28"
source_major: "29"
obsolete: null
countries:
  - es
ms_search_form_ids: []
counts:
  fields: 0
  procedures: 26
  events: 18
  subscribers: 0
relations:
  out: 1
  referenced_by: 0
  pages: 0
  extended_by: 0
  event_subscribers: 4
  calls: 2
  called_by: 18
  implements: 0
---

# Codeunit 60 "Sales-Calc. Discount"

> Codeunit 60 "Sales-Calc. Discount" in Base Application (Microsoft.Sales.Document). 5 public procedures, 18 events. Present since at least BC23, still in BC30, changed in BC28.

Base Application · Microsoft.Sales.Document · BC23-30 · [source at ea08af5e](https://github.com/microsoft/BCApps/blob/ea08af5ef2d6a9b5c5af4a029288abbe2c883220/src/Layers/W1/BaseApp/Sales/Document/SalesCalcDiscount.Codeunit.al) · facts from BC29

## Properties

| Property | Value |
|---|---|
| TableNo | Sales Line |
| Permissions | tabledata "Sales Header" = rm, tabledata "Sales Line" = rm |

## Events published

- `OnBeforeCalcSalesDiscount(var SalesHeader: Record "Sales Header"; var IsHandled: Boolean; var SalesLine: Record "Sales Line"; var UpdateHeader: Boolean)` (integration)
- `OnAfterCalcSalesDiscount(var SalesHeader: Record "Sales Header"; var TempVATAmountLine: Record "VAT Amount Line" temporary; var SalesLine2: Record "Sales Line")` (integration)
  - subscribers: [Codeunit 5477 "Sales Invoice Aggregator"](../codeunit/5477.md) OnAfterCalculateSalesDiscountOnSalesHeader, [Codeunit 5496 "Graph Mgt - Sales Order Buffer"](../codeunit/5496.md) OnAfterCalculateSalesDiscountOnSalesHeader, [Codeunit 5506 "Graph Mgt - Sales Quote Buffer"](../codeunit/5506.md) OnAfterCalculateSalesDiscountOnSalesHeader, [Codeunit 5508 "Graph Mgt - Sal. Cr. Memo Buf."](../codeunit/5508.md) OnAfterCalculateSalesDiscountOnSalesHeader
- `OnAfterCustInvDiscRecExists(var SalesHeader: Record "Sales Header"; var CustInvDisc: Record "Cust. Invoice Disc."; InvDiscBase: Decimal; ChargeBase: Decimal; var ShouldGetCustInvDisc: Boolean)` (integration)
- `OnAfterValidateSalesLine2Quantity(SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; CustInvoiceDisc: Record "Cust. Invoice Disc.")` (integration)
- `OnBeforeCalculateIncDiscForHeader(var TempSalesHeader: Record "Sales Header" temporary; var IsHandled: Boolean; var SalesLine: Record "Sales Line"; var TempSalesLine: Record "Sales Line" temporary; var UpdateHeader: Boolean)` (integration)
- `OnBeforeSetSalesLineServiceCharge(SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; CustInvoiceDisc: Record "Cust. Invoice Disc."; var IsHandled: Boolean)` (integration)
- `OnBeforeUpdateSalesHeaderInvoiceDiscount(var CustInvoiceDisc: Record "Cust. Invoice Disc."; var SalesHeader: Record "Sales Header"; var TempVATAmountLine: Record "VAT Amount Line" temporary; var UpdateHeader: Boolean; var IsHandled: Boolean)` (integration)
- `OnCalculateInvoiceDiscountOnBeforeCurrencyInitialize(var CustomerPostingGroup: Record "Customer Posting Group")` (integration)
- `OnCalculateInvoiceDiscountOnBeforeCheckCustInvDiscServiceCharge(var CustInvoiceDisc: Record "Cust. Invoice Disc."; var SalesHeader: Record "Sales Header"; CurrencyDate: Date; ChargeBase: Decimal; var CustInvDiscFound: Boolean)` (integration)
- `OnCalculateInvoiceDiscountOnBeforeCustInvDiscRecExists(var SalesHeader: Record "Sales Header"; var SalesLine2: Record "Sales Line"; var UpdateHeader: Boolean; var InvDiscBase: Decimal; var ChargeBase: Decimal; var TempVATAmountLine: Record "VAT Amount Line" temporary; var IsHandled: Boolean)` (integration)
- `OnCalculateInvoiceDiscountOnBeforeSalesLine2FindFirst(var SalesLine2: Record "Sales Line")` (integration)
- `OnCalculateInvoiceDiscountOnBeforeSalesLineInsert(var SalesLine: Record "Sales Line"; SalesHeader: Record "Sales Header")` (integration)
- `OnBeforeCalculateWithSalesHeader(var SalesLine: Record "Sales Line"; var TempSalesHeader: Record "Sales Header" temporary; var TempSalesLine: Record "Sales Line"; var UpdateHeader: Boolean; var IsHandled: Boolean)` (integration)
- `OnCalculateInvoiceDiscountOnBeforeSalesLine2DeleteTrue(UpdateHeader: Boolean; var SalesLine2: Record "Sales Line"; var IsHandled: Boolean)` (integration)
- `OnRunOnBeforeCalculateInvoiceDiscount(var SalesLine: Record "Sales Line"; var TempSalesHeader: Record "Sales Header" temporary; var TempSalesLine: Record "Sales Line" temporary; var UpdateHeader: Boolean; var IsHandled: Boolean)` (integration)
- `OnCalculateInvoiceDiscountOnBeforeUpdateSalesLine2(var SalesHeader: Record "Sales Header"; var SalesLine2: Record "Sales Line"; UpdateHeader: Boolean; CustInvDisc: Record "Cust. Invoice Disc."; var IsHandled: Boolean)` (integration)
- `OnBeforeCustInvDiscRecExists(InvDiscCode: Code[20]; var Result: Boolean; var IsHandled: Boolean)` (integration)
- `OnBeforeCalculateInvoiceDiscount(var SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; var UpdateHeader: Boolean)` (integration)

## Procedures

- `CustInvDiscRecExists(InvDiscCode: Code[20]): Boolean`: Checks whether a customer invoice discount record exists for the specified code.
- `CalculateWithSalesHeader(var TempSalesHeader: Record "Sales Header"; var TempSalesLine: Record "Sales Line")`: Calculates invoice discount using the provided sales header without updating it.
- `CalculateInvoiceDiscountOnLine(var SalesLineToUpdate: Record "Sales Line")`: Calculates and applies invoice discount to a single sales line.
- `CalculateIncDiscForHeader(var TempSalesHeader: Record "Sales Header")`: Calculates invoice discount for a sales header if automatic calculation is enabled.
- `UpdatePrepmtLineAmount(SalesHeader: Record "Sales Header")`: Updates prepayment line amounts when invoice discount would exceed remaining non-prepaid amount.

Plus 3 local procedures.

## Triggers

OnRun

## Relations

- runs on [Table 37 "Sales Line"](../table/37.md)

## Calls

From the extracted call graph of BC29 (graphify-al on the snapshot checkout): calls whose target is known from a declared type or an `Object::"Name"` argument. Interface dispatch and calls through events are not counted, so the list is not complete.

- [Codeunit 56 "Sales - Calc Discount By Type"](../codeunit/56.md) (1 call: `CalculateInvoiceDiscount → ResetRecalculateInvoiceDisc`)
- [Codeunit 65 "Discount Notification Mgt."](../codeunit/65.md) (1 call: `CalculateInvoiceDiscount → NotifyAboutMissingSetup`)

## Called by

- [Codeunit 56 "Sales - Calc Discount By Type"](../codeunit/56.md) (2 calls: `ApplyInvDiscBasedOnPct → (object)`, `ApplyInvDiscBasedOnPct → CalculateInvoiceDiscountOnLine`)
- [Codeunit 1002 "Job Create-Invoice"](../codeunit/1002.md) (1 call: `CalculateInvoiceDiscount → (object)`)
- [Codeunit 1371 "Sales Batch Post Mgt."](../codeunit/1371.md) (1 call: `CalculateInvoiceDiscount → (object)`)
- [Codeunit 228 "Test Report-Print"](../codeunit/228.md) (1 call: `CalcSalesDiscount → (object)`)
- [Codeunit 229 "Document-Print"](../codeunit/229.md) (1 call: `CalcSalesDisc → (object)`)
- [Codeunit 414 "Release Sales Document"](../codeunit/414.md) (1 call: `Code → (object)`)
- [Codeunit 57 "Document Totals"](../codeunit/57.md) (1 call: `CalculateSalesSubPageTotals → CalculateInvoiceDiscountOnLine`)
- [Codeunit 61 "Sales-Disc. (Yes/No)"](../codeunit/61.md) (1 call: `OnRun → (object)`)
- [Codeunit 64 "Sales-Get Shipment"](../codeunit/64.md) (1 call: `CalcInvoiceDiscount → CalculateInvoiceDiscountOnLine`)
- [Codeunit 80 "Sales-Post"](../codeunit/80.md) (1 call: `CalcInvDiscount → (object)`)
- [Page 46 "Sales Order Subform"](../page/46.md) (1 call: `CalcInvDisc → CalculateInvoiceDiscountOnLine`)
- [Page 47 "Sales Invoice Subform"](../page/47.md) (1 call: `CalcInvDisc → CalculateInvoiceDiscountOnLine`)
- [Page 6631 "Sales Return Order Subform"](../page/6631.md) (1 call: `CalcInvDisc → (object)`)
- [Page 95 "Sales Quote Subform"](../page/95.md) (1 call: `CalcInvDisc → CalculateInvoiceDiscountOnLine`)
- [Page 96 "Sales Cr. Memo Subform"](../page/96.md) (1 call: `CalcInvDisc → CalculateInvoiceDiscountOnLine`)
- [Report 295 "Combine Shipments"](../report/295.md) (1 call: `FinalizeSalesInvHeader → (object)`)
- [Report 6653 "Combine Return Receipts"](../report/6653.md) (1 call: `FinalizeSalesInvHeader → (object)`)
- [Table 36 "Sales Header"](../table/36.md) (1 call: `CalcInvDiscForHeader → CalculateIncDiscForHeader`)

## Across versions

- Present in: BC23-30
- Changed (declaration) in: BC28

## Countries that replace it

[ES](../../localizations/es.md)

Source: AL metadata extracted from the code (names, ids, signatures, properties); no code bodies (D10).

## Ask your agent

Procedure bodies are not stored here (D10). The call sections above are our own, per object, from the BC29 call graph. For a procedure body or the calls of one procedure, ask bc-code-atlas (external, by Stefan Maron, MIT; default corpus w1-28), which the bc-observatory plugin connects: `bcatlas_resolve_node(object_type: "codeunit", object_name: "Sales-Calc. Discount")`, then `bcatlas_get_procedure_body` or `bcatlas_get_neighbors` on the returned id.