1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8

Function toString(aDate) export
		s=Format(Строка(aDate),"ДФ=ддMMгггг");
		return лев(s,10);
endFunction

.......
ДатаДД=uDates.toString(Отбор.Дата);
.......

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13

// Функция возвращает округленное значение общего количества продуктов питания.
// 
// Параметры:
//	Число - число, которое необходимо округлить.
//	Порядок - число, порядок округления.

Функция УППБУ_Округлить(Число, ПорядокОкругления) Экспорт
	
	Порядок = Число(Строка(ПорядокОкругления));
	
	..........
	
КонецФункции

1. 1

КоличествоСтрокТоваров  = Документы.РеализацияТоваровУслуг.ПолучитьСсылку(ЭтотОбъект.Ссылка.УникальныйИдентификатор()).Товары.Количество();

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10

//сохраним уже начисленные услуги
Если УслугиПоГрафику.Количество() > 0 Тогда
	ПромежуточнаяТаблица = УслугиПоГрафику.Выгрузить();
	УслугиПоГрафику.Очистить();

	Для Каждого СтрокаТЗ Из ПромежуточнаяТаблица Цикл
		НоваяСтрока = УслугиПоГрафику.Добавить();
		ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТЗ);
	КонецЦикла;
КонецЕсли;

1. 1

Если Найти(Строка(ТипЗнч(Ссылка)),"Документ") Тогда

1. 1
2. 2
3. 3
4. 4
5. 5

Ученик 1С спросил у своего учителя: что означает аббревиатура "Один Эс"?
Учитель долго думал и наконец ответил ему:
- "Один" - это когда солнечный день и воняет из трубы, это "Один"
А "Эс", что такое "Эс", - спросил ученик
- "Эс" - это когда солнечный день и опять же воняет из трубы

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13

//подписка ПередЗаписью

ИначеЕсли ТипЗнч(Источник) = Тип("ДокументОбъект.КонтрольПлатежейПросрочка") Тогда
		
		Если Источник.ПометкаУдаления Тогда
			мНабор=РегистрыНакопления.КонтрольПлатежейПросрочка.СоздатьНаборЗаписей();
			мНабор.Отбор.Регистратор.Установить(Источник.Ссылка);
			мНабор.Записать();
			Попытка
				Источник.Удалить();
			Исключение КОнецПопытки;
			Отказ=Истина;
		КонецЕсли;

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12

Функция  УбратьПробелы(Строка)
	ВозвратСтрока = "";
	Сч = 1;
	ДлинаСтроки = СтрДлина(Строка);
	Пока Сч <= ДлинаСтроки Цикл 
		Если КодСимвола(Строка, Сч) <> 160 Тогда
			ВозвратСтрока = ВозвратСтрока + Символ(КодСимвола(Строка, Сч));
		КонецЕсли;
		Сч = Сч + 1;
	КонецЦикла;
	Возврат ВозвратСтрока;
КонецФункции

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32

// Преобразует целое десятичное число (как вариант представления двоичного числа) в вещественное
Функция ПреобразоватьВЧисло(Знач ДесятичноеЧисло = 0, Точность = 1) Экспорт
	
	СчБитов 	= 0;
	Мантисса 	= 1;
	Экспонента 	= ?(Точность = 2, -1023, -127);
	Знак 		= 1;
	
	ГраницаМантиссы   = ?(Точность = 2, 52, 23);
	ГраницаЭкспоненты = ?(Точность = 2, 63, 31);
	
	Пока ДесятичноеЧисло >= 1 Цикл
		
		Частное = Цел(ДесятичноеЧисло / 2);
		Остаток = ДесятичноеЧисло % 2;
		
		Если СчБитов < ГраницаМантиссы Тогда
			Мантисса = Мантисса + Остаток * Pow(2, СчБитов - ГраницаМантиссы);
		ИначеЕсли СчБитов < ГраницаЭкспоненты И СчБитов > ГраницаМантиссы - 1 Тогда
			Экспонента = Экспонента + Остаток * Pow(2, СчБитов - ГраницаМантиссы);
		Иначе
			Знак = ?(Остаток = 1, -1, 1);
		КонецЕсли;
		
		ДесятичноеЧисло = Частное;
		СчБитов	= СчБитов + 1;
		
	КонецЦикла; 
		
	Возврат Знак * Мантисса * Pow(2, Экспонента);

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

1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10

Попытка
	ФС.КопироватьФайл(Каталог+Файл+Расширение,НовоеИмя,1);
	Если ФС.СуществуетФайл(НовоеИмя)=0 Тогда
		СоздатьОбъект("АбсолютнаяЧушь");
	КонецЕсли;
	НовоеЗначение=Сред(НовоеИмя,СтрДлина(Лев(КаталогИБ(),СтрДлина(КаталогИБ())-1)+"-MEDIA\")+1);
	НовоеСтрока=НовоеЗначение;
Исключение
	Предупреждение("Не удаётся скопировать файл!",5);
КонецПопытки;