feat(Sustainability): Add Reverse Transaction for Sustainability Ledger Entries

src/Apps/W1/Sustainability/app/src/Ledger/SustEntryReverseMgt.Codeunit.al

@@ -0,0 +1,132 @@
+namespace Microsoft.Sustainability.Ledger;
+
+using Microsoft.Sustainability.Setup;
+
+codeunit 6230 "Sust. Entry Reverse Mgt."
+{
+    Permissions = tabledata "Sustainability Ledger Entry" = rimd;
+
+    var
+        AlreadyReversedErr: Label 'Entry No. %1 has already been reversed.', Comment = '%1 = Entry No.';
+        DocumentEntryErr: Label 'Entry No. %1 was posted from a document and cannot be reversed from here. Use a corrective document instead.', Comment = '%1 = Entry No.';
+        ConfirmReverseQst: Label 'Do you want to reverse the selected sustainability ledger entry?';
+        ConfirmReverseMultipleQst: Label 'Do you want to reverse %1 sustainability ledger entries?', Comment = '%1 = Count';
+
+    procedure ReverseEntry(var SustLedgEntry: Record "Sustainability Ledger Entry")
+    var
+        NewSustLedgEntry: Record "Sustainability Ledger Entry";
+        NextEntryNo: Integer;
+    begin
+        ValidateEntryForReversal(SustLedgEntry);
+
+        NextEntryNo := GetNextEntryNo();
+
+        CreateReversalEntry(SustLedgEntry, NewSustLedgEntry, NextEntryNo);
+        UpdateOriginalEntry(SustLedgEntry, NextEntryNo);
+    end;
+
+    procedure ReverseEntryFromGL(var SustLedgEntry: Record "Sustainability Ledger Entry")
+    var
+        NewSustLedgEntry: Record "Sustainability Ledger Entry";
+        NextEntryNo: Integer;
+    begin
+        if SustLedgEntry.Reversed then
+            exit;
+
+        NextEntryNo := GetNextEntryNo();
+
+        CreateReversalEntry(SustLedgEntry, NewSustLedgEntry, NextEntryNo);
+        UpdateOriginalEntry(SustLedgEntry, NextEntryNo);
+    end;
+
+    procedure ReverseEntries(var SustLedgEntry: Record "Sustainability Ledger Entry"): Integer
+    var
+        TempSustLedgEntry: Record "Sustainability Ledger Entry";
+        EntryCount: Integer;
+    begin
+        EntryCount := SustLedgEntry.Count();
+
+        if EntryCount = 0 then
+            exit(0);
+
+        if EntryCount = 1 then begin
+            if not Confirm(ConfirmReverseQst) then
+                exit(0);
+        end else
+            if not Confirm(ConfirmReverseMultipleQst, false, EntryCount) then
+                exit(0);
+
+        // Validate all entries first (all-or-nothing)
+        TempSustLedgEntry.Copy(SustLedgEntry);
+        TempSustLedgEntry.SetLoadFields("Entry No.", Reversed, "Journal Template Name");
+        if TempSustLedgEntry.FindSet() then
+            repeat
+                ValidateEntryForReversal(TempSustLedgEntry);
+            until TempSustLedgEntry.Next() = 0;
+
+        // Reverse all entries
+        if SustLedgEntry.FindSet(true) then
+            repeat
+                ReverseEntry(SustLedgEntry);
+            until SustLedgEntry.Next() = 0;
+
+        exit(EntryCount);
+    end;
+
+    local procedure ValidateEntryForReversal(SustLedgEntry: Record "Sustainability Ledger Entry")
+    begin
+        if SustLedgEntry.Reversed then
+            Error(AlreadyReversedErr, SustLedgEntry."Entry No.");
+
+        if SustLedgEntry."Journal Template Name" = '' then
+            Error(DocumentEntryErr, SustLedgEntry."Entry No.");
+    end;
+
+    local procedure CreateReversalEntry(OriginalEntry: Record "Sustainability Ledger Entry"; var NewEntry: Record "Sustainability Ledger Entry"; NewEntryNo: Integer)
+    begin
+        NewEntry.Init();
+        NewEntry.TransferFields(OriginalEntry, false);
+        NewEntry."Entry No." := NewEntryNo;
+        // Post the reversal on the original entry's posting date so emissions net to zero within the same period (matches G/L Reverse).
+        NewEntry."Posting Date" := OriginalEntry."Posting Date";
+        NewEntry."Document No." := OriginalEntry."Document No.";
+
+        // Negate emission values
+        NewEntry."Emission CO2" := -OriginalEntry."Emission CO2";
+        NewEntry."Emission CH4" := -OriginalEntry."Emission CH4";
+        NewEntry."Emission N2O" := -OriginalEntry."Emission N2O";
+        NewEntry."CO2e Emission" := -OriginalEntry."CO2e Emission";
+        NewEntry."Carbon Fee" := -OriginalEntry."Carbon Fee";
+
+        // Negate water & waste values
+        NewEntry."Water Intensity" := -OriginalEntry."Water Intensity";
+        NewEntry."Discharged Into Water" := -OriginalEntry."Discharged Into Water";
+        NewEntry."Waste Intensity" := -OriginalEntry."Waste Intensity";
+        NewEntry."Energy Consumption" := -OriginalEntry."Energy Consumption";
+
+        // Set reversal tracking fields
+        NewEntry.Reversed := true;
+        NewEntry."Reversed Entry No." := OriginalEntry."Entry No.";
+        NewEntry."Reversed by Entry No." := 0;
+
+        NewEntry.Insert(true);
+    end;
+
+    local procedure UpdateOriginalEntry(var OriginalEntry: Record "Sustainability Ledger Entry"; ReversalEntryNo: Integer)
+    begin
+        OriginalEntry.Reversed := true;
+        OriginalEntry."Reversed by Entry No." := ReversalEntryNo;
+        OriginalEntry.Modify(true);
+    end;
+
+    local procedure GetNextEntryNo(): Integer
+    var
+        SustLedgEntry: Record "Sustainability Ledger Entry";
+    begin
+        SustLedgEntry.SetCurrentKey("Entry No.");
+        if SustLedgEntry.FindLast() then
+            exit(SustLedgEntry."Entry No." + 1)
+        else
+            exit(1);
+    end;
+}

