---
id: object/codeunit/5912
type: object
title: Codeunit 5912 "ServLedgEntries-Post"
summary: Codeunit 5912 "ServLedgEntries-Post" in Base Application (Microsoft.Service.Posting). 11 public procedures, 25 events, 1 event subscribers. Present since at least BC23, still in BC30, changed in BC24-26, BC29.
tier: official
language: en
tags:
  - codeunit
  - base application
versions:
  introduced: null
  last_changed: "29"
  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: 18a70de5424f9adebb101e646f604a40c4e078e8ff6e3e2130a3d697fdabfca3
evidence:
  - kind: code
    url: https://github.com/microsoft/BCApps/blob/ea08af5ef2d6a9b5c5af4a029288abbe2c883220/src/Layers/W1/BaseApp/Service/Posting/ServLedgEntriesPost.Codeunit.al
    title: src/Layers/W1/BaseApp/Service/Posting/ServLedgEntriesPost.Codeunit.al (releases/29.x)
    date: null
    commit: ea08af5ef2d6a9b5c5af4a029288abbe2c883220
    t: null
    quote: null
links:
  learn: []
  objects: []
  features: []
  topics: []
  localizations:
    - localization/ca
    - localization/mx
    - localization/us
  videos: []
  posts: []
  guidelines: []
object_type: codeunit
object_id: 5912
name: ServLedgEntries-Post
namespace: Microsoft.Service.Posting
app: Base Application
extends: null
first_version: "23"
last_version: "30"
present_in:
  - "23"
  - "24"
  - "25"
  - "26"
  - "27"
  - "28"
  - "29"
  - "30"
changed_in:
  - "24"
  - "25"
  - "26"
  - "29"
source_major: "29"
obsolete: null
countries:
  - ca
  - mx
  - us
ms_search_form_ids: []
counts:
  fields: 0
  procedures: 57
  events: 25
  subscribers: 1
relations:
  out: 0
  referenced_by: 0
  pages: 0
  extended_by: 0
  event_subscribers: 0
  calls: 3
  called_by: 4
  implements: 0
---

# Codeunit 5912 "ServLedgEntries-Post"

> Codeunit 5912 "ServLedgEntries-Post" in Base Application (Microsoft.Service.Posting). 11 public procedures, 25 events, 1 event subscribers. Present since at least BC23, still in BC30, changed in BC24-26, BC29.

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

## Properties

| Property | Value |
|---|---|
| Permissions | TableData "Service Ledger Entry" = rimd, TableData "Warranty Ledger Entry" = rimd, TableData "Service Register" = rimd |

## Events published

