![]() |
![]() |
|
Определения процедур и функций должны размещаться перед операторами тела модуля | ☑ | ||
---|---|---|---|---|
0
igoza
07.07.13
✎
09:04
|
Процедура ДействияФормыЗаполнить(Кнопка)
Если Сотрудник <> Неопределено Тогда ЗаполнениеПоСотруднику(); КонецЕсли; Если РабочееМесто <> Неопределено Тогда ЗаполнениеПоРабочемуМесту(); КонецЕсли; КонецПроцедуры Процедура ЗаполнениеПоРабочемуМесту() Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ | Остатки.МестоХранения КАК МестоХранения, | Остатки.Комплектующая КАК Комплектующая, | Остатки.ШтрихКод КАК ШтрихКод, | Остатки.Гарантия КАК Гарантия, | Остатки.Количество КАК Количество, | Остатки.Сумма КАК Сумма |ИЗ | РегистрНакопления.ОстаткиКомлектующих КАК Остатки |ГДЕ | Остатки.МестоХранения = &МестоХранения |"; Запрос.УстановитьПараметр("МестоХранения", РабочееМесто); Выборка = Запрос.Выполнить().Выгрузить(); //ЭлТаб = Эл.ТекущаяСтрока; Для Каждого Элемент ИЗ Выборка Цикл ЭлТаб = Номенклатура.Добавить(); ЭлТаб.Откуда = Элемент.МестоХранения; ЭлТаб.Комплектующие = Элемент.Комплектующая; ЭлТаб.ШтрихКод = Элемент.ШтрихКод; ЭлТаб.Гарантия = Элемент.Гарантия; ЭлТаб.Количество = Элемент.Количество; ЭлТаб.Сумма = Элемент.Сумма; ЭлТаб.Цена = Элемент.Сумма/Элемент.Количество; КонецЦикла; КонецПроцедуры; Процедура ЗаполнениеПоСотруднику() //Определения процедур и функций должны размещаться перед операторами тела модуля как сделать что бы не ругался О_О Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ | РабочиеМеста.РабочиеМеста КАК РабочиеМеста, | РабочиеМеста.Сотрудник КАК Сотрудник |ИЗ | РегистрСведения.РабочиеМеста КАК РабочиеМеста |ГДЕ | Остатки.Сотрудник = &Сотрудник |"; Запрос.УстановитьПараметр("Сотрудник", Сотрудник); Выборка = Запрос.Выполнить().Выгрузить(); //ЭлТаб = Эл.ТекущаяСтрока; Пер = 0; Для Каждого Элемент ИЗ Выборка Цикл РабочееМесто = Элемент.РабочиеМеста; Пер = Пер + 1; КонецЦикла; Если Пер > 1 Тогда Предупреждение(""+ Пер+" сотрудников"); КонецЕсли; КонецПроцедуры; |
|||
1
IamAlexy
07.07.13
✎
09:05
|
и чо ?
|
|||
2
МихаилМ
07.07.13
✎
09:05
|
КонецПроцедуры;
|
|||
3
igoza
07.07.13
✎
09:06
|
(1) как исправить что бы не ругался
|
|||
4
igoza
07.07.13
✎
09:08
|
всё исправил
|
|||
5
IamAlexy
07.07.13
✎
09:08
|
(3) запиточки после концапроцедур убери
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |