应用调差工料至相同清单，清单下有锁定清单工料时，则不应用至

DataModules/DetailGLDm.pas

@@ -349,7 +349,7 @@ begin
     for iRec := iFirst to iLast do
     begin
       Rec := TDetailGLRecord(idx.Records[iRec]);
-      if Rec.LockedPhaseID > 0 then
+      if Rec.LockedPhaseID.AsInteger > 0 then
       begin
         Result := True;
         Break;