Консультация № 122076
07.02.2008, 12:54
0.00 руб.
0 1 1
Уважаемые эксперты! Подскажите, пожалуйста, как сделать проверку при проведении расходной накладной. Надо, чтобы накладная всё же проводилась, но выскакивало предупреждение, если продажа ТМЦ идёт в убыток, т.е. если продажа ниже себестоимости.
1С-7.70-026. Торговля и Склад-944
Большое спасибо!

Обсуждение

Неизвестный
08.02.2008, 17:11
общий
это ответ
Здравствуйте, VladimirNick! Есть такой оператор ВыбратьДвиженияДокумента() который выбирает движения выполненные документом по регистрам. В конце процедуры "ОбработкаПроведения" , когда движения по регистрам уже выполнены пройдитесь по выполненным движениям регистра "ПартииНаличие" и сравните сумму в документе по строкам с "СуммаРуб" в движениях по этому регистру. На всякий случай в приложении пример как это сделать


Приложение:
Процедура ОбработкаПроведения(ВидыДвижений) ..... ..... // в конце добавляем Табл = СоздатьОбъект("ТаблицаЗначений"); ВыгрузитьТабличнуюЧасть(Табл,);; Рег1 = СоздатьОбъект("Регистр.ПартииНаличие"); Рег1.ВыбратьДвиженияДокумента(ТекущийДокумент()); Пока Рег1.ПолучитьДвижение() > 0 Цикл Поз = 0; Табл.НайтиЗначение(Рег1.Номенклатура,Поз,"Номенклатура");; Табл.ПолучитьСтрокуПоНомеру(Поз);; Если Рег1.СуммаРуб <= Табл.Сумма Тогда Сообщить("Строка " + Поз + "Сумма в документе " + Табл.Сумма + " себестоимость товара " + Рег1.СуммаРуб); КонецЕсли; КонецЦикла; КонецПроцедуры
Форма ответа