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

    −94

    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
    Функция ПолучитьДоговорКонтрагента(Организация,Подразделение,Контрагент) Экспорт
	
	 ЗапросДоговор = Новый Запрос;
		ЗапросДоговор.Текст = "ВЫБРАТЬ
		               |	ДоговорыКонтрагентов.Ссылка
		               |ИЗ
		               |	Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
		               |ГДЕ
		               |	ДоговорыКонтрагентов.Организация = &Организация
		               |	И ДоговорыКонтрагентов.Подразделение = &Подразделение
		               |	И ДоговорыКонтрагентов.Владелец = &Владелец
		               |
		               |СГРУППИРОВАТЬ ПО
		               |	ДоговорыКонтрагентов.Ссылка";
		ЗапросДоговор.УстановитьПараметр("Организация",Организация);
		ЗапросДоговор.УстановитьПараметр("Подразделение",Подразделение);
		ЗапросДоговор.УстановитьПараметр("Владелец",Контрагент);
		Результат = ЗапросДоговор.Выполнить();
		Если НЕ Результат.Пустой() Тогда
			Возврат Результат.Выбрать().Следующий();
		Иначе
			
			Возврат Справочники.ДоговорыКонтрагентов.ПустаяСсылка();
			
		КонецЕсли;
	
КонецФункции

    Вот вроде функция общего модуля называется ПолучитьДоговорКонтрагента, и ты, не заглядывая в неё, конечно же, ждёшь возврата ссылки на спр-к ДоговорыКонтрагентов, но нет!!

    SkyHunter, 02 Октября 2015

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

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

    −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
    Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
	|	ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка) КАК Контрагент,
	|	ЗНАЧЕНИЕ(Справочник.ДоговорыКонтрагентов.ПустаяСсылка) КАК ТорговаяТочка,
	|	0 КАК ЛимитСумма,
	|   0 КАК ЛимитСрок,
	|   0 КАК ПросроченаСумма,
	|   0 КАК ПросроченоДней,
	|	0 КАК ОтгрузкаРазрешена,
	|   Значение(Документ.РеализацияТоваровУслуг.ПустаяСсылка) КАК Документ,
	|	0 КАК Сумма
	|";
РезультатЗапроса = Запрос.Выполнить();
ТаблицаДЗ = РезультатЗапроса.Выгрузить();
Результаты.Вставить("АктуальнаяДЗСумма", ТаблицаДЗ);

    Кто может объяснить мне сакральный смысл этого запроса?

    jerokee, 01 Октября 2015

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

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

    −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
    &НаКлиенте
Процедура УстановитьВидимостьПотребностей(Видимость)

              Если Видимость Тогда
                               Элементы.ТекстУтвержденоПоЗаявкам.ЦветТекстаЗаголовка = Новый Цвет(0,0,0);
                               Элементы.ТекстУтвержденнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(0,0,0);
                               Элементы.ТекстНеиспользованнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(0,0,0);
                Иначе
                               Элементы.ТекстНеиспользованнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
                               Элементы.ТекстУтвержденнаяПотребность.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
                               Элементы.ТекстУтвержденоПоЗаявкам.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
                КонецЕсли;

Элементы.ТекстСрочнойНакладной.ЦветТекстаЗаголовка = Новый Цвет(252,250,235);
Элементы.ТекстСрочнойНакладной.ЦветТекста = Новый Цвет(252,250,235);

КонецПроцедуры

    Оригинальный способ управления видимостью элементов УФ без лишних серверных вызовов. Получил женский оргазм=)

    safer_bwd, 15 Сентября 2015

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

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

    −94

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    ТаблЗнач = Запрос.Выполнить().Выгрузить();  //SL+
	Для Каждого Элемент из ТаблЗнач Цикл
		Если Элемент.Номенклатура.РазрешеноДробноеКоличество = Ложь Тогда
			Элемент.Количество = ?(Формат (Элемент.Количество,"ЧДЦ=0") = "",0,Формат (Элемент.Количество,"ЧДЦ=0")); 				
		КонецЕсли;	
	КонецЦикла;

    BlinOFF, 10 Сентября 2015

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

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

    −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
    Если (ПустаяСтрока(мВыбФайл) = 1)
		Или (ФС.СуществуетФайл(мВыбФайл) = 0) Тогда
	ТекстСообщения = "Внимание, не заполнен путь к файлу Excel с товарами для перемещения. Выполнение обработки прервано.";
	Сообщить(ТекстСообщения);
	СтатусВозврата(0);
	Возврат;
КонецЕсли;
	
Если ФС.СуществуетФайл(мВыбФайл) = 0 Тогда
	ТекстСообщения = "Внимание, Excel файл с товарами для перемещения не существует. Выполнение обработки прервано.";
	Сообщить(ТекстСообщения);
	СтатусВозврата(0);
	Возврат;
КонецЕсли;
	
Если ПустаяСтрока(мВыбФайл)	= 1 Тогда
	ТекстСообщения = "Не указан Excel файл для формирования таблицы товаров.";
	СтатусВозврата(0);
	Возврат;
КонецЕсли;

    1С 7.7. Кусок из процедуры по загрузке данных из файла Excel.

    dsfix, 09 Сентября 2015

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

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

    −98

    1. 1
    Если ЗапретНаСозданиеРаходныхПоФирме(Фирма, Родитель) И ЭтоТакиНовый Тогда

    таки да, таки новый

    alexinzaz, 06 Августа 2015

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

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

    −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
    // Mr. Gromozeka 03.08.2014

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

    Блокировка в цикле это грустно мистер Громозека.

    bugagashka, 04 Августа 2015

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

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

    −175

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    Кавычка      = Символ(КодСимвола("""",1));
	Если   ЗначениеЗаполнено(Подразделение)  Тогда
		   ОбластьПоставщик.Параметры.ПредставлениеПоставщика  = "ОАО " + Кавычка+  "XXX"+Кавычка +" " + " (" + Подразделение + ")";
	ИНаче
		  ОбластьПоставщик.Параметры.ПредставлениеПоставщика = Организация.КраткоеНаименование;
	КонецЕсли;

    Текстовые константы в коде и 1С - созданы друг для друга! Особенно доставляет нестандартное использование кавычек.

    a8899, 15 Июля 2015

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

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

    −102

    1. 1
    2. 2
    3. 3
    4. 4
    Если Не Запрос.Выполнить().Пустой() Тогда 
  
   ЗаголовокЛиста.Параметры.Подразделение = Запрос.Выполнить().Выгрузить().Получить(0).Подразделение;
   ЗаголовокЛиста.Параметры.Должность = Запрос.Выполнить().Выгрузить().Получить(0).Должность;

    Прелестно, не так ли?

    Bazooka, 14 Июля 2015

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

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

    −105

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Функция КонтрИскл8(код)
    
    КонтрИскл8=Справочники.Контрагенты.НайтиПоКоду(Код).Ссылка.ДополнительныеРеквизиты.Найти(ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Код_").Ссылка).Значение;
    Искл8=КонтрИскл8;
    Возврат Искл8; 
    
КонецФункции

    Укоадено с mista.ru. Не мог не поделиться. Когда впервые увидел, мой взгляд был примерно таким - 0_0

    portwein, 02 Июля 2015

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