[RedFox]

Цитата:

Сообщение от RedFox

Не забываем про Permission к таблицам и для компаний

Почти спам - сегодня случайно наткнулся на 406 кодеюнит и строки:

CASE TableID OF DATABASE::"Reason Code":
	WITH ReasonCode DO
	  IF CopyTable THEN BEGIN
		CHANGECOMPANY(NewCompanyName);
		IF FIND('-') THEN
		  REPEAT
			CHANGECOMPANY(COMPANYNAME);
			INSERT(TRUE);
			CHANGECOMPANY(NewCompanyName);
		  UNTIL NEXT = 0;
	  END;
...
  DATABASE::Family:
	WITH Family DO
	  IF CopyTable THEN BEGIN
		CHANGECOMPANY(NewCompanyName);
		IF FIND('-') THEN
		  REPEAT
			CHANGECOMPANY(COMPANYNAME);
			INSERT(TRUE);
			CHANGECOMPANY(NewCompanyName);
		  UNTIL NEXT = 0;
	  END;

Я бы просто переделал перенос по какому-то правилу, чтобы с NAS-ами не возиться