[E-Document Core] - Extending the Core app with payments

Apps/W1/EDocument/app/src/Document/EDocument.Page.al

@@ -550,11 +550,6 @@ page 6121 "E-Document"
 
         EDocImport.ProcessEDocPendingOrderMatch(Rec);
 
-        if (Rec.Direction = Rec.Direction::Incoming) then
-            Rec.SetRange("Payment Direction Filter", "E-Document Direction"::Outgoing)
-        else
-            Rec.SetRange("Payment Direction Filter", "E-Document Direction"::Incoming);
-
         this.SetPaymentStatus();
     end;
 
@@ -646,7 +641,7 @@ page 6121 "E-Document"
             if Rec."Paid Amount" < Rec."Amount Incl. VAT" then
                 this.PaymentStatus := this.PaymentStatus::"Partially Paid"
             else
-                this.PaymentStatus := this.PaymentStatus::"Paid In Full"
+                this.PaymentStatus := this.PaymentStatus::Paid
     end;
 
     local procedure ReceivePaymentsForEDoc()

Apps/W1/EDocument/app/src/Document/EDocument.Table.al

@@ -188,13 +188,7 @@ table 6121 "E-Document"
             Caption = 'Paid Amount';
             Editable = false;
             FieldClass = FlowField;
-            CalcFormula = sum("E-Document Payment".Amount where("E-Document Entry No." = field("Entry No"), Direction = field("Payment Direction Filter")));
-        }
-        field(33; "Payment Direction Filter"; Enum "E-Document Direction")
-        {
-            Caption = 'Payment Direction Filter';
-            Editable = false;
-            FieldClass = FlowFilter;
+            CalcFormula = sum("E-Document Payment".Amount where("E-Document Entry No." = field("Entry No")));
         }
     }
     keys

Apps/W1/EDocument/app/src/Helpers/EDocumentErrorHelper.Codeunit.al

@@ -116,7 +116,7 @@ codeunit 6115 "E-Document Error Helper"
     begin
         ErrorMessage.SetRange("Context Record ID", EDocument.RecordId());
         ErrorMessage.SetRange("Table Number", Database::"E-Document Payment");
-        ErrorMessage.DeleteAll();
+        ErrorMessage.DeleteAll(false);
     end;
 
     internal procedure GetTelemetryImplErrLbl(): Text

Apps/W1/EDocument/app/src/Integration/Actions/Implementations/EmptyPaymentHandler.Codeunit.al

@@ -10,7 +10,7 @@ using Microsoft.eServices.EDocument.Payments;
 using System.Utilities;
 
 /// <summary>
-/// This codeunit is used to implement the "Document Payment Handler" interface. It is used to provide a default implementation for the "Action Invoker" interface.
+/// This codeunit is used to provide a default implementation for the "Document Payment Handler" interface.
 /// </summary>
 codeunit 6105 "Empty Payment Handler" implements IDocumentPaymentHandler
 {
@@ -20,14 +20,17 @@ codeunit 6105 "Empty Payment Handler" implements IDocumentPaymentHandler
 
     procedure Send(var EDocument: Record "E-Document"; var EDocumentService: Record "E-Document Service"; PaymentContext: Codeunit PaymentContext)
     begin
+        // This method serves as a placeholder implementation for the IDocumentPaymentHandler interface.
     end;
 
     procedure Receive(var EDocument: Record "E-Document"; var EDocumentService: Record "E-Document Service"; var PaymentsMetadata: Codeunit "Temp Blob List"; PaymentContext: Codeunit PaymentContext)
     begin
+        // This method serves as a placeholder implementation for the IDocumentPaymentHandler interface.
     end;
 
     procedure GetDetails(var EDocument: Record "E-Document"; var EDocumentService: Record "E-Document Service"; PaymentMetadata: Codeunit "Temp Blob"; PaymentContext: Codeunit PaymentContext)
     begin
+        // This method serves as a placeholder implementation for the IDocumentPaymentHandler interface.
     end;
 
 }

Apps/W1/EDocument/app/src/Integration/Interfaces/IDocumentPaymentHandler.Interface.al

@@ -9,7 +9,7 @@ using Microsoft.eServices.EDocument.Integration.Payments;
 using System.Utilities;
 
 /// <summary>
-/// Interface for sending and receiving paymnet information for E-Documents using E-Document service
+/// Interface for sending and receiving payment information for E-Documents using E-Document service
 /// </summary>
 interface IDocumentPaymentHandler
 {

Apps/W1/EDocument/app/src/Integration/Payments/PaymentIntegrationManagement.Codeunit.al

@@ -74,8 +74,7 @@ codeunit 6117 "Payment Integration Management"
             exit;
 
         Payment.Init();
-        Payment."E-Document Entry No." := EDocument."Entry No";
-        Payment.Direction := Payment.Direction::Incoming;
+        Payment.Validate("E-Document Entry No.", EDocument."Entry No");
         Payment.Date := PaymentContext.GetDate();
         Payment.Validate(Amount, PaymentContext.GetAmount());
         Payment.Status := PaymentContext.GetPaymentStatus();

Apps/W1/EDocument/app/src/Integration/Payments/SendPayment.Codeunit.al

@@ -10,6 +10,10 @@ using Microsoft.eServices.EDocument.Payments;
 
 codeunit 6116 "Send Payment"
 {
+    Access = Internal;
+    InherentEntitlements = X;
+    InherentPermissions = X;
+
     trigger OnRun()
     begin
         this.EDocumentService.TestField(Code);

Apps/W1/EDocument/app/src/Payments/EDocumentPayment.Table.al

@@ -19,20 +19,29 @@ table 6101 "E-Document Payment"
         {
             Caption = 'E-Document Entry No.';
             TableRelation = "E-Document"."Entry No";
+            AllowInCustomizations = Always;
+
+            trigger OnValidate()
+            begin
+                this.SetPaymentDirection();
+            end;
         }
         field(2; "Payment No."; Integer)
         {
             Caption = 'Payment No.';
             AutoIncrement = true;
+            AllowInCustomizations = Always;
         }
         field(20; "Date"; Date)
         {
             Caption = 'Date';
+            ToolTip = 'Specifies the value of the Date field.';
         }
         field(21; Amount; Decimal)
         {
             Caption = 'Amount';
             DecimalPlaces = 2;
+            ToolTip = 'Specifies the value of the Amount field.';
 
             trigger OnValidate()
             begin
@@ -43,21 +52,31 @@ table 6101 "E-Document Payment"
         {
             Caption = 'VAT Base';
             DecimalPlaces = 2;
+            Editable = false;
+            ToolTip = 'Specifies the value of the VAT Base field.';
         }
         field(23; "VAT Amount"; Decimal)
         {
             Caption = 'VAT Amount';
             DecimalPlaces = 2;
+            Editable = false;
+            ToolTip = 'Specifies the value of the VAT Amount field.';
         }
         field(24; Status; Enum "Payment Status")
         {
             Caption = 'Status';
+            Editable = false;
+            InitValue = Created;
+            ToolTip = 'Specifies the value of the Status field.';
         }
         field(25; Direction; Enum "E-Document Direction")
         {
             Caption = 'Direction';
+            Editable = false;
+            ToolTip = 'Specifies the value of the Direction field.';
         }
     }
+
     keys
     {
         key(PK; "E-Document Entry No.", "Payment No.")
@@ -66,12 +85,6 @@ table 6101 "E-Document Payment"
         }
     }
 
-    trigger OnInsert()
-    begin
-        if Rec.Status = Rec.Status::" " then
-            Rec.Status := Rec.Status::Created;
-    end;
-
     local procedure CalculateVAT()
     var
         EDocument: Record "E-Document";
@@ -86,4 +99,15 @@ table 6101 "E-Document Payment"
         Rec."VAT Base" := Rec.Amount / (EDocument."Amount Incl. VAT" / EDocument."Amount Excl. VAT");
         Rec."VAT Amount" := Rec.Amount - Rec."VAT Base";
     end;
+
+    local procedure SetPaymentDirection()
+    var
+        EDocument: Record "E-Document";
+    begin
+        EDocument.Get(Rec."E-Document Entry No.");
+        if EDocument.Direction = EDocument.Direction::Outgoing then
+            Rec.Direction := Rec.Direction::Incoming
+        else
+            Rec.Direction := Rec.Direction::Outgoing;
+    end;
 }

Apps/W1/EDocument/app/src/Payments/EDocumentPaymentProgress.Enum.al

@@ -20,7 +20,7 @@ enum 6104 "E-Document Payment Progress"
     {
         Caption = 'Partially Paid';
     }
-    value(3; "Paid In Full")
+    value(3; Paid)
     {
         Caption = 'Paid In Full';
     }

Apps/W1/EDocument/app/src/Payments/EDocumentPayments.Page.al

@@ -21,41 +21,40 @@ page 6101 "E-Document Payments"
                 field("Date"; Rec."Date")
                 {
                     ApplicationArea = All;
-                    ToolTip = 'Specifies the value of the Date field.';
+                    Editable = this.PaymentEditable;
                 }
                 field(Amount; Rec.Amount)
                 {
                     ApplicationArea = All;
-                    ToolTip = 'Specifies the value of the Amount field.';
+                    Editable = this.PaymentEditable;
                 }
                 field("VAT Base"; Rec."VAT Base")
                 {
                     ApplicationArea = All;
-                    ToolTip = 'Specifies the value of the VAT Base field.';
                     Visible = false;
                 }
                 field("VAT Amount"; Rec."VAT Amount")
                 {
                     ApplicationArea = All;
-                    ToolTip = 'Specifies the value of the VAT Amount field.';
                     Visible = false;
                 }
                 field(Status; Rec.Status)
                 {
                     ApplicationArea = All;
-                    ToolTip = 'Specifies the value of the Status field.';
                 }
                 field(Direction; Rec.Direction)
                 {
                     ApplicationArea = All;
-                    ToolTip = 'Specifies the value of the Direction field.';
                 }
             }
         }
     }
 
-    trigger OnNewRecord(BelowxRec: Boolean)
+    var
+        PaymentEditable: Boolean;
+
+    trigger OnAfterGetRecord()
     begin
-        Evaluate(Rec.Direction, Rec.GetFilter("Direction"));
+        this.PaymentEditable := Rec.Status <> Rec.Status::Sent;
     end;
 }