л_сч » Поиск

Результаты по ключевому слову: л_сч

Быстрый отбор в справочнике по первой букве

В статье описан способ быстрой организации отбора в списке справочника по первой букве наименования. Механизм легко дотачивается под собственные нужды.
title

Код 1C v 8.2 УП

 // ПРОЦЕДУРЫ И ФУНКЦИИ МОДУЛЯ  



&НаКлиенте

Процедура УстановитьПометку(Команда)



	Для Каждого Кнопка Из Элементы.ПанельСБуквами.ПодчиненныеЭлементы Цикл

		Кнопка.Пометка = (Команда.Имя = Кнопка.Имя);

	КонецЦикла;



КонецПроцедуры // УстановитьПометку()



&НаСервере

Процедура ПодготовитьДинамическийСписок()



	Список.ПроизвольныйЗапрос = Истина;

	ТекстЗапроса =

	"ВЫБРАТЬ *

	|ИЗ

	|	%ИмяТаблицы% КАК Т

	|{ГДЕ

	|	(ПОДСТРОКА(Т.Наименование, 1, 1) В (&СписокБукв))}";

	ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "%ИмяТаблицы%", Список.ОсновнаяТаблица);

	Список.ТекстЗапроса = ТекстЗапроса;



КонецПроцедуры // ПодготовитьДинамическийСписок()



&НаСервере

Процедура СоздатьПанельСБуквами()



	ПанельСБуквами = Элементы.Вставить("ПанельСБуквами", Тип("ГруппаФормы"), ЭтаФорма, Элементы.Список);

	ПанельСБуквами.Вид = ВидГруппыФормы.КоманднаяПанель;

	

	// кнопка "Все"

	КомандаФормы = Команды.Добавить("Все");

	КомандаФормы.Действие = "УдалитьФильтрПоПервойБукве";

	

	КнопкаФормы = Элементы.Добавить("Все", Тип("КнопкаФормы"), ПанельСБуквами);

	КнопкаФормы.ИмяКоманды = "Все";

	КнопкаФормы.Пометка = Истина;

	

	// кнопки А...Я

	Для Сч = КодСимвола("А") По КодСимвола("Я") Цикл

		

		ИмяКоманды = Символ(Сч);

		Если Найти("Ё,Й,Ъ,Ь", ИмяКоманды) > 0 Тогда

			Продолжить;

		КонецЕсли;

		

		КомандаФормы = Команды.Добавить(ИмяКоманды);

		КомандаФормы.Действие = "УстановитьФильтрПоПервойБукве";

		

		КнопкаФормы = Элементы.Добавить(ИмяКоманды, Тип("КнопкаФормы"), ПанельСБуквами);

		КнопкаФормы.ИмяКоманды = ИмяКоманды;

		

	КонецЦикла;



КонецПроцедуры // СоздатьПанельСКнопками()



////////////////////////////////////////////////////////////////////////////////

// КОМАНДЫ МОДУЛЯ 



&НаКлиенте

Процедура УстановитьФильтрПоПервойБукве(Команда)

	

	Буква = Команда.Имя;

	

	СписокБукв = Новый Массив;

	СписокБукв.Добавить(Буква);

	СписокБукв.Добавить(НРег(Буква));

	

	Если Буква = "Е" Тогда

		СписокБукв.Добавить("Ё");

		СписокБукв.Добавить("ё");

	КонецЕсли;

	

	Если Буква = "И" Тогда

		СписокБукв.Добавить("Й");

		СписокБукв.Добавить("й");

	КонецЕсли;

	

	Список.Параметры.УстановитьЗначениеПараметра("СписокБукв", СписокБукв);

	

	УстановитьПометку(Команда);

	

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



&НаКлиенте

Процедура УдалитьФильтрПоПервойБукве(Команда)

	

	ПараметрКомпоновкиДанных = Новый ПараметрКомпоновкиДанных("СписокБукв");

	ЗначениеПараметраКомпоновкиДанных = Список.Параметры.НайтиЗначениеПараметра(ПараметрКомпоновкиДанных);

	Если ЗначениеПараметраКомпоновкиДанных = Неопределено Тогда

		Возврат;

	КонецЕсли;

	

	ЗначениеПараметраКомпоновкиДанных.Использование = Ложь;

	

	УстановитьПометку(Команда);

	

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



