Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
28 мар 2024, 18:42

Выпуск продукции на основании Счета и Реализации

Автор san4ez, 08 апр 2020, 14:34

0 Пользователей и 1 гость просматривают эту тему.

san4ez

Добрый день! Надоело документ выпуск продукции вводить ручками.
На самоизоляции неожиданно появилось много времени.
Руки полезли в код документа Выпуск продукции. (1с Предприятие 7.7 УСН)

Вроде работает, но Хотелось бы уточнить, все ли сделано правильно.
Есть ли критические моменты. Не программист ни разу.
Получилось это
//Процедура ВводНаОсновании(ДокОсн)
Процедура ВводНаОсновании(ДокОсн)
Новый = 1;

Если ДокОсн.Вид() = "Счет" Тогда
    МестоХранения = глЗначениеПоУмолчанию("ОсновнойСклад");

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

ИначеЕсли ДокОсн.Вид() = "Реализация" Тогда
Если ДокОсн.МестоХранения.Выбран() = 1 Тогда
МестоХранения = ДокОсн.МестоХранения;
Иначе
    МестоХранения = глЗначениеПоУмолчанию("ОсновнойСклад");
КонецЕсли;

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

Комментарий = "Введен на основании: "+ГлПредставлениеДокумента(ДокОсн)
КонецПроцедуры // ВводНаОсновании()

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск