1. Список говнокодов пользователя levxxx

    Всего: 15

  2. Куча / Говнокод #26368

    0

    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
    ебучая ссала
    
            case AccountStatuses.Blocked if acc.properties.get(GamStopService.GamStopVerification)
              .map(_.extract[String](DefaultFormats, implicitly[Manifest[String]]))
              .contains(GamStopStatus.NotPassed.toString) =>
              \/.left(AuthenticationError(ErrorCodes.GamStopUnauthorized, s"GamStop validation failed"))
    
    почему ты сука молдавская не можешь добавить метод блять а аккаунт сук ачтобы было 
    
            case AccountStatuses.Blocked if acc.contains(GamStopStatus.NotPassed) =>
              \/.left(AuthenticationError(ErrorCodes.GamStopUnauthorized, s"GamStop validation failed"))
    
    почему хуиа?

    говно блять

    levxxx, 21 Января 2020

    Комментарии (1)
  3. 1C / Говнокод #21315

    −29

    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
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    Функция ОписаниеОрганизации(СписокСведений, Список = "", СПрефиксом = Истина) Экспорт
    	
    	Если ПустаяСтрока(Список) Тогда
    		Список = "ПолноеНаименование,НаименованиеСокращенное,ИНН,Свидетельство,ЮридическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет";	
    	КонецЕсли;
    
    	Результат = "";
    
    	СоответствиеПараметров = Новый Соответствие();
    	СоответствиеПараметров.Вставить("ПолноеНаименование", 		" ");
    	СоответствиеПараметров.Вставить("НаименованиеСокращенное", 	" ");
    	СоответствиеПараметров.Вставить("ИНН",                		" ИНН ");
    	СоответствиеПараметров.Вставить("КПП",                		" КПП ");
    	СоответствиеПараметров.Вставить("Свидетельство",			" ");
    	СоответствиеПараметров.Вставить("СвидетельствоДатаВыдачи",	" от ");
    	СоответствиеПараметров.Вставить("ЮридическийАдрес",   		" ");
    	СоответствиеПараметров.Вставить("ФактическийАдрес",   		" ");
    	СоответствиеПараметров.Вставить("Телефоны",           		" тел.: ");
    	СоответствиеПараметров.Вставить("НомерСчета",         		" р/с ");
    	СоответствиеПараметров.Вставить("Банк",               		" в банке ");
    	СоответствиеПараметров.Вставить("БИК",                		" БИК ");
    	СоответствиеПараметров.Вставить("КоррСчет",           		" к/с ");
    	СоответствиеПараметров.Вставить("КодПоОКПО",          		" Код по ОКПО ");
    	
    	Список          = Список + ?(Прав(Список, 1) = ",", "", ",");
    	ЧислоПараметров = СтрЧислоВхождений(Список, ",");
    
    	Для Счетчик = 1 по ЧислоПараметров Цикл
    
    		ПозЗапятой = Найти(Список, ",");
    
    		Если ПозЗапятой > 0  Тогда
    			ИмяПараметра = Лев(Список, ПозЗапятой - 1);
    			Список = Сред(Список, ПозЗапятой + 1, СтрДлина(Список));
    
    			Попытка
    				СтрокаДополнения = "";
    				СписокСведений.Свойство(ИмяПараметра, СтрокаДополнения);
    
    				Если ПустаяСтрока(СтрокаДополнения) Тогда
    					Продолжить;
    				КонецЕсли;
    
    				Префикс = СоответствиеПараметров[ИмяПараметра];
    				Если Не ПустаяСтрока(Результат)  Тогда
    					Результат = Результат + ",";
    				КонецЕсли; 
    
    				Результат = Результат + ?(СПрефиксом = Истина, Префикс, "") + СтрокаДополнения;
    			Исключение
    				Сообщить("Не удалось определить значение параметра организации: " + ИмяПараметра, СтатусСообщения.Внимание);
    			КонецПопытки;
    
    		КонецЕсли;
    
    	КонецЦикла;
    
    	Возврат СокрЛП(Результат);
    
    КонецФункции // ОписаниеОрганизации()

    иди в 1С - говорили они,
    будет много денег говорили они,
    они говорили там всё легко, потому что по-русски,
    а в итоге?
    чтобы писать по русски надо постоянно переключать раскладку для <>, &
    ТУПОЙ КОМПИЛЯТОР, который вообще нихрена не подсказывает, потому что не строгая типизация
    Постоянная хрень типа в переменной "Список" лежит Строка, или Массив
    ПОСТОЯННЫЕ ТАНЦЫ С ЗАПЯТЫМИ, ПРИ ОПЕРАЦИЯХ СО СТРОКОЙ!!!
    Реализуйте 1 раз регулярные выражения типа Массив = Строка.Разделить("\\,") - нет! Хотим обмазываться запятыми и дрочить!
    Ну и прочее... конкретно сейчас не понятны танцы с запятыми и Лев() Прав() позиция запятой... просто бесит!

    levxxx, 03 Октября 2016

    Комментарии (32)
  4. 1C / Говнокод #19564

    −99

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Функция ЭтоКолбаса(НомерЗаказа) Экспорт
    	Результ = Ложь;
    	Если (НомерЗаказа <= 99999) ИЛИ ((НомерЗаказа > 999999) и ((Цел(НомерЗаказа/10000) - Цел(НомерЗаказа/100000)*10) = 2)) Тогда
    		Результ = Истина;
    	КонецЕсли;
    	Возврат Результ;	   
    КонецФункции

    Так... чисто поржать)

    levxxx, 02 Марта 2016

    Комментарии (4)
  5. 1C / Говнокод #19562

    −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
    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
    КолонкаTMCID=ТаблицаСЗаказ.колонки.TMCID;
    	КолонкаTMCID.ТекстШапки				= "№ тов.";
    	КолонкаTMCID.толькоПросмотр			= Истина;
    	КолонкаTMCID.Ширина					= Окр(ШиринаТаблицы * 0.08, 0);
    	
    	КолонкаType=ТаблицаСЗаказ.колонки.Type;
    	КолонкаType.ТекстШапки				= "Тип этикетки";
    	КолонкаType.толькоПросмотр			= Истина;
    	КолонкаType.Ширина					= Окр(ШиринаТаблицы * 0.08, 0);
    	
    	КолонкаName=ТаблицаСЗаказ.колонки.Name;
    	КолонкаName.ТекстШапки				= "Наименование";
    	КолонкаName.толькоПросмотр			= Истина;
    	КолонкаName.Ширина					= Окр(ШиринаТаблицы * 0.3, 0);
    	
    	КолонкаКод=ТаблицаСЗаказ.колонки.Kod_et;
    	КолонкаКод.ТекстШапки				= "Код этикетки";
    	КолонкаКод.толькоПросмотр			= Истина;
    	КолонкаКод.Ширина					= Окр(ШиринаТаблицы * 0.08, 0);
    		
    	//КолонкаSpecif=ТаблицаСЗаказ.колонки.Specif;
    	//КолонкаSpecif.ТекстШапки			= "Спецификация заказа";
    	//КолонкаSpecif.толькоПросмотр		= Истина;
    	//КолонкаSpecif.Ширина				= Окр(ШиринаТаблицы * 0.11, 0);
    	
    	КолонкаUnit=ТаблицаСЗаказ.колонки.Unit;
    	КолонкаUnit.ТекстШапки				= "Ед.изм";
    	КолонкаUnit.толькоПросмотр			= Истина;
    	КолонкаUnit.Ширина					= Окр(ШиринаТаблицы * 0.08, 0);
    	
    	КолонкаГород = ТаблицаСЗаказ.колонки.НаправлениеНамоткиГород;
    	КолонкаГород.ТекстШапки				= "Город";
    	КолонкаГород.толькоПросмотр			= Истина;
    	КолонкаГород.Ширина					= Окр(ШиринаТаблицы * 0.12, 0);
    	
    	КолонкаАдрес = ТаблицаСЗаказ.Колонки.АдресДоставки;
    	КолонкаАдрес.ТекстШапки				= "Адрес Доставки";
    	КолонкаАдрес.толькоПросмотр			= Истина;
    	КолонкаАдрес.Ширина					= Окр(ШиринаТаблицы * 0.12, 0);

    Ну вот не в падлу людям такой код писать... Подумаешь +-10 ненужных переменных. Какой-там нахрен рефакторинг?! Делать больше нечего рефакторингом всяким занниматься. Про повторное использование кода слышали? Так вот взяли код, скопировали, вставили - там самым повторно использовали. Горите в аду, копипастеры!

    levxxx, 02 Марта 2016

    Комментарии (16)
  6. 1C / Говнокод #19519

    −95

    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
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    Запрос = Новый Запрос;
    	Запрос.Текст = 
    	 "текст запроса не важен...";
    	Запрос.УстановитьПараметр("Заказ", Заказ);
    	Выборка = Запрос.Выполнить().Выбрать();
    	Пока Выборка.Следующий() Цикл
    		Если Выборка.Версия = 0 Тогда 
    			Версия = "0";
    		Иначе
    			Версия = Выборка.Версия;
    		КонецЕсли;
    		ИмяФайла = "\\eskoautomation\HotFolders\zakaz\" +Выборка.НомерЗаказа+"_"+Версия+".xml";
    		Файл = Новый ЗаписьXML;
    		Файл.ОткрытьФайл(ИмяФайла);
    		Файл.ЗаписатьНачалоЭлемента("Главный");
    			Файл.ЗаписатьНачалоЭлемента("НомерЗаказа");
    			ЗаписатьXML(Файл,Выборка.НомерЗаказа);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("Версия");
    			ЗаписатьXML(Файл,Выборка.Версия);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("Контрагент");
    			ЗаписатьXML(Файл,Выборка.Контрагент);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("ТипЗаказа");
    			ЗаписатьXML(Файл,Выборка.ТипЗаказа);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("ВидЗаказа");
    			ЗаписатьXML(Файл,Выборка.ВидЗаказа);
    			Файл.ЗаписатьКонецЭлемента();
    	        Файл.ЗаписатьНачалоЭлемента("ТипРЦ");
    			ЗаписатьXML(Файл,Выборка.ТипРЦ);
    			Файл.ЗаписатьКонецЭлемента();
    			РабочийЦентр = Выборка.РабочийЦентр;
    			Если Не ЗначениеЗаполнено(РабочийЦентр) Тогда
    				Отбор = Новый Структура;
    				Отбор.Вставить("НомерПроката", 1);
    				Отбор.Вставить("Номерварианта", Выборка.НомерВарианта);
    				строки = Выборка.Спецификация.ВидыРабот.НайтиСтроки(Отбор);
    				Если строки<>Неопределено Тогда 
    					РабочийЦентр = строки[0].рабочийЦентр.порядковыйномер;
    				КонецЕсли;
    			КонецЕсли;	
    	        Файл.ЗаписатьНачалоЭлемента("РабочийЦентр");
    			ЗаписатьXML(Файл,РабочийЦентр);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("ОсновнойМатериал");
    			ЗаписатьXML(Файл,Выборка.ОсновнойМатериал);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("Штамп");
    			ЗаписатьXML(Файл,Выборка.Штамп);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("ЭтикетокНаЛисте");
    			ЗаписатьXML(Файл,Выборка.ЭтикетокНаЛисте);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("Нарезка");
    			ЗаписатьXML(Файл,Выборка.Нарезка);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("Ручьи");
    			ЗаписатьXML(Файл,Выборка.Ручьи);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("Z");
    			ЗаписатьXML(Файл,Выборка.Z);
    			Файл.ЗаписатьКонецЭлемента();
    	        Файл.ЗаписатьНачалоЭлемента("ШагПечати");
    			ЗаписатьXML(Файл,Выборка.ШагПечати);
    			Файл.ЗаписатьКонецЭлемента();
    	        Файл.ЗаписатьНачалоЭлемента("ДлинаЭтикетки");
    			ЗаписатьXML(Файл,Выборка.ДлинаЭтикетки);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("ШиринаЭтикетки");
    			ЗаписатьXML(Файл,Выборка.ШиринаЭтикетки);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("ДлинаКонтрЭтикетки");
    			ЗаписатьXML(Файл,Выборка.ДлинаКонтрЭтикетки);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("ДлинаКольеретки");
    			ЗаписатьXML(Файл,Выборка.ДлинаКольеретки);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("ШиринаКонтрЭтикетки");
    			ЗаписатьXML(Файл,Выборка.ШиринаКонтрЭтикетки);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("ШиринаКольеретки");
    			ЗаписатьXML(Файл,Выборка.ШиринаКольеретки);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("ШиринаПоНожам");
    			ЗаписатьXML(Файл,Выборка.ШиринаПоНожам);
    			Файл.ЗаписатьКонецЭлемента();
    	        Файл.ЗаписатьНачалоЭлемента("ИнтервалМеждуРучьями");
    			ЗаписатьXML(Файл,Выборка.ИнтервалМеждуРучьями);
    			Файл.ЗаписатьКонецЭлемента();
    	        Файл.ЗаписатьНачалоЭлемента("ИнтервалМеждуЭтикетками");
    			ЗаписатьXML(Файл,Выборка.ИнтервалМеждуЭтикетками);
    			Файл.ЗаписатьКонецЭлемента();
    			Файл.ЗаписатьНачалоЭлемента("Комментарий");
    			ЗаписатьXML(Файл,Заказ.Комментарий);
    			Файл.ЗаписатьКонецЭлемента();

    А вот так мы выгружаем XML. Можно конечно было бы пройтись циклом по колонкам выборки или таблицы значений, но зачем?! Зачем, когда можно написать лишних 300 строчек. Я соду с ума.

    levxxx, 24 Февраля 2016

    Комментарии (4)
  7. 1C / Говнокод #19518

    −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
    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].Контрагент);
    				Если РезультатЗапроса.Количество() <> 0 Тогда
     
    					ТАблицаДАнных = ПреобразоватьВыборкуВТаблицуЗначение(РезультатЗапроса);
    
    Функция ПреобразоватьВыборкуВТаблицуЗначение(ИсходнаяВыборка)
    	
    	ТаблицаРЕзультат = Новый ТаблицаЗначений;
    	
    	Для каждого Колонка Из ИсходнаяВыборка.Колонки Цикл
    		ТаблицаРезультат.Колонки.Добавить(Колонка.Имя);	
    	КОнецЦикла;
    	
    	
    	Для каждого СтрокаВыборки из ИсходнаяВыборка Цикл
    		СтрокаРезультата = ТаблицаРЕзультат.Добавить();
    		ЗаполнитьЗначенияСвойств(СтрокаВыборки, СтрокаРезультата);
    	КонецЦикла;
    	
    	Возврат ТаблицаРЕзультат;
    КонецФункции

    Я допускаю, что это было написано в староглиняные времена, когда у РезультатЗапроса не было метода Выгрузить() но блин! Всей истории 1С я не знаю, и сомневаюсь, что такие времена когда-то были. А вообще что-то подсказывает что песатель просто не знал...

    levxxx, 24 Февраля 2016

    Комментарии (3)
  8. 1C / Говнокод #19515

    −99

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Запрос.УстановитьПараметр("Бумага", Справочники.Номенклатура.НайтиПоКоду("g0000000012"));
    	Запрос.УстановитьПараметр("Пленка", Справочники.Номенклатура.НайтиПоКоду("g0000000382"));
    	Запрос.УстановитьПараметр("Тиснение", Справочники.Номенклатура.НайтиПоКоду("g0000000481"));
    	Запрос.УстановитьПараметр("Фольга", Справочники.Номенклатура.НайтиПоКоду("g0000000459"));
    	Запрос.УстановитьПараметр("Полуфабрикат", Справочники.Номенклатура.НайтиПоКоду("g0000001919"));
    	Запрос.УстановитьПараметр("Ламинация1", Справочники.Номенклатура.НайтиПоКоду("g0000000074"));
    	Запрос.УстановитьПараметр("Ламинация2", Справочники.Номенклатура.НайтиПоКоду("g0000001292"));

    Возможно стоило использовать предопределенные элементы? Или справочник виды номенклатуры? Или свойства и категории объектов? Или создать своё перечисление? ДА БЛИН ЧТО УГОДНО ТОЛЬКО НЕ ЭТО!!!

    levxxx, 24 Февраля 2016

    Комментарии (7)
  9. 1C / Говнокод #19503

    −97

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Если  Стрк.Контрагент.ИНН = "7702691545" Тогда
    				ТекДок.Грузополучатель = Справочники.Контрагенты.НайтиПоКоду("000401789");
    			ИначеЕсли  ПоХенкелю Тогда
    				ТекДок.Грузополучатель = Заявка.Контрагент;
    			КонецЕсли;

    Навряд ли конечно кто-то из тех кто пишет такой код, читает этот сайт, но всё же обращаюсь к ним. Вот скажите, есть какой-то негласный принцип так писать? У вас какой-то орден масонский, где вас так учат делать? Расскажите же про свой негласный кодекс хорошего программиста! Просто я много где поработал, и постоянно в коде такое говно, написанное разными людьми. Генезис такого говна понятен: приходит тупорылый менеджер и приносит не менее тупорылую хотелку, но ведь вы программист, а значит вы должны видеть за деревьями лес.
    В каждой задаче нужно видеть за деревьями лес - вот принцип хорошего кода. Если менеджер пришёл 1 раз, он 100% придёт ещё раз, и принесёт подобную задачу. Не лучше ли сейчас немножко посидеть, написать ХОРОШО а в следующий раз решить подобную задачу за 1 минуту и дальше сидеть и пинать говно? Не лучше?!
    Что значит хорошо? Хорошо, это когда ваше решение шире задачи, а задача которую вам дали всего лишь частный случай того функционала, который вы реализовали. 1 - Мыслить нужно шире.
    Так же надо чётко разделять ту информацию которая хранится в базе, и имена переменных. Если наименование контрагента "Хенкель" то какого члена в тексте делает переменная "КонтрагентХенкель"?! Предопределенные элементы - это максимум хардкода, который приемлем. Вы вообще слышали про компиляцию? Компиляция процесс необратимый, и часто её делать нежелательно, поэтому максимум параметров надо выносить во всевозможные настройки и параметры, чтобы можно было их поменять на ходу. Ладно. Вы всё равно нифига не поймёте.

    levxxx, 20 Февраля 2016

    Комментарии (19)
  10. 1C / Говнокод #19493

    −98

    1. 1
    2. 2
    3. 3
    СтрокаТовары.Качество					       = СтрокиОст.Качество;
    СтрокаТовары.ЕдиницаИзмерения			= СтрокиОст.ЕдИзм;
    СтрокаТовары.ЕдиницаИзмеренияМест		= СтрокиОст.ЕдИзмМест;

    Поражает сам подход. А почему бы не выдумать для (поля/объекта/коллекции) ещё одно уникальное имя?! Ведь столько ещё свободных и красивых уникальных имён в мире есть! К тому же "ЕдИзм" - это ведь короче чем "ЕдиницаИзмерения", не правда ли? Дурак перепутает только, правда? Писать ведь будет удобней, правда?
    Ладно... про ЗаполнитьЗначенияСвойств писать уже баян. Но ведь СтрокиОст - это строка какой-то таблицы? А в исходной таблице это называлось "ЕдиницаИзмерения", наверное, да? Так зачем лишний раз придумывать псевдоним?!!! Зачем? Почему просто не соединить таблицы друг с другом в запросе? Почему?! Почему нужно постоянно дрочить циклами?!
    Циклы надо применять тогда, когда нельзя по-другому, а это узкий круг задач, например те, где нужен CAST которого в 1С нет, или распределение одной таблицы на другую по какому какой нибудь "хитровыдуманной и уникальной" бизнес логике. Даже списание по ФИФО уже придумали как сделать запросом... Не хочу! Хочу циклы...

    levxxx, 19 Февраля 2016

    Комментарии (1)
  11. 1C / Говнокод #19492

    −100

    1. 1
    2. 2
    3. 3
    4. 4
    ТипЗаказа = Число(Сред(СокрЛП(Формат(Стрк.Заказ, "ЧГ=")), 3, 1));
    ...
    Если ТипЗаказа = 9 ИЛИ ТипЗаказа = 8 ИЛИ ТипЗаказа = 7 Тогда
    ...

    Стрк.Заказ - есть строка с номером документа.
    Вообще, к статье брата Б. Нуралиева (простите не помню как его зовут) "1С как продукт инженерной мысли" хочется прилагать иллюстрации. И прилагать иллюстрации почему-то иллюстрации именно такие. Про "грамотное" использование составных типов хочется молчать.
    Если вы слышали про 13 правил Кодда, и слышали про атомарность данных в ячейках, и находите в этом рациональное зерно - ЗАБУДЬТЕ!

    levxxx, 19 Февраля 2016

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