1C — Говнокод.ру

1C / Говнокод #7334

−132

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22

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

Отбор в запросе ин_Кодификатор = &ин_Кодификатор.
Потом идет проверка Выборка.Ссылка.ин_Кодификатор <> Кодификатор

s-in-m, 25 Июля 2011

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

1C / Говнокод #7105

−134

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

Функция ПолучитьОстаток(ДанныеСтроки)

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

	РезультатЗапроса = Запрос.Выполнить().Выбрать();

	СерияНоменклатуры = ДанныеСтроки.Ссылка.ПолучитьОбъект();

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

	СерияНоменклатуры.Записать(); 	 

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

Процедура СправочникСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

	ПолучитьОстаток(ДанныеСтроки);
	
КонецПроцедуры // СправочникСписокПриВыводеСтроки()

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

Kirmas, 29 Июня 2011

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

1C / Говнокод #7090

−131

1
2
3
4
5
6
7
8

РегламентированнаяОтчетность.ПередОткрытиемФормыРегламентированногоОтчета(ЭтаФорма, Отказ);
////Вызывается перед открытием, а потом видим:

Процедура ПередОткрытиемФормыРегламентированногоОтчета(Форма, Отказ) Экспорт
	
	Отказ = Ложь;
	
КонецПроцедуры

Windtalkers, 27 Июня 2011

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

1C / Говнокод #6876

−144

1
2
3
4
5
6

Процедура ЗаполнитьНажатие(Элемент)	
	Если Период_планирования="" или Структурное_подразделение.Пустая() или Плановая_потребность_в_кадрах.Пустая() или Начальник_ППО.Пустая() или Начальник_отдела_кадров.Пустая() тогда
	ks = Новый COMОбъект ("WScript.Shell");
	ks.popup("Заполните все необходимые риквизиты верхней части!", 1, "Внимание", 64); 
	Возврат;
конецесли;

Из студенческих работ :)

r3nya, 06 Июня 2011

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

1C / Говнокод #6815

−365

01
02
03
04
05
06
07
08
09
10
11

Функция ПреобразоватьМаленькиеБуквыВБольшиеБуквы(Слово)
    
    Слово = СтрЗаменить(Слово, "а", "А");
    Слово = СтрЗаменить(Слово, "б", "Б");
    //...
 
    Слово = СтрЗаменить(Слово, "я", "Я");
    
    Возврат Слово;
    
КонецФункции

Легкие пути для слабых))))

kirillsas, 02 Июня 2011

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

1C / Говнокод #6808

−136

1
2
3
4
5

Если СтрФайлЗагрузки = Ложь Тогда
		СтрФайлЗагрузки = ФайлЗагрузки;
	Иначе
		ФайлЗагрузки = СтрФайлЗагрузки;
КонецЕсли;

1vasia1, 01 Июня 2011

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

1C / Говнокод #6763

−128

1
2

тПодр	= Справочники.СотрудникиОрганизаций.НайтиПоКоду(Физлицо.Код).ПолучитьОбъект().ТекущееПодразделениеОрганизации;
тДолжн	= Справочники.СотрудникиОрганизаций.НайтиПоКоду(Физлицо.Код).ПолучитьОбъект().ТекущаяДолжность;

а может, только так и надо?

-ggorky, 26 Мая 2011

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

1C / Говнокод #6339

−154

1

<img src="http://img199.imageshack.us/img199/5446/65715023.jpg" alt="">

без комментариев))

cdpoma, 13 Апреля 2011

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

1C / Говнокод #6227

−132

01
02
03
04
05
06
07
08
09
10
11

Договор = Неопределено;

ВыборкаДоговоров = Справочники.ДоговорыКонтрагентов.Выбрать();

Пока ВыборкаДоговоров .Следующий() Цикл
      Если ВыборкаДоговоров.Ссылка = Документ.ДоговорКонтрагента Тогда
            Договор = ВыборкаДоговоров.Ссылка;
      КонецЕсли;
КонецЦикла

ТабДокумент.Параметры.Договор = Договор.Наименеование;

Попросили стажера сделать печатную форму.

A-tomic, 05 Апреля 2011

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

1C / Говнокод #6179

−133

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

