• Выбрать все движения по регистру
• Удалить все движения
• Написать новые движения под документы (список док-тов из п.1)

Код

	Ком			= oledb.СоздатьКоманду();
	ТекстСКЛ	= "SELECT	*
	|	FROM
	|	$Регистр.Взаиморасчеты as Vzr";
	х = Ком.ВыполнитьИнструкцию(ТекстСКЛ);
	тзф.Загрузить(х);
 

Код

	ODBCDB		= СоздатьОбъект("ODBCDataBase");
	ODBCDB.ПрисоединитьИБ(КаталогИБ());

	RS		= СоздатьОбъект("ODBCRecordSet");
	RS.УстБД(ODBCDB);
	ТекстСКЛ	= "SELECT	*
	|	FROM
	|	$Регистр.Взаиморасчеты as Vzr";
	х = RS.ВыполнитьИнструкцию(ТекстСКЛ);
	RS.ПолучитьРезультатыВ_ТЗ(х);
	тзф.Загрузить(х);
 

Код

	ТекстСКЛ	= "SELECT	 *	FROM $Регистр.Взаиморасчеты as Vzr
	|LEFT JOIN 1Sjourn  as X ON	Vzr.iddoc =  X.iddoc";
 

Код

	ODBCDB	= СоздатьОбъект("ODBCDataBase");
	ODBCDB.ПрисоединитьИБ(КаталогИБ());
	RS		= СоздатьОбъект("ODBCRecordSet");
	RS.УстБД(ODBCDB);	  //lineno,actno,debkred,sp16782,sp16783,sp16784,sp16852,sp16785,sp16853,sp16787
	ТекстСКЛ	= "INSERT INTO	 $Регистр.Взаиморасчеты
	|	осрочки,Сумма,ВалСумма,НомПров)
	|	VALUES
	|	(?,?,?,?,?,?,?,?,?,?,?,?)
	|";
	Сообщить("Подготовить: " + Строка(RS.Подготовить(ТекстСКЛ)));

	rs.ДобПараметр(1,	14, 21, 0);	//ДокИД
	rs.ДобПараметр(2,	14, 21, 0);//НомСтрДок =
	rs.ДобПараметр(3,	14, 21, 0);//НомДвиж
	rs.ДобПараметр(4,	14, 21, 0);//ПриходРасход
	rs.ДобПараметр(5,	14, 21, 0);//Контрагагент
	rs.ДобПараметр(6,	14, 21, 0);//БухСчет
	rs.ДобПараметр(7,	14, 21, 0);//Договор
	rs.ДобПараметр(8,	14, 21, 0);//Валюта
	rs.ДобПараметр(9,	14, 21, 0);//ДатаПросрочки
	rs.ДобПараметр(10,	14, 21, 0);//Сумма
	rs.ДобПараметр(11,	14, 21, 0);//ВалСумма
	rs.ДобПараметр(12,	14, 21, 0);//НомПров
...

				Движения.ВыбратьСтроки();
				Пока Движения.ПолучитьСтроку() = 1 Цикл

					rs.УстПараметр(1,тзДокИд.DocID);//ДокИД
					rs.УстПараметр(2,0);//НомСтрДок =
					rs.УстПараметр(3,Движения.НомерСтроки);//НомДвиж
					rs.УстПараметр(4,?(Движения.ПриходРасход="+", 0, 1));//ПриходРасход
					rs.УстПараметр(5,Движения.Контрагент);//Контрагагент
					rs.УстПараметр(6,Движения.БухСчет);//БухСчет
					rs.УстПараметр(7,Движения.Договор);//Договор
					rs.УстПараметр(8,Движения.Валюта);//Валюта
					rs.УстПараметр(9,ТекущаяДата());//ДатаПросрочки
					rs.УстПараметр(10,Движения.Сумма);//Сумма
					rs.УстПараметр(11,Движения.ВалСумма);//ВалСумма
					rs.УстПараметр(12,Движения.НомерПроводки);//НомПров
					Если RS.Выполнить(ТекстСКЛ) = 0 Тогда
						Сообщить(". " + rs.ПолучитьОписаниеОшибки());  // State HYC00, native 0, message [Microsoft][ODBC Visual FoxPro Driver]Driver not capable
						х = 0/0;
					КонецЕсли;
					Сообщить("ок");
				КонецЦикла;