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

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

0

1

Админ - уебок, хранивший пароли открытым текстом

Чекайте свои мыла в утечках, ебланы

aleksusklim, 26 Октября 2024

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

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

−2

1

Удалите мой аккаунт

Удалите мой аккаунт

aleksusklim, 25 Октября 2024

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

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

0

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

//Таб пропущенные
	УсловиеОтбора = "ABANDON";
	ДлинаСтрОтбора = 32;
	Для с=1 По ДлинаСтрОтбора - СтрДлина(УсловиеОтбора) Цикл
		УсловиеОтбора = УсловиеОтбора + " ";
	КонецЦикла;		
	ТабПропущенные = Таб_queue.Скопировать(Новый Структура("Событие",УсловиеОтбора));
	
	//Таб всё же дозвонились
	УсловиеОтбора = "CONNECT";
	ДлинаСтрОтбора = 32;
	Для с=1 По ДлинаСтрОтбора - СтрДлина(УсловиеОтбора) Цикл
		УсловиеОтбора = УсловиеОтбора + " ";
	КонецЦикла;	
	ТабДозвонились = Таб_queue.Скопировать(Новый Структура("Событие",УсловиеОтбора));

В таблице какого то черта стояла фиксированная строка длинной 32 символа.
Вот так "изящно" обошли это.

NioGoth, 08 Октября 2024

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

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

0

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

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

Довелось допиливать за студентом со стажем 1 год.
Всякое видел, но к таким извращениям не был готов... особенно условию с периодом
Уже молчу про предопределенный показатель и отсутствие связей

ilyatim23, 30 Сентября 2024

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

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

+1

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

Функция ЭтоVIN(Знач Значение, Знач ПробелыЗапрещены = Истина) Экспорт 
	
	Если ТипЗнч(Значение) <> Тип("Строка") Тогда
		Возврат Ложь;
	КонецЕсли;   
	
	Если Не ПробелыЗапрещены Тогда
		Значение = СтрЗаменить(Значение, " ", "");
	КонецЕсли;
	
	Возврат ЗначениеЗаполнено(Значение)
	И (СтрДлина(Значение) = 17)
	И 	
	// Если содержит только цифры, то в результате замен должна быть получена пустая строка.
	// Проверять при помощи ПустаяСтрока нельзя, так как в исходной строке могут быть пробельные символы.
	СтрДлина(  
	СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить(	СтрЗаменить(
	СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить(
	СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить(	СтрЗаменить(
	СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить(
	СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить( 
	СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить(
	СтрЗаменить( СтрЗаменить( СтрЗаменить( 
	Значение, "0", ""), "1", ""), "2", ""), "3", ""), "4", ""), "5", ""), "6", ""), "7", ""), "8", ""), "9", "")
	, "A", ""), "B", ""), "C", ""), "D", ""), "E", ""), "F", ""), "G", ""), "H", ""), "J", ""), "K", ""), "L", ""), "M", "")
	, "N", ""), "P", ""), "R", ""), "S", ""), "T", ""), "U", ""), "V", ""), "W", ""), "X", ""), "Y", ""), "Z", "")) = 0; 
	
КонецФункции

Функция определяет является ли строка VIN, метода выбрана забавная - в строке удаляются все допустимые символы, то что осталось, по мнению автора - мусор, т.е. vin невалидный. Видимо просто проверить каждый символ на вхождение в допустимый алфавит это слишком просто ;).

VladC, 20 Мая 2024

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

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

+1

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

Функция СоответствиеСодержитКлюч(Соответствие, Ключ)
    
    Если НЕ Соответствие[Ключ] = Неопределено Тогда
        Возврат Истина;
    КонецЕсли;
    
    КоличествоЭлементов = Соответствие.Количество();
    Соответствие.Удалить(Ключ);
    
    Если КоличествоЭлементов = Соответствие.Количество() Тогда
        Возврат Ложь;
    КонецЕсли;
    
    Соответствие.Вставить(Ключ);
    Возврат Истина;
    
КонецФункции

Как тебе такое Илон (зачеркнуто) Нуралиев?!

hujaboy, 16 Мая 2023

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

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

0

1
2
3
4
5
6
7
8

Функция ЗначениеКонстанты(ИмяКонстанты) Экспорт
 
 Если  ИмяКонстанты = "_ИмяФайловогоСервера" тогда
  возврат "jrumos03fscp010";
 КонецЕсли;
 
 Возврат Константы[ИмяКонстанты].Получить();
КонецФункции

Файловый сервер может быть только такой.

TrollNeedsDoll, 11 Января 2023

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

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

−7

1

ВремяВыезда = Строка(Формат(ВыборкаМаршШапка[0].ВремяВыезда, "ДФ=ЧЧ")) + ":" + Строка(Формат(ВыборкаМаршШапка[0].ВремяВыезда, "ДФ=мм")) + " выезд из гар.";

Выводит время без секунд

serving12, 04 Октября 2022

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

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

0

1
2
3
4
5
6
7
8
9

&НаКлиенте
Процедура НастройкаВидимости()
          НастройкаВидимости();
КонецПроцедуры

&НаКлиенте
Процедура ВидЗаявкиПриИзменении(Элемент)
	НастройкаВидимости();
КонецПроцедуры

Когда отвлекли телефонным звонком, а потом сидишь полчаса и думаешь почему при выборе значения на форме в поле "Вид заявки" 1ска крашиться)))

mordik, 24 Августа 2022

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

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

+1

1

СТРЗАМЕНИТЬ(СОКРЛ(СТРЗАМЕНИТЬ(уатПутевойЛист.Номер, "0", " ")), " ", "0") КАК НомерПЛ,

Удаляет нули в номере документа для вывода на печатную форму

serving12, 18 Августа 2022

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

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