Table 5222 Employee Ledger Entry
- App
- Base Application
- Namespace
- Microsoft.HumanResources.Payables
- Versions
- 17-28
Fields, 61Keys, 2Procedures, 4Events, 3
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/HumanResources/Payables/EmployeeLedgerEntry.Table.al661 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.HumanResources.Payables;
using Microsoft.Bank.BankAccount;
using Microsoft.CRM.Team;
using Microsoft.Finance.Currency;
using Microsoft.Finance.Dimension;
using Microsoft.Finance.GeneralLedger.Account;
using Microsoft.Finance.GeneralLedger.Journal;
using Microsoft.Finance.GeneralLedger.Ledger;
using Microsoft.Finance.ReceivablesPayables;
using Microsoft.FixedAssets.FixedAsset;
using Microsoft.Foundation.AuditCodes;
using Microsoft.Foundation.NoSeries;
using Microsoft.HumanResources.Employee;
using Microsoft.Purchases.Vendor;
using Microsoft.Sales.Customer;
using System.Security.AccessControl;
using System.Utilities;
table 5222 "Employee Ledger Entry"
{
Caption = 'Employee Ledger Entry';
DrillDownPageID = "Employee Ledger Entries";
LookupPageID = "Employee Ledger Entries";
DataClassification = CustomerContent;
fields
{
field(1; "Entry No."; Integer)
{
Caption = 'Entry No.';
ToolTip = 'Specifies the entry number that is assigned to the entry.';
}
field(3; "Employee No."; Code[20])
{
Caption = 'Employee No.';
ToolTip = 'Specifies the number of the employee that the entry is linked to.';
TableRelation = Employee;
}
field(4; "Posting Date"; Date)
{
Caption = 'Posting Date';
ToolTip = 'Specifies the employee entry''s posting date.';
}
field(5; "Document Type"; Enum "Gen. Journal Document Type")
{
Caption = 'Document Type';
ToolTip = 'Specifies the document type that the employee entry belongs to.';
}
field(6; "Document No."; Code[20])
{
Caption = 'Document No.';
ToolTip = 'Specifies the employee entry''s document number.';
}
field(7; Description; Text[100])
{
Caption = 'Description';
ToolTip = 'Specifies a description of the employee entry.';
}
field(11; "Currency Code"; Code[10])
{
Caption = 'Currency Code';
ToolTip = 'Specifies the currency code for the amount on the line.';
TableRelation = Currency;
}
field(13; Amount; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
CalcFormula = sum("Detailed Employee Ledger Entry".Amount where("Ledger Entry Amount" = const(true),
"Employee Ledger Entry No." = field("Entry No."),
"Posting Date" = field("Date Filter")));
Caption = 'Amount';
ToolTip = 'Specifies the amount of the entry.';
Editable = false;
FieldClass = FlowField;
}
field(14; "Remaining Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
CalcFormula = sum("Detailed Employee Ledger Entry".Amount where("Employee Ledger Entry No." = field("Entry No."),
"Posting Date" = field("Date Filter")));
Caption = 'Remaining Amount';
ToolTip = 'Specifies the amount that remains to be applied to before the entry is totally applied to.';
Editable = false;
FieldClass = FlowField;
}
field(15; "Original Amt. (LCY)"; Decimal)
{
AutoFormatType = 1;
AutoFormatExpression = '';
CalcFormula = sum("Detailed Employee Ledger Entry"."Amount (LCY)" where("Employee Ledger Entry No." = field("Entry No."),
"Entry Type" = filter("Initial Entry"),
"Posting Date" = field("Date Filter")));
Caption = 'Original Amt. (LCY)';
Editable = false;
FieldClass = FlowField;
}
field(16; "Remaining Amt. (LCY)"; Decimal)
{
AutoFormatType = 1;
AutoFormatExpression = '';
CalcFormula = sum("Detailed Employee Ledger Entry"."Amount (LCY)" where("Employee Ledger Entry No." = field("Entry No."),
"Posting Date" = field("Date Filter")));
Caption = 'Remaining Amt. (LCY)';
Editable = false;
FieldClass = FlowField;
}
field(17; "Amount (LCY)"; Decimal)
{
AutoFormatType = 1;
AutoFormatExpression = '';
CalcFormula = sum("Detailed Employee Ledger Entry"."Amount (LCY)" where("Ledger Entry Amount" = const(true),
"Employee Ledger Entry No." = field("Entry No."),
"Posting Date" = field("Date Filter")));
Caption = 'Amount (LCY)';
Editable = false;
FieldClass = FlowField;
}
field(22; "Employee Posting Group"; Code[20])
{
Caption = 'Employee Posting Group';
TableRelation = "Employee Posting Group";
}
field(23; "Global Dimension 1 Code"; Code[20])
{
CaptionClass = '1,1,1';
Caption = 'Global Dimension 1 Code';
ToolTip = 'Specifies the code for the global dimension that is linked to the record or entry for analysis purposes. Two global dimensions, typically for the company''s most important activities, are available on all cards, documents, reports, and lists.';
TableRelation = "Dimension Value".Code where("Global Dimension No." = const(1));
}
field(24; "Global Dimension 2 Code"; Code[20])
{
CaptionClass = '1,1,2';
Caption = 'Global Dimension 2 Code';
ToolTip = 'Specifies the code for the global dimension that is linked to the record or entry for analysis purposes. Two global dimensions, typically for the company''s most important activities, are available on all cards, documents, reports, and lists.';
TableRelation = "Dimension Value".Code where("Global Dimension No." = const(2));
}
field(25; "Salespers./Purch. Code"; Code[20])
{
Caption = 'Salespers./Purch. Code';
ToolTip = 'Specifies which purchaser is assigned to the employee.';
TableRelation = "Salesperson/Purchaser";
}
field(27; "User ID"; Code[50])
{
Caption = 'User ID';
ToolTip = 'Specifies the ID of the user who posted the entry, to be used, for example, in the change log.';
DataClassification = EndUserIdentifiableInformation;
TableRelation = User."User Name";
}
field(28; "Source Code"; Code[10])
{
Caption = 'Source Code';
TableRelation = "Source Code";
}
field(34; "Applies-to Doc. Type"; Enum "Gen. Journal Document Type")
{
Caption = 'Applies-to Doc. Type';
}
field(35; "Applies-to Doc. No."; Code[20])
{
Caption = 'Applies-to Doc. No.';
}
field(36; Open; Boolean)
{
Caption = 'Open';
ToolTip = 'Specifies whether the amount on the entry has been fully paid or there is still a remaining amount that must be applied to.';
}
field(43; Positive; Boolean)
{
Caption = 'Positive';
ToolTip = 'Specifies if the entry to be applied is positive.';
}
field(44; "Closed by Entry No."; Integer)
{
Caption = 'Closed by Entry No.';
TableRelation = "Employee Ledger Entry";
}
field(45; "Closed at Date"; Date)
{
Caption = 'Closed at Date';
}
field(46; "Closed by Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Closed by Amount';
ToolTip = 'Specifies the amount that the entry was finally applied to (closed) with.';
}
field(47; "Applies-to ID"; Code[50])
{
Caption = 'Applies-to ID';
ToolTip = 'Specifies the ID of entries that will be applied to when you choose the Apply Entries action.';
trigger OnValidate()
begin
TestField(Open, true);
end;
}
field(48; "Journal Templ. Name"; Code[10])
{
Caption = 'Journal Template Name';
DataClassification = SystemMetadata;
}
field(49; "Journal Batch Name"; Code[10])
{
Caption = 'Journal Batch Name';
}
field(50; "Reason Code"; Code[10])
{
Caption = 'Reason Code';
TableRelation = "Reason Code";
}
field(51; "Bal. Account Type"; Enum "Gen. Journal Account Type")
{
Caption = 'Bal. Account Type';
ToolTip = 'Specifies the type of balancing account that is used for the entry.';
}
field(52; "Bal. Account No."; Code[20])
{
Caption = 'Bal. Account No.';
ToolTip = 'Specifies the number of the balancing account that is used for the entry.';
TableRelation = if ("Bal. Account Type" = const("G/L Account")) "G/L Account"
else
if ("Bal. Account Type" = const(Customer)) Customer
else
if ("Bal. Account Type" = const(Vendor)) Vendor
else
if ("Bal. Account Type" = const("Bank Account")) "Bank Account"
else
if ("Bal. Account Type" = const("Fixed Asset")) "Fixed Asset";
}
field(53; "Transaction No."; Integer)
{
Caption = 'Transaction No.';
TableRelation = "G/L Transaction";
ToolTip = 'Specifies the transaction number that groups related G/L entries from the same posting.';
}
field(54; "Closed by Amount (LCY)"; Decimal)
{
AutoFormatType = 1;
AutoFormatExpression = '';
Caption = 'Closed by Amount (LCY)';
}
field(58; "Debit Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
BlankZero = true;
CalcFormula = sum("Detailed Employee Ledger Entry"."Debit Amount" where("Ledger Entry Amount" = const(true),
"Employee Ledger Entry No." = field("Entry No."),
"Posting Date" = field("Date Filter")));
Caption = 'Debit Amount';
ToolTip = 'Specifies the total of the ledger entries that represent debits.';
Editable = false;
FieldClass = FlowField;
}
field(59; "Credit Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
BlankZero = true;
CalcFormula = sum("Detailed Employee Ledger Entry"."Credit Amount" where("Ledger Entry Amount" = const(true),
"Employee Ledger Entry No." = field("Entry No."),
"Posting Date" = field("Date Filter")));
Caption = 'Credit Amount';
ToolTip = 'Specifies the total of the ledger entries that represent credits.';
Editable = false;
FieldClass = FlowField;
}
field(60; "Debit Amount (LCY)"; Decimal)
{
AutoFormatType = 1;
AutoFormatExpression = '';
BlankZero = true;
CalcFormula = sum("Detailed Employee Ledger Entry"."Debit Amount (LCY)" where("Ledger Entry Amount" = const(true),
"Employee Ledger Entry No." = field("Entry No."),
"Posting Date" = field("Date Filter")));
Caption = 'Debit Amount (LCY)';
Editable = false;
FieldClass = FlowField;
}
field(61; "Credit Amount (LCY)"; Decimal)
{
AutoFormatType = 1;
AutoFormatExpression = '';
BlankZero = true;
CalcFormula = sum("Detailed Employee Ledger Entry"."Credit Amount (LCY)" where("Ledger Entry Amount" = const(true),
"Employee Ledger Entry No." = field("Entry No."),
"Posting Date" = field("Date Filter")));
Caption = 'Credit Amount (LCY)';
Editable = false;
FieldClass = FlowField;
}
field(64; "No. Series"; Code[20])
{
Caption = 'No. Series';
TableRelation = "No. Series";
}
field(65; "Closed by Currency Code"; Code[10])
{
Caption = 'Closed by Currency Code';
ToolTip = 'Specifies the currency code of the entry that was applied to (and closed) this employee ledger entry.';
TableRelation = Currency;
}
field(66; "Closed by Currency Amount"; Decimal)
{
AccessByPermission = TableData Currency = R;
AutoFormatExpression = "Closed by Currency Code";
AutoFormatType = 1;
Caption = 'Closed by Currency Amount';
ToolTip = 'Specifies the amount that was finally applied to (and closed) this employee ledger entry.';
}
field(73; "Adjusted Currency Factor"; Decimal)
{
AutoFormatType = 0;
Caption = 'Adjusted Currency Factor';
DecimalPlaces = 0 : 15;
}
field(74; "Original Currency Factor"; Decimal)
{
AutoFormatType = 0;
Caption = 'Original Currency Factor';
DecimalPlaces = 0 : 15;
}
field(75; "Original Amount"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
CalcFormula = sum("Detailed Employee Ledger Entry".Amount where("Employee Ledger Entry No." = field("Entry No."),
"Entry Type" = filter("Initial Entry"),
"Posting Date" = field("Date Filter")));
Caption = 'Original Amount';
ToolTip = 'Specifies the amount of the original entry.';
Editable = false;
FieldClass = FlowField;
}
field(76; "Date Filter"; Date)
{
Caption = 'Date Filter';
FieldClass = FlowFilter;
}
field(84; "Amount to Apply"; Decimal)
{
AutoFormatExpression = Rec."Currency Code";
AutoFormatType = 1;
Caption = 'Amount to Apply';
ToolTip = 'Specifies the amount to apply.';
trigger OnValidate()
begin
TestField(Open, true);
CalcFields("Remaining Amount");
if AreOppositeSign("Amount to Apply", "Remaining Amount") then
FieldError("Amount to Apply", MustHaveSameSignErr);
if Abs("Amount to Apply") > Abs("Remaining Amount") then
FieldError("Amount to Apply", MustNotBeLargerErr);
end;
}
field(86; "Applying Entry"; Boolean)
{
Caption = 'Applying Entry';
ToolTip = 'Specifies whether the entry will be applied to when you choose the Apply Entries action.';
}
field(87; Reversed; Boolean)
{
Caption = 'Reversed';
DataClassification = CustomerContent;
}
field(88; "Reversed by Entry No."; Integer)
{
BlankZero = true;
Caption = 'Reversed by Entry No.';
DataClassification = CustomerContent;
TableRelation = "Employee Ledger Entry";
}
field(89; "Reversed Entry No."; Integer)
{
BlankZero = true;
Caption = 'Reversed Entry No.';
DataClassification = CustomerContent;
TableRelation = "Employee Ledger Entry";
}
field(95; "G/L Register No."; Integer)
{
Caption = 'G/L Register No.';
Editable = false;
TableRelation = "G/L Register";
ToolTip = 'Specifies the G/L register number that groups related G/L entries from the same posting.';
}
field(170; "Creditor No."; Code[20])
{
Caption = 'Creditor No.';
}
field(171; "Payment Reference"; Code[50])
{
Caption = 'Payment Reference';
ToolTip = 'Specifies the payment to the employee.';
trigger OnValidate()
begin
if "Payment Reference" <> '' then
TestField("Creditor No.");
end;
}
field(172; "Payment Method Code"; Code[10])
{
Caption = 'Payment Method Code';
ToolTip = 'Specifies the payment method that was used to make the payment that resulted in the entry.';
TableRelation = "Payment Method";
trigger OnValidate()
begin
TestField(Open, true);
end;
}
field(289; "Message to Recipient"; Text[140])
{
Caption = 'Message to Recipient';
ToolTip = 'Specifies the message exported to the payment file when you use the Export Payments to File function in the Payment Journal window.';
trigger OnValidate()
begin
TestField(Open, true);
end;
}
field(290; "Exported to Payment File"; Boolean)
{
Caption = 'Exported to Payment File';
ToolTip = 'Specifies that the entry was created as a result of exporting a payment journal line.';
Editable = false;
}
field(480; "Dimension Set ID"; Integer)
{
Caption = 'Dimension Set ID';
Editable = false;
TableRelation = "Dimension Set Entry";
trigger OnLookup()
begin
Rec.ShowDimensions();
end;
}
field(481; "Shortcut Dimension 3 Code"; Code[20])
{
CaptionClass = '1,2,3';
Caption = 'Shortcut Dimension 3 Code';
ToolTip = 'Specifies the code for Shortcut Dimension 3, which is one of dimension codes that you set up in the General Ledger Setup window.';
Editable = false;
FieldClass = FlowField;
CalcFormula = lookup("Dimension Set Entry"."Dimension Value Code" where("Dimension Set ID" = field("Dimension Set ID"),
"Global Dimension No." = const(3)));
}
field(482; "Shortcut Dimension 4 Code"; Code[20])
{
CaptionClass = '1,2,4';
Caption = 'Shortcut Dimension 4 Code';
ToolTip = 'Specifies the code for Shortcut Dimension 4, which is one of dimension codes that you set up in the General Ledger Setup window.';
Editable = false;
FieldClass = FlowField;
CalcFormula = lookup("Dimension Set Entry"."Dimension Value Code" where("Dimension Set ID" = field("Dimension Set ID"),
"Global Dimension No." = const(4)));
}
field(483; "Shortcut Dimension 5 Code"; Code[20])
{
CaptionClass = '1,2,5';
Caption = 'Shortcut Dimension 5 Code';
ToolTip = 'Specifies the code for Shortcut Dimension 5, which is one of dimension codes that you set up in the General Ledger Setup window.';
Editable = false;
FieldClass = FlowField;
CalcFormula = lookup("Dimension Set Entry"."Dimension Value Code" where("Dimension Set ID" = field("Dimension Set ID"),
"Global Dimension No." = const(5)));
}
field(484; "Shortcut Dimension 6 Code"; Code[20])
{
CaptionClass = '1,2,6';
Caption = 'Shortcut Dimension 6 Code';
ToolTip = 'Specifies the code for Shortcut Dimension 6, which is one of dimension codes that you set up in the General Ledger Setup window.';
Editable = false;
FieldClass = FlowField;
CalcFormula = lookup("Dimension Set Entry"."Dimension Value Code" where("Dimension Set ID" = field("Dimension Set ID"),
"Global Dimension No." = const(6)));
}
field(485; "Shortcut Dimension 7 Code"; Code[20])
{
CaptionClass = '1,2,7';
Caption = 'Shortcut Dimension 7 Code';
ToolTip = 'Specifies the code for Shortcut Dimension 7, which is one of dimension codes that you set up in the General Ledger Setup window.';
Editable = false;
FieldClass = FlowField;
CalcFormula = lookup("Dimension Set Entry"."Dimension Value Code" where("Dimension Set ID" = field("Dimension Set ID"),
"Global Dimension No." = const(7)));
}
field(486; "Shortcut Dimension 8 Code"; Code[20])
{
CaptionClass = '1,2,8';
Caption = 'Shortcut Dimension 8 Code';
ToolTip = 'Specifies the code for Shortcut Dimension 8, which is one of dimension codes that you set up in the General Ledger Setup window.';
Editable = false;
FieldClass = FlowField;
CalcFormula = lookup("Dimension Set Entry"."Dimension Value Code" where("Dimension Set ID" = field("Dimension Set ID"),
"Global Dimension No." = const(8)));
}
}
keys
{
key(Key1; "Entry No.")
{
Clustered = true;
}
key(Key2; "Employee No.", "Applies-to ID", Open, Positive)
{
}
// Supports the Payment Reconciliation Journal candidate search (Document Type + Open + date range).
key(PmtReconCandidates; "Document Type", Open, "Posting Date")
{
}
}
fieldgroups
{
}
var
MustHaveSameSignErr: Label 'must have the same sign as remaining amount';
MustNotBeLargerErr: Label 'must not be larger than remaining amount';
procedure CopyFromGenJnlLine(GenJnlLine: Record "Gen. Journal Line")
begin
"Employee No." := GenJnlLine."Account No.";
"Posting Date" := GenJnlLine."Posting Date";
"Document Type" := GenJnlLine."Document Type";
"Document No." := GenJnlLine."Document No.";
Description := GenJnlLine.Description;
"Currency Code" := GenJnlLine."Currency Code";
"Employee Posting Group" := GenJnlLine."Posting Group";
"Global Dimension 1 Code" := GenJnlLine."Shortcut Dimension 1 Code";
"Global Dimension 2 Code" := GenJnlLine."Shortcut Dimension 2 Code";
"Dimension Set ID" := GenJnlLine."Dimension Set ID";
"Salespers./Purch. Code" := GenJnlLine."Salespers./Purch. Code";
"Source Code" := GenJnlLine."Source Code";
"Reason Code" := GenJnlLine."Reason Code";
"Journal Templ. Name" := GenJnlLine."Journal Template Name";
"Journal Batch Name" := GenJnlLine."Journal Batch Name";
"User ID" := CopyStr(UserId(), 1, MaxStrLen("User ID"));
"Bal. Account Type" := GenJnlLine."Bal. Account Type";
"Bal. Account No." := GenJnlLine."Bal. Account No.";
"No. Series" := GenJnlLine."Posting No. Series";
"Applies-to Doc. Type" := GenJnlLine."Applies-to Doc. Type";
"Applies-to Doc. No." := GenJnlLine."Applies-to Doc. No.";
"Applies-to ID" := GenJnlLine."Applies-to ID";
OnAfterCopyEmployeeLedgerEntryFromGenJnlLine(Rec, GenJnlLine);
end;
procedure ShowDimensions()
var
DimMgt: Codeunit DimensionManagement;
begin
DimMgt.ShowDimensionSet("Dimension Set ID", StrSubstNo('%1 %2', TableCaption(), "Entry No."));
end;
procedure CopyFromCVLedgEntryBuffer(var CVLedgerEntryBuffer: Record "CV Ledger Entry Buffer")
begin
"Entry No." := CVLedgerEntryBuffer."Entry No.";
"Employee No." := CVLedgerEntryBuffer."CV No.";
"Posting Date" := CVLedgerEntryBuffer."Posting Date";
"Document Type" := CVLedgerEntryBuffer."Document Type";
"Document No." := CVLedgerEntryBuffer."Document No.";
Description := CVLedgerEntryBuffer.Description;
"Currency Code" := CVLedgerEntryBuffer."Currency Code";
"Source Code" := CVLedgerEntryBuffer."Source Code";
"Reason Code" := CVLedgerEntryBuffer."Reason Code";
Amount := CVLedgerEntryBuffer.Amount;
"Remaining Amount" := CVLedgerEntryBuffer."Remaining Amount";
"Original Amount" := CVLedgerEntryBuffer."Original Amount";
"Original Amt. (LCY)" := CVLedgerEntryBuffer."Original Amt. (LCY)";
"Remaining Amt. (LCY)" := CVLedgerEntryBuffer."Remaining Amt. (LCY)";
"Amount (LCY)" := CVLedgerEntryBuffer."Amount (LCY)";
"Employee Posting Group" := CVLedgerEntryBuffer."CV Posting Group";
"Global Dimension 1 Code" := CVLedgerEntryBuffer."Global Dimension 1 Code";
"Global Dimension 2 Code" := CVLedgerEntryBuffer."Global Dimension 2 Code";
"Dimension Set ID" := CVLedgerEntryBuffer."Dimension Set ID";
"Salespers./Purch. Code" := CVLedgerEntryBuffer."Salesperson Code";
"User ID" := CVLedgerEntryBuffer."User ID";
"Applies-to Doc. Type" := CVLedgerEntryBuffer."Applies-to Doc. Type";
"Applies-to Doc. No." := CVLedgerEntryBuffer."Applies-to Doc. No.";
Open := CVLedgerEntryBuffer.Open;
Positive := CVLedgerEntryBuffer.Positive;
"Closed by Entry No." := CVLedgerEntryBuffer."Closed by Entry No.";
"Closed at Date" := CVLedgerEntryBuffer."Closed at Date";
"Closed by Amount" := CVLedgerEntryBuffer."Closed by Amount";
"Applies-to ID" := CVLedgerEntryBuffer."Applies-to ID";
"Journal Templ. Name" := CVLedgerEntryBuffer."Journal Templ. Name";
"Journal Batch Name" := CVLedgerEntryBuffer."Journal Batch Name";
"Bal. Account Type" := CVLedgerEntryBuffer."Bal. Account Type";
"Bal. Account No." := CVLedgerEntryBuffer."Bal. Account No.";
"Transaction No." := CVLedgerEntryBuffer."Transaction No.";
"Closed by Amount (LCY)" := CVLedgerEntryBuffer."Closed by Amount (LCY)";
"Debit Amount" := CVLedgerEntryBuffer."Debit Amount";
"Credit Amount" := CVLedgerEntryBuffer."Credit Amount";
"Debit Amount (LCY)" := CVLedgerEntryBuffer."Debit Amount (LCY)";
"Credit Amount (LCY)" := CVLedgerEntryBuffer."Credit Amount (LCY)";
"No. Series" := CVLedgerEntryBuffer."No. Series";
"Closed by Currency Code" := CVLedgerEntryBuffer."Closed by Currency Code";
"Closed by Currency Amount" := CVLedgerEntryBuffer."Closed by Currency Amount";
"Adjusted Currency Factor" := CVLedgerEntryBuffer."Adjusted Currency Factor";
"Original Currency Factor" := CVLedgerEntryBuffer."Original Currency Factor";
"Amount to Apply" := CVLedgerEntryBuffer."Amount to Apply";
OnAfterCopyEmplLedgerEntryFromCVLedgEntryBuffer(Rec, CVLedgerEntryBuffer);
end;
procedure RecalculateAmounts(FromCurrencyCode: Code[10]; ToCurrencyCode: Code[10]; PostingDate: Date)
var
CurrExchRate: Record "Currency Exchange Rate";
begin
if ToCurrencyCode = FromCurrencyCode then
exit;
"Remaining Amount" := CurrExchRate.ExchangeAmount("Remaining Amount", FromCurrencyCode, ToCurrencyCode, PostingDate);
"Amount to Apply" :=
CurrExchRate.ExchangeAmount("Amount to Apply", FromCurrencyCode, ToCurrencyCode, PostingDate);
OnAfterRecalculateAmounts(Rec, FromCurrencyCode, ToCurrencyCode, PostingDate);
end;
local procedure AreOppositeSign(Amount1: Decimal; Amount2: Decimal): Boolean
var
Math: Codeunit "Math";
begin
if (Amount1 = 0) or (Amount2 = 0) then
exit(false);
exit(Math.Sign(Amount1) <> Math.Sign(Amount2));
end;
[IntegrationEvent(false, false)]
local procedure OnAfterCopyEmployeeLedgerEntryFromGenJnlLine(var EmployeeLedgerEntry: Record "Employee Ledger Entry"; GenJournalLine: Record "Gen. Journal Line")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnAfterCopyEmplLedgerEntryFromCVLedgEntryBuffer(var EmployeeLedgerEntry: Record "Employee Ledger Entry"; CVLedgerEntryBuffer: Record "CV Ledger Entry Buffer")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnAfterRecalculateAmounts(var EmployeeLedgerEntry: Record "Employee Ledger Entry"; FromCurrencyCode: Code[10]; ToCurrencyCode: Code[10]; PostingDate: Date)
begin
end;
}