Файл: Разработка конфигурации «Взаиморасчеты с клиентами» в среде 1С:Предприятие 8.3..pdf
Добавлен: 29.03.2023
Просмотров: 228
Скачиваний: 11
СОДЕРЖАНИЕ
1.1. Выбор комплекса задач автоматизации
1.2. Характеристика документооборота, возникающего при решении задачи
1.3. Обоснование проектных решений по информационному обеспечению
2.2. Характеристика разработанных экранных форм документов в среде 1С:Предприятие
2.3. Описание разработанных подсистем в среде 1С:Предприятие
2.4. Контрольный пример реализации проекта в среде 1С:Предприятие и его описание
Запрос.Текст =
"ВЫБРАТЬ
| ДокМ.Номенклатура,
| СУММА(ДокМ.Количество) КАК Количество,
| СУММА(ДокМ.Сумма) КАК Сумма,
| МАКСИМУМ(ЕСТЬNULL(ОстМ.КоличествоОстаток, 0)) КАК КоличествоОстаток
|
|ИЗ
| Документ.СписаниеМатериалов.Сервис КАК ДокМ
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(&МоментВремени) КАК ОстМ
| ПО ДокМ.Номенклатура = ОстМ.Номенклатура
|ГДЕ
| ДокМ.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| ДокМ.Номенклатура";
Запрос.УстановитьПараметр("МоментВремени", МоментВремени());
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Результат = Запрос.Выполнить();
ВыборкаДЗ = Результат.Выбрать();
Движения.ОстаткиМатериалов.Записывать=Истина;
Пока ВыборкаДЗ.Следующий() Цикл
Если ВыборкаДЗ.Количество()>ВыборкаДЗ.КоличествоОстаток Тогда
Сообщить("Недостаточное количество материала "
+ ВыборкаДЗ.Номенклатура+", необходимо: " + ВыборкаДЗ.Количество()+", в наличии: "
+ ВыборкаДЗ.КоличествоОстаток);
Отказ=Истина;
Движения.ОстаткиМатериалов.Записывать=Ложь;
КонецЕсли;
Если Отказ Тогда
Продолжить;
КонецЕсли;
Движение = Движения.ОстаткиМатериалов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Номенклатура = ВыборкаДЗ.Номенклатура;
Движение.Количество = ВыборкаДЗ.Количество;
Движение.Сумма = ВыборкаДЗ.Сумма;
Движение.Ответственный = Ответственный;
КонецЦикла;
КонецПроцедуры
Регистратором прихода является документ «Заказ» , листинг проведения движения которого представлен ниже:
Код изменения статуса аналогичен и имеет следующую структуру:
МенеджерЗаписи = РегистрыСведений.СостояниеЗаказа.СоздатьМенеджерЗаписи();
МенеджерЗаписи.Заказ = Ссылка;
МенеджерЗаписи.Состояние = Перечисления.СостоянияЗаказа.принят;
МенеджерЗаписи.Дата = ТекущаяДата();
МенеджерЗаписи.Записать();
Листинг отчетов:
1. «ОборотноСальдоваяВедомость» – данный отчет предназначен для получения сводной информации обо всех движениях расходных материалов на складе в бухгалтерском учете.
Данный отчет формируется на основе запроса:
ВЫБРАТЬ
ОстаткиМатериаловОстаткиИОбороты.Номенклатура,
ОстаткиМатериаловОстаткиИОбороты.КоличествоНачальныйОстаток,
ОстаткиМатериаловОстаткиИОбороты.СуммаНачальныйОстаток,
ОстаткиМатериаловОстаткиИОбороты.КоличествоПриход,