gs1process: Report the mandatory associations spec that is not being met

bwipp · Nov 16, 2024 · b3aac8f · b3aac8f
1 parent 8f07935
commit b3aac8f
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/gs1process.ps.src b/src/gs1process.ps.src
@@ -3240,10 +3240,17 @@ begin
                             { pop true exit } if  % Wholly matching any of the alternatives is sufficient
                         } forall
                         not {
-                            ai length 47 add string
+                            gs1syntax ai get /req get mark exch
+                            { { { (+) } forall pop ( OR ) } forall pop ( WITH ) } forall pop
+                            counttomark array astore exch pop
+                            dup 0 exch {length add} forall
+                            ai length 49 add dup 3 -1 roll add string exch 3 -1 roll {
+                                dup length 2 index add
+                                3 index 4 2 roll putinterval
+                            } forall pop
                             dup 0 (One of more requisite AIs for AI \() putinterval
                             dup 34 ai putinterval
-                            dup 34 ai length add (\) are missing) putinterval
+                            dup 34 ai length add (\) are missing: ) putinterval
                             /bwipp.GS1missingAIs exch //raiseerror exec
                         } if
                     } forall