ПЦ = 0;
Пока ПЦ<10000 Цикл
ПЦ = ПЦ + 1;
КонецЦикла;
Почему уже тогда не
ПЦ = 10000

ПЦ = 0;
Пока ПЦ<10000 Цикл
ПЦ = ПЦ + 1;
КонецЦикла;
ПЦ = 10000
Процедура ПечатьРасхПогруз(ТекДок)
ТекДок.ВыбратьСтроки();
Пока ТекДок.ПолучитьСтроку()=1 Цикл
к=0;
Пока к<100 Цикл
к=к+1;
КонецЦикла;
//глПечатьПНтаб(ТекДок.РН,спПринтеров.ТекущаяСтрока(),1);
//2011-07-04
//глПечатьПНтаб(ТекДок.РН,Пользователь.ПринтерДеклараций,1);
глПечатьПНтаб(ТекДок.РН,спПринтеров.ТекущаяСтрока(),2);
//глПечатьПНтаб(ТекДок.РН,Пользователь.ПринтерДеклараций,1);
КонецЦикла;
КонецПроцедуры
//Ожидание для возможности работы других пользователей (по совету Олега Яковлева из ЧПТФ "ЮСИ")
Процедура Задержка(Секунд)
Для Инд=1 По Секунд Цикл
ТекВремя=ТекущееВремя();
Пока ТекВремя=ТекущееВремя() Цикл
КонецЦикла;
КонецЦикла;
КонецПроцедуры;
Константа.Счетчик=Константа.Счетчик+1;
Функция _УстановитьЗначениеКонстанты(Имя,Значение) Экспорт
Блокировка=1;
Сч =0;
Пока Блокировка=1 Цикл
Попытка
НачатьТранзакцию();
Константа.УстановитьАтрибут(Имя,Константа.ПолучитьАтрибут(Имя));//блокируем
Блокировка=0;//константа заблокирована не была - можем работать
Исключение//константа заблокирована !!
Сч=Сч+1;
ОтменитьТранзакцию();
//Ожидание для возможности работы других пользователей (по совету Олега Яковлева из ЧПТФ "ЮСИ")
Стр=ТекущееВремя();
Пока Стр=ТекущееВремя() Цикл
КонецЦикла;
Если Сч=3 Тогда
//Сообщить("Капец");
Возврат 0; //залипло капитально
КонецЕсли;
КонецПопытки;
КонецЦикла;
Константа.УстановитьАтрибут(Имя,Значение);
ЗафиксироватьТранзакцию();
Возврат 1;
КонецФункции //_УстановитьЗначениеКонстанты
ПЦ = 0;
Пока ПЦ<10000 Цикл
ПЦ = ПЦ + 1;
КонецЦикла;
ПЦ = 10000