diff --git a/Apps/W1/Shopify/app/src/GraphQL/Codeunits/ShpfyGQLVariantMetafieldIds.Codeunit.al b/Apps/W1/Shopify/app/src/GraphQL/Codeunits/ShpfyGQLVariantMetafieldIds.Codeunit.al
new file mode 100644
index 0000000000..4bf3e281b7
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/GraphQL/Codeunits/ShpfyGQLVariantMetafieldIds.Codeunit.al
@@ -0,0 +1,28 @@
+namespace Microsoft.Integration.Shopify;
+
+///
+/// Codeunit Shpfy GQL VariantMetafieldIds (ID 30336) implements Interface Shpfy IGraphQL.
+///
+codeunit 30336 "Shpfy GQL VariantMetafieldIds" implements "Shpfy IGraphQL"
+{
+ Access = Internal;
+
+ ///
+ /// GetGraphQL.
+ ///
+ /// Return value of type Text.
+ internal procedure GetGraphQL(): Text
+ begin
+ exit('{"query":"{productVariant(id: \"gid://shopify/ProductVariant/{{VariantId}}\") { metafields(first: 50) {edges{ node{legacyResourceId updatedAt}}}}}"}');
+ end;
+
+ ///
+ /// GetExpectedCost.
+ ///
+ /// Return value of type Integer.
+ internal procedure GetExpectedCost(): Integer
+ begin
+ exit(50);
+ end;
+
+}
diff --git a/Apps/W1/Shopify/app/src/GraphQL/Enums/ShpfyGraphQLType.Enum.al b/Apps/W1/Shopify/app/src/GraphQL/Enums/ShpfyGraphQLType.Enum.al
index c3ee92e22b..76c143c034 100644
--- a/Apps/W1/Shopify/app/src/GraphQL/Enums/ShpfyGraphQLType.Enum.al
+++ b/Apps/W1/Shopify/app/src/GraphQL/Enums/ShpfyGraphQLType.Enum.al
@@ -405,6 +405,26 @@ enum 30111 "Shpfy GraphQL Type" implements "Shpfy IGraphQL"
Caption = 'Get Order Transactions';
Implementation = "Shpfy IGraphQL" = "Shpfy GQL OrderTransactions";
}
+ value(80; DraftOrderComplete)
+ {
+ Caption = 'Draft Order Complete';
+ Implementation = "Shpfy IGraphQL" = "Shpfy GQL DraftOrderComplete";
+ }
+ value(81; FulfillOrder)
+ {
+ Caption = 'Fulfill Order';
+ Implementation = "Shpfy IGraphQL" = "Shpfy GQL Fulfill Order";
+ }
+ value(82; GetPaymentTerms)
+ {
+ Caption = 'Get Payment Terms';
+ Implementation = "Shpfy IGraphQL" = "Shpfy GQL Payment Terms";
+ }
+ value(83; GetFulfillmentOrderIds)
+ {
+ Caption = 'Get Fulfillments';
+ Implementation = "Shpfy IGraphQL" = "Shpfy GQL Get Fulfillments";
+ }
value(85; ProductVariantDelete)
{
Caption = 'Product Variant Delete';
@@ -435,4 +455,34 @@ enum 30111 "Shpfy GraphQL Type" implements "Shpfy IGraphQL"
Caption = 'Get Next Reverse Fulfillment Order Lines';
Implementation = "Shpfy IGraphQL" = "Shpfy GQL NextRevFulfillOrdLns";
}
+ value(91; TranslationsRegister)
+ {
+ Caption = 'Translations Register';
+ Implementation = "Shpfy IGraphQL" = "Shpfy GQL TranslationsRegister";
+ }
+ value(92; ShopLocales)
+ {
+ Caption = 'Shop Locales';
+ Implementation = "Shpfy IGraphQL" = "Shpfy GQL ShopLocales";
+ }
+ value(93; GetTranslResource)
+ {
+ Caption = 'Get Transl Resource';
+ Implementation = "Shpfy IGraphQL" = "Shpfy GQL TranslResource";
+ }
+ value(94; MetafieldSet)
+ {
+ Caption = 'MetfieldSet';
+ Implementation = "Shpfy IGraphQL" = "Shpfy GQL MetafieldsSet";
+ }
+ value(95; ProductMetafieldIds)
+ {
+ Caption = 'Product Metafield Ids';
+ Implementation = "Shpfy IGraphQL" = "Shpfy GQL ProductMetafieldIds";
+ }
+ value(96; VariantMetafieldIds)
+ {
+ Caption = 'Variant Metafield Ids';
+ Implementation = "Shpfy IGraphQL" = "Shpfy GQL VariantMetafieldIds";
+ }
}
diff --git a/Apps/W1/Shopify/app/src/Integration/Codeunits/ShpfyAuthenticationMgt.Codeunit.al b/Apps/W1/Shopify/app/src/Integration/Codeunits/ShpfyAuthenticationMgt.Codeunit.al
index e3ac43a697..3770859591 100644
--- a/Apps/W1/Shopify/app/src/Integration/Codeunits/ShpfyAuthenticationMgt.Codeunit.al
+++ b/Apps/W1/Shopify/app/src/Integration/Codeunits/ShpfyAuthenticationMgt.Codeunit.al
@@ -15,7 +15,7 @@ codeunit 30199 "Shpfy Authentication Mgt."
var
// https://shopify.dev/api/usage/access-scopes
- ScopeTxt: Label 'write_orders,read_all_orders,write_assigned_fulfillment_orders,read_checkouts,write_customers,read_discounts,write_files,write_merchant_managed_fulfillment_orders,write_fulfillments,write_inventory,read_locations,read_payment_terms,write_products,write_shipping,read_shopify_payments_disputes,read_shopify_payments_payouts,write_returns,write_translations,write_third_party_fulfillment_orders,write_order_edits,write_companies,write_publications', Locked = true;
+ ScopeTxt: Label 'write_orders,read_all_orders,write_assigned_fulfillment_orders,read_checkouts,write_customers,read_discounts,write_files,write_merchant_managed_fulfillment_orders,write_fulfillments,write_inventory,read_locations,write_products,write_shipping,read_shopify_payments_disputes,read_shopify_payments_payouts,write_returns,write_translations,write_third_party_fulfillment_orders,write_order_edits,write_companies,write_publications,read_payment_terms,write_payment_terms,write_draft_orders,read_locales', Locked = true;
ShopifyAPIKeyAKVSecretNameLbl: Label 'ShopifyApiKey', Locked = true;
ShopifyAPISecretAKVSecretNameLbl: Label 'ShopifyApiSecret', Locked = true;
MissingAPIKeyTelemetryTxt: Label 'The api key has not been initialized.', Locked = true;
diff --git a/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyDraftOrdersAPI.Codeunit.al b/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyDraftOrdersAPI.Codeunit.al
new file mode 100644
index 0000000000..0e67fc2d40
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyDraftOrdersAPI.Codeunit.al
@@ -0,0 +1,386 @@
+namespace Microsoft.Integration.Shopify;
+
+using Microsoft.Sales.Comment;
+using Microsoft.Sales.History;
+using Microsoft.Finance.Currency;
+using Microsoft.Inventory.Item.Attribute;
+using Microsoft.Inventory.Item;
+
+///
+/// Codeunit Draft Orders API (ID 30159).
+///
+codeunit 30159 "Shpfy Draft Orders API"
+{
+ Access = Internal;
+
+ var
+ ShpfyShop: Record "Shpfy Shop";
+ ShpfyCommunicationMgt: Codeunit "Shpfy Communication Mgt.";
+ ShpfyJsonHelper: Codeunit "Shpfy Json Helper";
+
+ ///
+ /// Creates a draft order in shopify by constructing and sending a graphQL request.
+ ///
+ /// Header information for a shopify order.
+ /// Line items for a shopify order.
+ /// Tax lines for a shopify order.
+ /// Unique id of the created draft order in shopify.
+ internal procedure CreateDraftOrder(
+ var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary;
+ var TempShpfyOrderLine: Record "Shpfy Order Line" temporary;
+ var ShpfyOrderTaxLines: Dictionary of [Text, Decimal]
+ ): BigInteger
+ var
+ DraftOrderId: BigInteger;
+ GraphQuery: TextBuilder;
+ begin
+ GraphQuery := CreateDraftOrderGQLRequest(TempShpfyOrderHeader, TempShpfyOrderLine, ShpfyOrderTaxLines);
+ DraftOrderId := SendDraftOrderGraphQLRequest(GraphQuery);
+ exit(DraftOrderId);
+ end;
+
+ ///
+ /// Completes a draft order in shopify by converting it to an order.
+ ///
+ /// Draft order id that needs to be completed.
+ /// Json response of a created order in shopify.
+ internal procedure CompleteDraftOrder(DraftOrderId: BigInteger): JsonToken
+ var
+ GraphQLType: Enum "Shpfy GraphQL Type";
+ Parameters: Dictionary of [Text, Text];
+ JResponse: JsonToken;
+ begin
+ GraphQLType := "Shpfy GraphQL Type"::DraftOrderComplete;
+ Parameters.Add('DraftOrderId', Format(DraftOrderId));
+ JResponse := ShpfyCommunicationMgt.ExecuteGraphQL(GraphQLType, Parameters);
+ exit(JResponse);
+ end;
+
+ ///
+ /// Sets a global shopify shop to be used for draft orders api functionality.
+ ///
+ /// Shopify shop code to be set.
+ internal procedure SetShop(ShopCode: Code[20])
+ begin
+ Clear(ShpfyShop);
+ ShpfyShop.Get(ShopCode);
+ ShpfyCommunicationMgt.SetShop(ShpfyShop);
+ end;
+
+ local procedure CreateDraftOrderGQLRequest(
+ var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary;
+ var TempShpfyOrderLine: Record "Shpfy Order Line" temporary;
+ var ShpfyOrderTaxLines: Dictionary of [Text, Decimal]
+ ): TextBuilder
+ var
+ GraphQuery: TextBuilder;
+ begin
+ GraphQuery.Append('{"query":"mutation {draftOrderCreate(input: {');
+ if TempShpfyOrderHeader.Email <> '' then begin
+ GraphQuery.Append('email: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader.Email));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Phone No." <> '' then begin
+ GraphQuery.Append('phone: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Phone No."));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Currency Code" <> '' then begin
+ GraphQuery.Append('presentmentCurrencyCode: ');
+ GraphQuery.Append(Format(GetISOCode(TempShpfyOrderHeader."Currency Code")));
+ end;
+ if TempShpfyOrderHeader."Discount Amount" <> 0 then
+ AddDiscountAmountToGraphQuery(GraphQuery, TempShpfyOrderHeader."Discount Amount", 'Invoice Discount Amount');
+
+ GraphQuery.Append(', taxExempt: true');
+
+ AddShippingAddressToGraphQuery(GraphQuery, TempShpfyOrderHeader);
+ AddBillingAddressToGraphQuery(GraphQuery, TempShpfyOrderHeader);
+ AddNote(GraphQuery, TempShpfyOrderHeader);
+ if TempShpfyOrderHeader.Unpaid then
+ AddPaymentTerms(GraphQuery, TempShpfyOrderHeader);
+
+ AddLineItemsToGraphQuery(GraphQuery, TempShpfyOrderHeader, TempShpfyOrderLine, ShpfyOrderTaxLines);
+
+ GraphQuery.Append('}) {draftOrder { legacyResourceId } userErrors {field, message}}');
+ GraphQuery.Append('}"}');
+
+ exit(GraphQuery);
+ end;
+
+ local procedure SendDraftOrderGraphQLRequest(GraphQuery: TextBuilder): BigInteger
+ var
+ DraftOrderId: BigInteger;
+ JResponse: JsonToken;
+ begin
+ JResponse := ShpfyCommunicationMgt.ExecuteGraphQL(GraphQuery.ToText());
+ DraftOrderId := ShpfyJsonHelper.GetValueAsBigInteger(JResponse, 'data.draftOrderCreate.draftOrder.legacyResourceId');
+ exit(DraftOrderId);
+ end;
+
+ local procedure AddShippingAddressToGraphQuery(var GraphQuery: TextBuilder; var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary)
+ begin
+ GraphQuery.Append(', shippingAddress: {');
+ if TempShpfyOrderHeader."Ship-to Address" <> '' then begin
+ GraphQuery.Append('address1: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Ship-to Address"));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Ship-to Address 2" <> '' then begin
+ GraphQuery.Append(', address2: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Ship-to Address 2"));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Ship-to City" <> '' then begin
+ GraphQuery.Append(', city: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Ship-to City"));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Ship-to Country/Region Code" <> '' then begin
+ GraphQuery.Append(', countryCode: ');
+ GraphQuery.Append(TempShpfyOrderHeader."Ship-to Country/Region Code");
+ end;
+ if TempShpfyOrderHeader."Ship-to Post Code" <> '' then begin
+ GraphQuery.Append(', zip: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Ship-to Post Code"));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Ship-to Name" <> '' then begin
+ GraphQuery.Append(', firstName: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Ship-to Name"));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Ship-to Name 2" <> '' then begin
+ GraphQuery.Append(', lastName: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Ship-to Name 2"));
+ GraphQuery.Append('\"');
+ end;
+ GraphQuery.Append('}');
+ end;
+
+ local procedure AddBillingAddressToGraphQuery(var GraphQuery: TextBuilder; var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary)
+ begin
+ GraphQuery.Append(', billingAddress: {');
+ if TempShpfyOrderHeader."Bill-to Address" <> '' then begin
+ GraphQuery.Append('address1: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Bill-to Address"));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Bill-to Address 2" <> '' then begin
+ GraphQuery.Append(', address2: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Bill-to Address 2"));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Bill-to City" <> '' then begin
+ GraphQuery.Append(', city: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Bill-to City"));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Bill-to Country/Region Code" <> '' then begin
+ GraphQuery.Append(', countryCode: ');
+ GraphQuery.Append(TempShpfyOrderHeader."Bill-to Country/Region Code");
+ end;
+ if TempShpfyOrderHeader."Bill-to Post Code" <> '' then begin
+ GraphQuery.Append(', zip: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Bill-to Post Code"));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Bill-to Name" <> '' then begin
+ GraphQuery.Append(', firstName: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Bill-to Name"));
+ GraphQuery.Append('\"');
+ end;
+ if TempShpfyOrderHeader."Bill-to Name 2" <> '' then begin
+ GraphQuery.Append(', lastName: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderHeader."Bill-to Name 2"));
+ GraphQuery.Append('\"');
+ end;
+ GraphQuery.Append('}');
+ end;
+
+ local procedure AddLineItemsToGraphQuery(
+ var GraphQuery: TextBuilder;
+ var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary;
+ var TempShpfyOrderLine: Record "Shpfy Order Line" temporary;
+ var ShpfyOrderTaxLines: Dictionary of [Text, Decimal]
+ )
+ var
+ TaxTitle: Text;
+ begin
+ TempShpfyOrderLine.SetRange("Shopify Order Id", TempShpfyOrderHeader."Shopify Order Id");
+ if TempShpfyOrderLine.FindSet(false) then begin
+ GraphQuery.Append(', lineItems: [');
+ repeat
+ GraphQuery.Append('{');
+ GraphQuery.Append('title: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TempShpfyOrderLine.Description));
+ GraphQuery.Append('\"');
+
+ if TempShpfyOrderLine."Shopify Variant Id" <> 0 then begin
+ GraphQuery.Append(', variantId: \"gid://shopify/ProductVariant/');
+ GraphQuery.Append(Format(TempShpfyOrderLine."Shopify Variant Id"));
+ GraphQuery.Append('\"');
+
+ AddItemAttributes(GraphQuery, TempShpfyOrderLine."Item No.");
+ end;
+
+ GraphQuery.Append(', quantity: ');
+ GraphQuery.Append(Format(TempShpfyOrderLine.Quantity, 0, 9));
+
+ GraphQuery.Append(', originalUnitPrice :');
+ GraphQuery.Append(Format(TempShpfyOrderLine."Unit Price", 0, 9));
+
+ GraphQuery.Append('},');
+ until TempShpfyOrderLine.Next() = 0;
+
+ foreach TaxTitle in ShpfyOrderTaxLines.Keys() do begin
+ GraphQuery.Append('{');
+ GraphQuery.Append('title: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(TaxTitle));
+ GraphQuery.Append('\"');
+
+ GraphQuery.Append(', quantity: ');
+ GraphQuery.Append(Format(1, 0, 9));
+
+ GraphQuery.Append(', originalUnitPrice: ');
+ GraphQuery.Append(Format(ShpfyOrderTaxLines.Get(TaxTitle), 0, 9));
+
+ GraphQuery.Append('},');
+ end;
+ GraphQuery.Remove(GraphQuery.Length(), 1);
+ end;
+ GraphQuery.Append(']');
+ end;
+
+ local procedure AddDiscountAmountToGraphQuery(var GraphQuery: TextBuilder; DiscountAmount: Decimal; DiscountTitle: Text)
+ begin
+ GraphQuery.Append(', appliedDiscount: {');
+ GraphQuery.Append('description: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(DiscountTitle));
+ GraphQuery.Append('\"');
+
+ GraphQuery.Append(', value: ');
+ GraphQuery.Append(Format(DiscountAmount, 0, 9));
+
+ GraphQuery.Append(', valueType: ');
+ GraphQuery.Append('FIXED_AMOUNT');
+
+ GraphQuery.Append(', title: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(DiscountTitle));
+ GraphQuery.Append('\"');
+
+ GraphQuery.Append('}');
+ end;
+
+ local procedure AddNote(var GraphQuery: TextBuilder; var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary)
+ var
+ SalesCommentLine: Record "Sales Comment Line";
+ NotesTextBuilder: TextBuilder;
+ begin
+ SalesCommentLine.SetRange("Document Type", SalesCommentLine."Document Type"::"Posted Invoice");
+ SalesCommentLine.SetRange("No.", TempShpfyOrderHeader."Sales Invoice No.");
+
+ if SalesCommentLine.FindSet() then begin
+ GraphQuery.Append(', note: \"');
+ repeat
+ NotesTextBuilder.Append(SalesCommentLine.Comment + '\n');
+ until SalesCommentLine.Next() = 0;
+ GraphQuery.Append(NotesTextBuilder.ToText());
+ GraphQuery.Append('\"');
+ end;
+ end;
+
+ local procedure AddPaymentTerms(var GraphQuery: TextBuilder; var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary)
+ var
+ SalesInvoiceHeader: Record "Sales Invoice Header";
+ ShpfyPaymentTerms: Record "Shpfy Payment Terms";
+ DueAtDateTime: DateTime;
+ IssuedAtDateTime: DateTime;
+ begin
+ if not ShopifyPaymentTermsExists(ShpfyPaymentTerms, TempShpfyOrderHeader, SalesInvoiceHeader) then
+ exit;
+
+ GraphQuery.Append(', paymentTerms: {');
+ GraphQuery.Append('paymentTermsTemplateId: \"gid://shopify/PaymentTermsTemplate/');
+ GraphQuery.Append(Format(ShpfyPaymentTerms.Id));
+ GraphQuery.Append('\"');
+
+ Evaluate(IssuedAtDateTime, Format(SalesInvoiceHeader."Document Date"));
+ Evaluate(DueAtDateTime, Format(SalesInvoiceHeader."Due Date"));
+
+ GraphQuery.Append(', paymentSchedules: {');
+ if ShpfyPaymentTerms.Type = 'FIXED' then begin
+ GraphQuery.Append('dueAt: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(Format(DueAtDateTime, 0, 9)));
+ GraphQuery.Append('\"');
+ end else
+ if ShpfyPaymentTerms.Type = 'NET' then begin
+ GraphQuery.Append(', issuedAt: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(Format(IssuedAtDateTime, 0, 9)));
+ GraphQuery.Append('\"');
+ end;
+
+ GraphQuery.Append('}}');
+ end;
+
+ local procedure ShopifyPaymentTermsExists(
+ var ShpfyPaymentTerms: Record "Shpfy Payment Terms";
+ var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary;
+ var SalesInvoiceHeader: Record "Sales Invoice Header"
+ ): Boolean
+ begin
+ SalesInvoiceHeader.Get(TempShpfyOrderHeader."Sales Invoice No.");
+ ShpfyPaymentTerms.SetRange("Payment Terms Code", SalesInvoiceHeader."Payment Terms Code");
+ ShpfyPaymentTerms.SetRange("Shop Code", ShpfyShop.Code);
+
+ if not ShpfyPaymentTerms.FindFirst() then begin
+ ShpfyPaymentTerms.SetRange("Payment Terms Code");
+ ShpfyPaymentTerms.SetRange("Is Primary", true);
+
+ if not ShpfyPaymentTerms.FindFirst() then
+ exit(false);
+ end;
+
+ exit(true);
+ end;
+
+ local procedure GetISOCode(CurrencyCode: Code[10]): Code[3]
+ var
+ Currency: Record Currency;
+ begin
+ Currency.Get(CurrencyCode);
+ exit(Currency."ISO Code");
+ end;
+
+ local procedure AddItemAttributes(var GraphQuery: TextBuilder; ItemNo: Code[20])
+ var
+ Item: Record Item;
+ ItemAttribute: Record "Item Attribute";
+ ItemAttributeValue: Record "Item Attribute Value";
+ ItemAttributeValueMapping: Record "Item Attribute Value Mapping";
+ begin
+ Item.Get(ItemNo);
+ ItemAttributeValueMapping.SetRange("Table ID", Database::Item);
+ ItemAttributeValueMapping.SetRange("No.", ItemNo);
+ if ItemAttributeValueMapping.FindSet() then begin
+ GraphQuery.Append(', customAttributes: [');
+ repeat
+ ItemAttribute.Get(ItemAttributeValueMapping."Item Attribute ID");
+ ItemAttributeValue.Get(ItemAttribute.ID, ItemAttributeValueMapping."Item Attribute Value ID");
+
+ GraphQuery.Append('{');
+ GraphQuery.Append('key: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(Format(ItemAttribute.Name)));
+ GraphQuery.Append('\"');
+
+ GraphQuery.Append(', value: \"');
+ GraphQuery.Append(ShpfyCommunicationMgt.EscapeGrapQLData(Format(ItemAttributeValue.Value)));
+ GraphQuery.Append('\"');
+ GraphQuery.Append('},')
+ until ItemAttributeValueMapping.Next() = 0;
+ GraphQuery.Append(']');
+ end;
+
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyFulfillmentAPI.Codeunit.al b/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyFulfillmentAPI.Codeunit.al
new file mode 100644
index 0000000000..e63b44d222
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyFulfillmentAPI.Codeunit.al
@@ -0,0 +1,69 @@
+namespace Microsoft.Integration.Shopify;
+
+///
+/// Codeunit Shpfy Fulfillment API (ID 30361).
+///
+codeunit 30361 "Shpfy Fulfillment API"
+{
+ Access = Internal;
+
+ var
+ ShpfyCommunicationMgt: Codeunit "Shpfy Communication Mgt.";
+
+ ///
+ /// Creates a fulfillment for a provided fulfillment order id.
+ ///
+ /// Fulfillment order id.
+ internal procedure CreateFulfillment(FulfillmentOrderId: BigInteger)
+ var
+ JResponse: JsonToken;
+ GraphQLType: Enum "Shpfy GraphQL Type";
+ Parameters: Dictionary of [Text, Text];
+ begin
+ GraphQLType := "Shpfy GraphQL Type"::FulfillOrder;
+ Parameters.Add('FulfillmentOrderId', Format(FulfillmentOrderId));
+ JResponse := ShpfyCommunicationMgt.ExecuteGraphQL(GraphQLType, Parameters);
+ end;
+
+ ///
+ /// Gets fulfillment order ids for a provided shopify order id.
+ ///
+ /// Shopify order id to get fulfillments from.
+ /// Number of fulfillment orders to get.
+ /// List of fulfillment order ids.
+ internal procedure GetFulfillmentOrderIds(OrderId: Text; NumberOfLines: Integer) FulfillmentOrderList: List of [BigInteger]
+ var
+ GraphQLType: Enum "Shpfy GraphQL Type";
+ Parameters: Dictionary of [Text, Text];
+ JFulfillments: JsonToken;
+ begin
+ GraphQLType := "Shpfy GraphQL Type"::GetFulfillmentOrderIds;
+ Parameters.Add('OrderId', OrderId);
+ Parameters.Add('NumberOfOrders', Format(NumberOfLines));
+ JFulfillments := ShpfyCommunicationMgt.ExecuteGraphQL(GraphQLType, Parameters);
+ FulfillmentOrderList := ParseFulfillmentOrders(JFulfillments);
+
+ exit(FulfillmentOrderList);
+ end;
+
+ ///
+ /// Sets a global shopify shop to be used for fulfillment api functionality.
+ ///
+ /// Shopify shop code to be set.
+ internal procedure SetShop(ShopCode: Code[20])
+ begin
+ ShpfyCommunicationMgt.SetShop(ShopCode);
+ end;
+
+ local procedure ParseFulfillmentOrders(JFulfillments: JsonToken) FulfillmentOrderList: List of [BigInteger]
+ var
+ ShpfyJsonHelper: Codeunit "Shpfy Json Helper";
+ JArray: JsonArray;
+ JToken: JsonToken;
+ begin
+ JArray := ShpfyJsonHelper.GetJsonArray(JFulfillments, 'data.order.fulfillmentOrders.nodes');
+
+ foreach JToken in JArray do
+ FulfillmentOrderList.Add(ShpfyCommunicationMgt.GetIdOfGId(ShpfyJsonHelper.GetValueAsText(JToken, 'id')));
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyPostedInvoiceExport.Codeunit.al b/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyPostedInvoiceExport.Codeunit.al
new file mode 100644
index 0000000000..bcd6981e3e
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyPostedInvoiceExport.Codeunit.al
@@ -0,0 +1,459 @@
+namespace Microsoft.Integration.Shopify;
+
+using Microsoft.Sales.History;
+using Microsoft.Finance.GeneralLedger.Setup;
+
+///
+/// Codeunit Shpfy Posted Invoice Export" (ID 30362).
+///
+codeunit 30362 "Shpfy Posted Invoice Export"
+{
+ Access = Internal;
+ TableNo = "Sales Invoice Header";
+ Permissions = tabledata "Sales Invoice Header" = m;
+
+ var
+ ShpfyShop: Record "Shpfy Shop";
+ ShpfyDraftOrdersAPI: Codeunit "Shpfy Draft Orders API";
+ ShpfyFulfillmentAPI: Codeunit "Shpfy Fulfillment API";
+ ShpfyJsonHelper: Codeunit "Shpfy Json Helper";
+
+ trigger OnRun()
+ begin
+ ExportPostedSalesInvoiceToShopify(Rec);
+ end;
+
+ ///
+ /// Sets a global shopify shop to be used for posted invoice export.
+ ///
+ /// Shopify shop code to be set.
+ internal procedure SetShop(NewShopCode: Code[20])
+ begin
+ ShpfyShop.Get(NewShopCode);
+ ShpfyDraftOrdersAPI.SetShop(ShpfyShop.Code);
+ ShpfyFulfillmentAPI.SetShop(ShpfyShop.Code);
+ end;
+
+ ///
+ /// Exports provided posted sales invoice to shopify.
+ ///
+ ///
+ /// If the posted sales invoice isn't exportable, the shopify order id is set to -2.
+ /// If shopify order creation fails, the id is set to -1.
+ ///
+ /// Posted sales invoice to be exported.
+ internal procedure ExportPostedSalesInvoiceToShopify(SalesInvoiceHeader: Record "Sales Invoice Header")
+ var
+ TempShpfyOrderHeader: Record "Shpfy Order Header" temporary;
+ TempShpfyOrderLine: Record "Shpfy Order Line" temporary;
+ DraftOrderId: BigInteger;
+ ShpfyOrderTaxLines: Dictionary of [Text, Decimal];
+ FulfillmentOrderIds: List of [BigInteger];
+ JResponse: JsonToken;
+ OrderId: BigInteger;
+ OrderNo: Text;
+ begin
+ if not IsInvoiceExportable(SalesInvoiceHeader) then begin
+ SetSalesInvoiceShopifyOrderInformation(SalesInvoiceHeader, -2, '');
+ exit;
+ end;
+
+ MapPostedSalesInvoiceData(SalesInvoiceHeader, TempShpfyOrderHeader, TempShpfyOrderLine, ShpfyOrderTaxLines);
+
+ DraftOrderId := ShpfyDraftOrdersAPI.CreateDraftOrder(TempShpfyOrderHeader, TempShpfyOrderLine, ShpfyOrderTaxLines);
+ JResponse := ShpfyDraftOrdersAPI.CompleteDraftOrder(DraftOrderId);
+
+ if IsSuccess(JResponse) then begin
+ OrderId := ShpfyJsonHelper.GetValueAsBigInteger(JResponse, 'data.draftOrderComplete.draftOrder.order.legacyResourceId');
+ OrderNo := ShpfyJsonHelper.GetValueAsText(JResponse, 'data.draftOrderComplete.draftOrder.order.name');
+
+ FulfillmentOrderIds := ShpfyFulfillmentAPI.GetFulfillmentOrderIds(Format(OrderId), GetNumberOfLines(TempShpfyOrderLine, ShpfyOrderTaxLines));
+ CreateFulfillmentsForShopifyOrder(FulfillmentOrderIds);
+ CreateShpfyInvoiceHeader(OrderId);
+ SetSalesInvoiceShopifyOrderInformation(SalesInvoiceHeader, OrderId, Format(OrderNo));
+ AddDocumentLinkToBCDocument(SalesInvoiceHeader);
+ end else
+ SetSalesInvoiceShopifyOrderInformation(SalesInvoiceHeader, -1, '');
+ end;
+
+ local procedure CreateFulfillmentsForShopifyOrder(FulfillmentOrderIds: List of [BigInteger])
+ var
+ FulfillmentOrderId: BigInteger;
+ begin
+ foreach FulfillmentOrderId in FulfillmentOrderIds do
+ ShpfyFulfillmentAPI.CreateFulfillment(FulfillmentOrderId);
+ end;
+
+ local procedure IsInvoiceExportable(SalesInvoiceHeader: Record "Sales Invoice Header"): Boolean
+ var
+ ShpfyCompany: Record "Shpfy Company";
+ ShpfyCustomer: Record "Shpfy Customer";
+ begin
+ ShpfyCompany.SetRange("Customer No.", SalesInvoiceHeader."Bill-to Customer No.");
+ if ShpfyCompany.IsEmpty() then begin
+ ShpfyCustomer.SetRange("Customer No.", SalesInvoiceHeader."Bill-to Customer No.");
+ if ShpfyCustomer.IsEmpty() then
+ exit(false);
+ end;
+
+ if not CurrencyCodeMatch(SalesInvoiceHeader) then
+ exit(false);
+
+ if not ShopifyPaymentTermsExists(SalesInvoiceHeader."Payment Terms Code") then
+ exit(false);
+
+ if ShpfyShop."Default Customer No." = SalesInvoiceHeader."Bill-to Customer No." then
+ exit(false);
+
+ if CheckCustomerTemplates(SalesInvoiceHeader."Bill-to Customer No.") then
+ exit(false);
+
+ if not CheckSalesInvoiceHeaderLines(SalesInvoiceHeader) then
+ exit(false);
+
+ exit(true);
+ end;
+
+ local procedure CurrencyCodeMatch(SalesInvoiceHeader: Record "Sales Invoice Header"): Boolean
+ var
+ GeneralLedgerSetup: Record "General Ledger Setup";
+ ShopifyLocalCurrencyCode: Code[10];
+ begin
+ GeneralLedgerSetup.Get();
+
+ if ShpfyShop."Currency Code" = '' then
+ ShopifyLocalCurrencyCode := GeneralLedgerSetup."LCY Code"
+ else
+ ShopifyLocalCurrencyCode := ShpfyShop."Currency Code";
+
+ if SalesInvoiceHeader."Currency Code" = '' then
+ exit(ShopifyLocalCurrencyCode = GeneralLedgerSetup."LCY Code")
+ else
+ exit(ShopifyLocalCurrencyCode = SalesInvoiceHeader."Currency Code");
+ end;
+
+ local procedure ShopifyPaymentTermsExists(PaymentTermsCode: Code[10]): Boolean
+ var
+ ShpfyPaymentTerms: Record "Shpfy Payment Terms";
+ begin
+ ShpfyPaymentTerms.SetRange("Payment Terms Code", PaymentTermsCode);
+ ShpfyPaymentTerms.SetRange("Shop Code", ShpfyShop.Code);
+
+ if not ShpfyPaymentTerms.FindFirst() then begin
+ ShpfyPaymentTerms.SetRange("Payment Terms Code");
+ ShpfyPaymentTerms.SetRange("Is Primary", true);
+
+ if not ShpfyPaymentTerms.FindFirst() then
+ exit(false);
+ end;
+
+ exit(true);
+ end;
+
+ local procedure CheckCustomerTemplates(CustomerNo: Code[20]): Boolean
+ var
+ ShpfyCustomerTemplate: Record "Shpfy Customer Template";
+ begin
+ ShpfyCustomerTemplate.SetRange("Default Customer No.", CustomerNo);
+ ShpfyCustomerTemplate.SetRange("Shop Code", ShpfyShop.Code);
+ exit(not ShpfyCustomerTemplate.IsEmpty());
+ end;
+
+ local procedure CheckSalesInvoiceHeaderLines(SalesInvoiceHeader: Record "Sales Invoice Header"): Boolean
+ var
+ SalesInvoiceLine: Record "Sales Invoice Line";
+ begin
+ SalesInvoiceLine.SetFilter(Type, '<>%1', SalesInvoiceLine.Type::" ");
+ if SalesInvoiceLine.IsEmpty() then
+ exit(false);
+
+ SalesInvoiceLine.Reset();
+
+ SalesInvoiceLine.SetRange("Document No.", SalesInvoiceHeader."No.");
+ SalesInvoiceLine.SetRange(Type, SalesInvoiceLine.Type::Item);
+ if SalesInvoiceLine.FindSet() then
+ repeat
+ if (SalesInvoiceLine.Quantity <> 0) and (SalesInvoiceLine.Quantity <> Round(SalesInvoiceLine.Quantity, 1)) then
+ exit(false);
+
+ if ShpfyShop."Items Mapped to Products" then
+ if not ItemIsMappedToShopifyProduct(SalesInvoiceLine) then
+ exit(false);
+
+ if (SalesInvoiceLine.Type <> SalesInvoiceLine.Type::" ") and (SalesInvoiceLine."No." = '') then
+ exit(false);
+ until SalesInvoiceLine.Next() = 0;
+
+ exit(true);
+ end;
+
+ local procedure SetSalesInvoiceShopifyOrderInformation(var SalesInvoiceHeader: Record "Sales Invoice Header"; OrderId: BigInteger; OrderNo: Code[50])
+ begin
+ SalesInvoiceHeader.Validate("Shpfy Order Id", OrderId);
+ SalesInvoiceHeader.Validate("Shpfy Order No.", OrderNo);
+ SalesInvoiceHeader.Modify(true);
+ end;
+
+ local procedure ItemIsMappedToShopifyProduct(SalesInvoiceLine: Record "Sales Invoice Line"): Boolean
+ var
+ ShpfyProduct: Record "Shpfy Product";
+ ShpfyVariant: Record "Shpfy Variant";
+ begin
+ ShpfyProduct.SetRange("Item No.", SalesInvoiceLine."No.");
+ if ShpfyProduct.IsEmpty() then
+ exit(false);
+
+ if ShpfyShop."UoM as Variant" then begin
+ if not ProductVariantExists(SalesInvoiceLine."Unit of Measure Code", SalesInvoiceLine) then
+ exit(false);
+ end else begin
+ ShpfyVariant.SetRange("Item No.", SalesInvoiceLine."No.");
+ ShpfyVariant.SetRange("Variant Code", SalesInvoiceLine."Variant Code");
+ ShpfyVariant.SetRange("Shop Code", ShpfyShop.Code);
+ if ShpfyVariant.IsEmpty() then
+ exit(false);
+ end;
+
+ exit(true);
+ end;
+
+ local procedure ProductVariantExists(UnitOfMeasure: Code[10]; SalesInvoiceLine: Record "Sales Invoice Line"): Boolean
+ var
+ ShpfyVariant: Record "Shpfy Variant";
+ begin
+ ShpfyVariant.SetRange("Item No.", SalesInvoiceLine."No.");
+ ShpfyVariant.SetRange("Shop Code", ShpfyShop.Code);
+ ShpfyVariant.SetRange("Variant Code", SalesInvoiceLine."Variant Code");
+ if ShpfyVariant.FindSet() then
+ repeat
+ case ShpfyVariant."UoM Option Id" of
+ 1:
+ if ShpfyVariant."Option 1 Value" = UnitOfMeasure then
+ exit(true);
+ 2:
+ if ShpfyVariant."Option 2 Value" = UnitOfMeasure then
+ exit(true);
+ 3:
+ if ShpfyVariant."Option 3 Value" = UnitOfMeasure then
+ exit(true);
+ end;
+ until ShpfyVariant.Next() = 0;
+ end;
+
+ local procedure MapPostedSalesInvoiceData(
+ SalesInvoiceHeader: Record "Sales Invoice Header";
+ var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary;
+ var TempShpfyOrderLine: Record "Shpfy Order Line" temporary;
+ var ShpfyOrderTaxLines: Dictionary of [Text, Decimal]
+ )
+ var
+ InvoiceLine: Record "Sales Invoice Line";
+ begin
+ MapSalesInvoiceHeader(SalesInvoiceHeader, TempShpfyOrderHeader);
+
+ InvoiceLine.SetRange("Document No.", SalesInvoiceHeader."No.");
+ if InvoiceLine.FindSet() then
+ repeat
+ MapSalesInvoiceLine(InvoiceLine, TempShpfyOrderHeader, TempShpfyOrderLine, ShpfyOrderTaxLines);
+ until InvoiceLine.Next() = 0;
+ end;
+
+ local procedure MapSalesInvoiceHeader(
+ SalesInvoiceHeader: Record "Sales Invoice Header";
+ var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary
+ )
+ begin
+ TempShpfyOrderHeader.Init();
+ TempShpfyOrderHeader."Sales Invoice No." := SalesInvoiceHeader."No.";
+ TempShpfyOrderHeader."Sales Order No." := SalesInvoiceHeader."Order No.";
+ TempShpfyOrderHeader."Created At" := SalesInvoiceHeader.SystemCreatedAt;
+ TempShpfyOrderHeader.Confirmed := true;
+ TempShpfyOrderHeader."Updated At" := SalesInvoiceHeader.SystemModifiedAt;
+ TempShpfyOrderHeader."Currency Code" := MapCurrencyCode(SalesInvoiceHeader);
+ TempShpfyOrderHeader."Document Date" := SalesInvoiceHeader."Document Date";
+ SalesInvoiceHeader.CalcFields(Amount, "Amount Including VAT", "Invoice Discount Amount");
+ TempShpfyOrderHeader."VAT Amount" := SalesInvoiceHeader."Amount Including VAT" - SalesInvoiceHeader.Amount;
+ TempShpfyOrderHeader."Discount Amount" := SalesInvoiceHeader."Invoice Discount Amount";
+ TempShpfyOrderHeader."Fulfillment Status" := Enum::"Shpfy Order Fulfill. Status"::Fulfilled;
+ TempShpfyOrderHeader."Shop Code" := ShpfyShop.Code;
+ TempShpfyOrderHeader.Unpaid := IsInvoiceUnpaid(SalesInvoiceHeader);
+
+ MapBillToInformation(TempShpfyOrderHeader, SalesInvoiceHeader);
+ MapShipToInformation(TempShpfyOrderHeader, SalesInvoiceHeader);
+
+ TempShpfyOrderHeader.Insert(false);
+ end;
+
+ local procedure MapCurrencyCode(SalesInvoiceHeader: Record "Sales Invoice Header"): Code[10]
+ var
+ GeneralLedgerSetup: Record "General Ledger Setup";
+ begin
+ if SalesInvoiceHeader."Currency Code" <> '' then
+ exit(SalesInvoiceHeader."Currency Code");
+
+ GeneralLedgerSetup.Get();
+ exit(GeneralLedgerSetup."LCY Code");
+ end;
+
+ local procedure MapBillToInformation(
+ var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary;
+ SalesInvoiceHeader: Record "Sales Invoice Header"
+ )
+ var
+ ShpfyCustomer: Record "Shpfy Customer";
+ begin
+ TempShpfyOrderHeader."Bill-to Name" := CopyStr(SalesInvoiceHeader."Bill-to Name", 1, MaxStrLen(TempShpfyOrderHeader."Bill-to Name"));
+ TempShpfyOrderHeader."Bill-to Name 2" := SalesInvoiceHeader."Bill-to Name 2";
+ TempShpfyOrderHeader."Bill-to Address" := SalesInvoiceHeader."Bill-to Address";
+ TempShpfyOrderHeader."Bill-to Address 2" := SalesInvoiceHeader."Bill-to Address 2";
+ TempShpfyOrderHeader."Bill-to Post Code" := SalesInvoiceHeader."Bill-to Post Code";
+ TempShpfyOrderHeader."Bill-to City" := SalesInvoiceHeader."Bill-to City";
+ TempShpfyOrderHeader."Bill-to County" := SalesInvoiceHeader."Bill-to County";
+ TempShpfyOrderHeader."Bill-to Country/Region Code" := SalesInvoiceHeader."Bill-to Country/Region Code";
+ TempShpfyOrderHeader."Bill-to Customer No." := SalesInvoiceHeader."Bill-to Customer No.";
+
+ ShpfyCustomer.SetRange("Customer No.", SalesInvoiceHeader."Bill-to Customer No.");
+ if ShpfyCustomer.FindFirst() then begin
+ TempShpfyOrderHeader.Email := CopyStr(ShpfyCustomer.Email, 1, MaxStrLen(TempShpfyOrderHeader.Email));
+ TempShpfyOrderHeader."Phone No." := ShpfyCustomer."Phone No.";
+ end;
+ end;
+
+ local procedure MapShipToInformation(
+ var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary;
+ SalesInvoiceHeader: Record "Sales Invoice Header"
+ )
+ begin
+ TempShpfyOrderHeader."Ship-to Name" := CopyStr(SalesInvoiceHeader."Ship-to Name", 1, MaxStrLen(TempShpfyOrderHeader."Ship-to Name"));
+ TempShpfyOrderHeader."Ship-to Name 2" := SalesInvoiceHeader."Ship-to Name 2";
+ TempShpfyOrderHeader."Ship-to Address" := SalesInvoiceHeader."Ship-to Address";
+ TempShpfyOrderHeader."Ship-to Address 2" := SalesInvoiceHeader."Ship-to Address 2";
+ TempShpfyOrderHeader."Ship-to Post Code" := SalesInvoiceHeader."Ship-to Post Code";
+ TempShpfyOrderHeader."Ship-to City" := SalesInvoiceHeader."Ship-to City";
+ TempShpfyOrderHeader."Ship-to County" := SalesInvoiceHeader."Ship-to County";
+ TempShpfyOrderHeader."Ship-to Country/Region Code" := SalesInvoiceHeader."Ship-to Country/Region Code";
+ end;
+
+ local procedure IsInvoiceUnpaid(SalesInvoiceHeader: Record "Sales Invoice Header"): Boolean
+ begin
+ SalesInvoiceHeader.CalcFields("Remaining Amount");
+ exit(SalesInvoiceHeader."Remaining Amount" <> 0);
+ end;
+
+ local procedure MapSalesInvoiceLine(
+ SalesInvoiceLine: Record "Sales Invoice Line";
+ var TempShpfyOrderHeader: Record "Shpfy Order Header" temporary;
+ var TempShpfyOrderLine: Record "Shpfy Order Line" temporary;
+ var ShpfyOrderTaxLines: Dictionary of [Text, Decimal]
+): BigInteger
+ var
+ ShpfyVariant: Record "Shpfy Variant";
+ begin
+ TempShpfyOrderLine.Init();
+ TempShpfyOrderLine."Line Id" := SalesInvoiceLine."Line No.";
+ TempShpfyOrderLine.Description := SalesInvoiceLine.Description;
+ TempShpfyOrderLine.Quantity := SalesInvoiceLine.Quantity;
+ TempShpfyOrderLine."Item No." := SalesInvoiceLine."No.";
+ TempShpfyOrderLine."Variant Code" := SalesInvoiceLine."Variant Code";
+ TempShpfyOrderLine."Gift Card" := false;
+ TempShpfyOrderLine.Taxable := false;
+ TempShpfyOrderLine."Unit Price" := SalesInvoiceLine."Unit Price";
+ TempShpfyOrderHeader."Discount Amount" += SalesInvoiceLine."Line Discount Amount";
+ TempShpfyOrderHeader.Modify(false);
+
+ if ShpfyShop."UoM as Variant" then
+ MapUOMProductVariants(SalesInvoiceLine, TempShpfyOrderLine)
+ else begin
+ ShpfyVariant.SetRange("Shop Code", ShpfyShop.Code);
+ ShpfyVariant.SetRange("Item No.", SalesInvoiceLine."No.");
+ ShpfyVariant.SetRange("Variant Code", SalesInvoiceLine."Variant Code");
+ if ShpfyVariant.FindFirst() then begin
+ TempShpfyOrderLine."Shopify Product Id" := ShpfyVariant."Product Id";
+ TempShpfyOrderLine."Shopify Variant Id" := ShpfyVariant.Id;
+ end;
+ end;
+
+ MapTaxLine(SalesInvoiceLine, ShpfyOrderTaxLines);
+
+ TempShpfyOrderLine.Insert(false);
+ end;
+
+ local procedure MapUOMProductVariants(SalesInvoiceLine: Record "Sales Invoice Line"; var TempShpfyOrderLine: Record "Shpfy Order Line" temporary)
+ var
+ ShpfyVariant: Record "Shpfy Variant";
+ begin
+ ShpfyVariant.SetRange("Shop Code", ShpfyShop.Code);
+ ShpfyVariant.SetRange("Item No.", SalesInvoiceLine."No.");
+ ShpfyVariant.SetRange("Variant Code", SalesInvoiceLine."Variant Code");
+ if ShpfyVariant.FindSet() then
+ repeat
+ case ShpfyVariant."UoM Option Id" of
+ 1:
+ if ShpfyVariant."Option 1 Value" = SalesInvoiceLine."Unit of Measure Code" then begin
+ TempShpfyOrderLine."Shopify Product Id" := ShpfyVariant."Product Id";
+ TempShpfyOrderLine."Shopify Variant Id" := ShpfyVariant.Id;
+ exit;
+ end;
+ 2:
+ if ShpfyVariant."Option 2 Value" = SalesInvoiceLine."Unit of Measure Code" then begin
+ TempShpfyOrderLine."Shopify Product Id" := ShpfyVariant."Product Id";
+ TempShpfyOrderLine."Shopify Variant Id" := ShpfyVariant.Id;
+ exit;
+ end;
+ 3:
+ if ShpfyVariant."Option 3 Value" = SalesInvoiceLine."Unit of Measure Code" then begin
+ TempShpfyOrderLine."Shopify Product Id" := ShpfyVariant."Product Id";
+ TempShpfyOrderLine."Shopify Variant Id" := ShpfyVariant.Id;
+ exit;
+ end;
+ end;
+ until ShpfyVariant.Next() = 0;
+ end;
+
+ local procedure MapTaxLine(var SalesInvoiceLine: Record "Sales Invoice Line" temporary; var ShpfyOrderTaxLines: Dictionary of [Text, Decimal])
+ var
+ VATAmount: Decimal;
+ TaxLineTok: Label '%1 - %2%', Comment = '%1 = VAT Calculation Type, %2 = VAT %', Locked = true;
+ TaxTitle: Text;
+ begin
+ VATAmount := SalesInvoiceLine."Amount Including VAT" - SalesInvoiceLine."VAT Base Amount";
+
+ TaxTitle := StrSubstNo(TaxLineTok, Format(SalesInvoiceLine."VAT Calculation Type"), Format(SalesInvoiceLine."VAT %"));
+ if ShpfyOrderTaxLines.ContainsKey(TaxTitle) then
+ ShpfyOrderTaxLines.Set(TaxTitle, ShpfyOrderTaxLines.Get(TaxTitle) + VATAmount)
+ else
+ ShpfyOrderTaxLines.Add(TaxTitle, VATAmount);
+ end;
+
+ local procedure IsSuccess(JsonTokenResponse: JsonToken): Boolean
+ begin
+ exit(ShpfyJsonHelper.GetJsonArray(JsonTokenResponse, 'data.draftOrderComplete.userErrors').Count() = 0);
+ end;
+
+ local procedure CreateShpfyInvoiceHeader(OrderId: BigInteger)
+ var
+ ShpfyInvoiceHeader: Record "Shpfy Invoice Header";
+ begin
+ ShpfyInvoiceHeader.Init();
+ ShpfyInvoiceHeader.Validate("Shopify Order Id", OrderId);
+ ShpfyInvoiceHeader.Insert(true);
+ end;
+
+ local procedure AddDocumentLinkToBCDocument(SalesInvoiceHeader: Record "Sales Invoice Header")
+ var
+ DocLinkToBCDoc: Record "Shpfy Doc. Link To Doc.";
+ BCDocumentTypeConvert: Codeunit "Shpfy BC Document Type Convert";
+ begin
+ DocLinkToBCDoc.Init();
+ DocLinkToBCDoc."Shopify Document Type" := "Shpfy Shop Document Type"::"Shopify Shop Order";
+ DocLinkToBCDoc."Shopify Document Id" := SalesInvoiceHeader."Shpfy Order Id";
+ DocLinkToBCDoc."Document Type" := BCDocumentTypeConvert.Convert(SalesInvoiceHeader);
+ DocLinkToBCDoc."Document No." := SalesInvoiceHeader."No.";
+ DocLinkToBCDoc.Insert(true);
+ end;
+
+ local procedure GetNumberOfLines(var TempShpfyOrderLine: Record "Shpfy Order Line" temporary; var ShpfyOrderTaxLines: Dictionary of [Text, Decimal]): Integer
+ begin
+ exit(ShpfyOrderTaxLines.Count() + TempShpfyOrderLine.Count());
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyUpdateSalesInvoice.Codeunit.al b/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyUpdateSalesInvoice.Codeunit.al
new file mode 100644
index 0000000000..cf03c116ea
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Invoicing/Codeunits/ShpfyUpdateSalesInvoice.Codeunit.al
@@ -0,0 +1,22 @@
+namespace Microsoft.Integration.Shopify;
+
+using Microsoft.Sales.History;
+
+codeunit 30364 "Shpfy Update Sales Invoice"
+{
+ Access = Internal;
+
+ [EventSubscriber(ObjectType::Page, Page::"Posted Sales Inv. - Update", 'OnAfterRecordChanged', '', false, false)]
+ local procedure CheckShopifyOrderIdOnAfterRecordChanged(var SalesInvoiceHeader: Record "Sales Invoice Header"; xSalesInvoiceHeader: Record "Sales Invoice Header"; var IsChanged: Boolean)
+ begin
+ if IsChanged then
+ exit;
+ IsChanged := SalesInvoiceHeader."Shpfy Order Id" <> xSalesInvoiceHeader."Shpfy Order Id";
+ end;
+
+ [EventSubscriber(ObjectType::Codeunit, Codeunit::"Sales Inv. Header - Edit", 'OnOnRunOnBeforeTestFieldNo', '', false, false)]
+ local procedure SetShopifyOrderIdOnBeforeSalesShptHeaderModify(var SalesInvoiceHeader: Record "Sales Invoice Header"; SalesInvoiceHeaderRec: Record "Sales Invoice Header")
+ begin
+ SalesInvoiceHeader."Shpfy Order Id" := SalesInvoiceHeaderRec."Shpfy Order Id";
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Invoicing/PageExt/ShpfySalesInvoiceUpdate.PageExt.al b/Apps/W1/Shopify/app/src/Invoicing/PageExt/ShpfySalesInvoiceUpdate.PageExt.al
new file mode 100644
index 0000000000..d9b090faa4
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Invoicing/PageExt/ShpfySalesInvoiceUpdate.PageExt.al
@@ -0,0 +1,44 @@
+namespace Microsoft.Integration.Shopify;
+
+using Microsoft.Sales.History;
+
+///
+/// PageExtension Shpfy Sales Invoice Update (ID 30125) extends Record Posted Sales Inv. - Update.
+///
+pageextension 30125 "Shpfy Sales Invoice Update" extends "Posted Sales Inv. - Update"
+{
+ layout
+ {
+ addlast(content)
+ {
+ group(Shopify)
+ {
+ Caption = 'Shopify';
+ Visible = ShopifyTabVisible;
+
+ field("Shpfy Order Id"; Rec."Shpfy Order Id")
+ {
+ ApplicationArea = Basic, Suite;
+ Caption = 'Shopify Order Id';
+ Editable = (Rec."Shpfy Order Id" = 0) or (Rec."Shpfy Order Id" = -1) or (Rec."Shpfy Order Id" = -2);
+ ToolTip = 'Specifies the Shopify Order ID. Helps track the status of invoices within Shopify, with 0 indicating readiness to synchronize, -1 indicating an error, and -2 indicating that the shipment is skipped.';
+
+ trigger OnValidate()
+ begin
+ if not (Rec."Shpfy Order Id" in [0, -1, -2]) then
+ Error(ValueNotAllowedErr);
+ end;
+ }
+ }
+ }
+ }
+
+ trigger OnAfterGetRecord()
+ begin
+ ShopifyTabVisible := Rec."Shpfy Order Id" <> 0;
+ end;
+
+ var
+ ShopifyTabVisible: Boolean;
+ ValueNotAllowedErr: Label 'Allowed values are 0, -1 or -2. 0 indicates readiness to synchronize, -1 indicates an error, and -2 indicates that the invoice is skipped.';
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Invoicing/Reports/ShpfySyncInvoicesToShpfy.Report.al b/Apps/W1/Shopify/app/src/Invoicing/Reports/ShpfySyncInvoicesToShpfy.Report.al
new file mode 100644
index 0000000000..38e086d885
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Invoicing/Reports/ShpfySyncInvoicesToShpfy.Report.al
@@ -0,0 +1,105 @@
+namespace Microsoft.Integration.Shopify;
+
+using Microsoft.Sales.History;
+
+///
+/// Report Shpfy Sync Invoices to Shpfy (ID 30119).
+///
+report 30119 "Shpfy Sync Invoices to Shpfy"
+{
+ ApplicationArea = All;
+ Caption = 'Sync Invoices to Shopify';
+ ProcessingOnly = true;
+ UsageCategory = Tasks;
+
+ dataset
+ {
+ dataitem(SalesInvoiceHeader; "Sales Invoice Header")
+ {
+ RequestFilterFields = "No.", "Posting Date";
+ trigger OnPreDataItem()
+ var
+ ShopCodeNotSetErr: Label 'Shopify Shop Code is empty.';
+ PostedInvoiceSyncNotSetErr: Label 'Posted Invoice Sync is not enabled for this shop.';
+ begin
+ if ShopCode = '' then
+ Error(ShopCodeNotSetErr);
+
+ ShpfyShop.Get(ShopCode);
+
+ if not ShpfyShop."Posted Invoice Sync" then
+ Error(PostedInvoiceSyncNotSetErr);
+
+ ShpfyPostedInvoiceExport.SetShop(ShopCode);
+ SetRange("Shpfy Order Id", 0);
+
+ if GuiAllowed then begin
+ CurrSalesInvoiceHeaderNo := SalesInvoiceHeader."No.";
+ ProcessDialog.Open(ProcessMsg, CurrSalesInvoiceHeaderNo);
+ ProcessDialog.Update();
+ end;
+ end;
+
+ trigger OnAfterGetRecord()
+ begin
+ if GuiAllowed then begin
+ CurrSalesInvoiceHeaderNo := SalesInvoiceHeader."No.";
+ ProcessDialog.Update();
+ end;
+
+ ShpfyPostedInvoiceExport.Run(SalesInvoiceHeader);
+ end;
+
+ trigger OnPostDataItem()
+ var
+ ShpfyBackgroundSyncs: Codeunit "Shpfy Background Syncs";
+ begin
+ if GuiAllowed then
+ ProcessDialog.Close();
+
+ ShpfyBackgroundSyncs.InventorySync(ShopCode);
+ end;
+ }
+ }
+ requestpage
+ {
+ SaveValues = true;
+ layout
+ {
+ area(Content)
+ {
+ group(ShopFilter)
+ {
+ Caption = 'Options';
+ field(Shop; ShopCode)
+ {
+ ApplicationArea = All;
+ Caption = 'Shop Code';
+ Lookup = true;
+ LookupPageId = "Shpfy Shops";
+ TableRelation = "Shpfy Shop";
+ ToolTip = 'Specifies the Shopify Shop to which the invoice will be exported.';
+ ShowMandatory = true;
+ }
+ }
+ }
+ }
+ }
+
+ var
+ ShpfyShop: Record "Shpfy Shop";
+ ShpfyPostedInvoiceExport: Codeunit "Shpfy Posted Invoice Export";
+ ShopCode: Code[20];
+ CurrSalesInvoiceHeaderNo: Code[20];
+ ProcessDialog: Dialog;
+ ProcessMsg: Label 'Synchronizing Posted Sales Invoice #1####################', Comment = '#1 = Posted Sales Invoice No.';
+
+ ///
+ /// Sets a global shopify shop code to be used.
+ ///
+ /// Shopify shop code to be set.
+ internal procedure SetShop(NewShopCode: Code[20])
+ begin
+ ShopCode := NewShopCode;
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Invoicing/Tables/ShpfyInvoiceHeader.Table.al b/Apps/W1/Shopify/app/src/Invoicing/Tables/ShpfyInvoiceHeader.Table.al
new file mode 100644
index 0000000000..001b9f99e0
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Invoicing/Tables/ShpfyInvoiceHeader.Table.al
@@ -0,0 +1,27 @@
+namespace Microsoft.Integration.Shopify;
+
+///
+/// Table Shpfy Invoice Header (ID 30161).
+///
+table 30161 "Shpfy Invoice Header"
+{
+ Caption = 'Shopify Invoice Header';
+ DataClassification = CustomerContent;
+ Access = Internal;
+
+ fields
+ {
+ field(1; "Shopify Order Id"; BigInteger)
+ {
+ Caption = 'Shopify Order Id';
+ }
+ }
+
+ keys
+ {
+ key(PK; "Shopify Order Id")
+ {
+ Clustered = true;
+ }
+ }
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeBoolean.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeBoolean.Codeunit.al
new file mode 100644
index 0000000000..9b1b65d3a7
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeBoolean.Codeunit.al
@@ -0,0 +1,27 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30338 "Shpfy Mtfld Type Boolean" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ DummyBoolean: Boolean;
+ begin
+ exit(Evaluate(DummyBoolean, Value, 9));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('true');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeCollectRef.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeCollectRef.Codeunit.al
new file mode 100644
index 0000000000..25e78a3bdd
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeCollectRef.Codeunit.al
@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30321 "Shpfy Mtfld Type Collect. Ref" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Regex: Codeunit Regex;
+ begin
+ exit(Regex.IsMatch(Value, '^gid:\/\/shopify\/Collection\/\d+$'));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('gid://shopify/Collection/1234567890');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeColor.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeColor.Codeunit.al
new file mode 100644
index 0000000000..0579755885
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeColor.Codeunit.al
@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30354 "Shpfy Mtfld Type Color" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Regex: Codeunit Regex;
+ begin
+ exit(Regex.IsMatch(Value, '^#[0-9A-Fa-f]{6}$'));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('#fff123');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeDate.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeDate.Codeunit.al
new file mode 100644
index 0000000000..96b530e90c
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeDate.Codeunit.al
@@ -0,0 +1,27 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30318 "Shpfy Mtfld Type Date" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ DummyDate: Date;
+ begin
+ exit(Evaluate(DummyDate, Value, 9));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('2022-02-02');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeDateTime.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeDateTime.Codeunit.al
new file mode 100644
index 0000000000..e83ed841ed
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeDateTime.Codeunit.al
@@ -0,0 +1,27 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30315 "Shpfy Mtfld Type DateTime" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ DummyDateTime: DateTime;
+ begin
+ exit(Evaluate(DummyDateTime, Value, 9));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('2022-01-01T12:30:00');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeDimension.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeDimension.Codeunit.al
new file mode 100644
index 0000000000..107cac0063
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeDimension.Codeunit.al
@@ -0,0 +1,70 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30351 "Shpfy Mtfld Type Dimension" implements "Shpfy IMetafield Type"
+{
+ var
+ DimensionJsonTemplateTxt: Label '{"value": %1, "unit": "%2"}', Locked = true;
+
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(true);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Dimension: Decimal;
+ Unit: Enum "Shpfy Metafield Dimension Type";
+ begin
+ exit(TryExtractValues(Value, Dimension, Unit));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ var
+ MetafieldAssistEdit: Page "Shpfy Metafield Assist Edit";
+ Dimension: Decimal;
+ Unit: Enum "Shpfy Metafield Dimension Type";
+ begin
+ if Value <> '' then
+ if not TryExtractValues(Value, Dimension, Unit) then begin
+ Clear(Dimension);
+ Clear(Unit);
+ end;
+
+ if MetafieldAssistEdit.OpenForDimension(Dimension, Unit) then begin
+ MetafieldAssistEdit.GetDimensionValue(Dimension, Unit);
+ Value := StrSubstNo(DimensionJsonTemplateTxt, Format(Dimension, 0, 9), GetDimensionTypeName(Unit));
+ end else
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit(StrSubstNo(DimensionJsonTemplateTxt, '1.5', 'cm'));
+ end;
+
+ [TryFunction]
+ local procedure TryExtractValues(Value: Text; var Dimension: Decimal; var Unit: Enum "Shpfy Metafield Dimension Type")
+ var
+ JToken: JsonToken;
+ JObject: JsonObject;
+ begin
+ JObject.ReadFrom(Value);
+ JObject.SelectToken('value', JToken);
+ Dimension := JToken.AsValue().AsDecimal();
+ JObject.SelectToken('unit', JToken);
+ Unit := ConvertToDimensionType(JToken.AsValue().AsText());
+
+ if JObject.Keys.Count() <> 2 then
+ Error('');
+ end;
+
+ local procedure GetDimensionTypeName(DimensionType: Enum "Shpfy Metafield Dimension Type"): Text
+ begin
+ exit(DimensionType.Names().Get(DimensionType.Ordinals().IndexOf(DimensionType.AsInteger())));
+ end;
+
+ local procedure ConvertToDimensionType(Value: Text) Type: Enum "Shpfy Metafield Dimension Type"
+ begin
+ exit(Enum::"Shpfy Metafield Dimension Type".FromInteger(Type.Ordinals().Get(Type.Names().IndexOf(Value))));
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeFileRef.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeFileRef.Codeunit.al
new file mode 100644
index 0000000000..9e5c357782
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeFileRef.Codeunit.al
@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30322 "Shpfy Mtfld Type File Ref" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Regex: Codeunit Regex;
+ begin
+ exit(Regex.IsMatch(Value, '^gid:\/\/shopify\/(GenericFile|MediaImage|Video)\/\d+$'));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('gid://shopify/MediaImage/1234567890');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeInteger.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeInteger.Codeunit.al
new file mode 100644
index 0000000000..28a7406b37
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeInteger.Codeunit.al
@@ -0,0 +1,37 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30339 "Shpfy Mtfld Type Integer" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ DummyInteger: BigInteger;
+ MinInt: BigInteger;
+ MaxInt: BigInteger;
+ begin
+ if not Evaluate(DummyInteger, Value, 9) then
+ exit(false);
+
+ Evaluate(MinInt, '-9007199254740991', 9);
+ Evaluate(MaxInt, '9007199254740991', 9);
+ if (DummyInteger < MinInt) or (DummyInteger > MaxInt) then
+ exit(false);
+
+ exit(true);
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('123');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeJson.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeJson.Codeunit.al
new file mode 100644
index 0000000000..95d5732b99
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeJson.Codeunit.al
@@ -0,0 +1,27 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30353 "Shpfy Mtfld Type Json" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ JsonObject: JsonObject;
+ begin
+ exit(JsonObject.ReadFrom(Value));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('{"ingredient": "flour", "amount": 0.3}');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMetaobjRef.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMetaobjRef.Codeunit.al
new file mode 100644
index 0000000000..9053ac668d
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMetaobjRef.Codeunit.al
@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30327 "Shpfy Mtfld Type Metaobj. Ref" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Regex: Codeunit Regex;
+ begin
+ exit(Regex.IsMatch(Value, '^gid:\/\/shopify\/Metaobject\/\d+$'));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('gid://shopify/Metaobject/1234567890');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMixedRef.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMixedRef.Codeunit.al
new file mode 100644
index 0000000000..ca7dca2ed4
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMixedRef.Codeunit.al
@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30331 "Shpfy Mtfld Type Mixed Ref" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Regex: Codeunit Regex;
+ begin
+ exit(Regex.IsMatch(Value, '^gid:\/\/shopify\/[A-Za-z]+\/\d+$'));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('gid://shopify/Product/1234567890');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMoney.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMoney.Codeunit.al
new file mode 100644
index 0000000000..2acb6640d6
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMoney.Codeunit.al
@@ -0,0 +1,74 @@
+namespace Microsoft.Integration.Shopify;
+
+using Microsoft.Finance.Currency;
+
+codeunit 30317 "Shpfy Mtfld Type Money" implements "Shpfy IMetafield Type"
+{
+ var
+ MoneyJsonTemplateTxt: Label '{"amount": "%1", "currency_code": "%2"}', Locked = true;
+
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(true);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Amount: Decimal;
+ CurrencyCode: Code[10];
+ begin
+ exit(TryExtractValues(Value, Amount, CurrencyCode));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ var
+ MetafieldAssistEdit: Page "Shpfy Metafield Assist Edit";
+ Amount: Decimal;
+ CurrencyCode: Code[10];
+ begin
+ if Value <> '' then
+ if not TryExtractValues(Value, Amount, CurrencyCode) then begin
+ Clear(Amount);
+ Clear(CurrencyCode);
+ end;
+
+ if MetafieldAssistEdit.OpenForMoney(Amount, CurrencyCode) then begin
+ MetafieldAssistEdit.GetMoneyValue(Amount, CurrencyCode);
+ Value := StrSubstNo(MoneyJsonTemplateTxt, Format(Amount, 0, 9), CurrencyCode);
+ exit(true);
+ end else
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit(StrSubstNo(MoneyJsonTemplateTxt, '5.99', 'CAD'));
+ end;
+
+ ///
+ /// Tried to extract the amount and currency code from the JSON string.
+ ///
+ /// JSON string with the following format: {"amount": "5.99", "currency_code": "CAD"}
+ /// Return value: the amount extracted from the JSON string.
+ /// Return value: the currency code extracted from the JSON string.
+ /// True if no errors occurred during the extraction.
+ [TryFunction]
+ internal procedure TryExtractValues(Value: Text; var Amount: Decimal; var CurrencyCode: Code[10])
+ var
+ Currency: Record Currency;
+ JToken: JsonToken;
+ JObject: JsonObject;
+ begin
+ JObject.ReadFrom(Value);
+ JObject.SelectToken('amount', JToken);
+ Amount := JToken.AsValue().AsDecimal();
+ JObject.SelectToken('currency_code', JToken);
+#pragma warning disable AA0139
+ CurrencyCode := JToken.AsValue().AsText();
+#pragma warning restore AA0139
+ Currency.Get(CurrencyCode);
+
+ if JObject.Keys.Count() <> 2 then
+ Error('');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMultiText.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMultiText.Codeunit.al
new file mode 100644
index 0000000000..5ddb65e64f
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeMultiText.Codeunit.al
@@ -0,0 +1,30 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30352 "Shpfy Mtfld Type Multi Text" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(true);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ begin
+ exit(true);
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ var
+ MetafieldAssistEdit: Page "Shpfy Metafield Assist Edit";
+ begin
+ if MetafieldAssistEdit.OpenForMultiLineText(Value) then begin
+ MetafieldAssistEdit.GetMultiLineText(Value);
+ exit(true);
+ end else
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('Ingredients\Flour\Water\Milk\Eggs');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeNumDecimal.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeNumDecimal.Codeunit.al
new file mode 100644
index 0000000000..7f6d6eed30
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeNumDecimal.Codeunit.al
@@ -0,0 +1,30 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30319 "Shpfy Mtfld Type Num Decimal" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Regex: Codeunit Regex;
+ begin
+ // +/-9999999999999.999999999
+ exit(Regex.IsMatch(Value, '^[-+]?\d{1,13}(?:\.\d{1,9})?$'));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('123.45');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeNumInteger.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeNumInteger.Codeunit.al
new file mode 100644
index 0000000000..dbce1c839b
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeNumInteger.Codeunit.al
@@ -0,0 +1,37 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30320 "Shpfy Mtfld Type Num Integer" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ DummyInteger: BigInteger;
+ MinInt: BigInteger;
+ MaxInt: BigInteger;
+ begin
+ if not Evaluate(DummyInteger, Value, 9) then
+ exit(false);
+
+ Evaluate(MinInt, '-9007199254740991', 9);
+ Evaluate(MaxInt, '9007199254740991', 9);
+ if (DummyInteger < MinInt) or (DummyInteger > MaxInt) then
+ exit(false);
+
+ exit(true);
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('123');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypePageRef.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypePageRef.Codeunit.al
new file mode 100644
index 0000000000..81401c2ee1
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypePageRef.Codeunit.al
@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30328 "Shpfy Mtfld Type Page Ref" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Regex: Codeunit Regex;
+ begin
+ exit(Regex.IsMatch(Value, '^gid:\/\/shopify\/OnlinePage\/\d+$'));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('gid://shopify/OnlinePage/1234567890');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeProductRef.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeProductRef.Codeunit.al
new file mode 100644
index 0000000000..e9c765c5d6
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeProductRef.Codeunit.al
@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30329 "Shpfy Mtfld Type Product Ref" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Regex: Codeunit Regex;
+ begin
+ exit(Regex.IsMatch(Value, '^gid:\/\/shopify\/Product\/\d+$'));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('gid://shopify/Product/1234567890');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeSingleText.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeSingleText.Codeunit.al
new file mode 100644
index 0000000000..5a207003f6
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeSingleText.Codeunit.al
@@ -0,0 +1,25 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30323 "Shpfy Mtfld Type Single Text" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ begin
+ exit(true);
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('VIP shipping method');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeString.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeString.Codeunit.al
new file mode 100644
index 0000000000..ddb25456f8
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeString.Codeunit.al
@@ -0,0 +1,25 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30337 "Shpfy Mtfld Type String" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ begin
+ exit(true);
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('Example');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeUrl.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeUrl.Codeunit.al
new file mode 100644
index 0000000000..bbb87ff1fc
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeUrl.Codeunit.al
@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30324 "Shpfy Mtfld Type Url" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Regex: Codeunit Regex;
+ begin
+ exit(Regex.IsMatch(Value, '^(http|https|mailto|sms|tel)://[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,3}(/\S*)?$'));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('https://www.shopify.com');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeVariantRef.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeVariantRef.Codeunit.al
new file mode 100644
index 0000000000..e3fe97876d
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeVariantRef.Codeunit.al
@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30330 "Shpfy Mtfld Type Variant Ref" implements "Shpfy IMetafield Type"
+{
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(false);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Regex: Codeunit Regex;
+ begin
+ exit(Regex.IsMatch(Value, '^gid:\/\/shopify\/Variant\/\d+$'));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ begin
+ Value := Value;
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit('gid://shopify/Variant/1234567890');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeVolume.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeVolume.Codeunit.al
new file mode 100644
index 0000000000..18faa414ef
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeVolume.Codeunit.al
@@ -0,0 +1,72 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30325 "Shpfy Mtfld Type Volume" implements "Shpfy IMetafield Type"
+{
+ var
+ VolumeJsonTemplateTxt: Label '{"value": %1,"unit":"%2"}', Locked = true;
+
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(true);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Volume: Decimal;
+ Unit: Enum "Shpfy Metafield Volume Type";
+ begin
+ exit(TryExtractValues(Value, Volume, Unit));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ var
+ MetafieldAssistEdit: Page "Shpfy Metafield Assist Edit";
+ Volume: Decimal;
+ Unit: Enum "Shpfy Metafield Volume Type";
+ begin
+ if Value <> '' then
+ if not TryExtractValues(Value, Volume, Unit) then begin
+ Clear(Volume);
+ Clear(Unit);
+ end;
+
+ if MetafieldAssistEdit.OpenForVolume(Volume, Unit) then begin
+ MetafieldAssistEdit.GetVolumeValue(Volume, Unit);
+ Value := StrSubstNo(VolumeJsonTemplateTxt, Format(Volume, 0, 9), GetVolumeTypeName(Unit));
+ exit(true);
+ end else
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit(StrSubstNo(VolumeJsonTemplateTxt, '20.0', 'ml'));
+ end;
+
+
+ [TryFunction]
+ local procedure TryExtractValues(Value: Text; var Volume: Decimal; var Unit: Enum "Shpfy Metafield Volume Type")
+ var
+ JToken: JsonToken;
+ JObject: JsonObject;
+ begin
+ JObject.ReadFrom(Value);
+ JObject.SelectToken('value', JToken);
+ Volume := JToken.AsValue().AsDecimal();
+ JObject.SelectToken('unit', JToken);
+ Unit := ConvertToVolumeType(JToken.AsValue().AsText());
+
+ if JObject.Keys.Count() <> 2 then
+ Error('');
+ end;
+
+ local procedure GetVolumeTypeName(VolumeType: Enum "Shpfy Metafield Volume Type"): Text
+ begin
+ exit(VolumeType.Names().Get(VolumeType.Ordinals().IndexOf(VolumeType.AsInteger())));
+ end;
+
+ local procedure ConvertToVolumeType(Value: Text) Type: Enum "Shpfy Metafield Volume Type"
+ begin
+ exit(Enum::"Shpfy Metafield Volume Type".FromInteger(Type.Ordinals().Get(Type.Names().IndexOf(Value))));
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeWeight.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeWeight.Codeunit.al
new file mode 100644
index 0000000000..5bf2777206
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IMetafieldType/ShpfyMtfldTypeWeight.Codeunit.al
@@ -0,0 +1,72 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30326 "Shpfy Mtfld Type Weight" implements "Shpfy IMetafield Type"
+{
+ var
+ WeightJsonTemplateTxt: Label '{"value": %1,"unit":"%2"}', Locked = true;
+
+ procedure HasAssistEdit(): Boolean
+ begin
+ exit(true);
+ end;
+
+ procedure IsValidValue(Value: Text): Boolean
+ var
+ Weight: Decimal;
+ Unit: Enum "Shpfy Metafield Weight Type";
+ begin
+ exit(TryExtractValues(Value, Weight, Unit));
+ end;
+
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+ var
+ MetafieldAssistEdit: Page "Shpfy Metafield Assist Edit";
+ Weight: Decimal;
+ Unit: Enum "Shpfy Metafield Weight Type";
+ begin
+ if Value <> '' then
+ if not TryExtractValues(Value, Weight, Unit) then begin
+ Clear(Weight);
+ Clear(Unit);
+ end;
+
+ if MetafieldAssistEdit.OpenForWeight(Weight, Unit) then begin
+ MetafieldAssistEdit.GetWeightValue(Weight, Unit);
+ Value := StrSubstNo(WeightJsonTemplateTxt, Format(Weight, 0, 9), GetWeightTypeName(Unit));
+ exit(true);
+ end else
+ exit(false);
+ end;
+
+ procedure GetExampleValue(): Text
+ begin
+ exit(StrSubstNo(WeightJsonTemplateTxt, '2.5', 'kg'));
+ end;
+
+
+ [TryFunction]
+ local procedure TryExtractValues(Value: Text; var Weight: Decimal; var Unit: Enum "Shpfy Metafield Weight Type")
+ var
+ JToken: JsonToken;
+ JObject: JsonObject;
+ begin
+ JObject.ReadFrom(Value);
+ JObject.SelectToken('value', JToken);
+ Weight := JToken.AsValue().AsDecimal();
+ JObject.SelectToken('unit', JToken);
+ Unit := ConvertToWeightType(JToken.AsValue().AsText());
+
+ if JObject.Keys.Count() <> 2 then
+ Error('');
+ end;
+
+ local procedure GetWeightTypeName(WeightType: Enum "Shpfy Metafield Weight Type"): Text
+ begin
+ exit(WeightType.Names().Get(WeightType.Ordinals().IndexOf(WeightType.AsInteger())));
+ end;
+
+ local procedure ConvertToWeightType(Value: Text) Type: Enum "Shpfy Metafield Weight Type"
+ begin
+ exit(Enum::"Shpfy Metafield Weight Type".FromInteger(Type.Ordinals().Get(Type.Names().IndexOf(Value))));
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IOwnerType/ShpfyMetafieldOwnerCustomer.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IOwnerType/ShpfyMetafieldOwnerCustomer.Codeunit.al
new file mode 100644
index 0000000000..98646f1731
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IOwnerType/ShpfyMetafieldOwnerCustomer.Codeunit.al
@@ -0,0 +1,19 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30333 "Shpfy Metafield Owner Customer" implements "Shpfy IMetafield Owner Type"
+{
+ procedure GetTableId(): Integer
+ begin
+ exit(Database::"Shpfy Customer");
+ end;
+
+ procedure RetrieveMetafieldIdsFromShopify(OwnerId: BigInteger): Dictionary of [BigInteger, DateTime]
+ begin
+ Error('Not implemented');
+ end;
+
+ procedure GetShopCode(OwnerId: BigInteger): Code[20]
+ begin
+ exit('Not implemented');
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IOwnerType/ShpfyMetafieldOwnerProduct.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IOwnerType/ShpfyMetafieldOwnerProduct.Codeunit.al
new file mode 100644
index 0000000000..3998b83f29
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IOwnerType/ShpfyMetafieldOwnerProduct.Codeunit.al
@@ -0,0 +1,42 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30334 "Shpfy Metafield Owner Product" implements "Shpfy IMetafield Owner Type"
+{
+ procedure GetTableId(): Integer
+ begin
+ exit(Database::"Shpfy Product");
+ end;
+
+ procedure RetrieveMetafieldIdsFromShopify(OwnerId: BigInteger) MetafieldIds: Dictionary of [BigInteger, DateTime]
+ var
+ CommunicationMgt: Codeunit "Shpfy Communication Mgt.";
+ JsonHelper: Codeunit "Shpfy Json Helper";
+ Parameters: Dictionary of [Text, Text];
+ GraphQLType: Enum "Shpfy GraphQL Type";
+ JResponse: JsonToken;
+ JMetafields: JsonArray;
+ JNode: JsonObject;
+ JItem: JsonToken;
+ Id: BigInteger;
+ UpdatedAt: DateTime;
+ begin
+ Parameters.Add('ProductId', Format(OwnerId));
+ GraphQLType := GraphQLType::ProductMetafieldIds;
+ JResponse := CommunicationMgt.ExecuteGraphQL(GraphQLType, Parameters);
+ if JsonHelper.GetJsonArray(JResponse, JMetafields, 'data.product.metafields.edges') then
+ foreach JItem in JMetafields do
+ if JsonHelper.GetJsonObject(JItem.AsObject(), JNode, 'node') then begin
+ Id := CommunicationMgt.GetIdOfGId(JsonHelper.GetValueAsText(JNode, 'legacyResourceId'));
+ UpdatedAt := JsonHelper.GetValueAsDateTime(JNode, 'updatedAt');
+ MetafieldIds.Add(Id, UpdatedAt);
+ end;
+ end;
+
+ procedure GetShopCode(OwnerId: BigInteger): Code[20]
+ var
+ Product: Record "Shpfy Product";
+ begin
+ Product.Get(OwnerId);
+ exit(Product."Shop Code");
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/IOwnerType/ShpfyMetafieldOwnerVariant.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IOwnerType/ShpfyMetafieldOwnerVariant.Codeunit.al
new file mode 100644
index 0000000000..3a9ff1e4b0
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/IOwnerType/ShpfyMetafieldOwnerVariant.Codeunit.al
@@ -0,0 +1,42 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30335 "Shpfy Metafield Owner Variant" implements "Shpfy IMetafield Owner Type"
+{
+ procedure GetTableId(): Integer
+ begin
+ exit(Database::"Shpfy Variant");
+ end;
+
+ procedure RetrieveMetafieldIdsFromShopify(OwnerId: BigInteger) MetafieldIds: Dictionary of [BigInteger, DateTime]
+ var
+ CommunicationMgt: Codeunit "Shpfy Communication Mgt.";
+ JsonHelper: Codeunit "Shpfy Json Helper";
+ Parameters: Dictionary of [Text, Text];
+ GraphQLType: Enum "Shpfy GraphQL Type";
+ JResponse: JsonToken;
+ JMetafields: JsonArray;
+ JNode: JsonObject;
+ JItem: JsonToken;
+ Id: BigInteger;
+ UpdatedAt: DateTime;
+ begin
+ Parameters.Add('VariantId', Format(OwnerId));
+ GraphQLType := GraphQLType::VariantMetafieldIds;
+ JResponse := CommunicationMgt.ExecuteGraphQL(GraphQLType, Parameters);
+ if JsonHelper.GetJsonArray(JResponse, JMetafields, 'data.product.metafields.edges') then
+ foreach JItem in JMetafields do
+ if JsonHelper.GetJsonObject(JItem.AsObject(), JNode, 'node') then begin
+ Id := CommunicationMgt.GetIdOfGId(JsonHelper.GetValueAsText(JNode, 'legacyResourceId'));
+ UpdatedAt := JsonHelper.GetValueAsDateTime(JNode, 'updatedAt');
+ MetafieldIds.Add(Id, UpdatedAt);
+ end;
+ end;
+
+ procedure GetShopCode(OwnerId: BigInteger): Code[20]
+ var
+ Variant: Record "Shpfy Variant";
+ begin
+ Variant.Get(OwnerId);
+ exit(Variant."Shop Code");
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Codeunits/ShpfyMetafieldAPI.Codeunit.al b/Apps/W1/Shopify/app/src/Metafields/Codeunits/ShpfyMetafieldAPI.Codeunit.al
new file mode 100644
index 0000000000..bd3ba3ad8d
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Codeunits/ShpfyMetafieldAPI.Codeunit.al
@@ -0,0 +1,237 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30316 "Shpfy Metafield API"
+{
+ Access = Internal;
+
+ var
+ JsonHelper: Codeunit "Shpfy Json Helper";
+
+ #region To Shopify
+ ///
+ /// Creates or updates the metafields in Shopify.
+ ///
+ ///
+ /// Only metafields that have been updated in BC since last update in Shopify will be updated.
+ /// MetafieldSet mutation only accepts 25 metafields at a time, so the function will create multiple queries if needed.
+ ///
+ ///
+ ///
+ internal procedure CreateOrUpdateMetafieldsInShopify(ParentTableId: Integer; OwnerId: BigInteger)
+ var
+ TempMetafieldSet: Record "Shpfy Metafield" temporary;
+ MetafieldIds: Dictionary of [BigInteger, DateTime];
+ Continue: Boolean;
+ Count: Integer;
+ GraphQuery: TextBuilder;
+ begin
+ MetafieldIds := RetrieveMetafieldsFromShopify(ParentTableId, OwnerId);
+ CollectMetafieldsInBC(ParentTableId, OwnerId, TempMetafieldSet, MetafieldIds);
+
+ // MetafieldsSet mutation only accepts 25 metafields at a time
+ Continue := true;
+ if TempMetafieldSet.FindSet() then
+ while Continue do begin
+ Count := 0;
+ Continue := false;
+ GraphQuery.Clear();
+
+ repeat
+ if Count = GetMaxMetafieldsToUpdate() then begin
+ Continue := true;
+ Clear(Count);
+ break;
+ end;
+
+ CreateMetafieldQuery(TempMetafieldSet, GraphQuery);
+ Count += 1;
+ until TempMetafieldSet.Next() = 0;
+
+ UpdateMetafields(GraphQuery.ToText());
+ end;
+ end;
+
+ local procedure GetMaxMetafieldsToUpdate(): Integer
+ begin
+ exit(25);
+ end;
+
+ local procedure RetrieveMetafieldsFromShopify(ParentTableId: Integer; OwnerId: BigInteger): Dictionary of [BigInteger, DateTime]
+ var
+ Metafield: Record "Shpfy Metafield";
+ IMetafieldOwnerType: Interface "Shpfy IMetafield Owner Type";
+ begin
+ IMetafieldOwnerType := Metafield.GetOwnerType(ParentTableId);
+ exit(IMetafieldOwnerType.RetrieveMetafieldIdsFromShopify(OwnerId));
+ end;
+
+ local procedure CollectMetafieldsInBC(ParentTableId: Integer; OwnerId: BigInteger; var TempMetafieldSet: Record "Shpfy Metafield" temporary; MetafieldIds: Dictionary of [BigInteger, DateTime])
+ var
+ Metafield: Record "Shpfy Metafield";
+ UpdatedAt: DateTime;
+ begin
+ Metafield.SetRange("Parent Table No.", ParentTableId);
+ Metafield.SetRange("Owner Id", OwnerId);
+ if Metafield.FindSet() then
+ repeat
+ if MetafieldIds.Get(Metafield.Id, UpdatedAt) then begin
+ if Metafield."Last Updated by BC" > UpdatedAt then begin
+ TempMetafieldSet := Metafield;
+ TempMetafieldSet.Insert(false);
+ end;
+ end else begin
+ TempMetafieldSet := Metafield;
+ TempMetafieldSet.Insert(false);
+ end;
+ until Metafield.Next() = 0;
+ end;
+
+ ///
+ /// Updates the metafields in Shopify.
+ ///
+ /// GraphQL query for the metafields.
+ internal procedure UpdateMetafields(MetafieldsQuery: Text) JResponse: JsonToken
+ var
+ CommunicationMgt: Codeunit "Shpfy Communication Mgt.";
+ Parameters: Dictionary of [Text, Text];
+ begin
+ Parameters.Add('Metafields', MetafieldsQuery);
+ JResponse := CommunicationMgt.ExecuteGraphQL(Enum::"Shpfy GraphQL Type"::MetafieldSet, Parameters);
+ end;
+
+ ///
+ /// Creates a GraphQL query for a metafield.
+ ///
+ /// Metafield record to create the query for.
+ /// Return value: TextBuilder to append the query to.
+ internal procedure CreateMetafieldQuery(MetafieldSet: Record "Shpfy Metafield"; GraphQuery: TextBuilder)
+ begin
+ GraphQuery.Append('{');
+ GraphQuery.Append('key: \"');
+ GraphQuery.Append(MetafieldSet.Name);
+ GraphQuery.Append('\",');
+ GraphQuery.Append('namespace: \"');
+ GraphQuery.Append(MetafieldSet."Namespace");
+ GraphQuery.Append('\",');
+ GraphQuery.Append('ownerId: \"gid://shopify/');
+ GraphQuery.Append(MetafieldSet.GetOwnerTypeName());
+ GraphQuery.Append('/');
+ GraphQuery.Append(Format(MetafieldSet."Owner Id"));
+ GraphQuery.Append('\",');
+ GraphQuery.Append('value: \"');
+ GraphQuery.Append(EscapeGrapQLData(MetafieldSet.Value));
+ GraphQuery.Append('\",');
+ GraphQuery.Append('type: \"');
+ GraphQuery.Append(GetTypeName(MetafieldSet.Type));
+ GraphQuery.Append('\"');
+ GraphQuery.Append('},');
+ end;
+
+ local procedure EscapeGrapQLData(Data: Text): Text
+ begin
+ exit(Data.Replace('\', '\\\\').Replace('"', '\\\"'));
+ end;
+
+ local procedure GetTypeName(Type: Enum "Shpfy Metafield Type"): Text
+ begin
+ exit(Enum::"Shpfy Metafield Type".Names().Get(Enum::"Shpfy Metafield Type".Ordinals().IndexOf(Type.AsInteger())));
+ end;
+ #endregion
+
+ #region From Shopify
+ ///
+ /// Updates the metafields in Business Central from Shopify.
+ ///
+ ///
+ /// Metafields with a value longer than 2048 characters will not be imported.
+ /// Some metafield types are unsupported in Business Central (i.e. Rating).
+ ///
+ /// JSON array of metafields from Shopify.
+ /// Table id of the parent resource.
+ /// Id of the parent resource.
+ internal procedure UpdateMetafieldsFromShopify(JMetafields: JsonArray; ParentTableNo: Integer; OwnerId: BigInteger)
+ var
+ JNode: JsonObject;
+ JItem: JsonToken;
+ MetafieldIds: List of [BigInteger];
+ MetafieldId: BigInteger;
+ begin
+ CollectMetafieldIds(OwnerId, MetafieldIds);
+
+ foreach JItem in JMetafields do begin
+ JsonHelper.GetJsonObject(JItem.AsObject(), JNode, 'node');
+ MetafieldId := UpdateMetadataField(ParentTableNo, OwnerId, JNode);
+ MetafieldIds.Remove(MetafieldId);
+ end;
+
+ DeleteUnusedMetafields(MetafieldIds);
+ end;
+
+ local procedure UpdateMetadataField(ParentTableNo: Integer; OwnerId: BigInteger; JNode: JsonObject): BigInteger
+ var
+ Metafield: Record "Shpfy Metafield";
+ ValueText: Text;
+ Type: Enum "Shpfy Metafield Type";
+ begin
+ // Shopify has no limit on the length of the value, but Business Central has a limit of 2048 characters.
+ // If the value is longer than 2048 characters, Metafield is not imported.
+ ValueText := JsonHelper.GetValueAsText(JNode, 'value');
+ if StrLen(ValueText) > MaxStrLen(Metafield.Value) then
+ exit(0);
+
+ // Some metafield types are unsupported in Business Central (i.e. Rating)
+ if not ConvertToMetafieldType(JsonHelper.GetValueAsText(JNode, 'type'), Type) then
+ exit(0);
+
+
+ Metafield.Validate("Parent Table No.", ParentTableNo);
+ Metafield."Owner Id" := OwnerId;
+ Metafield.Id := JsonHelper.GetValueAsBigInteger(JNode, 'legacyResourceId');
+ Metafield.Type := Type;
+#pragma warning disable AA0139
+ Metafield."Namespace" := JsonHelper.GetValueAsText(JNode, 'namespace');
+ Metafield.Name := JsonHelper.GetValueAsText(JNode, 'key');
+ Metafield.Value := ValueText;
+#pragma warning restore AA0139
+ if not Metafield.Modify(false) then
+ Metafield.Insert(false);
+
+ exit(Metafield.Id);
+ end;
+
+ local procedure ConvertToMetafieldType(Value: Text; var Type: Enum "Shpfy Metafield Type"): Boolean
+ var
+ EnumOrdinal: Integer;
+ begin
+ // Some metafield types are unsupported in Business Central (i.e. Rating)
+ if not Enum::"Shpfy Metafield Type".Ordinals().Get(Enum::"Shpfy Metafield Type".Names().IndexOf(Value), EnumOrdinal) then
+ exit(false);
+
+ Type := Enum::"Shpfy Metafield Type".FromInteger(EnumOrdinal);
+ exit(true);
+ end;
+
+ local procedure CollectMetafieldIds(ProductId: BigInteger; MetafieldIds: List of [BigInteger])
+ var
+ Metafield: Record "Shpfy Metafield";
+ begin
+ MetaField.SetRange("Parent Table No.", Database::"Shpfy Product");
+ Metafield.SetRange("Owner Id", ProductId);
+ if Metafield.FindSet() then
+ repeat
+ MetafieldIds.Add(Metafield.Id);
+ until Metafield.Next() = 0;
+ end;
+
+ local procedure DeleteUnusedMetafields(MetafieldIds: List of [BigInteger])
+ var
+ Metafield: Record "Shpfy Metafield";
+ MetafieldId: BigInteger;
+ begin
+ foreach MetafieldId in MetafieldIds do begin
+ Metafield.Get(MetafieldId);
+ Metafield.Delete(false);
+ end;
+ end;
+ #endregion
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldDimensionType.Enum.al b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldDimensionType.Enum.al
new file mode 100644
index 0000000000..1c3c72cb46
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldDimensionType.Enum.al
@@ -0,0 +1,35 @@
+namespace Microsoft.Integration.Shopify;
+
+enum 30160 "Shpfy Metafield Dimension Type"
+{
+ Access = Internal;
+
+ value(0; in)
+ {
+ Caption = 'in';
+ }
+
+ value(1; ft)
+ {
+ Caption = 'ft';
+ }
+
+ value(2; yd)
+ {
+ Caption = 'yd';
+ }
+ value(3; mm)
+ {
+ Caption = 'mm';
+ }
+
+ value(4; cm)
+ {
+ Caption = 'cm';
+ }
+
+ value(5; m)
+ {
+ Caption = 'm';
+ }
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldOwnerType.Enum.al b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldOwnerType.Enum.al
new file mode 100644
index 0000000000..71d42d21c1
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldOwnerType.Enum.al
@@ -0,0 +1,24 @@
+namespace Microsoft.Integration.Shopify;
+
+enum 30156 "Shpfy Metafield Owner Type" implements "Shpfy IMetafield Owner Type"
+{
+ Access = Internal;
+
+ value(0; Customer)
+ {
+ Caption = 'Customer';
+ Implementation = "Shpfy IMetafield Owner Type" = "Shpfy Metafield Owner Customer";
+ }
+
+ value(1; Product)
+ {
+ Caption = 'Product';
+ Implementation = "Shpfy IMetafield Owner Type" = "Shpfy Metafield Owner Product";
+ }
+
+ value(2; ProductVariant)
+ {
+ Caption = 'Variant';
+ Implementation = "Shpfy IMetafield Owner Type" = "Shpfy Metafield Owner Variant";
+ }
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldType.Enum.al b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldType.Enum.al
new file mode 100644
index 0000000000..b4c21fb5b4
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldType.Enum.al
@@ -0,0 +1,161 @@
+namespace Microsoft.Integration.Shopify;
+
+///
+/// Enum Shpfy Metafield Type (ID 30159).
+///
+enum 30159 "Shpfy Metafield Type" implements "Shpfy IMetafield Type"
+{
+ Access = Internal;
+ Caption = 'Shopify Metafield Type';
+
+ Extensible = false;
+
+ value(0; string)
+ {
+ Caption = 'String';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type String";
+ }
+
+ value(1; integer)
+ {
+ Caption = 'Integer';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Integer";
+ }
+
+ value(2; json)
+ {
+ Caption = 'JSON';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type JSON";
+ }
+
+ value(3; boolean)
+ {
+ Caption = 'True or false';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Boolean";
+ }
+
+ value(4; color)
+ {
+ Caption = 'Color';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Color";
+ }
+
+ value(5; date)
+ {
+ Caption = 'Date';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Date";
+ }
+
+ value(6; date_time)
+ {
+ Caption = 'Date and time';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type DateTime";
+ }
+
+ value(7; dimension)
+ {
+ Caption = 'Dimension';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Dimension";
+ }
+
+ value(8; money)
+ {
+ Caption = 'Money';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Money";
+ }
+
+ value(9; multi_line_text_field)
+ {
+ Caption = 'Multi-line text';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Multi Text";
+ }
+
+ value(10; number_decimal)
+ {
+ Caption = 'Decimal';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Num Decimal";
+ }
+
+ value(11; number_integer)
+ {
+ Caption = 'Integer';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Num Integer";
+ }
+
+ // Intentionally commented out as we are not supporting this type at the moment
+ // value(12; rating)
+ // {
+ // Caption = 'Rating';
+ // }
+
+ // Intentionally commented out as we are not supporting this type at the moment
+ // value(13; rich_text_field)
+ // {
+ // Caption = 'Rich text';
+ // }
+
+ value(14; single_line_text_field)
+ {
+ Caption = 'Single line text';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Single Text";
+ }
+
+ value(15; url)
+ {
+ Caption = 'URL';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type URL";
+ }
+
+ value(16; volume)
+ {
+ Caption = 'Volume';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Volume";
+ }
+
+ value(17; weight)
+ {
+ Caption = 'Weight';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Weight";
+ }
+ value(18; collection_reference)
+ {
+ Caption = 'Collection reference';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Collect. Ref";
+ }
+
+ value(19; file_reference)
+ {
+ Caption = 'File';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type File Ref";
+ }
+
+ value(20; metaobject_reference)
+ {
+ Caption = 'Metaobject';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Metaobj. Ref";
+ }
+
+ value(21; mixed_reference)
+ {
+ Caption = 'Mixed reference';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Mixed Ref";
+ }
+
+ value(22; page_reference)
+ {
+ Caption = 'Page';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Page Ref";
+ }
+
+ value(23; product_reference)
+ {
+ Caption = 'Product';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Product Ref";
+ }
+
+ value(24; variant_reference)
+ {
+ Caption = 'Variant';
+ Implementation = "Shpfy IMetafield Type" = "Shpfy Mtfld Type Variant Ref";
+ }
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Base/Enums/ShpfyMetafieldValueType.Enum.al b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldValueType.Enum.al
similarity index 75%
rename from Apps/W1/Shopify/app/src/Base/Enums/ShpfyMetafieldValueType.Enum.al
rename to Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldValueType.Enum.al
index dc3bb8acd4..fcf76e44aa 100644
--- a/Apps/W1/Shopify/app/src/Base/Enums/ShpfyMetafieldValueType.Enum.al
+++ b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldValueType.Enum.al
@@ -8,6 +8,9 @@ enum 30102 "Shpfy Metafield Value Type"
Access = Internal;
Caption = 'Shopify Metafield Value Type';
Extensible = false;
+ ObsoleteState = Pending;
+ ObsoleteReason = 'Value Type is obsolete in Shopify API. Use Metafield Type instead.';
+ ObsoleteTag = '25.0';
value(0; String)
{
diff --git a/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldVolumeType.Enum.al b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldVolumeType.Enum.al
new file mode 100644
index 0000000000..c1b87eb4ea
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldVolumeType.Enum.al
@@ -0,0 +1,59 @@
+namespace Microsoft.Integration.Shopify;
+
+enum 30158 "Shpfy Metafield Volume Type"
+{
+ Access = Internal;
+
+ value(0; ml)
+ {
+ Caption = 'ml';
+ }
+
+ value(1; cl)
+ {
+ Caption = 'cl';
+ }
+
+ value(2; l)
+ {
+ Caption = 'L';
+ }
+ value(3; m3)
+ {
+ Caption = 'm3';
+ }
+
+ value(4; us_fl_oz)
+ {
+ Caption = 'fl oz';
+ }
+
+ value(5; us_pt)
+ {
+ Caption = 'pt';
+ }
+ value(6; us_qt)
+ {
+ Caption = 'qt';
+ }
+ value(7; us_gal)
+ {
+ Caption = 'gal';
+ }
+ value(8; imp_fl_oz)
+ {
+ Caption = 'imp fl oz';
+ }
+ value(9; imp_pt)
+ {
+ Caption = 'imp pt';
+ }
+ value(10; imp_qt)
+ {
+ Caption = 'imp qt';
+ }
+ value(11; imp_gal)
+ {
+ Caption = 'imp gal';
+ }
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldWeightType.Enum.al b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldWeightType.Enum.al
new file mode 100644
index 0000000000..2581e24b3a
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Enums/ShpfyMetafieldWeightType.Enum.al
@@ -0,0 +1,26 @@
+namespace Microsoft.Integration.Shopify;
+
+enum 30157 "Shpfy Metafield Weight Type"
+{
+ Access = Internal;
+
+ value(0; kg)
+ {
+ Caption = 'kg';
+ }
+
+ value(1; g)
+ {
+ Caption = 'g';
+ }
+
+ value(2; lb)
+ {
+ Caption = 'lb';
+ }
+
+ value(3; oz)
+ {
+ Caption = 'oz';
+ }
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Interfaces/ShpfyIMetafieldOwnerType.Interface.al b/Apps/W1/Shopify/app/src/Metafields/Interfaces/ShpfyIMetafieldOwnerType.Interface.al
new file mode 100644
index 0000000000..f11f3540f7
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Interfaces/ShpfyIMetafieldOwnerType.Interface.al
@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+///
+/// Interface used to for metafield operations related to metafield owner resource.
+///
+interface "Shpfy IMetafield Owner Type"
+{
+ Access = Internal;
+
+ ///
+ /// Returns the table id where the owner record is stored in BC.
+ ///
+ /// Table id.
+ procedure GetTableId(): Integer
+
+ ///
+ /// Retrieves metafields belonging to the owner resource in a dictionary with the last updated at timestamp.
+ ///
+ /// Id of the owner resource.
+ /// Dictionary of metafield ids and last updated at timestamp.
+ procedure RetrieveMetafieldIdsFromShopify(OwnerId: BigInteger): Dictionary of [BigInteger, DateTime]
+
+ ///
+ /// Retrieves the shop code from the owner resource.
+ ///
+ /// Id of the owner resource.
+ /// Shop code.
+ procedure GetShopCode(OwnerId: BigInteger): Code[20]
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Interfaces/ShpfyIMetafieldType.Interface.al b/Apps/W1/Shopify/app/src/Metafields/Interfaces/ShpfyIMetafieldType.Interface.al
new file mode 100644
index 0000000000..47dc65200d
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Interfaces/ShpfyIMetafieldType.Interface.al
@@ -0,0 +1,35 @@
+namespace Microsoft.Integration.Shopify;
+
+///
+/// Interface used for validating and editing values of a Shopify Metafield.
+///
+interface "Shpfy IMetafield Type"
+{
+ Access = Internal;
+
+ ///
+ /// Determines if Type defines an Assist Edit dialog.
+ ///
+ /// True if Type defines an Assist Edit dialog, otherwise false.
+ procedure HasAssistEdit(): Boolean
+
+ ///
+ /// Determines if provided value is valid for Type.
+ ///
+ /// Value to validate.
+ /// True if value is valid, otherwise False.
+ procedure IsValidValue(Value: Text): Boolean
+
+ ///
+ /// Opens a dialog to assist in editing the value.
+ ///
+ /// Value to edit. Value may be modified.
+ /// True if value was edited, otherwise False.
+ procedure AssistEdit(var Value: Text[2048]): Boolean
+
+ ///
+ /// Returns an example value for the Type.
+ ///
+ /// Example value.
+ procedure GetExampleValue(): Text
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Pages/ShpfyMetafieldAssistEdit.Page.al b/Apps/W1/Shopify/app/src/Metafields/Pages/ShpfyMetafieldAssistEdit.Page.al
new file mode 100644
index 0000000000..623fcd5ffc
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Pages/ShpfyMetafieldAssistEdit.Page.al
@@ -0,0 +1,264 @@
+namespace Microsoft.Integration.Shopify;
+
+using Microsoft.Finance.Currency;
+
+page 30164 "Shpfy Metafield Assist Edit"
+{
+ Caption = 'Metafield Assist Edit';
+ PageType = StandardDialog;
+ ApplicationArea = All;
+ UsageCategory = Administration;
+
+ layout
+ {
+ area(Content)
+ {
+ group(MoneyGroup)
+ {
+ Visible = IsMoneyVisible;
+ ShowCaption = false;
+
+ field(MoneyValue; MoneyValue)
+ {
+ Caption = 'Value';
+ ToolTip = 'Enter the amount.';
+ }
+ field(MoneyCurrency; MoneyCurrency)
+ {
+ Caption = 'Currency';
+ ToolTip = 'Enter the currency code.';
+ TableRelation = Currency;
+ }
+ }
+ group(DimensionGroup)
+ {
+ Visible = IsDimensionVisible;
+ ShowCaption = false;
+
+ field(DimensionValue; DimensionValue)
+ {
+ Caption = 'Value';
+ ToolTip = 'Enter the value.';
+ }
+ field(DimensionUnit; DimensionUnit)
+ {
+ Caption = 'Unit';
+ ToolTip = 'Enter the unit of measure.';
+ }
+ }
+ group(VolumeGroup)
+ {
+ Visible = IsVolumeVisible;
+ ShowCaption = false;
+
+ field(VolumeValue; VolumeValue)
+ {
+ Caption = 'Value';
+ ToolTip = 'Enter the value.';
+ }
+ field(VolumeUnit; VolumeUnit)
+ {
+ Caption = 'Unit';
+ ToolTip = 'Enter the unit of measure.';
+ }
+ }
+ group(WeightGroup)
+ {
+ Visible = IsWeightVisible;
+ ShowCaption = false;
+
+ field(WeightValue; WeightValue)
+ {
+ Caption = 'Value';
+ ToolTip = 'Enter the value.';
+ }
+ field(WeightUnit; WeightUnit)
+ {
+ Caption = 'Unit';
+ ToolTip = 'Enter the unit of measure.';
+ }
+ }
+ group(MultiLineTextGroup)
+ {
+ Visible = IsMultiLineTextVisible;
+ ShowCaption = false;
+
+ field(MultiLineText; MultiLineText)
+ {
+ Caption = 'Text';
+ ToolTip = 'Enter the text.';
+ MultiLine = true;
+ ExtendedDatatype = RichContent;
+
+ trigger OnValidate()
+ var
+ TextTooLongErr: Label 'The text is too long. The maximum length is 2048 characters.';
+ begin
+ if StrLen(MultiLineText) > 2048 then
+ Error(ErrorInfo.Create(TextTooLongErr));
+ end;
+ }
+ }
+ }
+ }
+
+ #region Money
+ var
+ IsMoneyVisible: Boolean;
+ MoneyValue: Decimal;
+ MoneyCurrency: Code[10];
+
+ ///
+ /// Opens the page for assisting with input of money values.
+ ///
+ /// The amount to preset on the page.
+ /// The currency code to preset on the page.
+ /// True if the user clicks OK; otherwise, false.
+ internal procedure OpenForMoney(Amount: Decimal; CurrencyCode: Code[10]): Boolean
+ begin
+ IsMoneyVisible := true;
+ MoneyValue := Amount;
+ MoneyCurrency := CurrencyCode;
+
+ exit(CurrPage.RunModal() = Action::OK);
+ end;
+
+ ///
+ /// Gets the money value and currency code.
+ ///
+ /// Return value: The money value.
+ /// Return value: The currency code.
+ internal procedure GetMoneyValue(var Amount: Decimal; var Currency: Code[10])
+ begin
+ Amount := MoneyValue;
+ Currency := MoneyCurrency;
+ end;
+ #endregion
+
+ #region Dimension
+ var
+ IsDimensionVisible: Boolean;
+ DimensionValue: Decimal;
+ DimensionUnit: Enum "Shpfy Metafield Dimension Type";
+
+ ///
+ /// Opens the page for assisting with input of dimension values.
+ ///
+ /// The dimension to preset on the page.
+ /// The unit of measure to preset on the page.
+ /// True if the user clicks OK; otherwise, false.
+ internal procedure OpenForDimension(Dimension: Decimal; Unit: Enum "Shpfy Metafield Dimension Type"): Boolean
+ begin
+ IsDimensionVisible := true;
+ DimensionValue := Dimension;
+ DimensionUnit := Unit;
+
+ exit(CurrPage.RunModal() = Action::OK);
+ end;
+
+ ///
+ /// Gets the dimension value and unit of measure.
+ ///
+ /// Return value: The dimension value.
+ /// Return value: The unit of measure.
+ internal procedure GetDimensionValue(var Value: Decimal; var Unit: Enum "Shpfy Metafield Dimension Type")
+ begin
+ Value := DimensionValue;
+ Unit := DimensionUnit;
+ end;
+ #endregion
+
+ #region Volume
+ var
+ IsVolumeVisible: Boolean;
+ VolumeValue: Decimal;
+ VolumeUnit: Enum "Shpfy Metafield Volume Type";
+
+ ///
+ /// Opens the page for assisting with input of volume values.
+ ///
+ /// The volume to preset on the page.
+ /// The unit of measure to preset on the page.
+ /// True if the user clicks OK; otherwise, false.
+ internal procedure OpenForVolume(Volume: Decimal; Unit: Enum "Shpfy Metafield Volume Type"): Boolean
+ begin
+ IsVolumeVisible := true;
+ VolumeValue := Volume;
+ VolumeUnit := Unit;
+
+ exit(CurrPage.RunModal() = Action::OK);
+ end;
+
+ ///
+ /// Gets the volume value and unit of measure.
+ ///
+ /// Return value: The volume value.
+ /// Return value: The unit of measure.
+ internal procedure GetVolumeValue(var Volume: Decimal; var Unit: Enum "Shpfy Metafield Volume Type")
+ begin
+ Volume := VolumeValue;
+ Unit := VolumeUnit;
+ end;
+ #endregion
+
+ #region Weight
+ var
+ IsWeightVisible: Boolean;
+ WeightValue: Decimal;
+ WeightUnit: Enum "Shpfy Metafield Weight Type";
+
+ ///
+ /// Opens the page for assisting with input of weight values.
+ ///
+ /// The weight to preset on the page.
+ /// The unit of measure to preset on the page.
+ /// True if the user clicks OK; otherwise, false.
+ internal procedure OpenForWeight(Weight: Decimal; Unit: Enum "Shpfy Metafield Weight Type"): Boolean
+ begin
+ IsWeightVisible := true;
+ WeightValue := Weight;
+ WeightUnit := Unit;
+
+ exit(CurrPage.RunModal() = Action::OK);
+ end;
+
+ ///
+ /// Gets the weight value and unit of measure.
+ ///
+ /// Return value: The weight value.
+ /// Return value: The unit of measure.
+ internal procedure GetWeightValue(var Value: Decimal; var Unit: Enum "Shpfy Metafield Weight Type")
+ begin
+ Value := WeightValue;
+ Unit := WeightUnit;
+ end;
+ #endregion
+
+ #region MultiLineText
+ var
+ IsMultiLineTextVisible: Boolean;
+ MultiLineText: Text;
+
+ ///
+ /// Opens the page for assisting with input of multi-line text.
+ ///
+ /// The text to preset on the page.
+ /// True if the user clicks OK; otherwise, false.
+ internal procedure OpenForMultiLineText(Text: Text[2048]): Boolean
+ begin
+ IsMultiLineTextVisible := true;
+ MultiLineText := Text;
+
+ exit(CurrPage.RunModal() = Action::OK);
+ end;
+
+ ///
+ /// Gets the multi-line text.
+ ///
+ /// Return value: The multi-line text.
+ internal procedure GetMultiLineText(var Text: Text[2048])
+ begin
+ Text := CopyStr(MultiLineText, 1, MaxStrLen(Text));
+ end;
+ #endregion
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Pages/ShpfyMetafields.Page.al b/Apps/W1/Shopify/app/src/Metafields/Pages/ShpfyMetafields.Page.al
new file mode 100644
index 0000000000..2029380a48
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Pages/ShpfyMetafields.Page.al
@@ -0,0 +1,130 @@
+namespace Microsoft.Integration.Shopify;
+
+///
+/// Page Shpfy Metafields (ID 30163).
+///
+page 30163 "Shpfy Metafields"
+{
+ Caption = 'Shopify Metafields';
+ Extensible = false;
+ PageType = List;
+ SourceTable = "Shpfy Metafield";
+ UsageCategory = None;
+ ApplicationArea = All;
+ DelayedInsert = true;
+
+ layout
+ {
+ area(Content)
+ {
+ repeater(Metafields)
+ {
+ Editable = IsPageEditable;
+
+ field(Namespace; Rec.Namespace)
+ {
+ ToolTip = 'Specifies the namespace of the metafield.';
+ }
+ field(Type; Rec.Type)
+ {
+ ToolTip = 'Specifies the type of value for the metafield.';
+ }
+ field(Name; Rec.Name)
+ {
+ ToolTip = 'Specifies the key of the metafield.';
+ }
+ field(Value; Rec.Value)
+ {
+ ToolTip = 'Specifies the value of the metafield.';
+ Editable = IsValueEditable;
+
+ trigger OnAssistEdit()
+ var
+ IMetafieldType: Interface "Shpfy IMetafield Type";
+ begin
+ IMetafieldType := Rec.Type;
+
+ if IMetafieldType.HasAssistEdit() then
+ if IMetafieldType.AssistEdit(Rec.Value) then
+ Rec.Validate(Value);
+ end;
+ }
+ }
+ }
+ }
+
+ trigger OnNewRecord(BelowxRec: Boolean)
+ begin
+ Evaluate(Rec."Parent Table No.", Rec.GetFilter("Parent Table No."));
+ Rec.Validate("Parent Table No.");
+ Evaluate(Rec."Owner Id", Rec.GetFilter("Owner Id"));
+ end;
+
+ trigger OnAfterGetCurrRecord()
+ var
+ IMetafieldType: Interface "Shpfy IMetafield Type";
+ begin
+ IMetafieldType := Rec.Type;
+ IsValueEditable := not IMetafieldType.HasAssistEdit();
+ end;
+
+ trigger OnInsertRecord(BelowxRec: Boolean): Boolean
+ begin
+ Rec.TestField(Namespace);
+ Rec.TestField(Name);
+ Rec.Validate(Value);
+
+ Rec.Id := SendMetafieldToShopify();
+ end;
+
+ var
+ Shop: Record "Shpfy Shop";
+ IsPageEditable: Boolean;
+ IsValueEditable: Boolean;
+
+ ///
+ /// Opens the page displaying metafields for the specified resource.
+ ///
+ /// Table id of the resource.
+ /// System Id of the resource.
+ internal procedure RunForResource(ParentTableId: Integer; OwnerId: BigInteger; ShopCode: Code[20])
+ var
+ Metafield: Record "Shpfy Metafield";
+ begin
+ Shop.Get(ShopCode);
+ IsPageEditable := (Shop."Sync Item" = Shop."Sync Item"::"To Shopify") and (Shop."Can Update Shopify Products");
+
+ Metafield.SetRange("Parent Table No.", ParentTableId);
+ Metafield.SetRange("Owner Id", OwnerId);
+
+ CurrPage.SetTableView(Metafield);
+ CurrPage.RunModal();
+ end;
+
+ local procedure SendMetafieldToShopify(): BigInteger
+ var
+ JsonHelper: Codeunit "Shpfy Json Helper";
+ MetafieldAPI: Codeunit "Shpfy Metafield API";
+ ShpfyCommunicationMgt: Codeunit "Shpfy Communication Mgt.";
+ UserErrorOnShopifyErr: Label 'Something went wrong while sending the metafield to Shopify. Check Shopify Log Entries for more details.';
+ GraphQuery: TextBuilder;
+ JResponse: JsonToken;
+ JMetafields: JsonArray;
+ JUserErrors: JsonArray;
+ JItem: JsonToken;
+ begin
+ ShpfyCommunicationMgt.SetShop(Shop);
+
+ MetafieldAPI.CreateMetafieldQuery(Rec, GraphQuery);
+ JResponse := MetafieldAPI.UpdateMetafields(GraphQuery.ToText());
+
+ JsonHelper.GetJsonArray(JResponse, JUserErrors, 'data.metafieldsSet.userErrors');
+
+ if JUserErrors.Count() = 0 then begin
+ JsonHelper.GetJsonArray(JResponse, JMetafields, 'data.metafieldsSet.metafields');
+ JMetafields.Get(0, JItem);
+ exit(JsonHelper.GetValueAsBigInteger(JItem, 'legacyResourceId'));
+ end else
+ Error(UserErrorOnShopifyErr);
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Metafields/Tables/ShpfyMetafield.Table.al b/Apps/W1/Shopify/app/src/Metafields/Tables/ShpfyMetafield.Table.al
new file mode 100644
index 0000000000..6e7955daa8
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Metafields/Tables/ShpfyMetafield.Table.al
@@ -0,0 +1,219 @@
+namespace Microsoft.Integration.Shopify;
+
+using Microsoft.Finance.GeneralLedger.Setup;
+
+///
+/// Table Shpfy Metafield (ID 30101).
+///
+table 30101 "Shpfy Metafield"
+{
+ Access = Internal;
+ Caption = 'Shopify Metafield';
+ DataClassification = CustomerContent;
+ DrillDownPageId = "Shpfy Metafields";
+ LookupPageId = "Shpfy Metafields";
+
+ fields
+ {
+ field(1; Id; BigInteger)
+ {
+ Caption = 'Id';
+ DataClassification = SystemMetadata;
+ Editable = false;
+ }
+
+#pragma warning disable AS0086 // false positive on extending the field length on internal table
+ field(2; Namespace; Text[255])
+ {
+ Caption = 'Namespace';
+ DataClassification = SystemMetadata;
+ }
+#pragma warning restore AS0086
+
+ field(3; "Owner Resource"; Text[50])
+ {
+ Caption = 'Owner Resource';
+ DataClassification = SystemMetadata;
+ ObsoleteState = Pending;
+ ObsoleteReason = 'Owner Resource is obsolete. Use Owner Type instead.';
+ ObsoleteTag = '25.0';
+
+ trigger OnValidate()
+ begin
+ case "Owner Resource" of
+ 'Customer':
+ Validate("Owner Type", "Owner Type"::Customer);
+ 'Product':
+ Validate("Owner Type", "Owner Type"::Product);
+ 'Variant':
+ Validate("Owner Type", "Owner Type"::ProductVariant);
+ end;
+ end;
+ }
+
+ field(4; "Owner Id"; BigInteger)
+ {
+ Caption = 'Owner Id';
+ DataClassification = SystemMetadata;
+ }
+
+#pragma warning disable AS0086 // false positive on extending the field length on internal table
+ field(5; Name; Text[64])
+ {
+ Caption = 'Key';
+ DataClassification = CustomerContent;
+ }
+#pragma warning restore AS0086
+
+ field(6; "Value Type"; Enum "Shpfy Metafield Value Type")
+ {
+ Caption = 'Value Type';
+ DataClassification = CustomerContent;
+ ObsoleteState = Pending;
+ ObsoleteReason = 'Value Type is obsolete in Shopify API. Use Type instead.';
+ ObsoleteTag = '25.0';
+ }
+
+#pragma warning disable AS0086 // false positive on extending the field length on internal table
+ field(7; Value; Text[2048])
+ {
+ Caption = 'Value';
+ DataClassification = CustomerContent;
+
+ trigger OnValidate()
+ var
+ ValueNotValidErr: Label 'The value is not valid for the type. Example value: ';
+ IMetafieldType: Interface "Shpfy IMetafield Type";
+ begin
+ IMetafieldType := Rec.Type;
+ if not IMetafieldType.IsValidValue(Value) then
+ Error(ErrorInfo.Create(ValueNotValidErr + IMetafieldType.GetExampleValue()));
+
+ if Rec.Type = Rec.Type::money then
+ CheckShopCurrency(Value);
+ end;
+ }
+#pragma warning restore AS0086
+ field(8; Type; Enum "Shpfy Metafield Type")
+ {
+ Caption = 'Type';
+ DataClassification = CustomerContent;
+ }
+ field(9; "Last Updated by BC"; DateTime)
+ {
+ Caption = 'Last Updated by BC';
+ DataClassification = SystemMetadata;
+ }
+ field(10; "Owner Type"; Enum "Shpfy Metafield Owner Type")
+ {
+ Caption = 'Owner Type';
+ DataClassification = SystemMetadata;
+
+ trigger OnValidate()
+ var
+ IMetafieldOwnerType: Interface "Shpfy IMetafield Owner Type";
+ begin
+ IMetafieldOwnerType := Rec."Owner Type";
+ "Parent Table No." := IMetafieldOwnerType.GetTableId();
+ end;
+ }
+
+ field(101; "Parent Table No."; Integer)
+ {
+ Caption = 'Parent Table No.';
+ DataClassification = SystemMetadata;
+ Editable = false;
+
+ trigger OnValidate()
+ begin
+ "Owner Type" := GetOwnerType("Parent Table No.");
+ end;
+ }
+ }
+
+ keys
+ {
+ key(PK; Id)
+ {
+ Clustered = true;
+ }
+ key(Idx1; "Parent Table No.", "Owner Id")
+ {
+ }
+ }
+
+ trigger OnInsert()
+ var
+ Metafield: Record "Shpfy Metafield";
+ begin
+ if Namespace = '' then
+ Namespace := 'Microsoft.Dynamics365.BusinessCentral';
+ if Id = 0 then
+ if Metafield.FindFirst() and (Metafield.Id < 0) then
+ Id := Metafield.Id - 1
+ else
+ Id := -1;
+ end;
+
+ trigger OnModify()
+ begin
+ "Last Updated by BC" := CurrentDateTime;
+ end;
+
+ ///
+ /// Get the owner type based on the resources's owner table number.
+ ///
+ /// The owning resource table number.
+ internal procedure GetOwnerType(ParentTableNo: Integer): Enum "Shpfy Metafield Owner Type"
+ begin
+ case ParentTableNo of
+ Database::"Shpfy Customer":
+ exit("Owner Type"::Customer);
+ Database::"Shpfy Product":
+ exit("Owner Type"::Product);
+ Database::"Shpfy Variant":
+ exit("Owner Type"::ProductVariant);
+ end;
+ end;
+
+ ///
+ /// Returns the name of the enum value for the owner type. Used when the full owner resource id needs to be built.
+ ///
+ /// The name of the owner type.
+ internal procedure GetOwnerTypeName(): Text
+ begin
+ exit("Owner Type".Names().Get("Owner Type".Ordinals().IndexOf("Owner Type".AsInteger())));
+ end;
+
+ local procedure CheckShopCurrency(MetafieldValue: Text[2048])
+ var
+ ShpfyMtfldTypeMoney: Codeunit "Shpfy Mtfld Type Money";
+ CurrencyCode: Code[10];
+ ShopCurrencyCode: Code[10];
+ Amount: Decimal;
+ CurrencyCodeMismatchErr: Label 'The currency code must match the shop currency code. Shop currency code: %1', Comment = '%1 - Shop currency code';
+ begin
+ ShopCurrencyCode := GetShopCurrencyCode();
+
+ ShpfyMtfldTypeMoney.TryExtractValues(MetafieldValue, Amount, CurrencyCode);
+ if CurrencyCode <> ShopCurrencyCode then
+ Error(ErrorInfo.Create(StrSubstNo(CurrencyCodeMismatchErr, ShopCurrencyCode)));
+ end;
+
+ local procedure GetShopCurrencyCode(): Code[10]
+ var
+ GeneralLedgerSetup: Record "General Ledger Setup";
+ Shop: Record "Shpfy Shop";
+ IMetafieldOwnerType: Interface "Shpfy IMetafield Owner Type";
+ begin
+ IMetafieldOwnerType := Rec."Owner Type";
+ Shop.Get(IMetafieldOwnerType.GetShopCode(Rec."Owner Id"));
+
+ if Shop."Currency Code" <> '' then
+ exit(Shop."Currency Code")
+ else begin
+ GeneralLedgerSetup.Get();
+ exit(GeneralLedgerSetup."LCY Code");
+ end;
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Order handling/Codeunits/ShpfyImportOrder.Codeunit.al b/Apps/W1/Shopify/app/src/Order handling/Codeunits/ShpfyImportOrder.Codeunit.al
index b8790ab1bd..c4e67f7c00 100644
--- a/Apps/W1/Shopify/app/src/Order handling/Codeunits/ShpfyImportOrder.Codeunit.al
+++ b/Apps/W1/Shopify/app/src/Order handling/Codeunits/ShpfyImportOrder.Codeunit.al
@@ -116,6 +116,22 @@ codeunit 30161 "Shpfy Import Order"
if CheckToCloseOrder(OrderHeader) then
CloseOrder(OrderHeader);
+
+ if ShopifyInvoiceExists(OrderHeader) then
+ MarkAsProcessed(OrderHeader);
+ end;
+
+ local procedure ShopifyInvoiceExists(OrderHeader: Record "Shpfy Order Header"): Boolean
+ var
+ ShpfyInvoiceHeader: Record "Shpfy Invoice Header";
+ begin
+ exit(ShpfyInvoiceHeader.Get(OrderHeader."Shopify Order Id"));
+ end;
+
+ local procedure MarkAsProcessed(OrderHeader: Record "Shpfy Order Header")
+ begin
+ OrderHeader.Validate(Processed, true);
+ OrderHeader.Modify()
end;
local procedure InsertOrderLinesAndRelatedRecords(var TempOrderLine: Record "Shpfy Order Line" temporary; var DataCaptureDict: Dictionary of [BigInteger, JsonToken]; var Redundancy: Integer)
@@ -495,13 +511,15 @@ codeunit 30161 "Shpfy Import Order"
JsonHelper.GetValueIntoField(JOrder, 'totalTipReceivedSet.presentmentMoney.amount', OrderHeaderRecordRef, OrderHeader.FieldNo("Presentment Total Tip Received"));
JsonHelper.GetValueIntoField(JOrder, 'totalTaxSet.shopMoney.amount', OrderHeaderRecordRef, OrderHeader.FieldNo("VAT Amount"));
JsonHelper.GetValueIntoField(JOrder, 'totalTaxSet.presentmentMoney.amount', OrderHeaderRecordRef, OrderHeader.FieldNo("Presentment VAT Amount"));
- JsonHelper.GetValueIntoField(JOrder, 'totalDiscountsSet.shopMoney.amount', OrderHeaderRecordRef, OrderHeader.FieldNo("Discount Amount"));
- JsonHelper.GetValueIntoField(JOrder, 'totalDiscountsSet.presentmentMoney.amount', OrderHeaderRecordRef, OrderHeader.FieldNo("Presentment Discount Amount"));
+ JsonHelper.GetValueIntoField(JOrder, 'currentTotalDiscountsSet.shopMoney.amount', OrderHeaderRecordRef, OrderHeader.FieldNo("Discount Amount"));
+ JsonHelper.GetValueIntoField(JOrder, 'currentTotalDiscountsSet.presentmentMoney.amount', OrderHeaderRecordRef, OrderHeader.FieldNo("Presentment Discount Amount"));
JsonHelper.GetValueIntoField(JOrder, 'totalShippingPriceSet.shopMoney.amount', OrderHeaderRecordRef, OrderHeader.FieldNo("Shipping Charges Amount"));
JsonHelper.GetValueIntoField(JOrder, 'totalShippingPriceSet.presentmentMoney.amount', OrderHeaderRecordRef, OrderHeader.FieldNo("Pres. Shipping Charges Amount"));
JsonHelper.GetValueIntoField(JOrder, 'currentTotalPriceSet.shopMoney.amount', OrderHeaderRecordRef, OrderHeader.FieldNo("Current Total Amount"));
JsonHelper.GetValueIntoField(JOrder, 'currentSubtotalLineItemsQuantity', OrderHeaderRecordRef, OrderHeader.FieldNo("Current Total Items Quantity"));
JsonHelper.GetValueIntoField(Jorder, 'poNumber', OrderHeaderRecordRef, OrderHeader.FieldNo("PO Number"));
+ JsonHelper.GetValueIntoField(JOrder, 'paymentTerms.paymentTermsType', OrderHeaderRecordRef, OrderHeader.FieldNo("Payment Terms Type"));
+ JsonHelper.GetValueIntoField(JOrder, 'paymentTerms.paymentTermsName', OrderHeaderRecordRef, OrderHeader.FieldNo("Payment Terms Name"));
OrderHeaderRecordRef.SetTable(OrderHeader);
if JsonHelper.GetJsonObject(JOrder, JObject, 'purchasingEntity') then
if JsonHelper.GetJsonObject(JOrder, JObject, 'purchasingEntity.company') then
@@ -620,7 +638,7 @@ codeunit 30161 "Shpfy Import Order"
OrderAttribute.Value := CopyStr(JsonHelper.GetValueAsText(JToken, 'value', MaxStrLen(OrderAttribute.Value)), 1, MaxStrLen(OrderAttribute.Value))
else
#endif
- OrderAttribute."Attribute Value" := CopyStr(JsonHelper.GetValueAsText(JToken, 'value', MaxStrLen(OrderAttribute."Attribute Value")), 1, MaxStrLen(OrderAttribute."Attribute Value"));
+ OrderAttribute."Attribute Value" := CopyStr(JsonHelper.GetValueAsText(JToken, 'value', MaxStrLen(OrderAttribute."Attribute Value")), 1, MaxStrLen(OrderAttribute."Attribute Value"));
OrderAttribute.Insert();
end;
end;
@@ -632,7 +650,7 @@ codeunit 30161 "Shpfy Import Order"
begin
OrderLineAttribute.SetRange("Order Id", ShopifyOrderId);
OrderLineAttribute.SetRange("Order Line Id", OrderLineId);
- if not OrderLineAttribute.IsEmpty then
+ if not OrderLineAttribute.IsEmpty() then
OrderLineAttribute.DeleteAll();
foreach JToken in JCustomAttributtes do begin
Clear(OrderLineAttribute);
@@ -723,7 +741,7 @@ codeunit 30161 "Shpfy Import Order"
JToken: JsonToken;
begin
OrderTaxLine.SetRange("Parent Id", ParentId);
- if not OrderTaxLine.IsEmpty then
+ if not OrderTaxLine.IsEmpty() then
OrderTaxLine.DeleteAll();
foreach JToken in JTaxLines do begin
RecordRef.Open(Database::"Shpfy Order Tax Line");
diff --git a/Apps/W1/Shopify/app/src/Order handling/Codeunits/ShpfyProcessOrder.Codeunit.al b/Apps/W1/Shopify/app/src/Order handling/Codeunits/ShpfyProcessOrder.Codeunit.al
index c2dadeb483..2d027d83bb 100644
--- a/Apps/W1/Shopify/app/src/Order handling/Codeunits/ShpfyProcessOrder.Codeunit.al
+++ b/Apps/W1/Shopify/app/src/Order handling/Codeunits/ShpfyProcessOrder.Codeunit.al
@@ -125,6 +125,8 @@ codeunit 30166 "Shpfy Process Order"
end;
if ShopifyOrderHeader."Payment Method Code" <> '' then
SalesHeader.Validate("Payment Method Code", ShopifyOrderHeader."Payment Method Code");
+ if ShopifyOrderHeader."Payment Terms Type" <> '' then
+ UpdatePaymentTerms(SalesHeader, ShopifyOrderHeader."Payment Terms Type", ShopifyOrderHeader."Payment Terms Name");
SalesHeader.Modify(true);
@@ -148,6 +150,17 @@ codeunit 30166 "Shpfy Process Order"
OrderEvents.OnAfterCreateSalesHeader(ShopifyOrderHeader, SalesHeader);
end;
+ local procedure UpdatePaymentTerms(var SalesHeader: Record "Sales Header"; PaymentTermsType: Code[20]; PaymentTermsName: Text[50])
+ var
+ ShpfyPaymentTerms: Record "Shpfy Payment Terms";
+ begin
+ ShpfyPaymentTerms.SetRange(Type, PaymentTermsType);
+ ShpfyPaymentTerms.SetRange("Shop Code", ShopifyShop.Code);
+ ShpfyPaymentTerms.SetRange(Name, PaymentTermsName);
+ if ShpfyPaymentTerms.FindFirst() then
+ SalesHeader.Validate("Payment Terms Code", ShpfyPaymentTerms."Payment Terms Code");
+ end;
+
local procedure ApplyGlobalDiscounts(OrderHeader: Record "Shpfy Order Header"; var SalesHeader: Record "Sales Header")
var
OrderLine: Record "Shpfy Order Line";
diff --git a/Apps/W1/Shopify/app/src/Order handling/Tables/ShpfyOrderHeader.Table.al b/Apps/W1/Shopify/app/src/Order handling/Tables/ShpfyOrderHeader.Table.al
index e31860f410..3e54e0be84 100644
--- a/Apps/W1/Shopify/app/src/Order handling/Tables/ShpfyOrderHeader.Table.al
+++ b/Apps/W1/Shopify/app/src/Order handling/Tables/ShpfyOrderHeader.Table.al
@@ -751,6 +751,16 @@ table 30118 "Shpfy Order Header"
Caption = 'Shipping Agent Service Code';
TableRelation = "Shipping Agent Services".Code where("Shipping Agent Code" = field("Shipping Agent Code"));
}
+ field(1030; "Payment Terms Type"; Code[20])
+ {
+ DataClassification = CustomerContent;
+ Caption = 'Payment Terms Type';
+ }
+ field(1040; "Payment Terms Name"; Text[50])
+ {
+ DataClassification = CustomerContent;
+ Caption = 'Payment Terms Name';
+ }
}
keys
{
diff --git a/Apps/W1/Shopify/app/src/Payments/Codeunits/ShpfyPaymentTermsAPI.Codeunit.al b/Apps/W1/Shopify/app/src/Payments/Codeunits/ShpfyPaymentTermsAPI.Codeunit.al
new file mode 100644
index 0000000000..143c9b5e5d
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Payments/Codeunits/ShpfyPaymentTermsAPI.Codeunit.al
@@ -0,0 +1,85 @@
+namespace Microsoft.Integration.Shopify;
+
+///
+/// Codeunit Shpfy Payment Terms API (ID 30360).
+///
+codeunit 30360 "Shpfy Payment Terms API"
+{
+ Access = Internal;
+
+ var
+ CommunicationMgt: Codeunit "Shpfy Communication Mgt.";
+ JsonHelper: Codeunit "Shpfy Json Helper";
+ ShopCode: Code[20];
+
+ ///
+ /// Synchronizes payment terms from shopify, ensuring that the payment terms are up-to-date with those defined in the shopify store.
+ ///
+ /// Shopify shop code to be used.
+ internal procedure PullPaymentTermsCodes()
+ var
+ GraphQLType: Enum "Shpfy GraphQL Type";
+ JTemplates: JsonArray;
+ JTemplate: JsonToken;
+ JResponse: JsonToken;
+ begin
+ GraphQLType := GraphQLType::GetPaymentTerms;
+ JResponse := CommunicationMgt.ExecuteGraphQL(GraphQLType);
+
+ JsonHelper.GetJsonArray(JResponse, JTemplates, 'data.paymentTermsTemplates');
+ foreach JTemplate in JTemplates do
+ UpdatePaymentTerms(JTemplate);
+ end;
+
+ ///
+ /// Sets a global shopify shop to be used form payment terms api functionality.
+ ///
+ /// Shopify shop code to be set.
+ internal procedure SetShop(NewShopCode: Code[20])
+ begin
+ ShopCode := NewShopCode;
+ CommunicationMgt.SetShop(NewShopCode);
+ end;
+
+ local procedure UpdatePaymentTerms(JTemplate: JsonToken)
+ var
+ ShpfyPaymentTerms: Record "Shpfy Payment Terms";
+ PaymentTermRecordRef: RecordRef;
+ Id: BigInteger;
+ IsNew: Boolean;
+ begin
+ Id := CommunicationMgt.GetIdOfGId(JsonHelper.GetValueAsText(JTemplate, 'id'));
+ IsNew := not ShpfyPaymentTerms.Get(ShopCode, Id);
+
+ if IsNew then begin
+ Clear(ShpfyPaymentTerms);
+ ShpfyPaymentTerms.Id := Id;
+ ShpfyPaymentTerms."Shop Code" := ShopCode;
+ end;
+
+ PaymentTermRecordRef.GetTable(ShpfyPaymentTerms);
+ JsonHelper.GetValueIntoField(JTemplate, 'name', PaymentTermRecordRef, ShpfyPaymentTerms.FieldNo(Name));
+ JsonHelper.GetValueIntoField(JTemplate, 'paymentTermsType', PaymentTermRecordRef, ShpfyPaymentTerms.FieldNo(Type));
+ JsonHelper.GetValueIntoField(JTemplate, 'dueInDays', PaymentTermRecordRef, ShpfyPaymentTerms.FieldNo("Due In Days"));
+ JsonHelper.GetValueIntoField(JTemplate, 'description', PaymentTermRecordRef, ShpfyPaymentTerms.FieldNo(Description));
+ PaymentTermRecordRef.SetTable(ShpfyPaymentTerms);
+
+ if ShpfyPaymentTerms.Type = 'FIXED' then
+ if ShouldBeMarkedAsPrimary() then
+ ShpfyPaymentTerms.Validate("Is Primary", true);
+
+ if IsNew then
+ ShpfyPaymentTerms.Insert(true)
+ else
+ ShpfyPaymentTerms.Modify(true);
+ end;
+
+ local procedure ShouldBeMarkedAsPrimary(): Boolean
+ var
+ ShpfyPaymentTerms: Record "Shpfy Payment Terms";
+ begin
+ ShpfyPaymentTerms.SetRange("Shop Code", ShopCode);
+ ShpfyPaymentTerms.SetRange("Is Primary", true);
+ exit(ShpfyPaymentTerms.IsEmpty());
+ end;
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Payments/Pages/ShpfyPaymentTermsMapping.Page.al b/Apps/W1/Shopify/app/src/Payments/Pages/ShpfyPaymentTermsMapping.Page.al
new file mode 100644
index 0000000000..bcf888a04d
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Payments/Pages/ShpfyPaymentTermsMapping.Page.al
@@ -0,0 +1,75 @@
+namespace Microsoft.Integration.Shopify;
+
+///
+/// Page Shpfy Payment Terms Mapping (ID 30162).
+///
+page 30162 "Shpfy Payment Terms Mapping"
+{
+ PageType = List;
+ ApplicationArea = All;
+ UsageCategory = Lists;
+ SourceTable = "Shpfy Payment Terms";
+ Caption = 'Shopify Payment Terms Mapping';
+
+ layout
+ {
+ area(Content)
+ {
+ repeater(General)
+ {
+ field(Type; Rec.Type)
+ {
+ ToolTip = 'Specifies the value of the Type field.';
+ }
+ field(Name; Rec.Name)
+ {
+ ToolTip = 'Specifies the value of the Name field.';
+ }
+ field(Description; Rec.Description)
+ {
+ ToolTip = 'Specifies the value of the Description field.';
+ }
+ field("Payment Terms Code"; Rec."Payment Terms Code")
+ {
+ ToolTip = 'Specifies the value of the Payment Terms Code field.';
+ }
+ field("Is Primary"; Rec."Is Primary")
+ {
+ ToolTip = 'Specifies the value of the Is Primary field.';
+ }
+ }
+ }
+ }
+
+ actions
+ {
+ area(Promoted)
+ {
+ group(Category_Process)
+ {
+ Caption = 'Process';
+ ShowAs = Standard;
+
+ actionref(PromotedRefresh; Refresh) { }
+ }
+ }
+ area(Processing)
+ {
+ action(Refresh)
+ {
+ ApplicationArea = All;
+ Caption = 'Refresh';
+ Image = Refresh;
+ ToolTip = 'Refreshes the list of Shopify Payment Terms.';
+
+ trigger OnAction()
+ var
+ ShpfyPaymentTermAPI: Codeunit "Shpfy Payment Terms API";
+ begin
+ ShpfyPaymentTermAPI.SetShop(CopyStr(Rec.GetFilter("Shop Code"), 1, 20));
+ ShpfyPaymentTermAPI.PullPaymentTermsCodes();
+ end;
+ }
+ }
+ }
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Payments/Tables/ShpfyPaymentTerms.Table.al b/Apps/W1/Shopify/app/src/Payments/Tables/ShpfyPaymentTerms.Table.al
new file mode 100644
index 0000000000..fffe926394
--- /dev/null
+++ b/Apps/W1/Shopify/app/src/Payments/Tables/ShpfyPaymentTerms.Table.al
@@ -0,0 +1,78 @@
+namespace Microsoft.Integration.Shopify;
+
+using Microsoft.Foundation.PaymentTerms;
+
+///
+/// Table Shpfy Payment Terms (ID 30158).
+///
+table 30158 "Shpfy Payment Terms"
+{
+ Caption = 'Payment Terms';
+ DataClassification = CustomerContent;
+ Access = Internal;
+
+ fields
+ {
+ field(1; "Shop Code"; Code[20])
+ {
+ Caption = 'Shop Code';
+ TableRelation = "Shpfy Shop";
+ Editable = false;
+ }
+ field(2; Id; BigInteger)
+ {
+ Caption = 'ID';
+ Editable = false;
+ }
+ field(20; Name; Text[50])
+ {
+ Caption = 'Name';
+ Editable = false;
+ }
+ field(30; "Due In Days"; Integer)
+ {
+ Caption = 'Due In Days';
+ Editable = false;
+ }
+ field(40; Description; Text[50])
+ {
+ Caption = 'Description';
+ Editable = false;
+ }
+ field(50; Type; Code[20])
+ {
+ Caption = 'Type';
+ Editable = false;
+ }
+ field(60; "Is Primary"; Boolean)
+ {
+ Caption = 'Is Primary';
+
+ trigger OnValidate()
+ var
+ ShpfyPaymentTerms: Record "Shpfy Payment Terms";
+ PrimaryPaymentTermsExistsErr: Label 'Primary payment terms already exist for this shop.';
+ begin
+ ShpfyPaymentTerms.SetRange("Shop Code", Rec."Shop Code");
+ ShpfyPaymentTerms.SetRange("Is Primary", true);
+ ShpfyPaymentTerms.SetFilter(Id, '<>%1', Rec.Id);
+
+ if not ShpfyPaymentTerms.IsEmpty() then
+ Error(PrimaryPaymentTermsExistsErr);
+ end;
+ }
+ field(70; "Payment Terms Code"; Code[10])
+ {
+ TableRelation = "Payment Terms";
+ Caption = 'Payment Terms Code';
+ }
+ }
+
+ keys
+ {
+ key(PK; "Shop Code", Id)
+ {
+ Clustered = true;
+ }
+ }
+}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/PermissionSets/ShpfyEdit.PermissionSet.al b/Apps/W1/Shopify/app/src/PermissionSets/ShpfyEdit.PermissionSet.al
index 20ab6069b9..d8296da1f9 100644
--- a/Apps/W1/Shopify/app/src/PermissionSets/ShpfyEdit.PermissionSet.al
+++ b/Apps/W1/Shopify/app/src/PermissionSets/ShpfyEdit.PermissionSet.al
@@ -32,6 +32,8 @@ permissionset 30102 "Shpfy - Edit"
tabledata "Shpfy Gift Card" = IMD,
tabledata "Shpfy Initial Import Line" = imd,
tabledata "Shpfy Inventory Item" = IMD,
+ tabledata "Shpfy Invoice Header" = IMD,
+ tabledata "Shpfy Language" = IMD,
tabledata "Shpfy Log Entry" = IMD,
tabledata "Shpfy Metafield" = IMD,
tabledata "Shpfy Refund Header" = IMD,
@@ -51,6 +53,7 @@ permissionset 30102 "Shpfy - Edit"
tabledata "Shpfy Order Tax Line" = IMD,
tabledata "Shpfy Order Transaction" = IMD,
tabledata "Shpfy Payment Method Mapping" = IMD,
+ tabledata "Shpfy Payment Terms" = IMD,
tabledata "Shpfy Payment Transaction" = IMD,
tabledata "Shpfy Payout" = IMD,
tabledata "Shpfy Product" = IMD,
@@ -64,5 +67,6 @@ permissionset 30102 "Shpfy - Edit"
tabledata "Shpfy Tag" = IMD,
tabledata "Shpfy Tax Area" = IMD,
tabledata "Shpfy Transaction Gateway" = IMD,
+ tabledata "Shpfy Translation" = IMD,
tabledata "Shpfy Variant" = IMD;
}
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/PermissionSets/ShpfyObjects.PermissionSet.al b/Apps/W1/Shopify/app/src/PermissionSets/ShpfyObjects.PermissionSet.al
index 21ac49f7ad..470c20c8bc 100644
--- a/Apps/W1/Shopify/app/src/PermissionSets/ShpfyObjects.PermissionSet.al
+++ b/Apps/W1/Shopify/app/src/PermissionSets/ShpfyObjects.PermissionSet.al
@@ -61,6 +61,7 @@ permissionset 30104 "Shpfy - Objects"
table "Shpfy Synchronization Info" = X,
table "Shpfy Tag" = X,
table "Shpfy Tax Area" = X,
+ table "Shpfy Translation" = X,
table "Shpfy Transaction Gateway" = X,
table "Shpfy Variant" = X,
report "Shpfy Add Company to Shopify" = X,
@@ -114,6 +115,8 @@ permissionset 30104 "Shpfy - Objects"
codeunit "Shpfy Create Sales Doc. Refund" = X,
codeunit "Shpfy CreateProdStatusActive" = X,
codeunit "Shpfy CreateProdStatusDraft" = X,
+ codeunit "Shpfy Create Transl. Product" = X,
+ codeunit "Shpfy Create Transl. Variant" = X,
codeunit "Shpfy Cust. By Bill-to" = X,
codeunit "Shpfy Cust. By Default Cust." = X,
codeunit "Shpfy Cust. By Email/Phone" = X,
@@ -161,6 +164,7 @@ permissionset 30104 "Shpfy - Objects"
codeunit "Shpfy GQL LocationOrderLines" = X,
codeunit "Shpfy GQL Locations" = X,
codeunit "Shpfy GQL MarkOrderAsPaid" = X,
+ codeunit "Shpfy GQL MetafieldsSet" = X,
codeunit "Shpfy GQL Modify Inventory" = X,
codeunit "Shpfy GQL Next Locations" = X,
codeunit "Shpfy GQL NextAllCustomerIds" = X,
@@ -198,17 +202,22 @@ permissionset 30104 "Shpfy - Objects"
codeunit "Shpfy GQL ProductById" = X,
codeunit "Shpfy GQL ProductIds" = X,
codeunit "Shpfy GQL ProductImages" = X,
+ codeunit "Shpfy GQL ProductMetafieldIds" = X,
codeunit "Shpfy GQL RefundHeader" = X,
codeunit "Shpfy GQL RefundLines" = X,
codeunit "Shpfy GQL ReturnHeader" = X,
codeunit "Shpfy GQL ReturnLines" = X,
codeunit "Shpfy GQL ShipmentLines" = X,
+ codeunit "Shpfy GQL ShopLocales" = X,
+ codeunit "Shpfy GQL TranslationsRegister" = X,
+ codeunit "Shpfy GQL TranslResource" = X,
codeunit "Shpfy GQL UpdateCatalogPrices" = X,
codeunit "Shpfy GQL UpdateOrderAttr" = X,
codeunit "Shpfy GQL UpdateProductImage" = X,
codeunit "Shpfy GQL VariantById" = X,
codeunit "Shpfy GQL VariantIds" = X,
codeunit "Shpfy GQL VariantImages" = X,
+ codeunit "Shpfy GQL VariantMetafieldIds" = X,
codeunit "Shpfy GraphQL Queries" = X,
codeunit "Shpfy GraphQL Rate Limit" = X,
codeunit "Shpfy Guided Experience" = X,
@@ -227,6 +236,33 @@ permissionset 30104 "Shpfy - Objects"
codeunit "Shpfy Json Helper" = X,
codeunit "Shpfy Log Entries Delete" = X,
codeunit "Shpfy Math" = X,
+ codeunit "Shpfy Metafield API" = X,
+ codeunit "Shpfy Metafield Owner Customer" = X,
+ codeunit "Shpfy Metafield Owner Product" = X,
+ codeunit "Shpfy Metafield Owner Variant" = X,
+ codeunit "Shpfy Mtfld Type Boolean" = X,
+ codeunit "Shpfy Mtfld Type Collect. Ref" = X,
+ codeunit "Shpfy Mtfld Type Color" = X,
+ codeunit "Shpfy Mtfld Type Date" = X,
+ codeunit "Shpfy Mtfld Type DateTime" = X,
+ codeunit "Shpfy Mtfld Type Dimension" = X,
+ codeunit "Shpfy Mtfld Type File Ref" = X,
+ codeunit "Shpfy Mtfld Type Integer" = X,
+ codeunit "Shpfy Mtfld Type Json" = X,
+ codeunit "Shpfy Mtfld Type Metaobj. Ref" = X,
+ codeunit "Shpfy Mtfld Type Mixed Ref" = X,
+ codeunit "Shpfy Mtfld Type Money" = X,
+ codeunit "Shpfy Mtfld Type Multi Text" = X,
+ codeunit "Shpfy Mtfld Type Num Decimal" = X,
+ codeunit "Shpfy Mtfld Type Num Integer" = X,
+ codeunit "Shpfy Mtfld Type Page Ref" = X,
+ codeunit "Shpfy Mtfld Type Product Ref" = X,
+ codeunit "Shpfy Mtfld Type Single Text" = X,
+ codeunit "Shpfy Mtfld Type String" = X,
+ codeunit "Shpfy Mtfld Type Url" = X,
+ codeunit "Shpfy Mtfld Type Variant Ref" = X,
+ codeunit "Shpfy Mtfld Type Volume" = X,
+ codeunit "Shpfy Mtfld Type Weight" = X,
codeunit "Shpfy Name is CompanyName" = X,
codeunit "Shpfy Name is Empty" = X,
codeunit "Shpfy Name is First. LastName" = X,
@@ -285,6 +321,8 @@ permissionset 30104 "Shpfy - Objects"
codeunit "Shpfy Sync Shop Locations" = X,
codeunit "Shpfy ToArchivedProduct" = X,
codeunit "Shpfy ToDraftProduct" = X,
+ codeunit "Shpfy Translation API" = X,
+ codeunit "Shpfy Translation Mgt." = X,
codeunit "Shpfy Transactions" = X,
codeunit "Shpfy Update Customer" = X,
codeunit "Shpfy Update Item" = X,
@@ -321,6 +359,8 @@ permissionset 30104 "Shpfy - Objects"
page "Shpfy Log Entries" = X,
page "Shpfy Log Entry Card" = X,
page "Shpfy Main Contact Factbox" = X,
+ page "Shpfy Metafield Assist Edit" = X,
+ page "Shpfy Metafields" = X,
page "Shpfy Order" = X,
page "Shpfy Order Attributes" = X,
page "Shpfy Order Fulfillment" = X,
@@ -352,6 +392,7 @@ permissionset 30104 "Shpfy - Objects"
page "Shpfy Tag Factbox" = X,
page "Shpfy Tags" = X,
page "Shpfy Tax Areas" = X,
+ page "Shpfy Languages" = X,
page "Shpfy Transaction Gateways" = X,
page "Shpfy Transactions" = X,
page "Shpfy Variants" = X,
diff --git a/Apps/W1/Shopify/app/src/PermissionSets/ShpfyRead.PermissionSet.al b/Apps/W1/Shopify/app/src/PermissionSets/ShpfyRead.PermissionSet.al
index e93a734675..2fab53a2b8 100644
--- a/Apps/W1/Shopify/app/src/PermissionSets/ShpfyRead.PermissionSet.al
+++ b/Apps/W1/Shopify/app/src/PermissionSets/ShpfyRead.PermissionSet.al
@@ -32,6 +32,8 @@ permissionset 30100 "Shpfy - Read"
tabledata "Shpfy Gift Card" = R,
tabledata "Shpfy Initial Import Line" = r,
tabledata "Shpfy Inventory Item" = R,
+ tabledata "Shpfy Invoice Header" = R,
+ tabledata "Shpfy Language" = R,
tabledata "Shpfy Log Entry" = R,
tabledata "Shpfy Metafield" = R,
tabledata "Shpfy Order Attribute" = R,
@@ -47,6 +49,7 @@ permissionset 30100 "Shpfy - Read"
tabledata "Shpfy Order Tax Line" = R,
tabledata "Shpfy Order Transaction" = R,
tabledata "Shpfy Payment Method Mapping" = R,
+ tabledata "Shpfy Payment Terms" = R,
tabledata "Shpfy Payment Transaction" = R,
tabledata "Shpfy Payout" = R,
tabledata "Shpfy Product" = R,
@@ -64,6 +67,7 @@ permissionset 30100 "Shpfy - Read"
tabledata "Shpfy Tag" = R,
tabledata "Shpfy Tax Area" = R,
tabledata "Shpfy Transaction Gateway" = R,
+ tabledata "Shpfy Translation" = R,
tabledata "Shpfy Variant" = R;
}
#pragma warning restore AS0090, AS0049
\ No newline at end of file
diff --git a/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductAPI.Codeunit.al b/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductAPI.Codeunit.al
index 3878464a4b..2ae6043bf5 100644
--- a/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductAPI.Codeunit.al
+++ b/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductAPI.Codeunit.al
@@ -564,7 +564,9 @@ codeunit 30176 "Shpfy Product API"
/// Return variable "Result" of type Boolean.
internal procedure UpdateShopifyProductFields(var ShopifyProduct: record "Shpfy Product"; JProduct: JsonObject) Result: Boolean
var
+ MetafieldAPI: Codeunit "Shpfy Metafield API";
UpdatedAt: DateTime;
+ JMetafields: JsonArray;
begin
UpdatedAt := JsonHelper.GetValueAsDateTime(JProduct, 'updatedAt');
if UpdatedAt < ShopifyProduct."Updated At" then
@@ -584,7 +586,7 @@ codeunit 30176 "Shpfy Product API"
ShopifyProduct."Product Type" := JsonHelper.GetValueAsText(JProduct, 'productType', MaxStrLen(ShopifyProduct."Product Type"));
#pragma warning restore AA0139
ShopifyProduct.UpdateTags(JsonHelper.GetArrayAsText(JProduct, 'tags'));
-#pragma warning disable AA0139
+#pragma warning disable AA0139
ShopifyProduct.Title := JsonHelper.GetValueAsText(JProduct, 'title', MaxStrLen(ShopifyProduct.Title));
ShopifyProduct.Vendor := JsonHelper.GetValueAsText(JProduct, 'vendor', MaxStrLen(ShopifyProduct.Vendor));
ShopifyProduct."SEO Description" := JsonHelper.GetValueAsText(JProduct, 'seo.description', MaxStrLen(ShopifyProduct."SEO Description"));
@@ -592,8 +594,10 @@ codeunit 30176 "Shpfy Product API"
#pragma warning restore AA0139
ShopifyProduct.Status := ConvertToProductStatus(JsonHelper.GetValueAsText(JProduct, 'status'));
ShopifyProduct.Modify(false);
- end;
+ if JsonHelper.GetJsonArray(JProduct, JMetafields, 'metafields.edges') then
+ MetafieldAPI.UpdateMetafieldsFromShopify(JMetafields, Database::"Shpfy Product", ShopifyProduct.Id);
+ end;
local procedure ConvertToProductStatus(Value: Text): Enum "Shpfy Product Status"
begin
diff --git a/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductEvents.Codeunit.al b/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductEvents.Codeunit.al
index 3c04a9b6d6..9af1e943cb 100644
--- a/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductEvents.Codeunit.al
+++ b/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductEvents.Codeunit.al
@@ -61,8 +61,9 @@ codeunit 30177 "Shpfy Product Events"
/// Parameter of type Code[20].
/// Parameter of type Record "Shopify Shop".
/// Parameter of type Text.
+ /// Parameter of type Code[10].
[IntegrationEvent(false, false)]
- internal procedure OnAfterCreateProductBodyHtml(ItemNo: Code[20]; ShopifyShop: Record "Shpfy Shop"; var ProductBodyHtml: Text)
+ internal procedure OnAfterCreateProductBodyHtml(ItemNo: Code[20]; ShopifyShop: Record "Shpfy Shop"; var ProductBodyHtml: Text; LanguageCode: Code[10])
begin
end;
@@ -145,8 +146,9 @@ codeunit 30177 "Shpfy Product Events"
/// Parameter of type Record "Shopify Shop".
/// Parameter of type Text.
/// Parameter of type Boolean.
+ /// Parameter of type Code[10].
[IntegrationEvent(false, false)]
- internal procedure OnBeforeCreateProductBodyHtml(ItemNo: Code[20]; ShopifyShop: Record "Shpfy Shop"; var ProductBodyHtml: Text; var Handled: Boolean)
+ internal procedure OnBeforeCreateProductBodyHtml(ItemNo: Code[20]; ShopifyShop: Record "Shpfy Shop"; var ProductBodyHtml: Text; var Handled: Boolean; LanguageCode: Code[10])
begin
end;
diff --git a/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductExport.Codeunit.al b/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductExport.Codeunit.al
index 213e7e7286..c1584e0aa7 100644
--- a/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductExport.Codeunit.al
+++ b/Apps/W1/Shopify/app/src/Products/Codeunits/ShpfyProductExport.Codeunit.al
@@ -66,126 +66,139 @@ codeunit 30178 "Shpfy Product Export"
GraphQueryList: List of [TextBuilder];
///
- /// Create Product Body.
+ /// Creates html body for a product from extended text, marketing text and attributes.
///
- /// Parameter of type Code[20].
- /// Return variable "ProductBodyHtml" of type Text.
- local procedure CreateProductBody(ItemNo: Code[20]) ProductBodyHtml: Text
+ /// Item number.
+ /// Language code to look for translations.
+ /// Product body html.
+ internal procedure CreateProductBody(ItemNo: Code[20]; LanguageCode: Code[10]) ProductBodyHtml: Text
var
Item: Record Item;
- ExtendedTextHeader: Record "Extended Text Header";
- ExtendedTextLine: Record "Extended Text Line";
- ItemAttrValueTranslation: Record "Item Attr. Value Translation";
- ItemAttribute: Record "Item Attribute";
- ItemAttributeTranslation: Record "Item Attribute Translation";
- ItemAttributeValue: Record "Item Attribute Value";
- ItemAttributeValueMapping: Record "Item Attribute Value Mapping";
- Translator: Report "Shpfy Translator";
EntityText: Codeunit "Entity Text";
EntityTextScenario: Enum "Entity Text Scenario";
IsHandled: Boolean;
MarketingText: Text;
Result: TextBuilder;
begin
- ProductEvents.OnBeforeCreateProductBodyHtml(ItemNo, Shop, ProductBodyHtml, IsHandled);
+ ProductEvents.OnBeforeCreateProductBodyHtml(ItemNo, Shop, ProductBodyHtml, IsHandled, LanguageCode);
if not IsHandled then begin
- if Shop."Sync Item Extended Text" then begin
- ExtendedTextHeader.SetRange("Table Name", ExtendedTextHeader."Table Name"::Item);
- ExtendedTextHeader.SetRange("No.", ItemNo);
- ExtendedTextHeader.SetFilter("Language Code", '%1|%2', '', Shop."Language Code");
- ExtendedTextHeader.SetRange("Starting Date", 0D, Today());
- ExtendedTextHeader.SetFilter("Ending Date", '%1|%2..', 0D, Today());
- if ExtendedTextHeader.FindSet() then begin
- result.Append('');
- repeat
- if (ExtendedTextHeader."Language Code" = Shop."Language Code") or ExtendedTextHeader."All Language Codes" then begin
- ExtendedTextLine.SetRange("Table Name", ExtendedTextHeader."Table Name");
- ExtendedTextLine.SetRange("No.", ExtendedTextHeader."No.");
- ExtendedTextLine.SetRange("Language Code", ExtendedTextHeader."Language Code");
- ExtendedTextLine.SetRange("Text No.", ExtendedTextHeader."Text No.");
- if ExtendedTextLine.FindSet() then begin
- Result.Append(' ');
- repeat
- Result.Append(ExtendedTextLine.Text);
- if strlen(ExtendedTextLine.Text) > 0 then
- case ExtendedTextLine.Text[StrLen(ExtendedTextLine.Text)] of
- '.', '?', '!', ':':
- begin
- Result.Append('
');
- Result.Append(' ');
- end;
- '/':
- ;
- else
- Result.Append(' ');
- end
- else begin
- Result.Append('
');
- Result.Append(' ');
- end;
- until ExtendedTextLine.Next() = 0;
- end;
- end;
- until ExtendedTextHeader.Next() = 0;
- result.Append('
');
- Result.Append('
');
- end;
- end;
+ if Shop."Sync Item Extended Text" then
+ AddExtendTextHtml(ItemNo, Result, LanguageCode);
if Shop."Sync Item Marketing Text" then
- if Item.Get(ItemNo) then begin
- MarketingText := EntityText.GetText(Database::Item, Item.SystemId, EntityTextScenario::"Marketing Text");
- if MarketingText <> '' then begin
- Result.Append('');
- Result.Append(MarketingText);
- Result.Append('
');
- Result.Append('
');
- end
+ if LanguageCode = Shop."Language Code" then
+ if Item.Get(ItemNo) then begin
+ MarketingText := EntityText.GetText(Database::Item, Item.SystemId, EntityTextScenario::"Marketing Text");
+ if MarketingText <> '' then begin
+ Result.Append('');
+ Result.Append(MarketingText);
+ Result.Append('
');
+ Result.Append('
');
+ end
+ end;
+
+ if Shop."Sync Item Attributes" then
+ AddAtributeHtml(ItemNo, Result, LanguageCode);
+
+ ProductBodyHtml := Result.ToText();
+ end;
+ ProductEvents.OnAfterCreateProductbodyHtml(ItemNo, Shop, ProductBodyHtml, LanguageCode);
+ end;
+
+ local procedure AddExtendTextHtml(ItemNo: Code[20]; Result: TextBuilder; LanguageCode: Code[10])
+ var
+ ExtendedTextHeader: Record "Extended Text Header";
+ ExtendedTextLine: Record "Extended Text Line";
+ begin
+ ExtendedTextHeader.SetRange("Table Name", ExtendedTextHeader."Table Name"::Item);
+ ExtendedTextHeader.SetRange("No.", ItemNo);
+ ExtendedTextHeader.SetFilter("Language Code", '%1|%2', '', LanguageCode);
+ ExtendedTextHeader.SetRange("Starting Date", 0D, Today());
+ ExtendedTextHeader.SetFilter("Ending Date", '%1|%2..', 0D, Today());
+ if ExtendedTextHeader.FindSet() then begin
+ result.Append('');
+ repeat
+ if (ExtendedTextHeader."Language Code" = LanguageCode) or ExtendedTextHeader."All Language Codes" then begin
+ ExtendedTextLine.SetRange("Table Name", ExtendedTextHeader."Table Name");
+ ExtendedTextLine.SetRange("No.", ExtendedTextHeader."No.");
+ ExtendedTextLine.SetRange("Language Code", ExtendedTextHeader."Language Code");
+ ExtendedTextLine.SetRange("Text No.", ExtendedTextHeader."Text No.");
+ if ExtendedTextLine.FindSet() then begin
+ Result.Append(' ');
+ repeat
+ Result.Append(ExtendedTextLine.Text);
+ if StrLen(ExtendedTextLine.Text) > 0 then
+ case ExtendedTextLine.Text[StrLen(ExtendedTextLine.Text)] of
+ '.', '?', '!', ':':
+ begin
+ Result.Append('
');
+ Result.Append(' ');
+ end;
+ '/':
+ ;
+ else
+ Result.Append(' ');
+ end
+ else begin
+ Result.Append('
');
+ Result.Append(' ');
+ end;
+ until ExtendedTextLine.Next() = 0;
+ end;
end;
+ until ExtendedTextHeader.Next() = 0;
+ result.Append('
');
+ Result.Append('
');
+ end;
+ end;
- if Shop."Sync Item Attributes" then begin
- ItemAttributeValueMapping.SetRange("Table ID", Database::Item);
- ItemAttributeValueMapping.SetRange("No.", ItemNo);
- if ItemAttributeValueMapping.FindSet() then begin
- Result.Append('');
- Result.Append('
');
- Result.Append(Translator.GetAttributeTitle(Shop."Language Code"));
- Result.Append('
');
- Result.Append('
');
- repeat
- if ItemAttribute.Get(ItemAttributeValueMapping."Item Attribute ID") and (not ItemAttribute.Blocked) then begin
- Result.Append(' ');
- Result.Append(' | ');
- if ItemAttributeTranslation.Get(ItemAttributeValueMapping."Item Attribute ID", Shop."Language Code") then
- Result.Append(ItemAttributeTranslation.Name)
- else
- Result.Append(ItemAttribute.Name);
- Result.Append(' | ');
- Result.Append(' ');
- if ItemAttrValueTranslation.Get(ItemAttributeValueMapping."Item Attribute ID", ItemAttributeValueMapping."Item Attribute Value ID", Shop."Language Code") then
- Result.Append(ItemAttrValueTranslation.Name)
- else
- if ItemAttributeValue.Get(ItemAttributeValueMapping."Item Attribute ID", ItemAttributeValueMapping."Item Attribute Value ID") then begin
- Result.Append(ItemAttributeValue.Value);
- case ItemAttribute.Type of
- ItemAttribute.Type::Integer, ItemAttribute.Type::Decimal:
- begin
- Result.Append(' ');
- Result.Append(ItemAttribute."Unit of Measure");
- end;
+ local procedure AddAtributeHtml(ItemNo: Code[20]; Result: TextBuilder; LanguageCode: Code[10])
+ var
+ ItemAttrValueTranslation: Record "Item Attr. Value Translation";
+ ItemAttribute: Record "Item Attribute";
+ ItemAttributeTranslation: Record "Item Attribute Translation";
+ ItemAttributeValue: Record "Item Attribute Value";
+ ItemAttributeValueMapping: Record "Item Attribute Value Mapping";
+ Translator: Report "Shpfy Translator";
+ begin
+ ItemAttributeValueMapping.SetRange("Table ID", Database::Item);
+ ItemAttributeValueMapping.SetRange("No.", ItemNo);
+ if ItemAttributeValueMapping.FindSet() then begin
+ Result.Append('');
+ Result.Append(' ');
+ Result.Append(Translator.GetAttributeTitle(LanguageCode));
+ Result.Append(' ');
+ Result.Append(' ');
+ repeat
+ if ItemAttribute.Get(ItemAttributeValueMapping."Item Attribute ID") and (not ItemAttribute.Blocked) then begin
+ Result.Append(' ');
+ Result.Append(' | ');
+ if ItemAttributeTranslation.Get(ItemAttributeValueMapping."Item Attribute ID", LanguageCode) then
+ Result.Append(ItemAttributeTranslation.Name)
+ else
+ Result.Append(ItemAttribute.Name);
+ Result.Append(' | ');
+ Result.Append(' ');
+ if ItemAttrValueTranslation.Get(ItemAttributeValueMapping."Item Attribute ID", ItemAttributeValueMapping."Item Attribute Value ID", LanguageCode) then
+ Result.Append(ItemAttrValueTranslation.Name)
+ else
+ if ItemAttributeValue.Get(ItemAttributeValueMapping."Item Attribute ID", ItemAttributeValueMapping."Item Attribute Value ID") then begin
+ Result.Append(ItemAttributeValue.Value);
+ case ItemAttribute.Type of
+ ItemAttribute.Type::Integer, ItemAttribute.Type::Decimal:
+ begin
+ Result.Append(' ');
+ Result.Append(ItemAttribute."Unit of Measure");
end;
- end;
- Result.Append(' | ');
- Result.Append(' ');
+ end;
end;
- until ItemAttributeValueMapping.Next() = 0;
- Result.Append(' ');
- Result.Append(' | ');
+ Result.Append('
');
end;
- end;
- ProductBodyHtml := Result.ToText();
+ until ItemAttributeValueMapping.Next() = 0;
+ Result.Append('
');
+ Result.Append('