Command = Новый COMОбъект("ADODB.Command");
Command.ActiveConnection = Соединение;
Command.CommandTimeout =  60 ;
Command.CommandText = НазваниеХП;
Command.CommandType =  4 ; // ХП

RecordSet = Новый COMОбъект("ADODB.RecordSet");

Command.Parameters.Append(Command.CreateParameter(, ТипПараметра,  1 , Размер, Параметр));

RecordSet = Command.Execute();

Для Каждого Field Из RecordSet.Fields Цикл
	РезультатЗапроса.Колонки.Добавить(СокрЛП(Field.Name));
КонецЦикла;

Если Число(RecordSet.State) <>  0  Тогда
	Пока RecordSet.EOF =  0  Цикл
		
		СтрокаТЗ = РезультатЗапроса.Добавить();
		Для НомерПоля =  0  По Recordset.Fields.Count- 1  Цикл
			СтрокаТЗ[НомерПоля] = RecordSet.Fields(НомерПоля).Value;
		КонецЦикла;
		
		RecordSet.MoveNext();
		
	КонецЦикла;
	
	RecordSet.Close();
КонецЕсли;

ALTER  PROCEDURE [dbo].[DMT_Get_Documents]
		@DocTypeID 	int		= - 1 ,
		@fState 	int		=  0 ,
		@repIDD 	nvarchar( 50 )=Null,
		@BeginDate 	datetime= Null,
		@EndDate 	datetime= Null,
		@DocIDD 	nvarchar( 50 )=Null

AS

Set Nocount On

Declare @Result Integer

Exec @Result = DMT_Get_DocumentsEx
		@DocTypeID,
		@fState,
		@repIDD,
		@BeginDate,
		@EndDate,
		@DocIDD,
		 0 

Return @Result