Add Metafields to Products and Variants

Author: Tine Staric

Apps/W1/Shopify/app/src/Base/Codeunits/IMetafieldType/ShpfyMtfldTypeBoolean.Codeunit.al

@@ -0,0 +1,27 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30312 "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;
+}

Apps/W1/Shopify/app/src/Base/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;
+}

Apps/W1/Shopify/app/src/Base/Codeunits/IMetafieldType/ShpfyMtfldTypeColor.Codeunit.al

@@ -0,0 +1,29 @@
+namespace Microsoft.Integration.Shopify;
+
+using System.Utilities;
+
+codeunit 30313 "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;
+}

Apps/W1/Shopify/app/src/Base/Codeunits/IMetafieldType/ShpfyMtfldTypeDate.Codeunit.al

@@ -0,0 +1,27 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30314 "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;
+}

Apps/W1/Shopify/app/src/Base/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;
+}

Apps/W1/Shopify/app/src/Base/Codeunits/IMetafieldType/ShpfyMtfldTypeDimension.Codeunit.al

@@ -0,0 +1,70 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30316 "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;
+}

Apps/W1/Shopify/app/src/Base/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\/MediaImage\/\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;
+}

Apps/W1/Shopify/app/src/Base/Codeunits/IMetafieldType/ShpfyMtfldTypeInteger.Codeunit.al

@@ -0,0 +1,37 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30310 "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;
+}

Apps/W1/Shopify/app/src/Base/Codeunits/IMetafieldType/ShpfyMtfldTypeJson.Codeunit.al

@@ -0,0 +1,27 @@
+namespace Microsoft.Integration.Shopify;
+
+codeunit 30311 "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;
+}

Apps/W1/Shopify/app/src/Base/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;
+}

Apps/W1/Shopify/app/src/Base/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;
+}