Процедура ОбработкаПроведения(Отказ, Режим)
 
	Движения.Хозрасчетный.Очистить();
	Движения.Хозрасчетный.Записать();
	Движения.Хозрасчетный.Записывать = Истина;
	Для Каждого ТекСтрокаТовары Из Товары Цикл		
		Запрос = Новый Запрос;       //проверяем сколько осталось на складе1
		Запрос.Текст = "ВЫБРАТЬ
		|	ХозрасчетныйОстатки.КоличествоОстатокДт
		|ИЗ
		|	РегистрБухгалтерии.Хозрасчетный.Остатки КАК ХозрасчетныйОстатки
		|ГДЕ
		|	ХозрасчетныйОстатки.Счет = &Счет
		|	И ХозрасчетныйОстатки.Субконто1 = &Субконто1
		|	И ХозрасчетныйОстатки.Субконто2 = &Субконто2";
		Запрос.УстановитьПараметр("Счет",ПланыСчетов.Хозрасчетный.ТоварыНаСкладах);  //41.1
		Запрос.УстановитьПараметр("Субконто1",ТекСтрокаТовары.Номенклатура);
		Запрос.УстановитьПараметр("Субконто2",Склад1);
		Выборка = Запрос.Выполнить().Выбрать();
		Если Выборка.Следующий() Тогда
			Если Выборка.КоличествоОстатокДт < ТекСтрокаТовары.Количество Тогда
				Сообщить("На складе1 остака: " + СокрЛП(Выборка.КоличествоОстатокДт)); 
				Отказ = Истина;
				Возврат;
			КонецЕсли;   
		Иначе
			Сообщить("нет остатка на складе1"); 
			Отказ = Истина;
			Возврат;
		КонецЕсли;   

		Движение = Движения.Хозрасчетный.Добавить();
		Движение.СчетКт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //Списываем
		Движение.СчетДт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //приходуем
		Движение.Период = Дата;
		Движение.КоличествоКт = ТекСтрокаТовары.Количество;
		Движение.ДатаЗаписи = Дата;
		Движение.Содержание = "Перемещение";
		
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,
                "Номенклатура",ТекСтрокаТовары.Номенклатура);
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,
                "Склады",Склад1);
		
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,
                "Номенклатура",ТекСтрокаТовары.Номенклатура);
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,
                "Склады",Склад2);
		//Или так
		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;
		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад1;
		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;
		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад2;
	КонецЦикла;

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

Как явно указать нужную дату?

'20050308' 
Дата(2005, 1, 1) 
Дата(1, 1, 1) 
Дата(2005, 1, 1, 10, 29, 50) 
ДАТАВРЕМЯ(2005, 01, 01)

Как проверить дату на пустое значение?

Если ДатаПроверяемая = Дата(1, 1, 1) Тогда
	Сообщить("Пустая дата!");
КонецЕсли;

Как сравнить две даты (дни)?

Если НачалоДня(Дата1) = НачалоДня(Дата2) Тогда
	Сообщить("Дни совпадают!");
КонецЕсли;

Как прибавить к дате день, месяц?

СледующийДень = ТекущаяДата() + 60 * 60 * 24;

ДобавитьМесяц(Дата(2005, 1, 31), 1) 
ДобавитьМесяц(Дата(2005, 2, 28), -1) 
КонецМесяца(ДобавитьМесяц(Дата(2005, 2, 28), -1))

ФункцияПолучитьДень(ИсходнаяДата, КоличествоПрибавляемыхДней)
	
	Запрос = НовыйЗапрос("
	|ВЫБРАТЬ 
	|	ДОБАВИТЬКДАТЕ(&ИсходнаяДата, ДЕНЬ, &Количество) как Дата";

	Запрос.УстановитьПараметр("ИсходнаяДата", ИсходнаяДата); 
	Запрос.УстановитьПараметр("Количество", КоличествоПрибавляемыхДней); 
	
	ВозвратЗапрос.Выполнить().Выгрузить()[0].Дата; 
	
КонецФункции

Как можно проверить тип значения переменной на равенство нужному?

ИмяНужногоТипа = "ДокументСсылка.РеализацияТоваров"; 
Если ТипЗнч(ОбрабатываемыйДокумент) = Тип(ИмяНужногоТипа) Тогда 
	// Строки кода, выполняемые при истинности условия.
КонецЕсли;

Как очистить реквизит формы, имеющий ссылочный тип?

 Товар = Справочники.Номенклатура.ПустаяСсылка();

Как очистить значение, имеющее тип "Хранилище значения"?

РеквизитХранилище = Неопределено;

Как добавить запись в непериодический независимый регистр сведений?

НаборЗаписей = РегистрыСведений.ЗначенияСвойств.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Номенклатура.Установить(ТекущаяНоменклатура);
НаборЗаписей.Отбор.Свойство.Установить(ТекущееСвойство);

НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись. Номенклатура = ТекущаяНоменклатура;
НоваяЗапись.Свойство = ТекущееСвойство;
НоваяЗапись.Значение = ТекущееЗначение;

НаборЗаписей.Записать();

Как считать содержимое непериодического независимого регистра сведений "СобственныеКонтрагенты"?

НаборЗаписей = РегистрыСведений.СобственныеКонтрагенты.СоздатьНаборЗаписей();
НаборЗаписей.Прочитать();

// Перебрать записи в цикле…
Для Каждого Запись из НаборЗаписей Цикл
РегистрКонтрагент = Запись.Контрагент;
РегистрВидСвязи = Запись.ВидСвязи;
РегистрОбъект = Запись.Объект;
КонецЦикла;

// … или выгрузить записи в таблицу значений.
ТаблицаЗаписей = НаборЗаписей.Выгрузить();

ВЫБРАТЬ
*
ИЗ
РегистрыСведений.СобственныеКонтрагенты

Как удалить все записи из независимого регистра сведений?

НаборЗаписей = РегистрыСведений.ТорговоеОборудование.СоздатьНаборЗаписей();
НаборЗаписей.Записать();

Как удалить записи независимого регистра сведений с отбором по конкретной организации?

НаборЗаписей = РегистрыСведений.ОбъектыСтроительстваОрганизаций.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Организация.Установить(УдаляемаяОрганизация);
НаборЗаписей.Записать();

Как добавить запись в периодический независимый регистр сведений?

НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Валюта.Установить(ТекущаяВалюта);
НаборЗаписей.Отбор.Период.Установить(ТекущаяДата);

НовЗапись = НаборЗаписей.Добавить();
НовЗапись.Валюта = ТекущаяВалюта;
НовЗапись.Период = ТекущаяДата;
НовЗапись.Курс = ТекущийКурс;
НовЗапись.Кратность = ТекущаяКратность;

НаборЗаписей.Записать(Истина);

Конвертация данных. Из множества документов в один документ

В Правило Выгрузки Данных (ПВД) Перед обработкой:

Запрос = Новый запрос();
Запрос.текст = "ВЫБРАТЬ
|	РасходнаяНакладнаяСписокНоменклатуры.Номенклатура,
|	РасходнаяНакладнаяСписокНоменклатуры.Количество,
|	РасходнаяНакладнаяСписокНоменклатуры.Цена,
|	РасходнаяНакладнаяСписокНоменклатуры.Сумма
|ИЗ
|	Документ.РасходнаяНакладная.СписокНоменклатуры КАК РасходнаяНакладнаяСписокНоменклатуры";

Выборка = запрос.Выполнить().Выбрать();

ТаблицаДанные = Новый ТаблицаЗначений;
ТаблицаДанные.Колонки.Добавить("Номер", Новый ОписаниеТипов("Строка"));
ТаблицаДанные.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"));
ТаблицаДанные.Колонки.Добавить("ПометкаУдаления", Новый ОписаниеТипов("Булево"));
ТаблицаДанные.Колонки.Добавить("СуммаПоДокументу", Новый ОписаниеТипов("Число"));
ТаблицаДанные.Колонки.Добавить("СписокНоменклатуры", Новый ОписаниеТипов("ТаблицаЗначений"));

СписокНоменклатуры = Новый ТаблицаЗначений();
СписокНоменклатуры.Колонки.Добавить("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));
СписокНоменклатуры.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));
СписокНоменклатуры.Колонки.Добавить("Цена", Новый ОписаниеТипов("Число"));
СписокНоменклатуры.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));

Пока Выборка.Следующий() Цикл
	
	СтрокаТоваров = СписокНоменклатуры.Добавить();
	СтрокаТоваров.Номенклатура = Выборка.Номенклатура;
	СтрокаТоваров.Количество = Выборка.Количество;
	СтрокаТоваров.Цена = Выборка.Цена;
	СтрокаТоваров.Сумма = Выборка.Сумма;
	
КонецЦикла;

НоваяСтрокаДанные = ТаблицаДанные.Добавить();
НоваяСтрокаДанные.Номер = "001";
НоваяСтрокаДанные.Дата = ТекущаяДата();
НоваяСтрокаДанные.ПометкаУдаления = Ложь;
НоваяСтрокаДанные.СуммаПоДокументу = 123;
НоваяСтрокаДанные.СписокНоменклатуры = СписокНоменклатуры;

ВыборкаДанных = ТаблицаДанные;

Правило Выгрузки Данных:

Правило конвертации объектов: