Codeunit "FA Insert Ledger Entry"

ID 5600
Namespace: Microsoft.FixedAssets.Ledger

Properties

Name Value
Permissions TableData "FA Ledger Entry" = rim, TableData "FA Depreciation Book" = rim, TableData "FA Register" = rim, TableData "Maintenance Ledger Entry" = rim
TableNo Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

Methods

InsertFA

procedure InsertFA(var FALedgEntry3: Record "FA Ledger Entry")

Parameters

Name Type Description
FALedgEntry3 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

InsertMaintenance

procedure InsertMaintenance(var MaintenanceLedgEntry2: Record "Maintenance Ledger Entry")

Parameters

Name Type Description
MaintenanceLedgEntry2 Table Microsoft.FixedAssets.Maintenance."Maintenance Ledger Entry"

SetMaintenanceLastDate

procedure SetMaintenanceLastDate(MaintenanceLedgEntry: Record "Maintenance Ledger Entry")

Parameters

Name Type Description
MaintenanceLedgEntry Table Microsoft.FixedAssets.Maintenance."Maintenance Ledger Entry"

InsertBalAcc

procedure InsertBalAcc(var FALedgEntry: Record "FA Ledger Entry")

Parameters

Name Type Description
FALedgEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

InsertBalDisposalAcc

procedure InsertBalDisposalAcc(FALedgEntry: Record "FA Ledger Entry")

Parameters

Name Type Description
FALedgEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

FindFirstGLAcc

procedure FindFirstGLAcc(var FAGLPostBuf: Record "FA G/L Posting Buffer"): Boolean

Parameters

Name Type Description
FAGLPostBuf Table Microsoft.FixedAssets.Journal."FA G/L Posting Buffer"

Returns

Type Description
Boolean

GetNextGLAcc

procedure GetNextGLAcc(var FAGLPostBuf: Record "FA G/L Posting Buffer"): Integer

Parameters

Name Type Description
FAGLPostBuf Table Microsoft.FixedAssets.Journal."FA G/L Posting Buffer"

Returns

Type Description
Integer

DeleteAllGLAcc

procedure DeleteAllGLAcc()

CopyRecordLinksToFALedgEntry

procedure CopyRecordLinksToFALedgEntry(GenJnlLine: Record "Gen. Journal Line")

Parameters

Name Type Description
GenJnlLine Table Microsoft.Finance.GeneralLedger.Journal."Gen. Journal Line"

InsertRegister

procedure InsertRegister(CalledFrom: Enum "FA Register Called From", NextEntryNo: Integer)

Parameters

Name Type Description
CalledFrom Enum Microsoft.FixedAssets.Ledger."FA Register Called From"
NextEntryNo Integer

FAName

procedure FAName(DeprBookCode: Code[10]): Text[200]

Parameters

Name Type Description
DeprBookCode Code[10]

Returns

Type Description
Text[200]

SetOrgGenJnlLine

procedure SetOrgGenJnlLine(OrgGenJnlLine2: Boolean)

Parameters

Name Type Description
OrgGenJnlLine2 Boolean

CorrectEntries

procedure CorrectEntries()

InsertReverseEntry

procedure InsertReverseEntry(NewGLEntryNo: Integer, FAEntryType: Option, FAEntryNo: Integer, var NewFAEntryNo: Integer, TransactionNo: Integer)

Parameters

Name Type Description
NewGLEntryNo Integer
FAEntryType Option
FAEntryNo Integer
NewFAEntryNo Integer
TransactionNo Integer

CheckFAReverseEntry

procedure CheckFAReverseEntry(FALedgEntry3: Record "FA Ledger Entry")

Parameters

Name Type Description
FALedgEntry3 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

CheckMaintReverseEntry

procedure CheckMaintReverseEntry(MaintenanceLedgEntry3: Record "Maintenance Ledger Entry")

Parameters

