Факультет кти кафедра асоиу к защите допустить: Заведующий кафедрой
Скачать 1.08 Mb.
|
Процедура ПеречньНоменклатурыКоличествоПриИзменении(Элемент) СтрокаТабличнойЧасти = ЭлементыФормы.ПереченьНоменклатуры.ТекущиеДанные; РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти); КонецПроцедуры Процедура ПеречньНоменклатурыЦенаПриИзменении(Элемент) СтрокаТабличнойЧасти = ЭлементыФормы.ПереченьНоменклатуры.ТекущиеДанные; РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти); КонецПроцедуры Процедура ПереченьНоменклатурыИзделиеПриИзменении(Элемент) // Получить текущую строку табличной части. СтрокаТабличнойЧасти = ЭлементыФормы.ПереченьНоменклатуры.ТекущиеДанные; // Установить цену. СтрокаТабличнойЧасти.Цена = РаботаСоСправочниками.РозничнаяЦена(Дата,Элемент.Значение); // Пересчитать сумму строки. РаботаСДокументами.РассчитатьСумму(СтрокаТабличнойЧасти); КонецПроцедуры Процедура Печать(Элемент) ТабДок = Новый ТабличныйДокумент; Макет = Документы.РасходнаяНакладная.ПолучитьМакет("Печать"); // Заголовок Область = Макет.ПолучитьОбласть("Заголовок"); ТабДок.Вывести(Область); // Шапка Шапка = Макет.ПолучитьОбласть("Шапка"); Шапка.Параметры.Заполнить(ЭтотОбъект); ТабДок.Вывести(Шапка); // ПереченьНоменклатуры Область = Макет.ПолучитьОбласть("ПереченьНоменклатурыШапка"); ТабДок.Вывести(Область); ОбластьПереченьНоменклатуры = Макет.ПолучитьОбласть("ПереченьНоменклатуры"); Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл ОбластьПереченьНоменклатуры.Параметры.Заполнить(ТекСтрокаПереченьНоменклатуры); ТабДок.Вывести(ОбластьПереченьНоменклатуры); КонецЦикла; Область = Макет.ПолучитьОбласть("Всего"); Область.Параметры.ВсегоПоДокументу = ПереченьНоменклатуры.Итог("Сумма"); ТабДок.Вывести(Область); ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Ложь; ТабДок.ОтображатьЗаголовки = Ложь; ТабДок.Показать(); КонецПроцедуры Процедура ПриЗаписи(Отказ) Если ПустаяСтрока(Склад) Тогда Сообщить("Графа Склад не может быть пустой"); Отказ = Истина; Возврат; КонецЕсли; Если ПустаяСтрока(Клиент) Тогда Сообщить("Графа Клиент не может быть пустой"); Отказ = Истина; Возврат; КонецЕсли; Если ПустаяСтрока(Сотрудник) Тогда Сообщить("Графа Сотрудник не может быть пустой"); Отказ = Истина; Возврат; КонецЕсли; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | РасходнаяНакладнаяПереченьНоменклатуры.Изделие, | РасходнаяНакладнаяПереченьНоменклатуры.Количество, | РасходнаяНакладнаяПереченьНоменклатуры.Цена |ИЗ | Документ. РасходнаяНакладная.ПереченьНоменклатуры КАК РасходнаяНакладнаяПереченьНоменклатуры "; Выборка = Запрос.Выполнить().Выгрузить(); Для Каждого СтрокаТч Из Выборка Цикл Если ПустаяСтрока(СтрокаТЧ.Изделие) Тогда Сообщить("Графа Изделие не может быть пустой"); Отказ = Истина; Возврат; КонецЕсли; Если ПустаяСтрока(СтрокаТч.Количество) Или СтрокаТч.Количество = 0 Тогда Сообщить("Графа Количество не может быть пустой или равняться 0"); Отказ = Истина; Возврат; КонецЕсли; Если ПустаяСтрока(СтрокаТч.Цена) Или СтрокаТч.Цена = 0 Тогда Сообщить("Графа Цена не может быть пустой или равняться 0"); Отказ = Истина; Возврат; КонецЕсли; КонецЦикла; КонецПроцедуры Документ ВводНачальныхОстатковНоменклатуры Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) ОбновитьДатуДвижений = ЭтоНовый() ИЛИ Движения.ОстаткиКомплектующих.Модифицированность(); Если Не ОбновитьДатуДвижений Тогда // Проверить, что дата изменилась. Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", Ссылка); Запрос.Текст = "ВЫБРАТЬ | Дата |ИЗ | Документ.ВводНачальныхОстатковНоменклатуры |ГДЕ Ссылка = &ТекущийДокумент"; Выборка = Запрос.Выполнить().Выбрать(); Выборка.Следующий(); ОбновитьДатуДвижений = Выборка.Дата <> Дата; КонецЕсли; //Установить всем новую дату, если нужно. Если ОбновитьДатуДвижений Тогда Если Не Движения.ОстаткиКомплектующих.Выбран() И Не Движения.ОстаткиКомплектующих.Модифицированность() Тогда Движения.ОстаткиКомплектующих.Прочитать(); КонецЕсли; Для Каждого ЗаписьРегистра Из Движения.ОстаткиКомплектующих Цикл ЗаписьРегистра.Период = Дата; КонецЦикла; КонецЕсли; КонецПроцедуры Документ ВводНачальныхОстатковИзделий Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) //Определить, нужно ли обновлять дату в движениях. ОбновитьДатуДвижений = ЭтоНовый() ИЛИ Движения.ОстаткиИзделия.Модифицированность(); Если Не ОбновитьДатуДвижений Тогда // Проверить, что дата изменилась. Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", Ссылка); Запрос.Текст = "ВЫБРАТЬ | Дата |ИЗ | Документ.ВводНачальныхОстатковИзделий |ГДЕ Ссылка = &ТекущийДокумент"; Выборка = Запрос.Выполнить().Выбрать(); Выборка.Следующий(); ОбновитьДатуДвижений = Выборка.Дата <> Дата; КонецЕсли; //Установить всем новую дату, если нужно. Если ОбновитьДатуДвижений Тогда Если Не Движения.ОстаткиИзделия.Выбран() И Не Движения.ОстаткиИзделия.Модифицированность() Тогда Движения.ОстаткиИзделия.Прочитать(); КонецЕсли; Для Каждого ЗаписьРегистра Из Движения.ОстаткиИзделия Цикл ЗаписьРегистра.Период = Дата; КонецЦикла; КонецЕсли; КонецПроцедуры Отчет «Комплектующие» ВЫБРАТЬ ОстаткиКомплектующихОстаткиИОбороты.Склад, ОстаткиКомплектующихОстаткиИОбороты.Материал, ОстаткиКомплектующихОстаткиИОбороты.КоличествоНачальныйОстаток, ОстаткиКомплектующихОстаткиИОбороты.КоличествоПриход, ОстаткиКомплектующихОстаткиИОбороты.КоличествоРасход, ОстаткиКомплектующихОстаткиИОбороты.КоличествоКонечныйОстаток ИЗ РегистрНакопления.ОстаткиКомплектующих.ОстаткиИОбороты КАК ОстаткиКомплектующихОстаткиИОбороты СГРУППИРОВАТЬ ПО ОстаткиКомплектующихОстаткиИОбороты.Склад, ОстаткиКомплектующихОстаткиИОбороты.Материал, ОстаткиКомплектующихОстаткиИОбороты.КоличествоНачальныйОстаток, ОстаткиКомплектующихОстаткиИОбороты.КоличествоПриход, ОстаткиКомплектующихОстаткиИОбороты.КоличествоРасход, ОстаткиКомплектующихОстаткиИОбороты.КоличествоКонечныйОстаток Отчет «ОстаткиКомплектующихПоСвойствам» ВЫБРАТЬ ОстаткиКомплектующихОстаткиИОбороты.Материал, ОстаткиКомплектующихОстаткиИОбороты.НаборСвойств, ОстаткиКомплектующихОстаткиИОбороты.КоличествоНачальныйОстаток КАК НачальныйОстаток, ОстаткиКомплектующихОстаткиИОбороты.КоличествоПриход КАК Приход, ОстаткиКомплектующихОстаткиИОбороты.КоличествоРасход КАК Расход, ОстаткиКомплектующихОстаткиИОбороты.КоличествоКонечныйОстаток КАК КонечныйОстаток ИЗ РегистрНакопления.ОстаткиКомплектующих.ОстаткиИОбороты КАК ОстаткиКомплектующихОстаткиИОбороты {ХАРАКТЕРИСТИКИ ТИП(Справочник.ВариантыНоменклатуры) СПИСОК ПланВидовХарактеристик.СвойстваНоменклатуры ИДЕНТИФИКАТОР Ссылка ИМЯ Наименование ТИПЗНАЧЕНИЯ ТипЗначения ЗНАЧЕНИЯ РегистрСведений.ЗначенияСвойствНоменклатуры ОБЪЕКТ НаборСвойств ХАРАКТЕРИСТИКА ВидСвойства ЗНАЧЕНИЕ Значение } Отчет «ПоискДанных» Перем СписокПоиска; Процедура ПриОткрытии() СписокПоиска = ПолнотекстовыйПоиск.СоздатьСписок(); КонецПроцедуры Процедура НайтиНажатие(Элемент) СписокПоиска.СтрокаПоиска = ПоисковоеВыражение; Попытка СписокПоиска.ПерваяЧасть(); Исключение Предупреждение(ОписаниеОшибки()); КонецПопытки; Если СписокПоиска.ПолноеКоличество() = 0 Тогда ЭлементыФормы.СообщениеОРезультате.Значение = "Не найдено"; ЭлементыФормы.РезультатПоиска.УстановитьТекст(""); Иначе ВывестиРезультатПоиска(); КонецЕсли; КонецПроцедуры Процедура ВывестиРезультатПоиска() ЭлементыФормы.СообщениеОРезультате.Значение = "Показаны " + Строка(СписокПоиска.НачальнаяПозиция() + 1) + " - " + Строка(СписокПоиска.НачальнаяПозиция() + СписокПоиска.Количество()) + " из " + СписокПоиска.ПолноеКоличество(); Результат = СписокПоиска.ПолучитьОтображение(ВидОтображенияПолнотекстовогоПоиска.HTMLТекст); ЭлементыФормы.РезультатПоиска.УстановитьТекст(Результат); ДоступностьКнопок(); КонецПроцедуры Процедура ДоступностьКнопок() ЭлементыФормы.СледующаяПорция.Доступность = (СписокПоиска.ПолноеКоличество() - СписокПоиска.НачальнаяПозиция()) > СписокПоиска.Количество(); ЭлементыФормы.ПредыдущаяПорция.Доступность = (СписокПоиска.НачальнаяПозиция() > 0); КонецПроцедуры Процедура ПредыдущаяПорцияНажатие(Элемент) СписокПоиска.ПредыдущаяЧасть(); ВывестиРезультатПоиска(); КонецПроцедуры Процедура СледующаяПорцияНажатие(Элемент) СписокПоиска.СледующаяЧасть(); ВывестиРезультатПоиска(); КонецПроцедуры Процедура РезультатПоискаonclick(Элемент, pEvtObj) htmlElement = pEvtObj.srcElement; // Проверить идентификатор элемента. Если (htmlElement.id = "FullTextSearchListItem") Тогда // Получить имя файла (номер строки списка поиска), // содержащегося в гиперссылке. НомерВСписке = Число(htmlElement.nameProp); // Получить строку списка поиска по номеру. ВыбраннаяСтрока = СписокПоиска[НомерВСписке]; // Открыть форму найденного объекта. ОткрытьЗначение(ВыбраннаяСтрока.Значение); pEvtObj.returnValue = Ложь; КонецЕсли; КонецПроцедуры Отчет «ИзменениеСтоимостиИзделий» ВЫБРАТЬ СтоимостьИзделий.Период, СтоимостьИзделий.Изделие, СтоимостьИзделий.Стоимость ИЗ РегистрСведений.Цены КАК Цены, РегистрНакопления.СтоимостьИзделий КАК СтоимостьИзделий Отчет «ИзменениеСтоимостиКомплектующих» ВЫБРАТЬ СтоимостьКомплектующих.Период, СтоимостьКомплектующих.Комплектующая, СтоимостьКомплектующих.Стоимость КАК Цена ИЗ РегистрНакопления.СтоимостьКомплектующих КАК СтоимостьКомплектующих Отчет «ПодажиИзделий» ВЫБРАТЬ ОстаткиИзделияОстаткиИОбороты.Изделие, ОстаткиИзделияОстаткиИОбороты.КоличествоРасход КАК Продажи ИЗ РегистрНакопления.ОстаткиИзделия.ОстаткиИОбороты КАК ОстаткиИзделияОстаткиИОбороты Отчет «РеестрДокументовРасходнаяНакладная» ВЫБРАТЬ РасходнаяНакладная.Дата, РасходнаяНакладная.Номер, РасходнаяНакладная.Склад, РасходнаяНакладная.Клиент, РасходнаяНакладная.Сотрудник, РасходнаяНакладная.ПереченьНоменклатуры.( Изделие, Количество, Цена, Сумма ) ИЗ Документ.РасходнаяНакладная КАК РасходнаяНакладная Отчет «РеестрДокументовЗаказКомплектующих» ВЫБРАТЬ ЗаказКомплектующих.Дата КАК Дата, ЗаказКомплектующих.Номер, ЗаказКомплектующих.Склад, ЗаказКомплектующих.Подразделение, ЗаказКомплектующих.ДатаПоставки, ЗаказКомплектующих.Поставщик, ЗаказКомплектующих.Проведен ИЗ Документ.ЗаказКомплектующих КАК ЗаказКомплектующих УПОРЯДОЧИТЬ ПО Дата, ЗаказКомплектующих.Ссылка Отчет «РеестрДокументовНакладнаяНаСборку» ВЫБРАТЬ НакладнаяНаСборку.Дата, НакладнаяНаСборку.Номер, НакладнаяНаСборку.Изделие.Наименование, НакладнаяНаСборку.Количество, НакладнаяНаСборку.СкладКомплектующих, НакладнаяНаСборку.СкладИзделий ИЗ Документ.НакладнаяНаСборку КАК НакладнаяНаСборку |
Похожие:
 | Российская академия народного хозяйства и государственной службы... М. А. Абрамова, заведующий кафедрой «Денежно-кредитные отношения и монетарная политика», кандидат экономических наук, профессор | | Т. А. Смелова Г. С. Мерзликина Рецензенты: заведующий кафедрой менеджмента сгсэу д э н., профессор Яшин Н. С., заведующий кафедрой «Бухгалтерский учет, ахд и аудит»... |