////////////////////////////////////////////////////////////////////////////////

// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ 



&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

	

	ПодготовитьДинамическийСписок();

	СоздатьПанельСБуквами();

	

КонецПроцедуры // ПриСозданииНаСервере()

Данный текст необходимо вставить в модуль формы списка справочника.

Процедуру "ПриСозданииНаСервере" вручную назначить обработчиком одноименного события формы.
title

Если данному событию уже назначен обработчик, то необходимо дополнить его строками процедуры "ПриСозданииНаСервере" из листинга.

Реквизита формы "Список" не должен содержать произвольного запроса. Если список формируется произвольным запросом, то в запрос необходимо дописать условие компоновки:
{ГДЕ (ПОДСТРОКА(ИмяТаблицы.Наименование, 1, 1) В (&СписокБукв))}
и удалить процедуру "ПодготовитьДинамическийСписок" и все ее вызовы.

Автор Armando

Категория: Справочники

Как получить выборку запросом из таблиц базы MySql

Код 1C v 8.х

 //п_Текст - ТекстЗапроса... вернётся соответственно ТЗ

Функция Прямой_запрос_к_jabber(п_Текст) Экспорт

    л_ТЗ = Новый ТаблицаЗначений;

    л_число_попыток = 0;

    л_Запрос_выполнен = Ложь;

    Пока (л_Запрос_выполнен = Ложь) И (л_число_попыток <= 3) Цикл

        Если (гл_Соединение_jb.State = 0) Или (гл_Соединение_jb.DefaultDatabase <> "log_1c") Тогда

            гл_Соединение_jb = "";

            л_Параметры_соединения = "DRIVER={MySQL ODBC 5.1 Driver};OPTION=3;DATABASE=BAZADANNIH_IMYA;PWD=PAROLLLLL;PORT=3306;SERVER=ip_adres_servera;UID=admin";

            гл_Соединение_jb = Новый COMОбъект("ADODB.Connection");

            Попытка

                гл_Соединение_jb.Open(л_Параметры_соединения);

            Исключение

            КонецПопытки;

        КонецЕсли;

        

        л_Команда = Новый COMОбъект("ADODB.Command");

        л_Команда.ActiveConnection = гл_Соединение_jb;

        л_Команда.CommandText = п_Текст;

        л_Команда.CommandType = 1;

        

        л_Набор_записей = Новый COMОбъект("ADODB.Recordset");

        л_Набор_записей.CursorType = 3;

        л_число_попыток = л_число_попыток + 1;

        Попытка

            л_Набор_записей = л_Команда.Execute();

            л_Запрос_выполнен = Истина;

        Исключение

        КонецПопытки;

    КонецЦикла;

    Если (л_Запрос_выполнен = Ложь) Тогда

        Сообщить(ОписаниеОшибки());

        Возврат(л_ТЗ);

    Иначе

        л_Число_колонок = л_Набор_записей.Fields.Count - 1;

        Если (л_Число_колонок > -1) Тогда

            Для Ф = 0 По л_Число_колонок Цикл

                л_Колонка_добавлена = Ложь;

                л_Префикс = "";

                л_сч = 0;

                Пока (л_Колонка_добавлена = Ложь) Цикл

                    Попытка

                        л_ТЗ.Колонки.Добавить(л_Префикс + л_Набор_записей.Fields(Ф).Name);

                        л_Колонка_добавлена = Истина;

                    Исключение

                        л_Префикс = ?(л_сч = 0, "_", "_" + л_сч + "_");

                        л_сч = л_сч + 1;

                    КонецПопытки;

                КонецЦикла;

            КонецЦикла;

            Если (л_Набор_записей.EOF() = Истина) И (л_Набор_записей.BOF() = Истина) Тогда

            Иначе

                л_Набор_записей.MoveFirst();

                Пока (л_Набор_записей.EOF() = 0) Цикл

                    л_стр = л_ТЗ.Добавить();

                    Для Ф = 0 По л_Число_колонок Цикл

                        л_стр[Ф] = л_Набор_записей.Fields(Ф).Value;

                    КонецЦикла;

                    л_Набор_записей.MoveNext();

                КонецЦикла;

            КонецЕсли;

        КонецЕсли;

        Попытка

            л_Набор_записей.Close();

        Исключение

        КонецПопытки;

        Возврат(л_ТЗ)

    КонецЕсли;

