- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
Функция СтрокаБезПробелов(sP,lenP= Неопределено) Экспорт
// убрать пробелы (на самом деле, символы 160) в строке sP
// (после преобразования числа в cтроку)
// если нужно - дописать пробелов спереди до длины lenP
s_ = СтрЗаменить(Строка(sP),Символ(160),"");
Если lenP>0 Тогда
l_ = СтрДлина(s_);
Если l_<lenP Тогда
j = lenP-l_;
Если j=1 Тогда
s_ = " "+s_;
Иначе
Если j=2 Тогда
s_ = " "+s_;
Иначе
Если j=3 Тогда
s_ = " "+s_;
Иначе
Если j=4 Тогда
s_ = " "+s_;
Иначе
Если j=5 Тогда
s_ = " "+s_;
Иначе
Если j=6 Тогда
s_ = " "+s_;
Иначе
Если j=7 Тогда
s_ = " "+s_;
Иначе
Если j=8 Тогда
s_ = " "+s_;
Иначе
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат s_;
КонецФункции
Вот такая замена функции Формат нашлась в исходниках от одного из внедренцев.
>l_
>j = lenP-l_;
жуткое говно
Да у вас же джава головного мозга.
Функции с параметром символДляЗаполнения уже не достаточно?
Так это мануал открывать ;)
Там еле-еле добавили несколько более-менее нормальных коллекций, а тут - объекты.
Вообще, как-то изобретатели языка совсем без огонька подошли к задаче. Например, вместо Возврат, гораздо лучше было бы писать Верни. И по смыслу ближе, и бухгалтерам веселее жить было бы.
Чтение этого кода начало бы их угнетать, особенно, если не они написали этот код.
Запрос.Текст="ВЫБРАТЬ РАЗЛИЧНЫЕ
| ХозрасчетныйОборотыДтКт.СчетДт,
| ХозрасчетныйОборотыДтКт.СчетКт,
| ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.01""
| ТОГДА ""ФСС""
| ИНАЧЕ ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.03.1""
| ТОГДА ""ФФОМС""
| ИНАЧЕ ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.03.2""
| ТОГДА ""ТФОМС""
| ИНАЧЕ ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.02.1""
| ТОГДА ""ПФР""
| ИНАЧЕ ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.02.2""
| ТОГДА ""ПФРНакопительная""
| ИНАЧЕ ВЫБОР
| КОГДА ХозрасчетныйОборотыДтКт.СчетКт.Код = ""69.11""
| ТОГДА ""ФСС_НС_ПЗ""
| КОНЕЦ
| КОНЕЦ
| КОНЕЦ
| КОНЕЦ
| КОНЕЦ
| КОНЕЦ КАК Налог,