| Юридический факультет утверждаю Рецензент: Руденок В. П., кандидат политических наук, профессор, заведующий кафедрой тстк российской таможенной академии | | Юридический факультет утверждаю Рецензент: Руденок В. П., кандидат политических наук, профессор, заведующий кафедрой тстк российской таможенной академии |
 | Юридический факультет утверждаю Рецензент: Руденок В. П., кандидат политических наук, профессор, заведующий кафедрой тстк российской таможенной академии | | Юридический факультет утверждаю Рецензент: Руденок В. П., кандидат политических наук, профессор, заведующий кафедрой тстк российской таможенной академии |
| Юридический факультет утверждаю ... | | Эконометрика Кафедра математического моделирования Башкирского государственного университета, заведующий кафедрой доктор физико-математических... |
| Методические рекомендации по подготовке, оформлению и защите курсовых... Л. Г. Лаптев – заведующий кафедрой психологии, доктор психологических наук, профессор | | Методические рекомендации по подготовке, оформлению и защите курсовых... Л. Г. Лаптев – заведующий кафедрой психологии, доктор психологических наук, профессор |
| Допустить к защите Необходимость, цель и задачи реформ бухгалтерского учета | | Кафедра «Ортопедической стоматологии» Кучмезов И. А. Микропротезирование В. Н. Олесова заведующий кафедрой клинической стоматологии и имплантологии фум цсп, доктор медицинских наук, профессор |
| Кафедра «Ортопедической стоматологии» Кучмезов И. А. Ортопедическая стоматология В. Н. Олесова заведующий кафедрой клинической стоматологии и имплантологии фум цсп, доктор медицинских наук, профессор | | Основная профессиональная образовательная программа Тского возраста (заведующая кафедрой д м н., проф. Р. З. Уразова), ортопедической стоматологии (заведующая кафедрой д м н., проф.... |
| Педагогические условия формирования нравственных ценностных ориентаций... Фгбоу впо «Забайкальский государственный университет», кафедра теории и методики дошкольного и начального образования, заведующий... | | Методические указания к курсовому проектированию по дисциплине «Проектирование асоиу» «Проектирование асоиу» / Сост. Агарунова Л. А.; Волгоград гос техн ун-т, Волгоград, 2003. – 26 с |
