Автоматизация системы оперативного учета производства ООО Мебельный Дом "ЮВАЮ"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
реждение("На складе осталось ("+(пОстаток-Количество)+")
меньше минимального остатка на складе
("+Товар.МинимальныйОстаток+")!");
КонецЕсли;
КонецЕсли;
Иначе
пРег=СоздатьОбъект("Регистр.ОстаткиТоваров");
пРег.ВыбратьДвиженияДокумента(ТекущийДокумент());
Пока пРег.ПолучитьДвижение()=1 Цикл
Если пРег.Товар=Товар Тогда
пСписано=пРег.ОстатокТовара;
Прервать;
КонецЕсли;
КонецЦикла;
Если (Количество>пОстаток+пСписано) Тогда
Предупреждение("Запрошенное количество ("+Количество+") больше
реального остатка на складе ("+(пОстаток+пСписано)+")!");
Возврат;
Иначе
Если (Товар.МинимальныйОстаток>Число(пОстаток)+пСписано-
Количество) Тогда
Предупреждение("На складе осталось ("+(пОстаток+пСписано-
Количество)+") меньше минимального остатка на складе
("+Товар.МинимальныйОстаток+")!"+РазделительСтрок+
"Срочно закажите!!!");
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры;
Окончание приложения 3
Листинг внешнего модуля Расходная накладная
Функция лВернутьОстаток(пТовар)
Рег=СоздатьОбъект("Регистр.ОстаткиТоваров");
ОстатокТовара=Рег.СводныйОстаток(Товар, , "ОстатокТовара");
Возврат ОстатокТовара;
КонецФункции
Процедура ОбработкаПроведения()
Рег=СоздатьОбъект("Регистр.ОстаткиТоваров");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Если Товар.Выбран()=1 Тогда
пОстаток=Число(лВернутьОстаток(Товар));
Если (Количество>пОстаток) Тогда
Предупреждение("По товару "+Товар+" Запрошенное количество
("+Количество+") больше реального остатка на складе
("+(пОстаток)+")!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Регистр.ОстаткиТоваров.ДвижениеРасход(Товар, Склад, Количество,
Сумма);
КонецЕсли
КонецЦикла
КонецПроцедуры
ПРИЛОЖЕНИЕ 5
Тестирование конфигурации 1С: Складской учет ООО ЮВАЮ
Рис. 14. Ввод тестируемых данных с указанием минимального остатка
Рис. 15. Ввод тестируемых данных на Склад
Рис. 16. Регистрация документа в журнале
Рис. 17. Выборка тестируемых данных со Склада
Рис. 18. Регистрация документа в журнале
Рис. 19. Формирование отчета
Окончание приложения 5
Рис. 19. Форма отчета