Имя: Пароль:
1C
1С v8
Определения процедур и функций должны размещаться перед операторами тела модуля
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) запиточки после концапроцедур убери
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший