Код

CREATE PROCEDURE [dbo].[CD_Update]
	@MyDate datetime,
	@MyDoc varchar(13),
	@Post varchar(9)
AS
DECLARE @SQLError int
SET @SQLError=0
BEGIN TRANSACTION
	--формируем список товаров на изменение
	SELECT Tovar, Date_T, iddoc_T,Active INTO #tmpCD_Update FROM CenaDogovor Where Date_F<=@MyDate and Date_T>@MyDate and Tovar in (SELECT Tovar from #tmpCenaDogovor) and Post=@Post
SET @SQLError=@@ERROR
IF @SQLError<>0 GOTO Error
	SELECT C.Tovar, Min(C.Date_F) as MinD, Min(CD.iddoc_f) as iddoc_f INTO #tmpMinCD_Update FROM CenaDogovor C LEFT JOIN CenaDogovor CD ON C.Tovar=CD.Tovar AND C.iddoc_f=CD.iddoc_f
		Where C.Tovar in (SELECT Tovar from #tmpCenaDogovor) and C.Post=@Post GROUP BY C.Tovar
SET @SQLError=@@ERROR
IF @SQLError<>0 GOTO Error
	--изменяем конечную дату по этому списку
	Update CenaDogovor SET Date_T=@MyDate, iddoc_T=@MyDoc  Where Date_F<=@MyDate and Date_T>@MyDate and Tovar in (SELECT Tovar from #tmpCD_Update) and Post=@Post
SET @SQLError=@@ERROR
IF @SQLError<>0 GOTO Error
	--добавляем новые строки
	insert into CenaDogovor select Date_F,'99990101',Tovar,Post,iddoc_F,'',Cena,ProcPlus,ProcMinus,Active from #tmpCenaDogovor
SET @SQLError=@@ERROR
IF @SQLError<>0 GOTO Error
	--изменяем конечную дату по этому списку
	Update CenaDogovor SET Date_T=t.Date_T, iddoc_T=t.iddoc_T From #tmpCD_Update t Where iddoc_F=@MyDoc and CenaDogovor.Tovar=t.Tovar
	Update CenaDogovor SET Date_T=t.MinD, iddoc_T=t.iddoc_f From #tmpMinCD_Update t Where CenaDogovor.iddoc_F=@MyDoc and CenaDogovor.Tovar=t.Tovar and Date_F<MinD
Error:
DROP TABLE #tmpCenaDogovor
DROP TABLE #tmpCD_Update
DROP TABLE #tmpMinCD_Update
IF @SQLError=0
  BEGIN
    COMMIT TRANSACTION
  END
ELSE
  BEGIN
    ROLLBACK TRANSACTION
  END

GO
 

Код

рс=СоздатьОбъект("ODBCRecordset");
рс.ВыполнитьИнструкцию("
|if exists (select * from tempdb..sysobjects where id = object_id('tempdb..#tmp1'))
|  drop table #tmp1
|create table #tmp1 (
|  f1 datetime not null
|)
|");

рс.ВыполнитьИнструкцию("insert into #tmp1 (f1) values (getdate())");

рс.Подготовить("insert into #tmp1 (f1) values (?)");
рс.ДобПараметр(1,10,17,0);
рс.УстПараметр(1,ТекущаяДата());
рс.ВыполнитьИнструкцию();

рс.Подготовить("insert into #tmp1 (f1) values (cast(? as datetime))");
рс.ДобПараметр(1,14,23,0);
рс.УстПараметр(1,"2011-02-01 21:11:35.513");
рс.ВыполнитьИнструкцию();

ТЗ=рс.ВыполнитьИнструкцию("select f1 [Поле $Строка] from #tmp1");
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
    Сообщить(ТЗ.Поле);
КонецЦикла;