添加清单工料，存在重复时提示用户Bug

DataModules/DetailGLDm.pas

@@ -81,6 +81,7 @@ var
   i: Integer;
   sHint, sMessage: string;
 begin
+  sHint := '';
   for i := 0 to AGLs.Count - 1 do
   begin
     AddDetailGL(ABillsID, TProjectGLRecord(AGLs.Items[i]), sMessage);
@@ -91,7 +92,7 @@ begin
       sHint := sHint + sMessage;
     end;
   end;
-  if sMessage <> '' then
+  if sHint <> '' then
     TipMessage('以下工料已添加至该清单，请勿重复添加：' + #13#10 + sHint);
 end;