СтандартнаяОбработка = Ложь;
ЛЗК = ... //Создать ЛЗК
// Заполнить ячейку нужным значением,
// я думаю, что оно из ЛЗК и возьмется
СтандартнаяОбработка = Ложь;
ЛЗК = ... //Создать ЛЗК
// Заполнить ячейку нужным значением,
// я думаю, что оно из ЛЗК и возьмется
Процедура НоменклатураЗаправленоПриИзменении(Элемент)
НовДокумент=Документы.ЛимитноЗаборнаяКарта.СоздатьДокумент();
НовДокумент.Заполнить(ссылка);
ФормаНовыйДокумент=НовДокумент.ПолучитьФорму(,ЭтаФорма);
ФормаНовыйДокумент.ОткрытьМодально();
КонецПроцедуры
Процедура ОбработкаЗаполнения(Основание)
Если ТипЗнч(Основание) = Тип("ДокументСсылка.ЗаявкаНаТопливо") Тогда
// Заполнение шапки
Автор = Основание.Автор;
Организация = Основание.Организация;
ПоследняяКорректировка = Основание.ПоследняяКорректировка;
Примечание = Основание.Примечание;
Отправитель = Основание.Склад;
Склад = Основание.Склад;
Для Каждого ТекСтрокаНоменклатура Из Основание.Номенклатура Цикл
НоваяСтрока = Номенклатура.Добавить();
НоваяСтрока.Номенклатура = ТекСтрокаНоменклатура.ВидТоплива;
НоваяСтрока.Ед = ТекСтрокаНоменклатура.Ед;
НоваяСтрока.Количество = ТекСтрокаНоменклатура.Заправлено;
НоваяСтрока.Склад = ТекСтрокаНоменклатура.Транспорт;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Процедура НоменклатураЗаправленоПриИзменении(Элемент)
ТекСтрока=ЭлементыФормы.Номенклатура.ТекущиеДанные;
НовДокумент=Документы.ЛимитноЗаборнаяКарта.СоздатьДокумент();
НовДокумент.Заполнить(ссылка);
НовДокумент.НовыйСклад = ТекСтрока.Транспорт;
НовДокумент.Получатель = ТекСтрока.Механизатор;
НовДокумент.Примечание = "Заполнен по Заявке на топливо № " + Номер + " от " + Дата;
НоваяСтрока = НовДокумент.Номенклатура.Добавить();
НоваяСтрока.Номенклатура = ТекСтрока.ВидТоплива;
НоваяСтрока.Ед = ТекСтрока.Ед;
НоваяСтрока.Количество = ТекСтрока.Заправлено;
НоваяСтрока.Коэффициент = 1;
ФормаНовыйДокумент=НовДокумент.ПолучитьФорму(,ЭтаФорма);
ФормаНовыйДокумент.ОткрытьМодально();
КонецПроцедуры
Процедура ОбработкаЗаполнения(Основание)
Если ТипЗнч(Основание) = Тип("ДокументСсылка.ЗаявкаНаТопливо") Тогда
// Заполнение шапки
Автор = Основание.Автор;
Дата = Основание.Дата;
Организация = Основание.Организация;
Отправитель = Основание.Склад;
Склад = Основание.Склад;
КонецЕсли;
КонецПроцедуры
Процедура НоменклатураЗаправленоПриИзменении(Элемент)
ТекСтрока=ЭлементыФормы.Номенклатура.ТекущиеДанные;
НовДокумент=Документы.ЛимитноЗаборнаяКарта.СоздатьДокумент();
НовДокумент.Заполнить(ссылка);
НовДокумент.Автор = Автор;
НовДокумент.Дата = Дата;
НовДокумент.Склад = Склад;
НовДокумент.Отправитель = Склад;
НовДокумент.Организация = Организация;
НовДокумент.ПоследняяКорректировка = ПоследняяКорректировка;
НовДокумент.НовыйСклад = ТекСтрока.Транспорт;
НовДокумент.Получатель = ТекСтрока.Механизатор;
НовДокумент.Примечание = "Заполнен по Заявке на топливо № " + Номер + " от " + Дата;
НоваяСтрока = НовДокумент.Номенклатура.Добавить();
НоваяСтрока.Номенклатура = ТекСтрока.ВидТоплива;
НоваяСтрока.Ед = ТекСтрока.Ед;
НоваяСтрока.Количество = ТекСтрока.Заправлено;
НоваяСтрока.Коэффициент = 1;
ФормаНовыйДокумент=НовДокумент.ПолучитьФорму(,ЭтаФорма);
ФормаНовыйДокумент.ОткрытьМодально();
КонецПроцедуры
Процедура ЗаполнитьПеремещение(Элемент)
ТекСтрока=ЭлементыФормы.Номенклатура.ТекущиеДанные;
НовДокумент = Документы.Перемещение.СоздатьДокумент();
Для каждого ТекСтрока из Номенклатура Цикл
Если ТекСтрока.Заправщик=Истина Тогда
НовДокумент.Заполнить(ссылка);
НовДокумент.Автор = Автор;
НовДокумент.Дата = Дата;
НовДокумент.Склад = Склад;
НовДокумент.Отправитель = Склад;
НовДокумент.Организация = Организация;
НовДокумент.Получатель = Заправщик;
НовДокумент.НовыйСклад = Заправщик;
НовДокумент.ПоследняяКорректировка = ПоследняяКорректировка;
НовДокумент.Примечание = "Заполнено по Заявке на топливо № " + Номер + " от " + Дата;
НоваяСтрока = НовДокумент.Номенклатура.Добавить();
НоваяСтрока.Номенклатура = ТекСтрока.ВидТоплива;
НоваяСтрока.НоменклатураСтало = ТекСтрока.ВидТоплива;
НоваяСтрока.Номенклатура = ТекСтрока.ВидТоплива;
НоваяСтрока.Ед = ТекСтрока.Ед;
НоваяСтрока.Количество = ТекСтрока.Заявлено;
НоваяСтрока.Склад = ТекСтрока.Транспорт;
НоваяСтрока.Коэффициент = 1;
Иначе Продолжить;
КонецЕсли;
КонецЦикла;
ФормаНовыйДокумент=НовДокумент.ПолучитьФорму(,ЭтаФорма);
ФормаНовыйДокумент.Открыть();
Для каждого ТекСтрока из Номенклатура Цикл
Если ТекСтрока.Заправщик=Истина Тогда
НовДокумент = Документы.ЛимитноЗаборнаяКарта.СоздатьДокумент();
НовДокумент.Заполнить(ссылка);
НовДокумент.Автор = Автор;
НовДокумент.Дата = Дата;
НовДокумент.Склад = Заправщик;
НовДокумент.Отправитель = Заправщик;
НовДокумент.Организация = Организация;
НовДокумент.ПоследняяКорректировка = ПоследняяКорректировка;
НовДокумент.НовыйСклад = ТекСтрока.Транспорт;
НовДокумент.Получатель = ТекСтрока.Механизатор;
НовДокумент.Примечание = "Заполнен по Заявке на топливо № " + Номер + " от " + Дата;
НоваяСтрока = НовДокумент.Номенклатура.Добавить();
НоваяСтрока.Номенклатура = ТекСтрока.ВидТоплива;
НоваяСтрока.Ед = ТекСтрока.Ед;
НоваяСтрока.Количество = ТекСтрока.Заявлено;
НоваяСтрока.Коэффициент = 1;
ФормаНовыйДокумент=НовДокумент.ПолучитьФорму(,ЭтаФорма);
ФормаНовыйДокумент.Записать();
Иначе Продолжить;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
НовыйДокумент.Номенклатура.Свернуть("номенклатура","количество")
НовыйДокумент.Номенклатура.Свернуть(\"номенклатура\",\"количество\")
ВыручкаПоТоварам.Свернуть("Номенклатура, СчетДоходовНУ, СубконтоНУ","СуммаБезНДС,Количество");
ВыручкаПоТоварам.Свернуть(\"Номенклатура, СчетДоходовНУ, СубконтоНУ\",\"СуммаБезНДС,Количество\");
Процедура ЗаполнитьПеремещение(Элемент)
ТекСтрока=ЭлементыФормы.Номенклатура.ТекущиеДанные;
НовДокумент = Документы.Перемещение.СоздатьДокумент();
НовДокумент.Заполнить(ссылка);
НовДокумент.Автор = Автор;
НовДокумент.Дата = Дата;
НовДокумент.Склад = Склад;
НовДокумент.Отправитель = Склад;
НовДокумент.Организация = Организация;
НовДокумент.Получатель = Заправщик;
НовДокумент.НовыйСклад = Заправщик;
НовДокумент.ПоследняяКорректировка = ПоследняяКорректировка;
НовДокумент.Примечание = "Заполнено по Заявке на топливо № " + Номер + " от " + Дата;
Для каждого ТекСтрока из Номенклатура Цикл
Если ТекСтрока.Заправщик=Истина Тогда
НоваяСтрока = НовДокумент.Номенклатура.Найти(ТекСтрока.ВидТоплива,"Номенклатура");
Если НоваяСтрока = неопределено Тогда
НоваяСтрока = НовДокумент.Номенклатура.Добавить();
НоваяСтрока.Количество = 0;
КонецЕсли;
НоваяСтрока.Номенклатура = ТекСтрока.ВидТоплива;
НоваяСтрока.НоменклатураСтало = ТекСтрока.ВидТоплива;
НоваяСтрока.Ед = ТекСтрока.Ед;
НоваяСтрока.Количество = НоваяСтрока.Количество+ТекСтрока.Заявлено;
НоваяСтрока.Склад = ТекСтрока.Транспорт;
НоваяСтрока.Коэффициент = 1;
НовДокумент.Номенклатура.Свернуть("Номенклатура,Ед,Коэффициент","Количество");
Иначе Продолжить;
КонецЕсли;
КонецЦикла;
ФормаНовыйДокумент=НовДокумент.ПолучитьФорму(,ЭтаФорма);
ФормаНовыйДокумент.Открыть();
Для каждого ТекСтрока из Номенклатура Цикл
Если ТекСтрока.Заправщик=Истина Тогда
НовДокумент = Документы.ЛимитноЗаборнаяКарта.СоздатьДокумент();
НовДокумент.Заполнить(ссылка);
НовДокумент.Автор = Автор;
НовДокумент.Дата = Дата+60;
НовДокумент.Склад = Заправщик;
НовДокумент.Отправитель = Заправщик;
НовДокумент.Организация = Организация;
НовДокумент.ПоследняяКорректировка = ПоследняяКорректировка;
НовДокумент.НовыйСклад = ТекСтрока.Транспорт;
НовДокумент.Получатель = ТекСтрока.Механизатор;
НовДокумент.Примечание = "Заполнен по Заявке на топливо № " + Номер + " от " + Дата;
НоваяСтрока = НовДокумент.Номенклатура.Добавить();
НоваяСтрока.Номенклатура = ТекСтрока.ВидТоплива;
НоваяСтрока.Ед = ТекСтрока.Ед;
НоваяСтрока.Количество = ТекСтрока.Заявлено;
НоваяСтрока.Коэффициент = 1;
ФормаНовыйДокумент=НовДокумент.ПолучитьФорму(,ЭтаФорма);
ФормаНовыйДокумент.открыть();
Иначе Продолжить;
КонецЕсли;
КонецЦикла;
КонецПроцедуры