Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5703)
2. C++ (2740)
3. Куча (2337)
4. JavaScript (2030)
5. C# (1929)
6. Java (1503)
7. Си (1103)
8. Pascal (649)
9. Python (585)
10. 1C (536)
11. SQL (434)
12. ActionScript (294)
13. Objective C (204)
14. bash (200)
15. Perl (196)
16. Assembler (148)
17. Ruby (144)
18. VisualBasic (140)
19. Lua (51)
20. Go (32)
21. Swift (29)
22. Haskell (28)
23. Kotlin (15)

1. 1C / Говнокод #19040

   −96

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12
   13. 13
   14. 14
   15. 15
   16. 16
   17. 17

   Если Не ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Объект.Значение = Справочники.ОбъектАренды.ПустаяСсылка() 
   	   и Не ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Подразделение.Значение = Справочники.Подразделения.ПустаяСсылка() Тогда
   		 Запрос.Текст = Запрос.Текст + "
             		|	И ДоговорыКонтрагентов.Подразделение = &Подразделение
                  		|	И ДоговорыКонтрагентов.ОбъектАренды В ИЕРАРХИИ(&ОбъектАренды)";
   		 Запрос.УстановитьПараметр("ОбъектАренды", ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Объект.Значение);
   		 Запрос.УстановитьПараметр("Подразделение", ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Подразделение.Значение);
   	   ИначеЕсли ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Объект.Значение = Справочники.ОбъектАренды.ПустаяСсылка() 
   	   и Не ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Подразделение.Значение = Справочники.Подразделения.ПустаяСсылка() Тогда
   		 Запрос.Текст = Запрос.Текст + " И ДоговорыКонтрагентов.Подразделение = &Подразделение";
                  Запрос.УстановитьПараметр("Подразделение", ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Подразделение.Значение);
   	   ИначеЕсли Не ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Объект.Значение = Справочники.ОбъектАренды.ПустаяСсылка() 
   	   и  ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Подразделение.Значение = Справочники.Подразделения.ПустаяСсылка() Тогда
   		 Запрос.Текст = Запрос.Текст + " И ДоговорыКонтрагентов.ОбъектАренды В ИЕРАРХИИ(&ОбъектАренды)";
   		 Запрос.УстановитьПараметр("ОбъектАренды", ЭтотОбъект.ПолучитьФорму().ЭлементыФормы.Объект.Значение);
   							 
   КонецЕсли;

   Здравствуйте, дети! Сегодня мы с вами будем учиться делать отборы в отчётах.

   SkyHunter, 18 Ноября 2015

   Комментарии (6)

2. 1C / Говнокод #19030

   −95

   1. 1
   2. 2

   НаименованиеУзла = Константы.ТБ_НаименованиеУзла.Получить();
   УзелОбмена = ПланыОбмена.Обмен_ТБ.НайтиПоНаименованию(НаименованиеУзла);

   Франч, крупный, дорогой, известный. Код из доработки для крупной компании.... Нет слов.

   portowyi, 16 Ноября 2015

   Комментарии (13)

