additonal entry header conflict checks

Author: shidel

utilities/makelist/makelist.lpi

@@ -16,7 +16,7 @@
     <VersionInfo>
       <UseVersionInfo Value="True"/>
       <MajorVersionNr Value="1"/>
-      <MinorVersionNr Value="3"/>
+      <MinorVersionNr Value="4"/>
       <StringTable LegalCopyright="(c) 2025-2026 Jerome Shidel" ProductName="The List Release File Assembler" ProductVersion="1.0"/>
     </VersionInfo>
     <BuildModes>

utilities/makelist/makelist.lpr

@@ -535,6 +535,10 @@ function FileToSection(const Name : String; var Data : RawByteString;
     H[I]:=Trim(H[I]);
     case UpperCase(K) of
       'UNIQUE ID' : begin
+        if IDSORT <> '' then begin
+          LogMessage(vbMinimal, 'Multiple Unique ID fields for file: '+ Name);
+          Result:=False;
+        end;
         IDSORT:=V;
         IDLIST:=V;
         if H[I] <> '' then
@@ -546,11 +550,19 @@ function FileToSection(const Name : String; var Data : RawByteString;
         end;
       end;
       'SORT AS' : begin
-         FSORTAS:=V;
-         if H[I] <> '' then
-           LogMessage(vbMinimal, 'Extraneous Data in Sort As for file: '+ Name);
+        if FSORTAS <> '' then begin
+          LogMessage(vbMinimal, 'Multiple Sort As fields for file: '+ Name);
+          Result:=False;
+        end;
+        FSORTAS:=V;
+        if H[I] <> '' then
+          LogMessage(vbMinimal, 'Extraneous Data in Sort As for file: '+ Name);
       end;
       'CATEGORY' : begin
+        if Category <> '' then begin
+           LogMessage(vbMinimal, 'Multiple Category fields for file: '+ Name);
+           Result:=False;
+         end;
         if UpperCase(V) = 'N/A' then
           V := '-';
         If Length(V) > 1 then
@@ -571,8 +583,10 @@ function FileToSection(const Name : String; var Data : RawByteString;
   if FSORTAS <> '' then begin
     if IDSORT = IDLIST then
       IDSORT:=FSORTAS
-    else
+    else begin
+      LogMessage(vbMinimal, 'Using both "-sort-as-" and "Sort As" is prohibited in file: '+ Name);
       Result:=False;
+    end;
   end;
 end;
 

utilities/makelist/makelist.lps

@@ -8,9 +8,9 @@
         <Filename Value="makelist.lpr"/>
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="520"/>
-        <CursorPos X="32" Y="565"/>
-        <FoldState Value=" T3Q0921912 pnIoV0S5 piXja0O011[M4lGoY033 PiXi10."/>
+        <TopLine Value="540"/>
+        <CursorPos X="72" Y="572"/>
+        <FoldState Value=" T3Q0921912 pnIoV0S5 piXja0O011[M4lGp5033 PiXi100"/>
         <UsageCount Value="208"/>
         <Loaded Value="True"/>
       </Unit>

utilities/makelist/makelist.res

@@ -17,7 +17,7 @@ interface
 
 const
   { General Application Information }
-  APP_VERSION: String = '1.3.0';
+  APP_VERSION: String = '1.4.0';
   APP_BUILD: String = '0';
   APP_TITLE: String = 'makelist';
   APP_LEGALCOPYRIGHT: String = '(c) 2025-2026 Jerome Shidel';