[Shopify] - Different Shipping Charges Types Tests (#27575)

This pull request does not have a related issue as it's part of the
delivery for development agreed directly with @AndreiPanko

Different shipping charges types Tests
Automated tests for changes
#26708

Fixes #26819
Fixes
[AB#556525](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/556525)

---------

Co-authored-by: Piotr Michalak <[email protected]>
Co-authored-by: Jesper Schulz-Wedde <[email protected]>

Author: 3 people

Apps/W1/Shopify/app/src/Order handling/Codeunits/ShpfyProcessOrder.Codeunit.al

@@ -57,7 +57,7 @@ codeunit 30166 "Shpfy Process Order"
     /// </summary>
     /// <param name="SalesHeader">Parameter of type Record "Sales Header".</param>
     /// <param name="ShopifyOrderHeader">Parameter of type Record "Shopify Order Header".</param>
-    local procedure CreateHeaderFromShopifyOrder(var SalesHeader: Record "Sales Header"; ShopifyOrderHeader: Record "Shpfy Order Header")
+    internal procedure CreateHeaderFromShopifyOrder(var SalesHeader: Record "Sales Header"; ShopifyOrderHeader: Record "Shpfy Order Header")
     var
         ShopifyTaxArea: Record "Shpfy Tax Area";
         DocLinkToBCDoc: Record "Shpfy Doc. Link To Doc.";
@@ -184,7 +184,7 @@ codeunit 30166 "Shpfy Process Order"
     /// </summary>
     /// <param name="SalesHeader">Parameter of type Record "Sales Header".</param>
     /// <param name="ShopifyOrderHeader">Parameter of type Record "Shopify Order Header".</param>
-    local procedure CreateLinesFromShopifyOrder(var SalesHeader: Record "Sales Header"; ShopifyOrderHeader: Record "Shpfy Order Header")
+    internal procedure CreateLinesFromShopifyOrder(var SalesHeader: Record "Sales Header"; ShopifyOrderHeader: Record "Shpfy Order Header")
     var
         Item: Record Item;
         SalesLine: Record "Sales Line";
@@ -432,6 +432,11 @@ codeunit 30166 "Shpfy Process Order"
             SalesHeader.Delete(true);
     end;
 
+    internal procedure SetShopifyShop(Shop: Record "Shpfy Shop")
+    begin
+        ShopifyShop := Shop;
+    end;
+
     [EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales-Post", 'OnInsertShipmentHeaderOnAfterTransferfieldsToSalesShptHeader', '', false, false)]
     local procedure TransferShopifyOrderNoToShipmentHeader(SalesHeader: Record "Sales Header"; var SalesShptHeader: Record "Sales Shipment Header")
     begin

Apps/W1/Shopify/test/Base/ShpfyInitializeTest.Codeunit.al

@@ -25,7 +25,6 @@ codeunit 139561 "Shpfy Initialize Test"
 
     internal procedure CreateShop(): Record "Shpfy Shop"
     var
-        GLAccount: Record "G/L Account";
         RefundGLAccount: Record "G/L Account";
         Shop: Record "Shpfy Shop";
         VATPostingSetup: Record "VAT Posting Setup";
@@ -43,8 +42,6 @@ codeunit 139561 "Shpfy Initialize Test"
                 exit(Shop);
 
         Code := Any.AlphabeticText(MaxStrLen(Code));
-        GLAccount.SetRange("Direct Posting", true);
-        GLAccount.FindLast();
 
         LibraryERM.CreateVATPostingSetupWithAccounts(VATPostingSetup,
            VATPostingSetup."VAT Calculation Type"::"Normal VAT", LibraryRandom.RandDecInDecimalRange(10, 25, 0));
@@ -65,7 +62,7 @@ codeunit 139561 "Shpfy Initialize Test"
         CreateVATPostingSetup(PostingGroupCode, PostingGroupCode);
         CreateVATPostingSetup(PostingGroupCode, '');
         CreateVATPostingSetup(PostingGroupCode, RefundGLAccount."VAT Prod. Posting Group");
-        Shop."Shipping Charges Account" := GLAccount."No.";
+        Shop."Shipping Charges Account" := CreateShippingChargesGLAcc(VATPostingSetup, GenPostingType, PostingGroupCode);
         Shop."Customer Posting Group" := PostingGroupCode;
         Shop."Gen. Bus. Posting Group" := PostingGroupCode;
         Shop."VAT Bus. Posting Group" := PostingGroupCode;
@@ -353,7 +350,7 @@ codeunit 139561 "Shpfy Initialize Test"
         LibraryAssert.IsTrue(Values[1] = ShopifyAccessToken, 'invalid access token');
     end;
 
-    local procedure CreateVATPostingSetup(BusinessPostingGroup: Code[20]; ProductPostingGroup: Code[20])
+    internal procedure CreateVATPostingSetup(BusinessPostingGroup: Code[20]; ProductPostingGroup: Code[20])
     var
         GeneralPostingSetup: Record "General Posting Setup";
         VatPostingSetup: Record "VAT Posting Setup";
@@ -376,4 +373,17 @@ codeunit 139561 "Shpfy Initialize Test"
         end;
     end;
 
+    local procedure CreateShippingChargesGLAcc(var VATPostingSetup: Record "VAT Posting Setup"; GenPostingType: Enum "General Posting Type"; PostingGroupCode: Code[20]): Code[20]
+    var
+        ShippingChargesGLAccount: Record "G/L Account";
+    begin
+        ShippingChargesGLAccount.Get(LibraryERM.CreateGLAccountWithVATPostingSetup(VATPostingSetup, GenPostingType::Sale));
+        ShippingChargesGLAccount."Direct Posting" := true;
+        ShippingChargesGLAccount.Modify(false);
+
+        CreateVATPostingSetup(PostingGroupCode, ShippingChargesGLAccount."VAT Prod. Posting Group");
+
+        exit(ShippingChargesGLAccount."No.");
+    end;
+
 }