КонецФункции

Немного кривое решение... но как шаблон вполне
Megas

Категория: COM-объекты, WMI, WSH

Загрузка данных из XML файла в Таблицу Значений и вывод в Табличный документ

Код 1C v 7.x

 Перем ИмяПути,ИмяФайла;     

Перем xmlParser;



//пример чтения xml файла.

Функция УстановитьКомпоненту()

 Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtFormsv7plus.dll")=0 Тогда

  Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда

   Сообщить("Не удалось обнаружить компоненту V7Plus.dll!"); 

   Возврат 0;

  КонецЕсли;

 КонецЕсли;

 Попытка

  xmlParser = СоздатьОбъект("Addin.XmlParser") ;

 Исключение 

  Сообщить("Не удалось создать объект Addin.XmlParser!");

  Возврат 0;

 КонецПопытки;

 Возврат 1;

КонецФункции  // УстановитьКомпоненту



Процедура Выполнить() 

  стрИмяФайла=ИмяПути+ИмяФайла;  

  таб=СоздатьОбъект("ТаблицаЗначений");

  таб.НоваяКолонка("Ф","Строка",50,0);

  таб.НоваяКолонка("И","Строка",50,0);

  таб.НоваяКолонка("О","Строка",50,0);

  таб.НоваяКолонка("ДатаР","Дата");

  таб.НоваяКолонка("_01","Число",16,2);

  таб.НоваяКолонка("_02","Число",16,2);

  таб.НоваяКолонка("_03","Число",16,2);

  таб.НоваяКолонка("_04","Число",16,2);

  таб.НоваяКолонка("_05","Число",16,2);

  таб.НоваяКолонка("_06","Число",16,2);

  таб.НоваяКолонка("_07","Число",16,2);

  таб.НоваяКолонка("_08","Число",16,2);

  таб.НоваяКолонка("_09","Число",16,2);

  таб.НоваяКолонка("_10","Число",16,2);

  таб.НоваяКолонка("_11","Число",16,2);

  таб.НоваяКолонка("_12","Число",16,2);

  таб.НоваяКолонка("СумГод","Число",18,2);

  таб.НоваяКолонка("ОблГод","Число",18,2);

  таб.НоваяКолонка("УдерГод","Число",18,2);

  таб.НоваяКолонка("Индекс","Строка",6,0);

  таб.НоваяКолонка("Регион","Строка",2,0);

  таб.НоваяКолонка("Город","Строка",20,0);

  таб.НоваяКолонка("Улица","Строка",20,0);

  таб.НоваяКолонка("Дом","Строка",5,0);

  таб.НоваяКолонка("Корпус","Строка",5,0);

  таб.НоваяКолонка("Квартира","Строка",5,0);

  Документ=xmlParser.СоздатьДокумент();  

  Документ.Загрузить(стрИмяФайла);   

   Данные=Документ.ПолучитьПодчиненныйПоНомеру(2);

   Для Сч=1 По Данные.КоличествоПодчиненных() Цикл 

    таб.НоваяСтрока();

    Элем=Данные.ПолучитьПодчиненныйПоНомеру(Сч); 

    УзелПолучДох=Элем.ВыбратьУзлы("ПолучДох");  

    Для Сч3=0 По УзелПолучДох.КоличествоУзлов-1 Цикл 

   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).ПредставлениеXML); 

   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).КоличествоПодчиненных()); 

     ФИО=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(1);

     таб.Ф=ФИО.ПолучитьПодчиненныйПоНомеру(1).Текст;

     таб.И=ФИО.ПолучитьПодчиненныйПоНомеру(2).Текст;

     таб.О=ФИО.ПолучитьПодчиненныйПоНомеру(3).Текст;

     таб.ДатаР=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(3).Значение;

     адр=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(6);

     Для Сч4=1 По адр.КоличествоПодчиненных() Цикл     

      Если адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Индекс" Тогда

	таб.Индекс=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="КодРегион" Тогда

       таб.Регион=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Город" Тогда

       таб.Город=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Улица" Тогда

       таб.Улица=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Дом" Тогда

       таб.Дом=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Корпус" Тогда

       таб.Корпус=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Кварт" Тогда

       таб.Квартира=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      Иначе

      	/////// 

      КонецЕсли;

     КонецЦикла;

    КонецЦикла;  

    УзелСвДохСтав=Элем.ВыбратьУзлы("СвДохСтав");  

    Для Сч3=0 По УзелСвДохСтав.КоличествоУзлов-1 Цикл     

     //ел=УзелСвДохСтав.ПолучитьУзел(Сч3);

	УзелДохВыч=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("ДохВыч");

     Для Сч4=0 По УзелДохВыч.КоличествоУзлов-1 Цикл     

         МесДоход=УзелДохВыч.ПолучитьУзел(Сч4); 

         ИмяМес="";

      СумМес=0;

      Если МесДоход.ПолучитьПодчиненныйПоНомеру(1).Наименование="НомМес" Тогда

           ИмяМес=МесДоход.ПолучитьПодчиненныйПоНомеру(1).Текст;

      КонецЕсли;  

      Если МесДоход.ПолучитьПодчиненныйПоНомеру(3).Наименование="СумДоход" Тогда

           СумМес=МесДоход.ПолучитьПодчиненныйПоНомеру(3).Значение;

      КонецЕсли;  

      Если ПустоеЗначение(ИмяМес)=0 Тогда

       Если ИмяМес="01" Тогда

        таб._01=СумМес;  

       ИначеЕсли ИмяМес="02" Тогда

        таб._02=СумМес;    

       ИначеЕсли ИмяМес="03" Тогда

        таб._03=СумМес;    

       ИначеЕсли ИмяМес="04" Тогда

        таб._04=СумМес;    

       ИначеЕсли ИмяМес="05" Тогда

        таб._05=СумМес;    

       ИначеЕсли ИмяМес="06" Тогда

        таб._06=СумМес;    

       ИначеЕсли ИмяМес="07" Тогда

        таб._07=СумМес;    

       ИначеЕсли ИмяМес="08" Тогда

        таб._08=СумМес;    

       ИначеЕсли ИмяМес="09" Тогда

        таб._09=СумМес;    

       ИначеЕсли ИмяМес="10" Тогда

        таб._10=СумМес;    

       ИначеЕсли ИмяМес="11" Тогда

        таб._11=СумМес;    

       ИначеЕсли ИмяМес="12" Тогда

        таб._12=СумМес;    

       КонецЕсли;

      КонецЕсли;

     КонецЦикла;   

     

УзелНалПер=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("СГДНалПер");

НалПер=УзелНалПер.ПолучитьУзел(0);

Если НалПер.Наименование="СГДНалПер" Тогда

      таб.СумГод=НалПер.ПолучитьПодчиненныйПоНомеру(1).Значение;

      таб.ОблГод=НалПер.ПолучитьПодчиненныйПоНомеру(2).Значение;

      таб.УдерГод=НалПер.ПолучитьПодчиненныйПоНомеру(3).Значение;

 КонецЕсли;  

    //тут еще берем данные

 КонецЦикла;  

 Состояние(Сч);

КонецЦикла;          

   Т=СоздатьОбъект("Таблица");

   Т.ИсходнаяТаблица("Таблица");

   таб.выбратьСтроки();          

   Т.ВывестиСекцию("Шапка");    

   нпп=1;

   Пока таб.ПолучитьСтроку()=1 Цикл

    Т.ВывестиСекцию("Текст");    

    нпп=нпп+1;

   КонецЦикла;     

   Т.ТолькоПросмотр(1);

      Т.Опции(0, 0, 1, 0);

  // Т.ОбластьПечати(2);

   Т.ПараметрыСтраницы(2,,,5,5,5,5,,, 1);

   Т.Показать("Прочитали из XML");   

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



Процедура Выбрать()

 ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,"Выберите файл","xml файлы (*.xml) |*.xml|Все файлы (*.*) |*.*","xml", );

 Если ПустоеЗначение(ИмяФайла)=0 Тогда

   PathSbitn=ИмяПути+ИмяФайла;

 КонецЕсли;

КонецПроцедуры //Выбрать       



Процедура ПриОткрытии()

 ИмяФайла ="";

 ИмяПути = "P:";     

 res=УстановитьКомпоненту();  

// Сообщить(res);

КонецПроцедуры //ПриОткрытии

Пример файла XML :

Код

<?xml version="1.0" encoding="windows-1251"?>
<НДФЛ2 xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ВерсФорм="4.00001" ВерсПрог="НП 10.31" ИдФайл="ДОХОД_2НДФЛ">
<Справка>
<ОбщСвИЧ>
<ГодДох>2006</ГодДох>
<НомСпр>1</НомСпр>
<ДатаСпр>26.03.2007</ДатаСпр>
<ИФНСНА>7777</ИФНСНА>
</ОбщСвИЧ>
<ИстДох>
<СвНАЮЛ>
<ИННЮЛ>1234567890</ИННЮЛ>
<КПП>12345678</КПП>
<НаимОрг>ООО Рога и Копыта</НаимОрг>
<ОКАТО>12345678901</ОКАТО>
</СвНАЮЛ>
</ИстДох>
<ПолучДох>
<ФИО>
<Фамилия>Иванов</Фамилия>
<Имя>Иван</Имя>
<Отчество>Иванович</Отчество>
</ФИО>
<Статус>1</Статус>
<ДатаРожд>24.01.1973</ДатаРожд>
<Гражданство>643</Гражданство>
<УдЛичн>
<КодУдЛичн>21</КодУдЛичн>
<СерНомДок>12 01 012345</СерНомДок>
</УдЛичн>
<АдрМЖРФ>
<Индекс>123456</Индекс>
<КодРегион>77</КодРегион>
<Город>Энн г</Город>
<Улица>Ленина ул</Улица>
<Дом>99</Дом>
<Корпус>5</Корпус>
<Кварт>12</Кварт>
</АдрМЖРФ>
</ПолучДох>
<СвДохСтав>
<Ставка>35</Ставка>
<ДохВыч>
<НомМес>02</НомМес>
<КодДоход>2610</КодДоход>
<СумДоход>252.15</СумДоход>
</ДохВыч>
<ДохВыч>
<НомМес>07</НомМес>
<КодДоход>2760</КодДоход>
<СумДоход>100.00</СумДоход>
<КодВычет>503</КодВычет>
<СумВычет>100.00</СумВычет>
</ДохВыч>
<ДохВыч>
<НомМес>10</НомМес>
<КодДоход>2760</КодДоход>
<СумДоход>100.00</СумДоход>
<КодВычет>503</КодВычет>
<СумВычет>100.00</СумВычет>
</ДохВыч>
<СГДНалПер>
<СГДСумм>252.15</СГДСумм>
<ОблСумм>252.15</ОблСумм>
<НИОблСумм>88</НИОблСумм>
<НУОблСумм>88</НУОблСумм>
<ВозврСуммПЛ>0</ВозврСуммПЛ>
<ЗачСуммПЛ>0</ЗачСуммПЛ>
<УдСуммПЛ>0</УдСуммПЛ>
<ДолгНП>0</ДолгНП>
<ДолгНА>0</ДолгНА>
<ВзыскИФНС>0</ВзыскИФНС>
</СГДНалПер>
</СвДохСтав>
</Справка>
</НДФЛ2>

Категория: XML, DBF, TXT, CSV

Выгрузка и Загрузка проводок документа через файл

