ALTER PROCEDURE [dbo].[au01_ОбъектыД_Sel] 
  @pk_Entity uniqueidentifier
AS
BEGIN
  SET NOCOUNT ON;
  SELECT TOP(1)
    -- ОбъектыД
    обд.pk_Entity,
    обд.tn_ЧастьОбъ,
    обд.str_Признак,
    обд.fk_ДокВкл,
    . . .
    обд.ts_Entity,

    -- Объекты
    об.pk_Entity,
    об.fk_Дог,
    об.fk_Гос,
    об.str_NameObj,
    об.str_НаимОбъ,
    . . .
    об.str_РегНом,
    об.str_AbbrObj,
    об.str_АббрОбъ,
    об.str_Del,
    об.ts_Entity
  FROM tbl01_ОбъектыД обд
       INNER JOIN tbl01_Документы дв ON обд.fk_ДокВкл=дв.pk_Entity
       INNER JOIN tbl01_Документы дл ON обд.fk_ДокЛик=дл.pk_Entity
       INNER JOIN tbl01_Документы дф ON обд.fk_ДокФакЛик=дл.pk_Entity,
    tbl01_Объекты об
	INNER JOIN tbl01_Государства го ON об.fk_Гос=го.pk_Entity
	INNER JOIN tbl01_Договоры до ON об.fk_Дог=до.pk_Entity 
  WHERE (обд.pk_Entity=@pk_Entity) and (обд.pk_Entity=об.pk_Entity);
END

ALTER PROCEDURE [dbo].[au01_ОбъектыД_Upd] 
    -- ОбъектыД
    @pk_EntityД	     uniqueidentifier,
    . . .    
    @ts_EntityД	     timestamp,
    
    -- Объекты
    @pk_Entity	     uniqueidentifier,
    . . .    
    @ts_Entity	     timestamp
AS
BEGIN
  DECLARE @ErrorVar INT;  
  SET NOCOUNT OFF
  BEGIN TRANSACTION
    UPDATE tbl01_ОбъектыД SET
      tn_ЧастьОбъ     = @tn_ЧастьОбъ,
      str_Признак     = @str_Признак,
      fk_ДокВкл       = @fk_ДокВкл,
      . . .
      str_Радиус      = @str_Радиус,
      fl_Площадь      = @fl_Площадь
	WHERE (pk_Entity=@pk_Entity) and (ts_Entity=@ts_Entity)
	SET @ErrorVar=@@error;
	IF (@ErrorVar <> 0) GOTO CORO; --Отменить транзакцию, если есть ошибки
	UPDATE tbl01_Объекты SET
      fk_Дог=@fk_Дог,
      . . .
      str_NameObj=@str_NameObj
	WHERE (pk_Entity=@pk_Entity) and (ts_Entity=@ts_Entity)
	SET @ErrorVar=@@error;

	CORO:
	IF (@ErrorVar <> 0) ROLLBACK; --Отменить транзакцию, если есть ошибки
	ELSE COMMIT;

  SELECT TOP(1)
    -- ОбъектыД
    обд.pk_Entity,
    . . .
    обд.ts_Entity,

    -- Объекты
    об.pk_Entity,
    . . .
    об.ts_Entity,
    @ErrorVar as rc
  FROM tbl01_ОбъектыД обд
    INNER JOIN tbl01_Документы дв ON обд.fk_ДокВкл=дв.pk_Entity
    INNER JOIN tbl01_Документы дл ON обд.fk_ДокЛик=дл.pk_Entity
    INNER JOIN tbl01_Документы дф ON обд.fk_ДокФакЛик=дл.pk_Entity,
    tbl01_Объекты об
	INNER JOIN tbl01_Государства го ON об.fk_Гос=го.pk_Entity
	INNER JOIN tbl01_Договоры до ON об.fk_Дог=до.pk_Entity 
  WHERE (обд.pk_Entity=@pk_Entity) and (обд.pk_Entity=об.pk_Entity);
END