src/Apps/W1/Sustainability/app/src/Ledger/SustainabilityLedgerEntries.Page.al

@@ -161,6 +161,18 @@ page 6220 "Sustainability Ledger Entries"
                 {
                     ToolTip = 'Specifies the Energy Consumption.';
                 }
+                field(Reversed; Rec.Reversed)
+                {
+                    ToolTip = 'Specifies whether this entry has been reversed.';
+                }
+                field("Reversed by Entry No."; Rec."Reversed by Entry No.")
+                {
+                    ToolTip = 'Specifies the entry number that reversed this entry.';
+                }
+                field("Reversed Entry No."; Rec."Reversed Entry No.")
+                {
+                    ToolTip = 'Specifies the original entry number that this entry reverses.';
+                }
                 field("Country/Region Code"; Rec."Country/Region Code")
                 {
                     ToolTip = 'Specifies the country/region code of the entry.';
@@ -260,6 +272,33 @@ page 6220 "Sustainability Ledger Entries"
                 }
             }
         }
+        area(processing)
+        {
+            action(ReverseTransaction)
+            {
+                ApplicationArea = Basic, Suite;
+                Caption = 'Reverse Transaction';
+                ToolTip = 'Reverse the selected sustainability ledger entry by creating a new entry with negated emission values.';
+                Image = ReverseRegister;
+
+                trigger OnAction()
+                var
+                    SustLedgEntry: Record "Sustainability Ledger Entry";
+                    SustEntryReverseMgt: Codeunit "Sust. Entry Reverse Mgt.";
+                    ReversedCount: Integer;
+                begin
+                    CurrPage.SetSelectionFilter(SustLedgEntry);
+                    ReversedCount := SustEntryReverseMgt.ReverseEntries(SustLedgEntry);
+                    if ReversedCount > 0 then begin
+                        CurrPage.Update(false);
+                        if ReversedCount = 1 then
+                            Message(ReversalSuccessMsg)
+                        else
+                            Message(ReversalMultipleSuccessMsg, ReversedCount);
+                    end;
+                end;
+            }
+        }
         area(Promoted)
         {
             group(Category_Category4)
@@ -268,13 +307,20 @@ page 6220 "Sustainability Ledger Entries"
                 actionref(Dimensions_Promoted; Dimensions) { }
                 actionref(SetDimensionFilter_Promoted; SetDimensionFilter) { }
             }
+            group(Category_Process)
+            {
+                Caption = 'Process';
+                actionref(ReverseTransaction_Promoted; ReverseTransaction) { }
+            }
         }
     }
 
     var
         DimensionSetIDFilter: Page "Dimension Set ID Filter";
         Dim1Visible, Dim2Visible, Dim3Visible, Dim4Visible, Dim5Visible, Dim6Visible, Dim7Visible, Dim8Visible : Boolean;
         DimensionCaptionLbl: Label '%1 %2', Locked = true;
+        ReversalSuccessMsg: Label 'The entry has been successfully reversed.';
+        ReversalMultipleSuccessMsg: Label '%1 entries have been successfully reversed.', Comment = '%1 = Count';
 
     trigger OnOpenPage()
     begin
@@ -287,4 +333,4 @@ page 6220 "Sustainability Ledger Entries"
     begin
         DimensionManagement.UseShortcutDims(Dim1Visible, Dim2Visible, Dim3Visible, Dim4Visible, Dim5Visible, Dim6Visible, Dim7Visible, Dim8Visible);
     end;
-}
+}

src/Apps/W1/Sustainability/app/src/Ledger/SustainabilityLedgerEntry.Table.al

@@ -340,6 +340,26 @@ table 6216 "Sustainability Ledger Entry"
         {
             Caption = 'Correction';
         }
+        field(5818; Reversed; Boolean)
+        {
+            Caption = 'Reversed';
+            DataClassification = SystemMetadata;
+            Editable = false;
+        }
+        field(5819; "Reversed by Entry No."; Integer)
+        {
+            Caption = 'Reversed by Entry No.';
+            DataClassification = SystemMetadata;
+            Editable = false;
+            TableRelation = "Sustainability Ledger Entry"."Entry No.";
+        }
+        field(5820; "Reversed Entry No."; Integer)
+        {
+            Caption = 'Reversed Entry No.';
+            DataClassification = SystemMetadata;
+            Editable = false;
+            TableRelation = "Sustainability Ledger Entry"."Entry No.";
+        }
     }
 
     keys
@@ -370,4 +390,4 @@ table 6216 "Sustainability Ledger Entry"
     begin
         DimMgt.ShowDimensionSet("Dimension Set ID", StrSubstNo(EntryRecIDLbl, TableCaption(), "Entry No."));
     end;
-}
+}