计量汇总模式下，有计量数据的项目，未计量清单定位中间计量不应报错

DataModules/ZJJLDm.pas

@@ -877,7 +877,10 @@ begin
   if sddZJJLDetail.RecordCount > 0 then
   begin
     ADetailRec := sddZJJLDetail.Locate('BillsID', ABillsID);
-    Result := sddZJJL.FindKey('idxID', ADetailRec.ValueByName('ID').AsInteger);
+    if Assigned(ADetailRec) then
+      Result := sddZJJL.FindKey('idxID', ADetailRec.ValueByName('ID').AsInteger)
+    else
+      Result := nil;
   end
   else
     Result := sddZJJL.Locate('BillsID', ABillsID);