Код 1C v 8.х

 Процедура ВыгрузкаПроводок(Кнопка)

	Если Не ЗначениеЗаполнено(Документ) Тогда

		Сообщить("Заполните поле Документ!");

	Иначе

		Движ = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

		Движ.Отбор.Регистратор.Установить(Документ);

		Движ.Прочитать();

		ТЗ = Движ.Выгрузить();

		ПараметрОтбора = Новый Структура("СчетДт",Счет);

		ТЗИтог = ТЗ.Скопировать(ПараметрОтбора);

		Если ЗначениеВФайл("D:\OUT.TXT",ТЗ) Тогда

			Сообщить("Создан файл ""D:\OUT.TXT""");

		КонецЕсли;

	КонецЕсли;	

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



Процедура ЗагрузитьПроводки(Кнопка)

	ТЗЗагрузка = ЗначениеИзФайла("D:\OUT.TXT");

	Движ = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

	Движ.Отбор.Регистратор.Установить(Документ);

	Движ.Прочитать();

	ТЗ = Движ.Выгрузить();

	Для Каждого Эл Из ТЗЗагрузка Цикл

		ПараметрОтбора = Новый Структура("СчетДт,СубконтоДт1",Эл.СчетДт,Эл.СубконтоДт1);

		Массив = ТЗ.НайтиСтроки(ПараметрОтбора);

		Если Массив.Количество()>0 Тогда

			Сообщить("Запись есть - Пропускаем!");

			Продолжить;				

		Иначе

			Сообщить("Записи нет - Добавляем!");

			НоваяСтрока = ТЗ.Добавить();

			ЗаполнитьЗначенияСвойств(НоваяСтрока,Эл);	

		КонецЕсли;			 

	КонецЦикла;

	Движ.Загрузить(ТЗ);

	Движ.Записать();

	Сообщить("Проводки для данного документа созданы успешно!");

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

Категория: Регистры бухгалтерии

Прогресс бар в строке состояния

Для наглядного представления продолжительного процесса выполнения обработки данных можно реализовать строку прогресса в строке состояния при помощи псевдографики.

Код 1C v 7.x

 //Пример процедуры обработки таблицы значений ТЗ

//Размер прогрессора задан в 20 символов (5%)

Процедура ОБработкаДанных()

    РазмерИндикатора = ТЗ.КоличествоСтрок();

    Индикатор = "";

    Для А = 1 По 20 Цикл

        Индикатор = Индикатор + "    ";

    КонецЦикла;        

    Счетчик = 0;

    //Текст обработки строк ТЗ

    ТЗ.ВыбратьСтроки();

    Пока ТЗ.ПолуичтьСтроку() = 1 Цикл

        Счетчик = Счетчик + 1;

        //Обработка строки

        Показатель = Цел(Счетчик/РазмерИндикатора * 100);

        Если Цел(Показатель/5) = Показатель/5 Тогда

            Индикатор = "";

            Для А = 1 По 20 Цикл

                Индикатор = Индикатор + ?(А<=Показатель/5,Симв(127),"    ");  

            КонецЦикла;        

            Состояние(Индикатор + "| Анализ адресов; " + Показатель + "%");

        КонецЕсли;

    КонецЦикла;

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

Код 1C v 7.x

 // ПрогрессБар в строке состояния. Маленький, шустренький

Процедура глПрогрессор(Сообщение,Всего,Текущ) Экспорт

Если Всего>0 Тогда

 Процент=Цел(Текущ/Всего * 100);

 Если Процент > Цел((Текущ-1)/Всего * 100) Тогда

   Состояние(Сообщение + ": "+Формат(Процент,"Ч(0)2")+"% "+СтрЗаменить(Формат("","С"+Мин(99,Процент))," ","l")+СтрЗаменить(Формат("","С"+Мин(99,99-Процент))," ","'")+"l");

 КонецЕсли;

КонецЕсли;

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



// Вот пример использования:

Для ин=1 По 100000 Цикл

  глПрогрессор("Тест",100000,ин);

КонецЦикла;

Категория: Полезные, Универсальные Функции