- `OnBeforeCopyServicedInfoCrMemoUsage(var ServiceLedgerEntry: Record "Service Ledger Entry"; var ServiceLine: Record "Service Line"; var IsHandled: Boolean)` (integration)
- `OnBeforeCreateCreditEntry(var ServiceDocumentRegister: Record "Service Document Register"; var ServiceLine: Record "Service Line"; var ServiceHeader: Record "Service Header"; var ServiceLedgerEntry: Record "Service Ledger Entry"; var GenJnlLineDocNo: Code[20]; var ServDocType: Integer; var PassedNextEntryNo: Integer; var ServDocNo: Code[20]; var IsHandled: Boolean)` (integration)
- `OnBeforeInsertServLedgerEntryCrMUsage(var NextEntryNo: Integer; var ServiceHeader: Record "Service Header"; var ServiceLine: Record "Service Line"; DocNo: Code[20]; var IsHandled: Boolean)` (integration)
- `OnBeforeServLedgerEntryInsert(var ServiceLedgerEntry: Record "Service Ledger Entry"; ServiceLine: Record "Service Line"; ServiceItemLine: Record "Service Item Line"; ServiceHeader: Record "Service Header")` (integration)
- `OnBeforeServLedgerEntrySaleInsert(var ServiceLedgerEntry: Record "Service Ledger Entry"; ServiceLine: Record "Service Line"; ServiceItemLine: Record "Service Item Line"; ServiceHeader: Record "Service Header")` (integration)
- `OnBeforeWarrantyLedgerEntryInsert(var WarrantyLedgerEntry: Record "Warranty Ledger Entry"; ServiceLine: Record "Service Line")` (integration)
- `OnInsertServLedgEntryCrMemoOnBeforeServLedgEntryInsert(var ServiceLedgerEntry: Record "Service Ledger Entry"; ServiceHeader: Record "Service Header"; ServiceLine: Record "Service Line")` (integration)
- `OnInsertServLedgerEntryCrMUsageOnBeforeServLedgEntryInsert(var ServiceLedgerEntry: Record "Service Ledger Entry"; ServiceHeader: Record "Service Header"; ServiceLine: Record "Service Line")` (integration)
- `OnInsertServLedgerEntryOnBeforeCopyServicedInfoFromServiceItemLine(var ServLedgEntry: Record "Service Ledger Entry"; var TempServLine: Record "Service Line"; var IsHandled: Boolean)` (integration)
- `OnCreateCreditEntryOnBeforeServLedgEntryInsert(var ServiceLedgerEntry: Record "Service Ledger Entry"; ServiceHeader: Record "Service Header"; ServiceLine: Record "Service Line")` (integration)
- `OnCreateCreditEntryOnBeforeServDocRegServiceDocument(var ServiceLedgerEntry: Record "Service Ledger Entry"; var ServiceHeader: Record "Service Header"; var ServiceLine: Record "Service Line")` (integration)
- `OnCreateCreditEntryOnBeforeServLedgEntryInsertFromServiceHeader(var ServiceLedgerEntry: Record "Service Ledger Entry"; ServiceHeader: Record "Service Header"; ServiceLine: Record "Service Line")` (integration)
- `OnCopyServicedInfoFromServiceItemLineOnAfterCopyServicedInfo(var ServiceLedgerEntry: Record "Service Ledger Entry"; ServiceItemLine: Record "Service Item Line")` (integration)
- `OnCopyServicedInfoFromServiceItemOnAfterCopyServicedInfo(var ServiceLedgerEntry: Record "Service Ledger Entry"; ServiceItem: Record "Service Item")` (integration)
- `OnCopyServicedInfoFromServiceLedgerEntryOnAfterCopyServicedInfo(var ServiceLedgerEntry: Record "Service Ledger Entry"; SourceServiceLedgerEntry: Record "Service Ledger Entry")` (integration)
- `OnInsertServLedgerEntrySaleOnBeforeCloseEntries(var ServiceLedgerEntry: Record "Service Ledger Entry"; var ApplyToServLedgEntry: Record "Service Ledger Entry"; var ServiceLine: Record "Service Line"; var ServHeader: Record "Service Header")` (integration)
- `OnInsertServLedgerEntrySaleOnAfterCopyFromServItemLine(var ServLedgEntry: Record "Service Ledger Entry"; var ServItemLine: Record "Service Item Line")` (integration)
- `OnReverseWarrantyEntryOnBeforeNewWarrantyLedgEntryInsert(var NewWarrantyLedgerEntry: Record "Warranty Ledger Entry"; var WarrantyLedgerEntry: Record "Warranty Ledger Entry")` (integration)
- `OnReverseServLedgEntryOnBeforeNewServLedgEntryInsert(var NewServLedgEntry: Record "Service Ledger Entry"; var ServLedgEntry: Record "Service Ledger Entry"; ServiceShipmentLine: Record "Service Shipment Line")` (integration)
- `OnBeforeInsertServLedgerEntry(var NextEntryNo: Integer; var ServiceHeader: Record "Service Header"; var TempServiceLine: Record "Service Line"; var ServiceItemLine: Record "Service Item Line"; Qty: Decimal; DocNo: Code[20]; var Result: Integer; var IsHandled: Boolean)` (integration)
- `OnBeforeInsertServLedgerEntrySale(var PassedNextEntryNo: Integer; var ServiceHeader: Record "Service Header"; var ServiceLine: Record "Service Line"; var ServiceItemLine: Record "Service Item Line"; var ServiceLedgerEntry: Record "Service Ledger Entry"; Qty: Decimal; QtyToCharge: Decimal; GenJnlLineDocNo: Code[20]; DocLineNo: Integer; var IsHandled: Boolean)` (integration)
- `OnBeforeInsertServLedgEntryCrMemo(var PassedNextEntryNo: Integer; var ServiceHeader: Record "Service Header"; var ServiceLine: Record "Service Line"; GenJnlLineDocNo: Code[20]; var IsHandled: Boolean)` (integration)
- `OnAfterInitServiceRegister(var ServiceRegister: Record "Service Register")` (integration)
- `OnBeforeFinishServiceRegister(var ServiceRegister: Record "Service Register")` (integration)
- `OnAfterReverseOpenServiceLedgerEntry(var ServiceLedgerEntry: Record "Service Ledger Entry"; var NextServLedgerEntryNo: Integer)` (integration)

## Event subscriptions

- OnPreviewableLedgerEntry subscribes to Codeunit "Sequence No. Mgt." OnPreviewableLedgerEntry

## Procedures

- `InitServiceRegister(var PassedServEntryNo: Integer; var PassedWarrantyEntryNo: Integer)`
- `FinishServiceRegister(var PassedServEntryNo: Integer; var PassedWarrantyEntryNo: Integer)`
- `InsertServLedgerEntry(var NextEntryNo: Integer; var ServHeader: Record "Service Header"; var TempServLine: Record "Service Line"; var ServItemLine: Record "Service Item Line"; Qty: Decimal; DocNo: Code[20]): Integer`
- `InsertServLedgerEntrySale(var PassedNextEntryNo: Integer; var ServHeader: Record "Service Header"; var ServLine: Record "Service Line"; var ServItemLine: Record "Service Item Line"; Qty: Decimal; QtyToCharge: Decimal; GenJnlLineDocNo: Code[20]; DocLineNo: Integer)`
- `InsertWarrantyLedgerEntry(var PassedWarrantyEntryNo: Integer; var ServHeader: Record "Service Header"; var ServLine: Record "Service Line"; var ServItemLine: Record "Service Item Line"; Qty: Decimal; GenJnlLineDocNo: Code[20]): Integer`
- `ReverseCnsmServLedgEntries(ServiceShipmentLine: Record "Service Shipment Line")`
- `UnapplyOpenServiceLines(var ServiceLine: Record "Service Line")`
- `ReverseServLedgEntry(var ServShptLine: Record "Service Shipment Line")`
- `ReverseWarrantyEntry(var ServShptLine: Record "Service Shipment Line")`
- `CreateCreditEntry(var PassedNextEntryNo: Integer; var ServHeader: Record "Service Header"; var ServLine: Record "Service Line"; GenJnlLineDocNo: Code[20])`
- `CalcDivideAmount(Qty: Decimal; var PassedServHeader: Record "Service Header"; var PassedTempServLine: Record "Service Line"; var PassedVATAmountLine: Record "VAT Amount Line")`

Plus 20 local procedures.

## Triggers

OnRun

## 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 5900 "ServOrderManagement"](../codeunit/5900.md) (1 call: `InsertServLedgerEntry → InServiceContract`)
- [Codeunit 5986 "Serv-Amounts Mgt."](../codeunit/5986.md) (1 call: `CalcDivideAmount → DivideAmount`)
- [Codeunit 9500 "Sequence No. Mgt."](../codeunit/9500.md) (1 call: `InitServiceRegister → ClearSequenceNoCheck`)

## Called by

- [Codeunit 5987 "Serv-Posting Journals Mgt."](../codeunit/5987.md) (7 calls: `CalcSLEDivideAmount → CalcDivideAmount`, `CreateCreditEntry → CreateCreditEntry`, `FinishServiceRegister → FinishServiceRegister`, …)
- [Codeunit 5818 "Undo Service Shipment Line"](../codeunit/5818.md) (4 calls: `Code → FinishServiceRegister`, `Code → InitServiceRegister`, `Code → ReverseServLedgEntry`, …)
- [Codeunit 5819 "Undo Service Consumption Line"](../codeunit/5819.md) (4 calls: `Code → FinishServiceRegister`, `Code → InitServiceRegister`, `Code → ReverseCnsmServLedgEntries`, …)
- [Table 5900 "Service Header"](../table/5900.md) (1 call: `PrepareDeleteServiceInvoice → UnapplyOpenServiceLines`)

## Across versions

- Present in: BC23-30
- Changed (declaration) in: BC24-26, BC29

## Countries that replace it

[CA](../../localizations/ca.md), [MX](../../localizations/mx.md), [US](../../localizations/us.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: "ServLedgEntries-Post")`, then `bcatlas_get_procedure_body` or `bcatlas_get_neighbors` on the returned id.