Код

_б.Закрыть(); 

Код

Процедура Выгрузить()

	_конст			= СоздатьОбъект("константы");
	_подразделение	= число(_конст.получить("идПодразделения"));
	ИмяOlapТаблицыДолгов = СвойстваОбъекта(,"SQL.ИмяOlapТаблицыДолгов");
	Если ПустаяСтрока(ИмяOlapТаблицыДолгов) = 1 Тогда
		ИмяOlapТаблицыДолгов = "dwh..долги2";
	КонецЕсли;

	//мд=создатьОбъект("MetaDataWork");
	тз=создатьОбъект("ТаблицаЗначений");
	тз.новаяКолонка("объект","Строка",9,,,,,);
	тз.новаяКолонка("дата","Дата",,,,,,);
	тз.новаяКолонка("глубина","Число",3,,,,,);
	тз.новаяКолонка("долг","Число",19,2,,,,);
	тз.новаяКолонка("просроченно","Число",19,2,,,,);
	тз.новаяКолонка("суммаКредита","Число",19,2,,,,);
	//тз.новаяКолонка("проценты","Число",19,2,,,,);
	тз.новаяКолонка("сумма1","Число",19,2,,,,);
	тз.новаяКолонка("сумма2","Число",19,2,,,,);
	тз.новаяКолонка("дебитор","Число",1,0,,,,);
	тз.новаяКолонка("сумма3","Число",19,2,,,,);
	тз.новаяКолонка("сумма4","Число",19,2,,,,);
	тз.новаяКолонка("сумма5","Число",19,2,,,,);

	фСтараяВерсия = 1;
	безМинусов = 1;
	толькоПросрочка = 0;
	ставка = 0;
	минимум = 0;
	Если Сформировать(1) > 0 Тогда
		Возврат;
	КонецЕсли;

	_б	= создатьОбъект("ODBCRecordSet");
	_тз	= "DELETE FROM " + ИмяOlapТаблицыДолгов + " WHERE подразделение = "
		+  _подразделение + " and дата = " + _датаSQL(выбКонПериода);
	_б.Выполнить(_тз);
	_б.Закрыть();

	_б.Подготовить("INSERT INTO " + ИмяOlapТаблицыДолгов + "
	|(подразделение, объект, дата, глубина, долг, просроченно, суммаКредита, сумма1, сумма2, дебитор, сумма3, сумма4, сумма5)
	|VALUES("+_подразделение+", ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
	_б.ВыполнитьSQL_ИзТЗ(тз);

КонецПроцедуры 

Код

если _реж = 1 тогда
				тз.новаяСтрока();
				тз.объект=""+_подразделение+_объект.код;
				тз.дата=выбКонПериода;
				тз.глубина=_объект.вГлубина;
				_вал=_объект.валюта;
				тз.долг=глПересчетВалют(_долг,_вал,глРубли,,,выбКонПериода);
				тз.просроченно=глПересчетВалют(_просроченно,_вал,глРубли,,,выбКонПериода);
				да);
				тз.сумма1=глПересчетВалют(_сумма[1],_вал,глРубли,,,выбКонПериода);
				тз.сумма2=глПересчетВалют(_сумма[2],_вал,глРубли,,,выбКонПериода);
				тз.дебитор=?(_долг>0,1,0);
				тз.сумма3=глПересчетВалют(_сумма[3],_вал,глРубли,,,выбКонПериода);
				тз.сумма4=глПересчетВалют(_сумма[4],_вал,глРубли,,,выбКонПериода);
				тз.сумма5=глПересчетВалют(_сумма[5],_вал,глРубли,,,выбКонПериода);
			конецЕсли; 

Код

пока тз.получитьСтроку() = 1 Цикл
		вт.НоваяСтрока(тз.объект);
		Попытка
		_б.ВыполнитьSQL_ИзТЗ(вт)
		Исключение
		Сообщить(вт.объект);
		КонецПопытки;
	КонецЦикла;