ВЫБРАТЬ
    МИНИМУМ(ЗапросСортировки.НомерСтроки)           КАК НомерСтроки,
    МИНИМУМ(ЗапросСортировки.НомерТЧ)               КАК НомерТЧ,
    ЗапросСоставаТЧ.Номенклатура.Артикул            КАК Артикул,
    ЗапросСоставаТЧ.Номенклатура                    КАК Номенклатура,
    ВЫРАЗИТЬ(ЗапросСоставаТЧ.Товар КАК Строка(100)) КАК Товар,
    МАКСИМУМ(ЗапросСоставаТЧ.Количество)            КАК Количество,
    ЗапросСоставаТЧ.ЕдиницаИзмерения.Представление  КАК ЕдиницаЦены,
    ЗапросСоставаТЧ.Цена                            КАК Цена,
    МАКСИМУМ(ЗапросСоставаТЧ.Сумма)                 КАК Сумма,
    МАКСИМУМ(ЗапросСоставаТЧ.СуммаНДС)              КАК СуммаНДС,
    ЗапросСоставаТЧ.Характеристика                  КАК Характеристика,
    NULL КАК Серия
ИЗ
(ВЫБРАТЬ
    ВложенныйЗапрос.Номенклатура     КАК Номенклатура,
    ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Товар,
    ВложенныйЗапрос.Номенклатура.Код КАК КодАртикул,
    ВложенныйЗапрос.Количество       КАК Количество,
    ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
    ВложенныйЗапрос.Цена             КАК Цена,
    ВложенныйЗапрос.Сумма            КАК Сумма,
    ВложенныйЗапрос.СуммаНДС         КАК СуммаНДС,
    ВложенныйЗапрос.Характеристика   КАК Характеристика
ИЗ
    (
    ВЫБРАТЬ
        ЗаказПоставщику.Номенклатура,
        ЗаказПоставщику.ЕдиницаИзмерения,
        ЗаказПоставщику.Цена                        КАК Цена,
        СУММА(ЗаказПоставщику.Количество)           КАК Количество,
        СУММА(ЗаказПоставщику.Сумма     )           КАК Сумма,
        СУММА(ЗаказПоставщику.СуммаНДС  )           КАК СуммаНДС,
        ЗаказПоставщику.ХарактеристикаНоменклатуры  КАК Характеристика
    ИЗ
        Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщику

    ГДЕ
        ЗаказПоставщику.Ссылка = &ТекущийДокумент

    СГРУППИРОВАТЬ ПО
        ЗаказПоставщику.Номенклатура,
        ЗаказПоставщику.ЕдиницаИзмерения,
        ЗаказПоставщику.Цена,
        ЗаказПоставщику.ХарактеристикаНоменклатуры
    ) КАК ВложенныйЗапрос

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
    ВложенныйЗапрос.Номенклатура     КАК Номенклатура,
    ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Товар,
    ВложенныйЗапрос.Номенклатура.Код КАК КодАртикул,
    ВложенныйЗапрос.Количество       КАК Количество,
    ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
    ВложенныйЗапрос.Цена             КАК Цена,
    ВложенныйЗапрос.Сумма            КАК Сумма,
    ВложенныйЗапрос.СуммаНДС         КАК СуммаНДС,
    ВложенныйЗапрос.Характеристика   КАК Характеристика
ИЗ
    (
    ВЫБРАТЬ
        ЗаказПоставщику.Номенклатура,
        ЗаказПоставщику.ЕдиницаИзмерения,
        ЗаказПоставщику.Цена                        КАК Цена,
        СУММА(ЗаказПоставщику.Количество)           КАК Количество,
        СУММА(ЗаказПоставщику.Сумма     )           КАК Сумма,
        СУММА(ЗаказПоставщику.СуммаНДС  )           КАК СуммаНДС,
        ЗаказПоставщику.ХарактеристикаНоменклатуры  КАК Характеристика
    ИЗ
        Документ.ЗаказПоставщику.Оборудование КАК ЗаказПоставщику

    ГДЕ
        ЗаказПоставщику.Ссылка = &ТекущийДокумент

    СГРУППИРОВАТЬ ПО
        ЗаказПоставщику.Номенклатура,
        ЗаказПоставщику.ЕдиницаИзмерения,
        ЗаказПоставщику.Цена,
        ЗаказПоставщику.ХарактеристикаНоменклатуры
    ) КАК ВложенныйЗапрос

ОБЪЕДИНИТЬ ВСЕ    

ВЫБРАТЬ
    ЗаказПоставщику.Номенклатура,
    ЗаказПоставщику.Содержание КАК Товар,
    ЗаказПоставщику.Номенклатура.Код КАК КодАртикул,
    ЗаказПоставщику.Количество,
    ЗаказПоставщику.Номенклатура.ЕдиницаХраненияОстатков,
    ЗаказПоставщику.Цена,
    ЗаказПоставщику.Сумма,
    ЗаказПоставщику.СуммаНДС,
    NULL
    
ИЗ
    Документ.ЗаказПоставщику.Услуги КАК ЗаказПоставщику

ГДЕ
    ЗаказПоставщику.Ссылка = &ТекущийДокумент) КАК ЗапросСоставаТЧ

получи фашист гранату... вытянул запрос и функции печать уникального автора

drhihi, 01 Апреля 2011

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

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