По колено в коде — Говнокод.ру

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

−98

1
2
3
4
5
6
7

Процедура КнопкаВыполнитьНажатие(Кнопка)
	Кавычка = """";
	ПереносСтроки = Символы.ПС;
	Строка = "Процедура КнопкаВыполнитьНажатие(Кнопка)	Кавычка = ;	ПереносСтроки = Символы.ПС;	Строка = ;	Сообщить (ПереносСтроки + Лев(Строка, 40) + ПереносСтроки + Сред(Строка, 41, 11) + Кавычка + Кавычка + Кавычка + Кавычка + Сред(Строка, 52, 1) + ПереносСтроки + Сред(Строка, 53, 28) + ПереносСтроки		+ Сред(Строка, 81, 10) + Кавычка + Строка + Кавычка + Сред(Строка, 91, 1) + ПереносСтроки + Сред(Строка, 92, 198) + ПереносСтроки + Сред(Строка, 290, 194) + ПереносСтроки + Сред(Строка, 485)); КонецПроцедуры";
	Сообщить (ПереносСтроки + Лев(Строка, 40) + ПереносСтроки + Сред(Строка, 41, 11) + Кавычка + Кавычка + Кавычка + Кавычка + Сред(Строка, 52, 1) + ПереносСтроки + Сред(Строка, 53, 28) + ПереносСтроки
		+ Сред(Строка, 81, 10) + Кавычка + Строка + Кавычка + Сред(Строка, 91, 1) + ПереносСтроки + Сред(Строка, 92, 198) + ПереносСтроки + Сред(Строка, 290, 194) + ПереносСтроки + Сред(Строка, 485));
КонецПроцедуры

1С квайн

mrbus, 31 Октября 2016

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

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

−93

1
2
3
4
5
6

Для эстетов. Мы за это платим овердохуя, в получаем:

Текст.запроса = Текст.Запроса + Сред(ТекстЗапроса,Врезка8+33,Врезка9-Врезка8+24-33+1) ;
Мало того - что тут по буквам ТЕКСТ собирают, так еще и ошиблись - не +33 а +33-3 надо! ПИЗДЕЦ!
Вот эта хуета - Сред(ТекстЗапроса,Врезка8+33,Врезка9-Врезка8+24-33+1)  - возвращает "ОР" - и компилятор орет на ошибку
А вот эта наша хуета - Сред(ТекстЗапроса,Врезка8+33-3,Врезка9-Врезка8+24-33+1)  - возвращает "ВЫБОР" в все заебись работает.

Из глубин прикладной 1С

balabass, 31 Октября 2016

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

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

−97

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

Функция ПроставитьНули (ЧислоНулей)
	
Если ЧислоНулей = 7 Тогда 	
СтрокаНулей = "000000";	
ИначеЕсли ЧислоНулей = 6 Тогда 	
СтрокаНулей = "00000";		
ИначеЕсли ЧислоНулей = 5 Тогда 		
СтрокаНулей = "0000";		
ИначеЕсли ЧислоНулей = 4 Тогда 		
СтрокаНулей = "000";		
ИначеЕсли ЧислоНулей =3 Тогда 		
СтрокаНулей = "00";		
ИначеЕсли ЧислоНулей =2 Тогда 		
СтрокаНулей = "0";	
ИначеЕсли ЧислоНулей =1 Тогда
СтрокаНулей = "0";
КонецЕсли;

Возврат СтрокаНулей;
		
КонецФункции

Разгребал завалы от предшественника. Случайно наткнулся.
Правильно было бы так:
Функция ПроставитьНули (ИсходноеЧисло, ЧислоНулей)
Возврат Формат(ИсходноеЧисло, "ЧЦ="+ЧислоНулей+"; ЧВН=; ЧГ=0");
КонецФункции

Vince, 28 Октября 2016

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

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

−98

01
02
03
04
05
06
07
08
09
10
11
12
13
14

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	МетаданныеДокумента = Объект.Ссылка.Метаданные();
	СтруктураПараметров = новый Структура();
	//Заполним структуру реквизитами документа
	Для каждого Реквизит из МетаданныеДокумента.Реквизиты Цикл
		СтруктураПараметров.Вставить(Реквизит.Имя, Объект[Реквизит.Имя]);
	КонецЦикла;
	
   Если Не ЗначениеЗаполнено(Объект.Организация) Тогда 
      ЗаполнитьСвойствоЗначениемПоУмолчанию("Организация", "ОсновнаяОрганизация", СтруктураПараметров, Истина);
	  ЗаполнитьЗначенияСвойств(Объект,СтруктураПараметров);
   КонецЕсли;
КонецПроцедуры

В модуле формы документа проверяем заполнение одного (!) реквизита дичайше оптимальным образом

eternium, 25 Октября 2016

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

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

−97

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

Документ = Строка(Расшифровка);
СтрокаОбработанная = СТРЗаменить(Документ, "Заявка ", "");
ПозицияОт = Найти(СтрокаОбработанная, " от ");
Номер = СокрЛП(СтрЗаменить((Лев(СтрокаОбработанная, ПозицияОт)), "№", ""));
Дата = Дата(СокрЛП(СтрЗаменить(Прав(СтрокаОбработанная, СтрДлина(СтрокаОбработанная)-ПозицияОт), "от", "")));

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Заявка.Ссылка
|ИЗ
| Документ.Заявка КАК Заявка
|ГДЕ
| Заявка.Дата = &Дата
| И Заявка.Номер = &Номер";

Запрос.УстановитьПараметр("Дата", Дата);
Запрос.УстановитьПараметр("Номер", Номер);

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

Если РезультатЗапроса.Количество() Тогда
РезультатЗапроса.Следующий();

Мы уже даже привыкли к запросам с поиском ссылки по наименованию, полученному из уже имеющейся ссылки... Но парсинг представления ссылки документа с вычлененнием оттуда номера и даты, чтоб найти этот документ - это нельзя придумать даже специально.

elizir, 24 Октября 2016

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

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

−100

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

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

Функции языка запросов???

Asaharu, 24 Октября 2016

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

C# / Говнокод #21404

−236

1
2

string str = "trial evaluation license agreement expire about... looking for these words? I work like a fool to deliver high quality software and make a living of it and raise my children. Please support me if you want me to continue adding features";
        str = string.Concat(str, str);

интересненькое из ndepend.core.dll

reversemyass, 10 Октября 2016

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

C# / Говнокод #21367

−12

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71

using System;


namespace Aquapear.StringTools
{
	
	/// <summary> Объединяет строки, вставляя между ними разделитель, но в конце разделитель не ставится. </summary>
	public static class StringsJoiner
	{
		
		public static String Join(String[] bits, String separator) {
			/*if(separator.Length==0) {
				int bitsLength = bits.Length;
				StringBuilder builder = new StringBuilder(bits.Length);
					for(int i = 0; i < bitsLength; i++) {
						builder.AddLast( bits[i] );
					}
				return builder.Build();
			}*/
			return String.Join(separator, bits);
			/*
			int bitsLength = bits.Length;

			if(bitsLength == 0) return "";
			if(separator.Length==0) return CloseJoin(bits);
			
			int allCharsLength = separator.Length*(bits.Length-1);
			for(int i = 0; i < bitsLength; i++) {
				allCharsLength += bits[i].Length;
			}						
			char[] chrs = new char[allCharsLength];
			int wordIndex = 0, wordProgress = 0;
			bool separatorMode = false;

			string word = bits[0];
			int wordLength = word.Length;
				
				for(int i = 0; i < allCharsLength; i++) {
					if(separatorMode) {
						chrs[i] = word[wordProgress];
						wordProgress++;
						if(wordProgress>=wordLength) {
							separatorMode = false;
							wordProgress = 0;
							word = bits[wordIndex];
							wordLength = word.Length;
						}

					} else {
						chrs[i] = (wordLength >= 1) ? word[wordProgress] : '\0';
						wordProgress++;
						if(wordProgress >= wordLength) {
							separatorMode = true;
							wordProgress = 0;
							wordIndex++;
							if(word.Length == 0) i--;
							word = separator;
							wordLength = word.Length;
						}
					}
				}
			return new String(chrs); */
		}


		static String CloseJoin(String[] bits) {
			return String.Join("", bits);
		}

	}
}

d_fomenok, 07 Октября 2016

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

C# / Говнокод #21366

−234

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

Public Class Form1
    Dim x01, x02, f01, f02, f01i, f02i, x11, x12, f12, f11, f11i, f12i, x21, x22, z1, z2, f21, f22, f21i, f22i, x31, x32 As Double
    Dim f31, f32, f31i, f32i, x41, x42, f41, f42, f41i, f42i, x51, x52, f51, f52, f51i, f52i, x61, x62, f61, f62, f61i, f62i, x71, x72 As Double
    Dim f71, f72, f71i, f72i, x81, x82, f81, f82, f81i, f82i, x91, x92, f91, f92, f91i, f92i, x101, x102, f101, f102, f101i, f102i, x111, x112, f111, f112, f111i, f112i, x121, x122 As Double
    Dim f121, f122, f121i, f122i, x131, x132, f131, f132, f131i, f132i, x141, x142, f141, f142, f141i, f142i, x151, x152, f151, f152, f151i, f152i, x161, x162, f161, f162, f161i, f162i, x171, x172 As Double
    Dim f171, f172, f171i, f172i, x181, x182, f181, f182, f181i, f182i, x191, x192, f191, f192, f191i, f192i, x201, x202, f201, f202, f201i, f202i, x211, x222, f211, f212, f211i, f212i, x221, x212, f221, f222, f221i, f222i, x231, x232 As Double
    Dim f231, f232, f231i, f232i, x241, x242, f241, f242, f241i, f242i, x251, x252, f251, f252, f251i, f252i, x261, x262, f261, f262, f261i, f262i, x271, x272, f271, f272, f271i, f272i, x281, x282, f281, f282, f281i, f282i, x291, x292 As Double
    Dim f291, f292, f291i, f292i, x301, x302, f301, f302, f301i, f302i, x311, x312, f311, f312, f311i, f312i, x321, x322 As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x01 = TextBox1.Text
        x02 = TextBox2.Text
 
        f01 = x01 - 0.5 * Math.Sin(0.3 * Math.Cos(x01) / 3) - 1
        f02 = -x02 + 0.3 * Math.Cos((0.5 * Math.Sin(x02 / 3) + 1))
        f01i = 1 + 0.5 * (Math.Cos(0.3 * Math.Cos(x01)) / 3) * Math.Sin(x01)
        f02i = 1 + (0.3 * Math.Sin(0.5 * Math.Sin(x02)) / 3) * (Math.Cos(x02) / 3) * 0.5 / 3
        x11 = x01 + f01 / f01i
        x12 = x02 + f02 / f02i
 
        Label7.Text = "x11= " & x11
        Label8.Text = "x12= " & x12
 
 
        f11 = x11 - 0.5 * Math.Sin(0.3 * Math.Cos(x11) / 3) - 1
        f12 = -x12 + 0.3 * Math.Cos((0.5 * Math.Sin(x12 / 3) + 1))
        f11i = 1 + 0.5 * (Math.Cos(0.3 * Math.Cos(x11)) / 3) * Math.Sin(x11)
        f12i = 1 - (0.3 * Math.Sin(0.5 * Math.Sin(x12)) / 3) * (Math.Cos(x12) / 3) * 0.5 / 3
        x21 = x11 + f11 / f11i
        x22 = x12 + f12 / f12i
        Label9.Text = "x21= " & x21
        Label10.Text = "x22= " & x22
 
 
 
        f21 = x21 - 0.5 * Math.Sin(0.3 * Math.Cos(x21) / 3) - 1
        f22 = -x22 + 0.3 * Math.Cos((0.5 * Math.Sin(x22 / 3) + 1))
        f21i = 1 + 0.5 * (Math.Cos(0.3 * Math.Cos(x21)) / 3) * Math.Sin(x21)
        f22i = 1 - (0.3 * Math.Sin(0.5 * Math.Sin(x22)) / 3) * (Math.Cos(x22) / 3) * 0.5 / 3
        x31 = x21 + f21 / f21i
        x32 = x22 + f22 / f22i
        Label15.Text = "x31= " & x31
        Label16.Text = "x32= " & x32
 
 
 
        f31 = x31 - 0.5 * Math.Sin(0.3 * Math.Cos(x31) / 3) - 1
        f32 = -x32 + 0.3 * Math.Cos((0.5 * Math.Sin(x32 / 3) + 1))
        f31i = 1 + 0.5 * (Math.Cos(0.3 * Math.Cos(x31)) / 3) * Math.Sin(x31)
        f32i = 1 - (0.3 * Math.Sin(0.5 * Math.Sin(x32)) / 3) * (Math.Cos(x32) / 3) * 0.5 / 3
        x41 = x31 + f31 / f31i
        x42 = x32 + f32 / f32i
        Label17.Text = "x41= " & x41
        Label18.Text = "x42= " & x42
 
 
 
        f41 = x41 - 0.5 * Math.Sin(0.3 * Math.Cos(x41) / 3) - 1
        f42 = -x42 + 0.3 * Math.Cos((0.5 * Math.Sin(x42 / 3) + 1))
        f41i = 1 + 0.5 * (Math.Cos(0.3 * Math.Cos(x41)) / 3) * Math.Sin(x41)
        f42i = 1 - (0.3 * Math.Sin(0.5 * Math.Sin(x42)) / 3) * (Math.Cos(x42) / 3) * 0.5 / 3
        x51 = x41 + f41 / f41i
        x52 = x42 + f42 / f42i
        Label19.Text = "x51= " & x51
        Label20.Text = "x52= " & x52
 
 
 
        f51 = x51 - 0.5 * Math.Sin(0.3 * Math.Cos(x51) / 3) - 1
        f52 = -x52 + 0.3 * Math.Cos((0.5 * Math.Sin(x52 / 3) + 1))
        f51i = 1 + 0.5 * (Math.Cos(0.3 * Math.Cos(x51)) / 3) * Math.Sin(x51)
        f52i = 1 - (0.3 * Math.Sin(0.5 * Math.Sin(x52)) / 3) * (Math.Cos(x52) / 3) * 0.5 / 3
        x61 = x51 + f51 / f51i
        x62 = x52 + f52 / f52i
        Label21.Text = "x61= " & x61
        Label22.Text = "x62= " & x62
 
 
        f61 = x61 - 0.5 * Math.Sin(0.3 * Math.Cos(x61) / 3) - 1
        f62 = -x62 + 0.3 * Math.Cos((0.5 * Math.Sin(x62 / 3) + 1))
        f61i = 1 + 0.5 * (Math.Cos(0.3 * Math.Cos(x61)) / 3) * Math.Sin(x61)
        f62i = 1 - (0.3 * Math.Sin(0.5 * Math.Sin(x62)) / 3) * (Math.Cos(x62) / 3) * 0.5 / 3
        x71 = x61 - f61 / f61i
        x72 = x62 + f62 / f62i
        Label23.Text = "x61= " & x71
        Label24.Text = "x62= " & x72
 
 
        f71 = x71 - 0.5 * Math.Sin(0.3 * Math.Cos(x71) / 3) - 1
        f72 = -x62 + 0.3 * Math.Cos((0.5 * Math.Sin(x72 / 3) + 1))
        f71i = 1 + 0.5 * (Math.Cos(0.3 * Math.Cos(x71)) / 3) * Math.Sin(x71)
        f72i = 1 - (0.3 * Math.Sin(0.5 * Math.Sin(x72)) / 3) * (Math.Cos(x72) / 3) * 0.5 / 3
        x81 = x71 + f71 / f71i
        x82 = x72 - f72 / f72i
        Label25.Text = "x81= " & x81
        Label26.Text = "x82= " & x82
 
 
 
        f81 = x81 - 0.5 * Math.Sin(0.3 * Math.Cos(x81) / 3) - 1
        f82 = -x82 + 0.3 * Math.Cos((0.5 * Math.Sin(x82 / 3) + 1))

cyberforum.ru/pascalabc/thread844601.html