ФормаСозданиеДокумента

&НаКлиенте
Процедура СоздатьПриход(Команда)
    СоздатьПриходНаСервере();
КонецПроцедуры

&НаСервере
Процедура СоздатьПриходНаСервере()
    ДокОбъект = Документы.ПриходнаяНакладная.СоздатьДокумент();
    ДокОбъект.Дата = Дата;
    ДокОбъект.Склад = Склад;
    ДокОбъект.Менеджер = Менеджер;
    ДокОбъект.Коментарий = Коментарий;

    Для Счетчик = 0 ПО Объект.Номенклатура.Количество() - 1 Цикл
        ТекущаяСтрока = Объект.Номенклатура.Получить(Счетчик);
        НоваяСтрока = ДокОбъект.Номенклатура.Добавить();
        НоваяСтрока.Номенклатура = ТекущаяСтрока.Номенклатура;
        НоваяСтрока.ЕдИзм = ТекущаяСтрока.ЕдИзм;
        НоваяСтрока.Количество = ТекущаяСтрока.Количество;
        НоваяСтрока.Цена = ТекущаяСтрока.Цена;
        НоваяСтрока.Сумма = текущаяСтрока.Сумма;
    КонецЦикла;
    ДокОбъект.Записать();
КонецПроцедуры


&НаКлиенте
Процедура СоздатьРасход(Команда)
    СоздатьРасходНаСервере();
КонецПроцедуры

&НаСервере
Процедура СоздатьРасходНаСервере()
    ДокОбъект = Документы.РасходнаяНакладная.СоздатьДокумент();
    ДокОбъект.Дата = Дата;
    ДокОбъект.Склад = Склад;
    ДокОбъект.Менеджер = Менеджер;
    ДокОбъект.Коментарий = Коментарий;
    Для Счетчик = 0 ПО Объект.Номенклатура.Количество() - 1 Цикл
        ТекущаяСтрока = Объект.Номенклатура.Получить(Счетчик);
        НоваяСтрока = ДокОбъект.Номенклатура.Добавить();
        НоваяСтрока.Номенклатура = ТекущаяСтрока.Номенклатура;
        НоваяСтрока.ЕдИзм = ТекущаяСтрока.ЕдИзм;
        НоваяСтрока.Количество = ТекущаяСтрока.Количество;
        НоваяСтрока.Цена = ТекущаяСтрока.Цена;
        НоваяСтрока.Сумма = текущаяСтрока.Сумма;
    КонецЦикла;
    ДокОбъект.Записать();
КонецПроцедуры


//Процедуры работы с таблицей
&НаКлиенте
Процедура НоменклатураНоменклатураПриИзменении(Элемент)
    Стр = Элементы.Номенклатура.ТекущиеДанные;
    ПолучитьДанныеНоменклатура(Стр.номенклатура, Стр.ЕдИзм, Стр.Цена);
    Стр.Количество = 1;
    НоменклатураКоличествоПриИзменении(Элемент);
КонецПроцедуры

&НаКлиенте
Процедура НоменклатураКоличествоПриИзменении(Элемент)
    Стр = Элементы.Номенклатура.ТекущиеДанные;
    Если Стр.Количество > 0 Тогда
        Стр.Сумма = Стр.Цена * Стр.количество;
    Иначе
        ДефолтныеЗначенияПриОшибке(Элемент);
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура НоменклатураЦенаПриИзменении(Элемент)
    Стр = Элементы.Номенклатура.ТекущиеДанные;
    Если Стр.Цена > 0 Тогда
        Стр.Сумма = Стр.Цена * Стр.количество;
    Иначе
        ДефолтныеЗначенияПриОшибке(Элемент);
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура НоменклатураСуммаПриИзменении(Элемент)
    Стр = Элементы.Номенклатура.ТекущиеДанные;
    Если Стр.Сумма > 0 Тогда
        Стр.Цена = Стр.Сумма / Стр.Количество;
    Иначе
        ДефолтныеЗначенияПриОшибке(Элемент);
    КонецЕсли
КонецПроцедуры

&НаКлиенте
Процедура ДефолтныеЗначенияПриОшибке(Элемент)
    Сообщить("Некоректное значение поля");
    НоменклатураНоменклатураПриИзменении(Элемент);
КонецПроцедуры

&НаСервере
Процедура ПолучитьДанныеНоменклатура(Номенклатура, ЕдИзм, Цена)
    Цена = Номенклатура.Цена;
    ЕдИзм = Номенклатура.ЕдиницаИзмерения;
КонецПроцедуры