Name Type Description
MaintenanceLedgEntry3 Table Microsoft.FixedAssets.Maintenance."Maintenance Ledger Entry"

FinishFAReverseEntry

procedure FinishFAReverseEntry(GLReg: Record "G/L Register")

Parameters

Name Type Description
GLReg Table Microsoft.Finance.GeneralLedger.Ledger."G/L Register"

SetNetdisposal

procedure SetNetdisposal(NetDisp2: Boolean)

Parameters

Name Type Description
NetDisp2 Boolean

SetLastEntryNo

procedure SetLastEntryNo(FindLastEntry: Boolean)

Parameters

Name Type Description
FindLastEntry Boolean

SetGLRegisterNo

procedure SetGLRegisterNo(NewGLRegisterNo: Integer)

Parameters

Name Type Description
NewGLRegisterNo Integer

Events

OnAfterSetFAPostingType

[IntegrationEvent(False,False)]
local procedure OnAfterSetFAPostingType(var FALedgEntry: Record "FA Ledger Entry", FAPostingTypeSetup: Record "FA Posting Type Setup")

Parameters

Name Type Description
FALedgEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
FAPostingTypeSetup Table Microsoft.FixedAssets.Posting."FA Posting Type Setup"

OnBeforeInsertFA

[IntegrationEvent(False,False)]
local procedure OnBeforeInsertFA(var FALedgerEntry: Record "FA Ledger Entry")

Parameters

Name Type Description
FALedgerEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

OnBeforeInsertRegister

[IntegrationEvent(True,False)]
local procedure OnBeforeInsertRegister(var FALedgerEntry: Record "FA Ledger Entry", var FALedgerEntry2: Record "FA Ledger Entry", var NextEntryNo: Integer)

Parameters

Name Type Description
FALedgerEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
FALedgerEntry2 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
NextEntryNo Integer

OnCheckFADocNoOnAfterOldFALedgEntrySetFilters

[IntegrationEvent(False,False)]
local procedure OnCheckFADocNoOnAfterOldFALedgEntrySetFilters(var OldFALedgEntry: Record "FA Ledger Entry", FALedgEntry: Record "FA Ledger Entry")

Parameters

Name Type Description
OldFALedgEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
FALedgEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

OnInsertReverseEntryOnBeforeInsertRegister

[IntegrationEvent(False,False)]
local procedure OnInsertReverseEntryOnBeforeInsertRegister(var FALedgerEntry: Record "FA Ledger Entry")

Parameters

Name Type Description
FALedgerEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

OnInsertReverseEntryOnBeforeFACheckConsistency

[IntegrationEvent(False,False)]
local procedure OnInsertReverseEntryOnBeforeFACheckConsistency(var FALedgerEntry: Record "FA Ledger Entry")

Parameters

Name Type Description
FALedgerEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

OnInsertReverseEntryOnNonSalvageValueFAPostingTypeOnBeforeCheckDimValuePosting

[IntegrationEvent(False,False)]
local procedure OnInsertReverseEntryOnNonSalvageValueFAPostingTypeOnBeforeCheckDimValuePosting(var TableID: array[10] of Integer, var AccNo: array[10] of Code[20], var FALedgEntry3: Record "FA Ledger Entry")

Parameters

Name Type Description
TableID array[10] of Integer
AccNo array[10] of Code[20]
FALedgEntry3 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

OnBeforeCheckFADocNo

[IntegrationEvent(False,False)]
local procedure OnBeforeCheckFADocNo(FALedgEntry: Record "FA Ledger Entry", var IsHandled: Boolean)

Parameters

Name Type Description
FALedgEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
IsHandled Boolean

OnInsertFAOnAfterSetFALedgEntryFANo

[IntegrationEvent(True,False)]
local procedure OnInsertFAOnAfterSetFALedgEntryFANo(FALedgEntry3: Record "FA Ledger Entry", FALedgEntry2: Record "FA Ledger Entry", FALedgEntry: Record "FA Ledger Entry", var NextEntryNo: Integer)

