Глава_02

Назад | Начало урока | Вперед
Содержание

Глава 2

Предполагаю, что есть следующие функции:

вывод справочника на печать
вывод справочника в файл

Можем написать сами функцию:
чтение из файла в справочник

Эта функция необходима. Набирать ручками - это хорошо
для пользователя, но не для программиста.

Еще вот какая мысль: если я работал в конфигураторе
только со справочником. То могу ли я забрать домой только
файлы относящиеся к этому справочнику? Это было бы удобно!

Запись и удаление в цикле

Продолжаем далее писать нашу программу тестирования функций,
относящихся к справочнику.

//--------------------- Процедура ЗаписатьД()


   СпрСотр = СоздатьОбъект("Справочник.Сотрудники");

    СпрСотр.Новый();

    СпрСотр.Наименование = "Иванов";

    СпрСотр.АдресПрописка = "Саратов 5";

    СпрСотр.Документ = "Паспорт ";	

    СпрСотр.Должность = "Бухгалтер"; 

    СпрСотр.Оклад = "20 000";

    СпрСотр.Записать();


КонецПроцедуры

//--------------------- Процедура УдалитьД()


    СпрСотр = СоздатьОбъект("Справочник.Сотрудники"); 

    СпрСотр.НайтиПоНаименованию("Иванов");

    СпрСотр.Удалить(0); //пометка на удаление

    СпрСотр.Удалить(1); //непосредственное удаление


КонецПроцедуры

//--------------------- Процедура ЗапЦикле()


    n=1;	

    Пока(n<10)   Цикл

        СпрСотр = СоздатьОбъект("Справочник.Сотрудники");

        СпрСотр.Новый();

        СпрСотр.Наименование = "Иванов";

        СпрСотр.АдресПрописка = "Саратов 5";

        СпрСотр.Документ = "Паспорт ";	

        СпрСотр.Должность = "Бухгалтер"; 

        СпрСотр.Оклад = "20 000";

        СпрСотр.Записать();  

        n=n+1;

    КонецЦикла;


КонецПроцедуры

//--------------------- Процедура УдалениеЦикле()


    СпрСотр = СоздатьОбъект("Справочник.Сотрудники");

    n=1;	

    Пока(n<10)   Цикл

            СпрСотр.НайтиПоКоду(n);

        СпрСотр.Удалить(0); //пометка на удаление

        СпрСотр.Удалить(1); //непосредственное удаление

	n=n+1;

    КонецЦикла;


КонецПроцедуры

//----------------------
Отлично работает!

Перебор элементов

Далее протестируем:
Перебор элементов справочника в цикле.


Процедура  Перебор()

    СпрСотр = СоздатьОбъект("Справочник.Сотрудники");

    СпрСотр.ВыбратьЭлементы(); 

    Пока (СпрСотр.ПолучитьЭлемент() = 1) Цикл 

       //действия с очередным элементом 

       Сообщить("Сотрудник " + СпрСотр.Наименование); 

    КонецЦикла;

КонецПроцедуры

Эта программа выводит фамилии работающих и названия групп - "Работающие" или "Уволенные".

Назад | Начало урока | Вверх | Вперед
Содержание