Поиск

Видеокурс - Программирование в 1С 8.3 - за 21 день (День №12)





ДОМАШНЕЕ ЗАДАНИЕ №12


-Обеспечьте контроль остатков для оперативно проводимых документов «Реализация товаров».

-Также решите задачу расчета себестоимости при продаже товаров.

-Для проверки результата введите ряд документов поступления и реализации.

РЕШЕНИЕ ЗАДАНИЯ


3 комментария:

  1. Анонимный26 ноября 2022 г. в 16:13

    Самый сложный урок

    ОтветитьУдалить
  2. Анонимный28 ноября 2022 г. в 20:12

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

    Движения.Записать();

    Если Режим = РежимПроведенияДокумента.Оперативный Тогда

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    | ОстаткиТоваровОстатки.Номенклатура КАК Номенклатура,
    | ОстаткиТоваровОстатки.КоличествоОстаток КАК Количество
    |ИЗ
    | РегистрНакопления.ОстаткиТоваров.Остатки(
    | ,
    | Номенклатура В
    | (ВЫБРАТЬ
    | РеализацияТоваровТовары.Номенклатура КАК Номенклатура
    | ИЗ
    | Документ.РеализацияТоваров.Товары КАК РеализацияТоваровТовары
    | ГДЕ
    | РеализацияТоваровТовары.Ссылка = &Ссылка)) КАК ОстаткиТоваровОстатки
    |ГДЕ
    | ОстаткиТоваровОстатки.КоличествоОстаток < 0";

    Запрос.УстановитьПараметр("Ссылка", Ссылка);

    РезультатЗапроса = Запрос.Выполнить();

    Если Не РезультатЗапросаПустой() Тогда

    Отказ = Истина;

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

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

    КонецЕсли;

    КонецЕсли;

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

    Возникла проблема
    {Документ.РеализацияТоваров.МодульОбъекта(65,33)}: Переменная не определена (ВыборкаДеятельностиЗаписи)
    Сообщить("По номенклатуре "+<>ВыборкаДеятельностиЗаписи.Номенклатура+" остаток "+ВыборкаДеятельностиЗаписи.Количество); (Проверка: Сервер)
    {Документ.РеализацияТоваров.МодульОбъекта(65,84)}: Переменная не определена (ВыборкаДеятельностиЗаписи)
    Сообщить("По номенклатуре "+ВыборкаДеятельностиЗаписи.Номенклатура+" остаток "+<>ВыборкаДеятельностиЗаписи.Количество); (Проверка: Сервер)
    {Документ.РеализацияТоваров.МодульОбъекта(58,11)}: Процедура или функция с указанным именем не определена (РезультатЗапросаПустой)
    Если Не <>РезультатЗапросаПустой() Тогда (Проверка: Сервер)

    Вообще никак понять не могу в чем проблема

    ОтветитьУдалить
    Ответы
    1. Анонимный19 апреля 2023 г. в 11:01

      ВыборкаДетальныеЗаписи вместо ВыборкаДеятельностиЗаписи исправьте)

      Удалить