[Shopify] Dispute processing in Shopify (Payments module)

Apps/W1/Shopify/app/src/Payments/Codeunits/ShpfyPayments.Codeunit.al

@@ -203,4 +203,48 @@ codeunit 30169 "Shpfy Payments"
             end;
         end;
     end;
+
+    internal procedure UpdateDisputeStatus()
+    var
+        PaymentTransaction: Record "Shpfy Payment Transaction";
+        OrderId: BigInteger;
+        JDisputes: JsonArray;
+        JItem: JsonToken;
+        JResponse: JsonToken;
+        Url: Text;
+        UrlTxt: Label 'shopify_payments/disputes.json?limit=250', Locked = true;
+        DisputeStatus: Enum "Shpfy Pay. Trans. Disp. Status";
+    begin
+        Url := CommunicationMgt.CreateWebRequestURL(UrlTxt);
+
+        repeat
+            JResponse := CommunicationMgt.ExecuteWebRequest(Url, 'GET', JResponse, Url);
+
+            if JsonHelper.GetJsonArray(JResponse, JDisputes, 'disputes') then
+                foreach JItem in JDisputes do begin
+                    OrderId := JsonHelper.GetValueAsBigInteger(JItem, 'order_id');
+                    DisputeStatus := ConvertToDisputeStatus(JsonHelper.GetValueAsText(JItem, 'status'));
+
+                    PaymentTransaction.SetRange("Source Order Id", OrderId);
+                    PaymentTransaction.SetRange(Type, PaymentTransaction.Type::Dispute);
+                    if PaymentTransaction.Findset() then
+                        repeat
+                            if PaymentTransaction."Dispute Status" <> DisputeStatus then begin
+                                PaymentTransaction."Dispute Status" := DisputeStatus;
+                                PaymentTransaction."Dispute Finalized On" := JsonHelper.GetValueAsDateTime(JItem, 'finalized_on');
+                                PaymentTransaction.Modify();
+                            end;
+                        until PaymentTransaction.Next() = 0;
+                end;
+        until Url = '';
+    end;
+
+    local procedure ConvertToDisputeStatus(Value: Text): Enum "Shpfy Pay. Trans. Disp. Status"
+    begin
+        Value := CommunicationMgt.ConvertToCleanOptionValue(Value);
+        if Enum::"Shpfy Pay. Trans. Disp. Status".Names().Contains(Value) then
+            exit(Enum::"Shpfy Pay. Trans. Disp. Status".FromInteger(Enum::"Shpfy Pay. Trans. Disp. Status".Ordinals().Get(Enum::"Shpfy Pay. Trans. Disp. Status".Names().IndexOf(Value))))
+        else
+            exit(Enum::"Shpfy Pay. Trans. Disp. Status"::Unknown);
+    end;
 }

Apps/W1/Shopify/app/src/Payments/Enums/ShpfyPaymentTransDisputeStatus.Enum.al

@@ -0,0 +1,34 @@
+enum 30150 "Shpfy Pay. Trans. Disp. Status"
+{
+    Caption = 'Shopify Payment Transaction Dispute status';
+    Extensible = true;
+
+    value(0; Unknown)
+    {
+        Caption = ' ';
+    }
+    value(1; "Needs Response")
+    {
+        Caption = 'Needs Response';
+    }
+    value(2; "Under Review")
+    {
+        Caption = 'Under Review';
+    }
+    value(3; "Charge Refunded")
+    {
+        Caption = 'Charge Refunded';
+    }
+    value(4; "Accepted")
+    {
+        Caption = 'Accepted';
+    }
+    value(5; "Won")
+    {
+        Caption = 'Chargeback Won';
+    }
+    value(6; "Lost")
+    {
+        Caption = 'Lost';
+    }
+}

Apps/W1/Shopify/app/src/Payments/Enums/ShpfyPaymentTransType.Enum.al

@@ -5,7 +5,6 @@ namespace Microsoft.Integration.Shopify;
 /// </summary>
 enum 30127 "Shpfy Payment Trans. Type"
 {
-    Access = Internal;
     Caption = 'Shopify Payment Transcation Type';
     Extensible = true;
 

Apps/W1/Shopify/app/src/Payments/Pages/ShpfyPaymentTransactions.Page.al

@@ -78,6 +78,17 @@ page 30124 "Shpfy Payment Transactions"
                     ApplicationArea = All;
                     ToolTip = 'Specifies the id the order transaction that resulted in this balance transaction.';
                 }
+                field("Dispute Status"; Rec."Dispute Status")
+                {
+                    ApplicationArea = All;
+                    ToolTip = 'Specifies the Dispute Status of the payment transaction.';
+                }
+                field("Dispute Finalized On"; Rec."Dispute Finalized On")
+                {
+                    ApplicationArea = All;
+                    ToolTip = 'Specifies the Dispute Finalized On of the payment transaction.';
+
+                }
             }
         }
     }

Apps/W1/Shopify/app/src/Payments/Reports/ShpfySyncDisputes.Report.al

@@ -0,0 +1,22 @@
+report 30120 "Shpfy Sync Disputes"
+{
+    ApplicationArea = All;
+    Caption = 'Shopify Sync Disputes';
+    ProcessingOnly = true;
+    UsageCategory = Tasks;
+
+    dataset
+    {
+        dataitem(Shop; "Shpfy Shop")
+        {
+            DataItemTableView = where(Enabled = const(true));
+            trigger OnAfterGetRecord()
+            var
+                Sync: codeunit "Shpfy Payments";
+            begin
+                Sync.SetShop(Shop);
+                Sync.UpdateDisputeStatus();
+            end;
+        }
+    }
+}

Apps/W1/Shopify/app/src/Payments/Tables/ShpfyPaymentTransaction.Table.al

@@ -93,6 +93,16 @@ table 30124 "Shpfy Payment Transaction"
             Caption = 'Invoice No.';
             FieldClass = FlowField;
         }
+        field(200; "Dispute Status"; Enum "Shpfy Pay. Trans. Disp. Status")
+        {
+            Caption = 'Dispute Status';
+            DataClassification = CustomerContent;
+        }
+        field(201; "Dispute Finalized On"; DateTime)
+        {
+            Caption = 'Dispute Finalized On';
+            DataClassification = CustomerContent;
+        }
     }
     keys
     {