Forum Post: RE: Check Dimension Code blank

glsetup.GET; dimsetentry.RESET; SalesLine.RESET; SalesLine.SETFILTER(Type,'>0'); SalesLine.SETFILTER("Gen. Prod. Posting Group",'<>POSM'); dimsetentry.SETRANGE("Dimension Code",glsetup."Shortcut Dimension 4 Code"); IF SalesLine.FINDSET THEN REPEAT dimsetentry.SETRANGE("Dimension Set ID",SalesLine."Dimension Set ID"); IF dimsetentry.ISEMPTY THEN ERROR('Dimension code %1 not found',glsetup."Shortcut Dimension 4 Code"); UNTIL (SalesLine.NEXT=0);