Parameters

Name Type Description
FALedgEntry3 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
FALedgEntry2 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
FALedgEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
NextEntryNo Integer

OnInsertFAOnBeforeFACheckConsistency

[IntegrationEvent(False,False)]
local procedure OnInsertFAOnBeforeFACheckConsistency(var FALedgerEntry: Record "FA Ledger Entry", FALedgerEntry3: Record "FA Ledger Entry")

Parameters

Name Type Description
FALedgerEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
FALedgerEntry3 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

OnInsertFAOnBeforeCheckFALedgEntry

[IntegrationEvent(False,False)]
local procedure OnInsertFAOnBeforeCheckFALedgEntry(var FALedgEntry: Record "FA Ledger Entry", FALedgEntry2: Record "FA Ledger Entry", var IsHandled: Boolean)

Parameters

Name Type Description
FALedgEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
FALedgEntry2 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
IsHandled Boolean

OnInsertMaintenanceOnAfterDeprBookGet

[IntegrationEvent(False,False)]
local procedure OnInsertMaintenanceOnAfterDeprBookGet(var DeprBook: Record "Depreciation Book")

Parameters

Name Type Description
DeprBook Table Microsoft.FixedAssets.Depreciation."Depreciation Book"

OnBeforeCalcGLIntegration

[IntegrationEvent(False,False)]
local procedure OnBeforeCalcGLIntegration(var FALedgerEntry: Record "FA Ledger Entry", var IsHandled: Boolean, var Result: Boolean)

Parameters

Name Type Description
FALedgerEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
IsHandled Boolean
Result Boolean

OnInsertFAOnAfterInsertFALedgEntry

[IntegrationEvent(False,False)]
local procedure OnInsertFAOnAfterInsertFALedgEntry(var FALedgerEntry: Record "FA Ledger Entry", FALedgerEntry3: Record "FA Ledger Entry")

Parameters

Name Type Description
FALedgerEntry Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
FALedgerEntry3 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"

OnInsertReverseEntryOnBeforeInsertTempFALedgEntry

[IntegrationEvent(False,False)]
local procedure OnInsertReverseEntryOnBeforeInsertTempFALedgEntry(var FALedgerEntry3: Record "FA Ledger Entry", var IsHandled: Boolean)

Parameters

Name Type Description
FALedgerEntry3 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
IsHandled Boolean

OnInsertReverseEntryOnBeforeCheckIfDisposalIsAllowed

[IntegrationEvent(False,False)]
local procedure OnInsertReverseEntryOnBeforeCheckIfDisposalIsAllowed(var FALedgerEntry3: Record "FA Ledger Entry", var IsHandled: Boolean)

Parameters

Name Type Description
FALedgerEntry3 Table Microsoft.FixedAssets.Ledger."FA Ledger Entry"
IsHandled Boolean

OnInsertReverseEntryOnBeforeInsertMaintenanceLedgerEntryBuffer

[IntegrationEvent(False,False)]
local procedure OnInsertReverseEntryOnBeforeInsertMaintenanceLedgerEntryBuffer(var MaintenanceKedgerEntry: Record "Maintenance Ledger Entry", var SkipInsertOfMaintenanceLedgerEntry: Boolean)

Parameters

Name Type Description
MaintenanceKedgerEntry Table Microsoft.FixedAssets.Maintenance."Maintenance Ledger Entry"
SkipInsertOfMaintenanceLedgerEntry Boolean

OnInsertReverseEntryOnBeforeInsertMaintenanceLedgerEntry

[IntegrationEvent(False,False)]
local procedure OnInsertReverseEntryOnBeforeInsertMaintenanceLedgerEntry(var MaintenanceKedgerEntry: Record "Maintenance Ledger Entry")

Parameters

Name Type Description
MaintenanceKedgerEntry Table Microsoft.FixedAssets.Maintenance."Maintenance Ledger Entry"

See also