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

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

d_fomenok, 07 Октября 2016

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

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

−29

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

Функция ОписаниеОрганизации(СписокСведений, Список = "", СПрефиксом = Истина) Экспорт
	
	Если ПустаяСтрока(Список) Тогда
		Список = "ПолноеНаименование,НаименованиеСокращенное,ИНН,Свидетельство,ЮридическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет";	
	КонецЕсли;

	Результат = "";

	СоответствиеПараметров = Новый Соответствие();
	СоответствиеПараметров.Вставить("ПолноеНаименование", 		" ");
	СоответствиеПараметров.Вставить("НаименованиеСокращенное", 	" ");
	СоответствиеПараметров.Вставить("ИНН",                		" ИНН ");
	СоответствиеПараметров.Вставить("КПП",                		" КПП ");
	СоответствиеПараметров.Вставить("Свидетельство",			" ");
	СоответствиеПараметров.Вставить("СвидетельствоДатаВыдачи",	" от ");
	СоответствиеПараметров.Вставить("ЮридическийАдрес",   		" ");
	СоответствиеПараметров.Вставить("ФактическийАдрес",   		" ");
	СоответствиеПараметров.Вставить("Телефоны",           		" тел.: ");
	СоответствиеПараметров.Вставить("НомерСчета",         		" р/с ");
	СоответствиеПараметров.Вставить("Банк",               		" в банке ");
	СоответствиеПараметров.Вставить("БИК",                		" БИК ");
	СоответствиеПараметров.Вставить("КоррСчет",           		" к/с ");
	СоответствиеПараметров.Вставить("КодПоОКПО",          		" Код по ОКПО ");
	
	Список          = Список + ?(Прав(Список, 1) = ",", "", ",");
	ЧислоПараметров = СтрЧислоВхождений(Список, ",");

	Для Счетчик = 1 по ЧислоПараметров Цикл

		ПозЗапятой = Найти(Список, ",");

		Если ПозЗапятой > 0  Тогда
			ИмяПараметра = Лев(Список, ПозЗапятой - 1);
			Список = Сред(Список, ПозЗапятой + 1, СтрДлина(Список));

			Попытка
				СтрокаДополнения = "";
				СписокСведений.Свойство(ИмяПараметра, СтрокаДополнения);

				Если ПустаяСтрока(СтрокаДополнения) Тогда
					Продолжить;
				КонецЕсли;

				Префикс = СоответствиеПараметров[ИмяПараметра];
				Если Не ПустаяСтрока(Результат)  Тогда
					Результат = Результат + ",";
				КонецЕсли; 

				Результат = Результат + ?(СПрефиксом = Истина, Префикс, "") + СтрокаДополнения;
			Исключение
				Сообщить("Не удалось определить значение параметра организации: " + ИмяПараметра, СтатусСообщения.Внимание);
			КонецПопытки;

		КонецЕсли;

	КонецЦикла;

	Возврат СокрЛП(Результат);

КонецФункции // ОписаниеОрганизации()

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

levxxx, 03 Октября 2016

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

Pascal / Говнокод #21288

−77

1
2
3
4
5
6
7
8

program LeakMem;

uses sysutils;

var
   str:string;

...

В седьмой делфе утекает память.

voodoodal16, 28 Сентября 2016

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

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

−81

1
2
3
4

Говнокотаны!
У меня дочка родилась!
Я научу её питону, жс, познакомлю с пидаром, тридаром, Тарасом, и вообще!
Боже, дай мне силы не набухаться с утра!

bakagaijin, 18 Сентября 2016

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

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