---
id: object/codeunit/6971
type: object
title: Codeunit 6971 "Create Expense GL Account"
summary: Codeunit 6971 "Create Expense GL Account" in ExpenseAgent (Microsoft.ExpenseAgent). 23 public procedures, 1 events. Introduced in BC29, still in BC30.
tier: official
language: en
tags:
  - codeunit
  - expenseagent
versions:
  introduced: "29"
  last_changed: null
  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: 07b47a5fef84497c5b2bafbfe5c381cb60602e61d8ef9c78fd54dc65b7cf8e19
evidence:
  - kind: code
    url: https://github.com/microsoft/BCApps/blob/ea08af5ef2d6a9b5c5af4a029288abbe2c883220/src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseGLAccount.Codeunit.al
    title: src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseGLAccount.Codeunit.al (releases/29.x)
    date: null
    commit: ea08af5ef2d6a9b5c5af4a029288abbe2c883220
    t: null
    quote: null
links:
  learn: []
  objects: []
  features: []
  topics: []
  localizations: []
  videos: []
  posts: []
  guidelines: []
  changes:
    - change/bcapps/10637
    - change/bcapps/9859
object_type: codeunit
object_id: 6971
name: Create Expense GL Account
namespace: Microsoft.ExpenseAgent
app: ExpenseAgent
extends: null
first_version: "29"
last_version: "30"
present_in:
  - "29"
  - "30"
changed_in: []
source_major: "29"
obsolete: null
countries: []
ms_search_form_ids: []
counts:
  fields: 0
  procedures: 56
  events: 1
  subscribers: 0
relations:
  out: 0
  referenced_by: 0
  pages: 0
  extended_by: 0
  event_subscribers: 0
  calls: 1
  called_by: 2
  implements: 0
---

# Codeunit 6971 "Create Expense GL Account"

> Codeunit 6971 "Create Expense GL Account" in ExpenseAgent (Microsoft.ExpenseAgent). 23 public procedures, 1 events. Introduced in BC29, still in BC30.

ExpenseAgent · Microsoft.ExpenseAgent · BC29-30 · [source at ea08af5e](https://github.com/microsoft/BCApps/blob/ea08af5ef2d6a9b5c5af4a029288abbe2c883220/src/Apps/W1/ExpenseAgent/app/src/Setup/Codeunits/CreateExpenseGLAccount.Codeunit.al) · facts from BC29

## Properties

| Property | Value |
|---|---|
| Access | Internal |

## Events published

- `OnBeforeCreateGLAccount(var IsHandled: Boolean)` (integration)

## Procedures

- `InsertGLAccount(AccountNo: Code[20]; Name: Text[100]; IncomeOrBalance: Enum "G/L Account Income/Balance"; AccountCategory: Enum "G/L Account Category"; AccountSubCategory: Text[80]; AccountType: Enum "G/L Account Type"; GenBusPostingGroup: Code[20]; GenProdPostingGroup: Code[20]; TaxGroup: Code[20]; NoOfBlankLines: Integer; Totaling: Text[250]; GenPostingType: Enum "General Posting Type"; VATGenPostingGroup: Code[20]; VATProdPostingGroup: Code[20]; DirectPosting: Boolean; ReconciliationAccount: Boolean; NewPage: Boolean)` (internal)
- `ExpenseOtherRefundableDebitAccountNo(): Code[20]` (internal)
- `ExpenseTravelRefundableDebitAccountNo(): Code[20]` (internal)
- `ExpensePerDiemRefundableDebitAccountNo(): Code[20]` (internal)
- `ExpensePerDiemARefundableDebitAccountNo(): Code[20]` (internal)
- `ExpensePerDiemIRefundableDebitAccountNo(): Code[20]` (internal)
- `ExpenseMealNonRefundableDebitAccountNo(): Code[20]` (internal)
- `ExpenseMileageRefundableDebitAccountNo(): Code[20]` (internal)
- `ExpenseMealsRefundableDebitAccountNo(): Code[20]` (internal)
- `ExpenseEntertainRefundableDebitAccountNo(): Code[20]` (internal)
- `ExpenseNonRefundableDebitAccountNo(): Code[20]` (internal)
- `ExpensePrepaymentDebitAccountNo(): Code[20]` (internal)
- `ExpenseDebitRoundingAccountNo(): Code[20]` (internal)
- `ExpenseCreditRoundingAccountNo(): Code[20]` (internal)
- `ExpenseReportPayableAccountNo(): Code[20]` (internal)
- `ExpenseReportPrepaymentAccountNo(): Code[20]` (internal)
- `ExpensePayableBankPaidAccountNo(): Code[20]` (internal)
- `ExpensePayableCardPaidAccountNo(): Code[20]` (internal)
- `ExpenseProfitLossAccountNo(): Code[20]` (internal)
- `ExpensePrepaymentBeginAccountNo(): Code[20]` (internal)
- `ExpensePrepaymentTotalAccountNo(): Code[20]` (internal)
- `FindExistingExpenseAccount(AccountCategory: Enum "G/L Account Category"; FullDescription: Text; PartialDescription: Text): Code[20]` (internal)
- `FindExistingExpenseAccount(AccountCategory: Enum "G/L Account Category"; SearchDescription: Text): Code[20]` (internal)

Plus 32 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 3 "G/L Account-Indent"](../codeunit/3.md) (1 call: `CreateGLAccount → Indent`)

## Called by

- [Codeunit 6973 "Create Expense Categories"](../codeunit/6973.md) (17 calls: `AddPostingGroupSeed → ExpenseCreditRoundingAccountNo`, `AddPostingGroupSeed → ExpenseDebitRoundingAccountNo`, `AddPostingGroupSeed → ExpenseMealNonRefundableDebitAccountNo`, …)
- [Table 6930 "Expense Agent Setup"](../table/6930.md) (1 call: `CreatePostingGroupsDefaults → (object)`)

## Recent changes

- 2026-08-28 [#10637 [Master] - Bug 639548 [Expense Agent] Consolidate country demo data into single W1 app](../../changes/bcapps/10637.md) (main, BC30, refactor)
- 2026-08-04 [#9859 [Master] - Move Expense Agent (Preview) app into BCApps](../../changes/bcapps/9859.md) (main, BC30, feature, added)

## Across versions

- Present in: BC29-30
- Changed (declaration) in: none

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: "Create Expense GL Account")`, then `bcatlas_get_procedure_body` or `bcatlas_get_neighbors` on the returned id.