Page 625 Unapply Employee Entries, source in 29
Source29
src/Layers/W1/BaseApp/HumanResources/Payables/UnapplyEmployeeEntries.Page.al295 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.Finance.ReceivablesPayables;
using Microsoft.HumanResources.Employee;
using System.Security.User;
page 625 "Unapply Employee Entries"
{
Caption = 'Unapply Employee Entries';
DataCaptionExpression = Caption();
DeleteAllowed = false;
InsertAllowed = false;
PageType = Worksheet;
SourceTable = "Detailed Employee Ledger Entry";
SourceTableTemporary = true;
layout
{
area(content)
{
group(General)
{
Caption = 'General';
field(DocuNo; DocNo)
{
ApplicationArea = BasicHR;
Caption = 'Document No.';
ToolTip = 'Specifies the document number that will be assigned to the entries that will be created when you click Unapply.';
}
field(PostDate; PostingDate)
{
ApplicationArea = BasicHR;
Caption = 'Posting Date';
ToolTip = 'Specifies the posting date that will be assigned to the general ledger entries that will be created when you click Unapply.';
}
}
repeater(Control1)
{
Editable = false;
ShowCaption = false;
field("Posting Date"; Rec."Posting Date")
{
ApplicationArea = BasicHR;
ToolTip = 'Specifies the posting date of the detailed vendor ledger entry.';
}
field("Entry Type"; Rec."Entry Type")
{
ApplicationArea = BasicHR;
ToolTip = 'Specifies the entry type of the detailed vendor ledger entry.';
}
field("Document Type"; Rec."Document Type")
{
ApplicationArea = BasicHR;
ToolTip = 'Specifies the document type of the detailed vendor ledger entry.';
}
field("Document No."; Rec."Document No.")
{
ApplicationArea = BasicHR;
}
field("Employee No."; Rec."Employee No.")
{
ApplicationArea = BasicHR;
ToolTip = 'Specifies the number of the vendor account to which the entry is posted.';
}
field("Initial Document Type"; Rec."Initial Document Type")
{
ApplicationArea = BasicHR;
}
field(DocumentNo; GetDocumentNo())
{
ApplicationArea = BasicHR;
Caption = 'Initial Document No.';
ToolTip = 'Specifies the number of the document for which the entry is unapplied.';
}
field("Initial Entry Global Dim. 1"; Rec."Initial Entry Global Dim. 1")
{
ApplicationArea = Dimensions;
ToolTip = 'Specifies the Global Dimension 1 code of the initial vendor ledger entry.';
Visible = false;
}
field("Initial Entry Global Dim. 2"; Rec."Initial Entry Global Dim. 2")
{
ApplicationArea = Dimensions;
ToolTip = 'Specifies the Global Dimension 2 code of the initial vendor ledger entry.';
Visible = false;
}
field("Currency Code"; Rec."Currency Code")
{
ApplicationArea = BasicHR;
}
field(Amount; Rec.Amount)
{
ApplicationArea = BasicHR;
ToolTip = 'Specifies the amount of the detailed vendor ledger entry.';
}
field("Amount (LCY)"; Rec."Amount (LCY)")
{
ApplicationArea = BasicHR;
ToolTip = 'Specifies the amount of the entry in LCY.';
}
field("Debit Amount"; Rec."Debit Amount")
{
ApplicationArea = BasicHR;
Visible = false;
}
field("Debit Amount (LCY)"; Rec."Debit Amount (LCY)")
{
ApplicationArea = BasicHR;
ToolTip = 'Specifies the total of the ledger entries that represent debits, expressed in LCY.';
Visible = false;
}
field("Credit Amount"; Rec."Credit Amount")
{
ApplicationArea = BasicHR;
Visible = false;
}
field("Credit Amount (LCY)"; Rec."Credit Amount (LCY)")
{
ApplicationArea = BasicHR;
ToolTip = 'Specifies the total of the ledger entries that represent credits, expressed in the local currency.';
Visible = false;
}
field("User ID"; Rec."User ID")
{
ApplicationArea = BasicHR;
LookupPageID = "User Lookup";
Visible = false;
}
field("Source Code"; Rec."Source Code")
{
ApplicationArea = BasicHR;
Visible = false;
}
field("Reason Code"; Rec."Reason Code")
{
ApplicationArea = BasicHR;
Visible = false;
}
field("Employee Ledger Entry No."; Rec."Employee Ledger Entry No.")
{
ApplicationArea = BasicHR;
ToolTip = 'Specifies the entry number of the vendor ledger entry that the detailed vendor ledger entry line was created for.';
Visible = false;
}
field("Entry No."; Rec."Entry No.")
{
ApplicationArea = BasicHR;
ToolTip = 'Specifies the entry number of the detailed vendor ledger entry.';
}
}
}
}
actions
{
area(processing)
{
action(Unapply)
{
ApplicationArea = BasicHR;
Caption = '&Unapply';
Image = UnApply;
ToolTip = 'Unselect one or more ledger entries that you want to unapply this record.';
trigger OnAction()
var
EmplEntryApplyPostedEntries: Codeunit "EmplEntry-Apply Posted Entries";
begin
if Rec.IsEmpty() then
Error(NothingToApplyErr);
if not Confirm(UnapplyEntriesQst, false) then
exit;
ApplyUnapplyParameters."Document No." := DocNo;
ApplyUnapplyParameters."Posting Date" := PostingDate;
EmplEntryApplyPostedEntries.PostUnApplyEmployee(DtldEmplLedgEntry2, ApplyUnapplyParameters);
PostingDate := 0D;
DocNo := '';
Rec.DeleteAll();
Message(EntriesUnappliedMsg);
CurrPage.Close();
end;
}
action(Preview)
{
ApplicationArea = BasicHR;
Caption = 'Preview Unapply';
Image = ViewPostedOrder;
ToolTip = 'Preview how unapplying one or more ledger entries will look like.';
trigger OnAction()
var
EmplEntryApplyPostedEntries: Codeunit "EmplEntry-Apply Posted Entries";
begin
if Rec.IsEmpty() then
Error(NothingToApplyErr);
ApplyUnapplyParameters."Document No." := DocNo;
ApplyUnapplyParameters."Posting Date" := PostingDate;
EmplEntryApplyPostedEntries.PreviewUnapply(DtldEmplLedgEntry2, ApplyUnapplyParameters);
end;
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process';
actionref(Unapply_Promoted; Unapply)
{
}
actionref(Preview_Promoted; Preview)
{
}
}
}
}
trigger OnOpenPage()
begin
InsertEntries();
end;
protected var
ApplyUnapplyParameters: Record "Apply Unapply Parameters";
var
DtldEmplLedgEntry2: Record "Detailed Employee Ledger Entry";
Employee: Record Employee;
DocNo: Code[20];
PostingDate: Date;
EmplLedgEntryNo: Integer;
CaptionTxt: Label '%1 %2 %3 %4', Locked = true;
EntriesUnappliedMsg: Label 'The entries were successfully unapplied.';
NothingToApplyErr: Label 'There is nothing to unapply.';
UnapplyEntriesQst: Label 'To unapply these entries, correcting entries will be posted.\Do you want to unapply the entries?';
procedure SetDtldEmplLedgEntry(EntryNo: Integer)
begin
DtldEmplLedgEntry2.Get(EntryNo);
EmplLedgEntryNo := DtldEmplLedgEntry2."Employee Ledger Entry No.";
PostingDate := DtldEmplLedgEntry2."Posting Date";
DocNo := DtldEmplLedgEntry2."Document No.";
Employee.Get(DtldEmplLedgEntry2."Employee No.");
end;
local procedure InsertEntries()
var
DtldEmplLedgEntry: Record "Detailed Employee Ledger Entry";
begin
if DtldEmplLedgEntry2."Transaction No." = 0 then begin
DtldEmplLedgEntry.SetCurrentKey("Application No.", "Employee No.", "Entry Type");
DtldEmplLedgEntry.SetRange("Application No.", DtldEmplLedgEntry2."Application No.");
end else begin
DtldEmplLedgEntry.SetCurrentKey("Transaction No.", "Employee No.", "Entry Type");
DtldEmplLedgEntry.SetRange("Transaction No.", DtldEmplLedgEntry2."Transaction No.");
end;
DtldEmplLedgEntry.SetRange("Employee No.", DtldEmplLedgEntry2."Employee No.");
Rec.DeleteAll();
if DtldEmplLedgEntry.Find('-') then
repeat
if (DtldEmplLedgEntry."Entry Type" <> DtldEmplLedgEntry."Entry Type"::"Initial Entry") and
not DtldEmplLedgEntry.Unapplied
then begin
Rec := DtldEmplLedgEntry;
Rec.Insert();
end;
until DtldEmplLedgEntry.Next() = 0;
end;
local procedure GetDocumentNo(): Code[20]
var
EmployeeLedgerEntry: Record "Employee Ledger Entry";
begin
if EmployeeLedgerEntry.Get(Rec."Employee Ledger Entry No.") then;
exit(EmployeeLedgerEntry."Document No.");
end;
procedure Caption(): Text
var
EmployeeLedgerEntry: Record "Employee Ledger Entry";
begin
exit(
StrSubstNo(
CaptionTxt, Employee."No.", Employee.FullName(), EmployeeLedgerEntry.FieldCaption("Entry No."), EmplLedgEntryNo));
end;
}