3. 1C / Говнокод #19013

   −92

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   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
   33. 33
   34. 34
   35. 35
   36. 36
   37. 37
   38. 38
   39. 39
   40. 40
   41. 41
   42. 42
   43. 43
   44. 44

   Если НЕ(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента=""И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тКонтрагент="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="" И тКоличествоДней="" И тСуммаЭтоПроцент="") Тогда Запрос.Текст=Запрос.Текст+"
   	|ГДЕ";
   	КонецЕсли;
   	Если НЕ тСостояниеЗаписи="" Тогда Запрос.Текст=Запрос.Текст+"
   	| опмИзмененияСтандартныхУсловийОплаты.СостояниеЗаписи "+тЗнакСостоянияЗаписи+?(тЗнакСостоянияЗаписи="В"," (","")+"&СостояниеЗаписи"+?(тЗнакСостоянияЗаписи="В",")","");КонецЕсли;  // опм 04.05.2015 доб. ?(тЗнакСостоянияЗаписи="В"," (","")   +?(тЗнакСостоянияЗаписи="В",")","")
   	Если НЕ тРегистратор="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.теРегистратор "+тЗнакРегистратора+" &Регистратор";
   	КонецЕсли;
   	Если НЕ тДоговорКонтрагента="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДоговорКонтрагента "+тЗнакДоговораКонтрагента+" &ДоговорКонтрагента";
   	КонецЕсли;
   	Если НЕ тКонтрагент="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДоговорКонтрагента.Владелец "+тЗнакКонтрагента+?(тЗнакКонтрагента="В"," (","")+"&Контрагент"+?(тЗнакКонтрагента="В",")","");   // опм 04.05.2015 доб. ?(тЗнакКонтрагента="В"," (","")  +?(тЗнакКонтрагента="В",")","")
       КонецЕсли;
   	Если НЕ тДокументОткрытияКредитнойЛинии="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДокументОткрытияКредитнойЛинии "+тЗнакДокументаОткрытияКредитнойЛинии+" &ДокументОткрытияКредитнойЛинии";
   	КонецЕсли;
   	Если НЕ тВидЗаписи="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ВидЗаписи "+тЗнакВидаЗаписи+" &ВидЗаписи";
   	КонецЕсли;
   	Если НЕ тВидНачала="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ВидНачала "+тЗнакВидаНачала+" &ВидНачала";
   	КонецЕсли;
   	Если НЕ тПериод="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.Период "+тЗнакПериода+" &тПериод";
   	КонецЕсли;
   	Если НЕ тРазРегистратор="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.РазРегистратор "+тЗнакРазРегистратора+" &РазРегистратор";
   	КонецЕсли;
   	Если НЕ тДатаНачала="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДатаНачала "+тЗнакДатыНачала+" &ДатаНачала";
   	КонецЕсли;
   	Если НЕ тДатаОкончания="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.ДатаОкончания "+тЗнакДатыОкончания+" &ДатаОкончания";
   	КонецЕсли;
   	Если НЕ тСумма="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.Сумма "+тЗнакСуммы+" &Сумма";
   	КонецЕсли;
   	Если НЕ тКоличествоДней="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.КоличествоДней "+тЗнакКоличестваДней+" &КоличествоДней";
   	КонецЕсли;
   	Если НЕ тСуммаЭтоПроцент="" Тогда Запрос.Текст=Запрос.Текст+"
   	| "+?(тСостояниеЗаписи="" И тРегистратор="" И тДоговорКонтрагента="" И тКонтрагент="" И тДокументОткрытияКредитнойЛинии="" И тВидЗаписи="" И тВидНачала="" И тПериод="" И тРазРегистратор="" И тДатаНачала="" И тДатаОкончания="" И тСумма="" И тКоличествоДней="",""," И")+" опмИзмененияСтандартныхУсловийОплаты.СуммаЭтоПроцент "+тЗнакСуммыЭтоПроцент+" &СуммаЭтоПроцент";
   	КонецЕсли;

   И так далее на 122 строки.

   HomoAlbus, 12 Ноября 2015

   Комментарии (6)

4. 1C / Говнокод #19006

   −99

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   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

   Функция ПолучитьПолныйСписокКонтрагентовОтбора(текКонтрагентыОтбора) // релиз 3.0
   	    Запрос = Новый Запрос;
   	    Запрос.Текст = 
   	"ВЫБРАТЬ РАЗРЕШЕННЫЕ
   	|	Контрагент.Ссылка КАК Ссылка1
   	|ИЗ
   	|	Справочник.Контрагенты КАК Контрагент
   	|ГДЕ
   	|	Контрагент.ЭтоГруппа = ЛОЖЬ И (";                                                                               ы=0;
   	Для каждого ЭлСпОтбКг из текКонтрагентыОтбора Цикл текКг=ЭлСпОтбКг.Значение;
   		Если ТипЗнч(текКг)=Тип("СправочникСсылка.Контрагенты") И НЕ текКг=Справочники.Контрагенты.ПустаяСсылка() Тогда  ы=ы+1;
   			Если текКг.ЭтоГруппа Тогда Запрос.Текст = Запрос.Текст +" 
   	|	"+?(ы=1,"","ИЛИ ")+"Контрагент.Ссылка В ИЕРАРХИИ(&тКг"+Строка(ы)+")";
               Иначе                      Запрос.Текст = Запрос.Текст +"
   	|	"+?(ы=1,"","ИЛИ ")+"Контрагент.Ссылка = &тКг"+Строка(ы);
   	        КонецЕсли;	               
   	    Запрос.УстановитьПараметр("тКг"+Строка(ы),текКг);
   	    КонецЕсли;	
   	КонецЦикла;	Запрос.Текст = Запрос.Текст +"
       |)";
    	        РезСп=Новый СписокЗначений;
   	                                текТЗрег=Запрос.Выполнить().Выгрузить();
   	        РезСп.ЗагрузитьЗначения(текТЗрег.ВыгрузитьКолонку("Ссылка1"));
   	Возврат РезСп;		 
   КонецФункции

   HomoAlbus, 11 Ноября 2015

   Комментарии (5)

5. 1C / Говнокод #19005

   −96

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   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

   Функция мПолучитьДанныеПоОтсрочкеОплатыРТУнаДт(тРТУ, тДт, тНедоплатаПоРТУ, теРегЗапись="", текЗаказыПокупателей="", текЗнакЗаказыПокупателей="=", текОтрицаниеЗнакаЗаказыПокупателей=Ложь, тРазрешенныхДнейОтсрочки=0, тМаксДеньПогашения="", КЛ_тРТУ="" , тРТУ_Дата="", тСтрокаТЗотчета, УровеньПоЕжеМесКва=0) // релиз 3.3 доб. , тСтрокаТЗотчета , УровеньПоЕжеМесква=0  // релиз 3.1 доб. , тРТУ_Дата=""
   	                        текРТУ_Дата=?(ТипЗнч(тРТУ_Дата)=Тип("Дата") И НЕ тРТУ_Дата='00010101', тРТУ_Дата, тРТУ.Дата); // релиз 3.1 доб.
   //...	
   	КЛ_тРТУ=теРегЗапись.теРегистратор; тЕстьЕжемес=теРегЗапись.ДеньПогашенияМесяц>0   И теРегЗапись.ДеньПогашенияМесяц<=31;   
   	                                     тЕстьЕжеква=теРегЗапись.ДеньПогашенияКвартал>0 И теРегЗапись.ДеньПогашенияКвартал<=31; 
   		Если      тЕстьЕжемес И теРегЗапись.ДеньМесяцЭтоСледующийЗаОтгрузкой Тогда
   тМаксДеньПогашения=Мин(Дата(Год(ДобавитьМесяц(текРТУ_Дата,1)),Месяц(ДобавитьМесяц(текРТУ_Дата,1)),теРегЗапись.ДеньПогашенияМесяц), теРегЗапись.ДатаОкончания);   // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
   		ИначеЕсли тЕстьЕжеква И Найти("/3/6/9/12/","/"+Строка(Месяц(текРТУ_Дата))+"/")<>0 И теРегЗапись.ДеньПогашенияКвартал>День(текРТУ_Дата) Тогда             // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
   тМаксДеньПогашения=Мин(Дата(Год(текРТУ_Дата),Месяц(текРТУ_Дата),теРегЗапись.ДеньПогашенияКвартал), теРегЗапись.ДатаОкончания);                                   // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата                                         
           ИначеЕсли тЕстьЕжемес И ?(Найти("/3/6/9/12/","/"+Строка(Месяц(текРТУ_Дата))+"/")=0,Истина,НЕ тЕстьЕжеква) И теРегЗапись.ДеньПогашенияМесяц>День(текРТУ_Дата)   // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата 
                   И НЕ(УровеньПоЕжеМесКва=1) Тогда  // релиз 3.3 доб. строку
   тМаксДеньПогашения=Мин(Дата(Год(текРТУ_Дата),Месяц(текРТУ_Дата),теРегЗапись.ДеньПогашенияМесяц), теРегЗапись.ДатаОкончания); ПроверитьЕжеМесКваНаНеполноеПогашение(1,теРегЗапись,тСтрокаТЗотчета); // релиз 3.3 доб. ПроверитьЕжеМесКваНаНеполноеПогашение(1,теРегЗапись,тСтрокаТЗотчета); // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата                                      
   		ИначеЕсли тЕстьЕжеква И Найти("/3/6/9/12/","/"+Строка(Месяц(ДобавитьМесяц(текРТУ_Дата,1)))+"/")<>0 Тогда                                                 // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
   тМаксДеньПогашения=Мин(Дата(Год(ДобавитьМесяц(текРТУ_Дата,1)),Месяц(ДобавитьМесяц(текРТУ_Дата,1)),теРегЗапись.ДеньПогашенияКвартал), теРегЗапись.ДатаОкончания);ПроверитьЕжеМесКваНаНеполноеПогашение(2,теРегЗапись,тСтрокаТЗотчета); // релиз 3.3 доб. ПроверитьЕжеМесКваНаНеполноеПогашение(2,теРегЗапись,тСтрокаТЗотчета); // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата                                         
           ИначеЕсли тЕстьЕжемес 
                   И НЕ(УровеньПоЕжеМесКва=1 И тМаксДеньПогашения>=Мин(Дата(Год(ДобавитьМесяц(текРТУ_Дата,1)),Месяц(ДобавитьМесяц(текРТУ_Дата,1)),теРегЗапись.ДеньПогашенияМесяц), теРегЗапись.ДатаОкончания)) Тогда  // релиз 3.3 доб. строку
   
   	//...
   		
   	                          тМаксДеньПогашения=НачалоДня(тМаксДеньПогашения);
   	тРазрешенныхДнейОтсрочки=(тМаксДеньПогашения-НачалоДня(текРТУ_Дата))/(24*60*60); // релиз 3.1 зам. тРТУ.Дата на текРТУ_Дата
   	Возврат                  (тМаксДеньПогашения-НачалоДня(тДт))/(24*60*60);
   КонецФункции

   Там, говорят, работы на час: посмотреть как в отчете данные собираются и перенести то, что надо. Открываю отчет, а там с два десятка вот таких функций и процедур. Орфография и пунктуация сохранена, жаль вся функция не поместилась.

   HomoAlbus, 11 Ноября 2015

   Комментарии (3)

6. 1C / Говнокод #18998

   −96

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

   Если ОтражатьВБухгалтерскомУчете = Истина Тогда
   		Если Лев(Номер, 3) <> ТекПрефикс Тогда	Номер = "";	УстановитьНовыйНомер(); КонецЕсли;
   	Иначе
   		Если Лев(Номер, 3) = ТекПрефикс Тогда	Номер = "";	УстановитьНовыйНомер(); КонецЕсли;
   КонецЕсли;

   В чем смысл проверки на соответствие префиксу остается только гадать...

   imxored, 10 Ноября 2015

   Комментарии (5)

7. 1C / Говнокод #18959

   −100

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

   Если НЕ ЗначениеЗаполнено(Качество) Тогда
   	Качество = Справочники.Качество.Новый;
   КонецЕсли;
   	
   Если Качество = Справочники.Качество.Новый Тогда
   	Качество = Справочники.Качество.ПустаяСсылка();
   КонецЕсли;

   Foxx, 03 Ноября 2015

   Комментарии (4)

8. 1C / Говнокод #18923

   −88

   1. 1
   2. 2
   3. 3

   ЕСли ЗаявкаСсылка.таблица.Выгрузить().Колонки.Найти("СхемаЗакупки")  = Неопределено ТОгда
         ТекстЗапроса = 1/0;//вызываем Исключение
        КонецЕсли;

   Пунктуация сохранена.

   alexinzaz, 27 Октября 2015

   Комментарии (8)

9. 1C / Говнокод #18894

   −98

   1. 01
   2. 02
   3. 03
   4. 04
   5. 05
   6. 06
   7. 07
   8. 08
   9. 09
   10. 10
   11. 11
   12. 12
   13. 13
   14. 14
   15. 15
   16. 16

   Если не ДанныеАкта.ФормироватьБухПроводку Тогда
   	Выборка = Результат[1].Выбрать();
   	Пока Выборка.Следующий() Цикл
   		СуммаВал = СуммаВал + Выборка.СуммаУслуги;
   		//тут делаем всякое с выборкой
   	КонецЦикла;
   КонецЕсли;
   
   Если ДанныеАкта.ФормироватьБухПроводку Тогда
   	//тут делаем движения по счетам БУ
   Иначе
   	тз = Результат[1].Выгрузить();
   	Для каждого стрТЗ Из тз Цикл
   		//тут делаем тоже, что и с выборкой, только теперь с таблицей значений О_о
   	КонецЦикла;
   КонецЕсли;

   Смотрю одно решение для страховых компаний, полностью на поддержке...

   HomoAlbus, 20 Октября 2015

   Комментарии (4)

10. 1C / Говнокод #18850

    −98

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

    Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
    |	ДанныеСотрудниковСрезПоследних.Подразделение
    |ИЗ
    |	РегистрСведений.ДанныеСотрудников.СрезПоследних(&Дата, ) КАК ДанныеСотрудниковСрезПоследних
    |ГДЕ
    |	ДанныеСотрудниковСрезПоследних.Сотрудник = &Сотрудник";
    
    Запрос.УстановитьПараметр("Дата", ТекущаяДата());
    Запрос.УстановитьПараметр("Сотрудник", Пользователь.ФизЛицо);

    классическая ошибка СрезПоследних и ГДЕ (сотрудник, ессссно, является измерением); непонятно зачем присобачена &Дата
    откуда бы вы думали взят этот код?
    аддон "Закупки" для БГУ, поставщик Фирма "1С", версия 1.0.9.1. ОбщийМодуль.ДляУП.ПолучитьПодразделениеТ екущегоПользователя()
    И чего народ хочет от быдлокодеров-франчей, если сами 1С так пишут...

    IHate1C, 12 Октября 2015

    Комментарии (7)

• ← влево
• вправо →

• 54
• …
• 36
• 35
• 34
• 33
• 32
• 31
• 30
• 29
• 28
• …
• 1