не видно результат поиска
17.07.2009
10:13
#1
"люди добры помогите, совсем запуталась, на платформе 7.7 пишу программку, и для документа з/н есть справочник с нужными работами вот этот справочник разбиваю по разрядам, т.е.например закрутка болта : квалификация сотрудника по 1 разряду, идет одна цена, по второму разъряду другая цена и т.д.Получается через подпор я выхожу в справочник перечень работ выбираю нужный разъряд вот тут-то и малина, я написала ф-цию которая по нужному значению из подчиненного справочника "Квалификации", должна выбрать все цены и показать пользователю, чтобы он выбрал .функция работает но результат виден только через отладчик, а пользователь ничего не видит.
Функция Тариф()
ТарифНаРазъряд=СоздатьОбъект("Справочник.Квалификации");
Бонус = тБонус;
Если ЭтоГруппа() = 1 Тогда
Возврат """";
КонецЕсли;
Бонус = "Х";
Если ПустоеЗначение (ВыбКвалификации)= 0 Тогда
ТарифНаРазъряд.ИспользоватьВладельца(ТекущийЭлемент());
Если ТарифНаРазъряд.НайтиПоРеквизиту("Квалификация",ВыбКвалификации,0) = 1 Тогда
Бонус = ФРМ(ТарифНаРазъряд.тБонус);
КонецЕсли;
Иначе
Бонус =ФРМ(тБонус);
КонецЕсли;
Возврат Бонус;
КонецФункции"
Функция Тариф()
ТарифНаРазъряд=СоздатьОбъект("Справочник.Квалификации");
Бонус = тБонус;
Если ЭтоГруппа() = 1 Тогда
Возврат """";
КонецЕсли;
Бонус = "Х";
Если ПустоеЗначение (ВыбКвалификации)= 0 Тогда
ТарифНаРазъряд.ИспользоватьВладельца(ТекущийЭлемент());
Если ТарифНаРазъряд.НайтиПоРеквизиту("Квалификация",ВыбКвалификации,0) = 1 Тогда
Бонус = ФРМ(ТарифНаРазъряд.тБонус);
КонецЕсли;
Иначе
Бонус =ФРМ(тБонус);
КонецЕсли;
Возврат Бонус;
КонецФункции"
17.07.2009
14:17
#2
Люди добры всем спасибо, я все сделала сама он выдает результат в зависимости от разряда, если кому интересно, спрашивайте отвечу.
Читают тему
(гостей: 1)