哈巴定制表，9001-9999均属于900章

DataModules/ReportMemoryDm/rmHaBaiCustomizedDm.pas

@@ -897,6 +897,8 @@ begin
     sgs.DelimitedText := AB_Code;
     iFirst := StrToIntDef(sgs.Strings[0], 0);
     Result := Trunc(iFirst/100);
+    if (Result >= 90) and (Result < 100) then
+      Result := 9;
   finally
     sgs.Free;
   end;