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

Общее количество и сумма в Регистрах накопления

Автор proofet, 09 мар 2011, 22:22

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

proofet

 :befhbt: При проведении документа "Реализация" нужно проверять в регистре накопления "Остатки", имеется ли заданное количество в остатке, и если для всех номенклатур есть, то делаем движение по регистру "Остатки"....Что нужно добавить в код полученный Конструктором Движений для суммирования по всем документам !?
Реализация:

Процедура ОбработкаПроведения(Отказ, Режим)

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

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

Klyacksa

Нужно
1. Достать по используемой номенклатуре остатки (запросом)
2. Сравнить их с тем, что хотим списать
3. Если достаточно - списываем, если не достаточно - ругаемся.

При этом, можно все это сделать одним запросом.
1. Выгружаем во временную таблицу Номенклатура-Количество из нашего документа
2. Потом к ней присоединяем текущие остатки
3. Группируем, и сравниваем КоличествоОстаток и Количество (из дока). Если хоть в одной строке товара не достаточно, то возвращаем запросом Ложь, иначе возвращаем - Истина
xxx: Спасибо! Я бы загуглил, но ты интересней. Материшься. Злишься. Послать можешь...

Мысль - это оргазм мозга. Кто способен его испытать - получают истинное наслаждение, остальным приходится имитировать

cska-fanat-kz

Пусть почитает вот здесь:
https://forum-baza.ru/index.php?topic=6580.0

Зря что ли старались писали сообщений на 10 страниц? )
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Klyacksa

xxx: Спасибо! Я бы загуглил, но ты интересней. Материшься. Злишься. Послать можешь...

Мысль - это оргазм мозга. Кто способен его испытать - получают истинное наслаждение, остальным приходится имитировать

proofet


Теги:

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

Рейтинг@Mail.ru

Поиск