ТЗ на форме - узнать количество фиксированных строк..?

[Злоп]

Собственно сабж.

[item]

Тебе не понравится.

Код Выделить Развернуть

Функция КоличествоФиксированныхСтрок(ТЗ)
    Перем Результат, СохрНомерСтроки, Счётчик;
    КоличествоСтрок = ТЗ.КоличествоСтрок();
    Если КоличествоСтрок = 0 Тогда
        Возврат 0;
    КонецЕсли;
    СохрНомерСтроки = ТЗ.ТекущаяСтрока();
    Для Счётчик = 1 По КоличествоСтрок Цикл
        ТЗ.ТекущаяСтрока(Счётчик);
        Если ТЗ.ТекущаяСтрока() = Счётчик Тогда
            Если СохрНомерСтроки > 0 Тогда    
                ТЗ.ТекущаяСтрока(СохрНомерСтроки);
            КонецЕсли;
            Возврат (Счётчик - 1);
        КонецЕсли;
    КонецЦикла;
    Возврат КоличествоСтрок;
КонецФункции

[Харлампий Дымба]

#1 А по-моему достаточно изящный хак - в рамках отсутствия других штатных возможностей получить результат.

[item]

#1 А по-моему достаточно изящный хак ...

Злоп не любит много буков ))
Да и я тоже

[Злоп]

#1 А по-моему достаточно изящный хак - в рамках отсутствия других штатных возможностей получить результат.

такой финт мне пришел сразу на ум, но я решил с ним повременить, может что-то адекватное есть...
С ТекущаяСтрока() - надо аккуратно, когда после ТЗ.ТекущаяСтрока() нет обновления экрана...
Не случалось, у вас что ТЗ.ТекущаяСтрока() и ТЗ.НомерСтроки - разные значения..? - у меня случалось...

[Злоп]

Можно чуток упростить
.

Код Выделить Развернуть

Функция КоличествоФиксированныхСтрок(ТЗ)
    Перем Результат, СохрНомерСтроки, Счётчик;
    КоличествоСтрок = ТЗ.КоличествоСтрок();
    Если КоличествоСтрок = 0 Тогда
        Возврат 0;
    КонецЕсли;
    СохрНомерСтроки = ТЗ.ТекущаяСтрока();
    Для Счётчик = 1 По КоличествоСтрок Цикл
        ТЗ.ТекущаяСтрока(Счётчик);
        Если ТЗ.ТекущаяСтрока() = Счётчик Тогда
            Если СохрНомерСтроки > 0 Тогда    
                ТЗ.ТекущаяСтрока(СохрНомерСтроки);
            КонецЕсли;
            Прервать;
        КонецЕсли;
    КонецЦикла;
    Возврат (Счётчик - 1);
КонецФункции

[item]

Можно чуток упростить

Ошибочка выйдет, если все строки фиксированы.
Можно снять первую проверку на количество строк.

[Злоп]

Ошибочка выйдет, если все строки фиксированы.

нормально выйдет. если есть 10 строк и они все фиксированы - пройдет весь цикл и вывалится со счетчик = 11

[Злоп]

Положил в Копилку

Код Выделить Развернуть

//******************************************************************
// Функция КоличествоФиксированныхСтрок(ТЗ)
// Параметры:
//	ТЗ - 	ТаблицаЗначений, в которой надо определить
//		количество фиксированных строк
// Результат:
//	Возвращает число фиксированных строк
//
// Предполагается, что количество фиксированных строк
// не более количества строк ТЗ
//
Функция КоличествоФиксированныхСтрок(ТЗ)
  Перем СохрНомерСтроки, Счётчик;

  СохрНомерСтроки = ТЗ.ТекущаяСтрока();
  КоличествоСтрок = ТЗ.КоличествоСтрок();

  Для Счётчик = 1 По КоличествоСтрок Цикл
    ТЗ.ТекущаяСтрока(Счётчик);
    Если ТЗ.ТекущаяСтрока() = Счётчик Тогда
      Прервать;
    КонецЕсли;
  КонецЦикла;

  ТЗ.ТекущаяСтрока(СохрНомерСтроки);		
  Возврат (Счётчик - 1);
КонецФункции // КоличествоФиксированныхСтрок()

[item]

...если есть 10 строк и они все фиксированы - пройдет весь цикл и вывалится со счетчик = 11

Вывалится в 9, ты же Счетчик отнимаешь в конце

[Злоп]

Вывалится в 9, ты же Счетчик отнимаешь в конце

Если пройдет весь цикл без прервать, то после цикла Счётчик = 11

[Злоп]

Неоднократно таким приемом пользовался, когда надо определить отработало в цикле/нашли нужное или цикл закончился безрезультатно

[item]

Ну дела.
Этож зло в чистом виде!
Дураком помру.

[Злоп]

Дураком помру.

Не баись! Вместе будем ;-)