codeunit 80100 ItemTrackingManagementIS
{
    var
        JSONManagement: codeunit "JSON Management V2";
        
procedure GetTrackingSpecification(jsonText: Text): Text
    var
        TrackingSpecification: Record "Tracking Specification";
        RecRef: RecordRef;
        ItemNo, SourceNo : Code[20];
        SourceRefNo: Integer;
        ItemIdentifierJA: JsonArray;
        JSONResult: JsonObject;
        OutText: Text;
    begin
        GetParameters(jsonText, SourceRefNo, ItemNo, SourceNo);

        TrackingSpecification.Reset();
        TrackingSpecification.SetRange("Item No.", ItemNo);
        TrackingSpecification.SetRange("Source ID", SourceNo);
        TrackingSpecification.SetRange("Source Ref. No.", SourceRefNo);
        if not TrackingSpecification.FindSet() then begin
            Error('The TrackingSpecification ItemNo does not exist.');
        end;

        repeat
            RecRef.Get(TrackingSpecification.RecordId);
            ItemIdentifierJA.Add(JSONManagement.RecordToJson(RecRef));
        until TrackingSpecification.Next() = 0;

        JSONResult.Add('TrackingSpecification', ItemIdentifierJA);
        JSONResult.WriteTo(OutText);

        exit(OutText);
    end;
    
    
}