Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−156
Говнокод, выручай пишу быстро. Работаю дома, так же как и ты наверно, у нас есть модем мегафон 4G.
Я не знал что там трафик не безлимитный. Сейчас мамка хочет сделать запрос сайтов, точнее уже начала смотреть.
Я смотрел на порно и дрочил, что делать?
serpinski,
04 Ноября 2012
−126
1CClientBankExchange
ВерсияФормата=1.01
Кодировка=Windows
Получатель=
ДатаНачала=25.09.2012
ДатаКонца=25.09.2012
...
СекцияРасчСчет
...
КонецРасчСчет
СекцияДокумент=Платежное поручение
...
КонецДокумента
КонецФайла
Формат файла: Стандарт обмена с системами "Клиент банка"
http://v8.1c.ru/edi/edi_stnd/100/101.htm
Пидорва изобрела ini-файлы. Но убило не это, а это:
>Кодировка=Windows
Centry,
24 Октября 2012
−97
Функция Транслит(Имя)
Рез = СокрЛП(Имя);
Рез = СтрЗаменить(Рез,"а","a");
Рез = СтрЗаменить(Рез,"б","b");
Рез = СтрЗаменить(Рез,"в","v");
Рез = СтрЗаменить(Рез,"г","g");
Рез = СтрЗаменить(Рез,"д","d");
Рез = СтрЗаменить(Рез,"е","e");
Рез = СтрЗаменить(Рез,"ё","jo");
Рез = СтрЗаменить(Рез,"ж","zh");
Рез = СтрЗаменить(Рез,"з","z");
Рез = СтрЗаменить(Рез,"и","i");
Рез = СтрЗаменить(Рез,"й","jj");
Рез = СтрЗаменить(Рез,"к","k");
Рез = СтрЗаменить(Рез,"л","l");
Рез = СтрЗаменить(Рез,"м","m");
Рез = СтрЗаменить(Рез,"н","n");
Рез = СтрЗаменить(Рез,"о","o");
Рез = СтрЗаменить(Рез,"п","p");
Рез = СтрЗаменить(Рез,"р","r");
Рез = СтрЗаменить(Рез,"с","s");
Рез = СтрЗаменить(Рез,"т","t");
Рез = СтрЗаменить(Рез,"у","u");
Рез = СтрЗаменить(Рез,"ф","f");
Рез = СтрЗаменить(Рез,"х","h");
Рез = СтрЗаменить(Рез,"ч","ch");
Рез = СтрЗаменить(Рез,"ш","sh");
Рез = СтрЗаменить(Рез,"щ","shh");
Рез = СтрЗаменить(Рез,"ъ","");
Рез = СтрЗаменить(Рез,"ь","");
Рез = СтрЗаменить(Рез,"э","eh");
Рез = СтрЗаменить(Рез,"ю","ju");
Рез = СтрЗаменить(Рез,"ц","c");
Рез = СтрЗаменить(Рез,"я","ja");
Рез = СтрЗаменить(Рез,"ы","i");
Рез = СтрЗаменить(Рез,"А","A");
Рез = СтрЗаменить(Рез,"Б","B");
Рез = СтрЗаменить(Рез,"В","V");
Рез = СтрЗаменить(Рез,"Г","G");
Рез = СтрЗаменить(Рез,"Д","D");
Рез = СтрЗаменить(Рез,"Е","E");
Рез = СтрЗаменить(Рез,"Ё","JO");
Рез = СтрЗаменить(Рез,"Ж","ZH");
Рез = СтрЗаменить(Рез,"З","Z");
Рез = СтрЗаменить(Рез,"И","I");
Рез = СтрЗаменить(Рез,"Й","JJ");
Рез = СтрЗаменить(Рез,"К","K");
Рез = СтрЗаменить(Рез,"Л","L");
Рез = СтрЗаменить(Рез,"М","M");
Рез = СтрЗаменить(Рез,"Н","N");
Рез = СтрЗаменить(Рез,"О","O");
Рез = СтрЗаменить(Рез,"П","P");
Рез = СтрЗаменить(Рез,"Р","R");
Рез = СтрЗаменить(Рез,"С","S");
Рез = СтрЗаменить(Рез,"Т","T");
Рез = СтрЗаменить(Рез,"У","U");
Рез = СтрЗаменить(Рез,"Ф","F");
Рез = СтрЗаменить(Рез,"Х","H");
Рез = СтрЗаменить(Рез,"Ч","CH");
Рез = СтрЗаменить(Рез,"Ш","SH");
Рез = СтрЗаменить(Рез,"Щ","SHH");
Рез = СтрЗаменить(Рез,"Ъ","");
Рез = СтрЗаменить(Рез,"Ь","");
Рез = СтрЗаменить(Рез,"Ы","");
Рез = СтрЗаменить(Рез,"Ц","C");
Рез = СтрЗаменить(Рез,"Э","EH");
Рез = СтрЗаменить(Рез,"Ю","JU");
Рез = СтрЗаменить(Рез,"Я","JA");
Возврат(Рез);
КонецФункцииСуровая транслитерация... Я плакалъ
jerokee,
16 Октября 2012
−121
НомСтрЗаказа = ПолучитьПустоеЗначение("Число");
Нашел тут в загашниках при поддержке "чужого кода".
Вот оказывается как надо присваивать переменной нулевое значение!
jerokee,
11 Октября 2012
−121
Функция СоздатьЗапрос(Текст) Экспорт
Запрос = Новый Запрос;
Запрос.Текст=Текст;
Возврат Запрос;
КонецФункции
Функция СоздатьМассив() Экспорт
Возврат Новый Массив;
КонецФункции
Функция СоздатьСоответствие() Экспорт
Возврат Новый Соответствие;
КонецФункции
Функция СоздатьСтруктуру() Экспорт
Возврат Новый Структура;
КонецФункции
Функция СоздатьСписокЗначений() Экспорт
Возврат Новый СписокЗначений;
КонецФункцииВот такие вот функции (это естественно не все) от OLE-мастера: NewObject - не, не слышал.
ilya2184,
10 Октября 2012
−121
Процедура аСсылкиПриЗаписиПриЗаписи(Источник, Отказ) Экспорт
Если аСервер.ЗагрузкаПоОбменуРиб(Источник) Тогда
Возврат
КонецЕсли;
Если ТипЗнч(Источник)=Тип("СправочникОбъект.Корреспонденты") Тогда
Если Источник.ОбменДанными.Загрузка Тогда Возврат; КонецЕсли;
Если Источник.Ссылка.ЭтоГруппа Тогда Возврат; КонецЕсли;
Если Источник.Предопределенный Тогда Возврат; КонецЕсли;
Источник.ОбменДанными.Загрузка=Истина;
Источник.Записать(); //Записать() в подписке ПриЗаписи() - крутой костыль
Источник.ОбменДанными.Загрузка=Ложь;
Источник.Комментарий = ...Вот такая вот подписка при записи любых ссылок. 3 Если подряд? Логическое умножение - не, не слышал. Зато Записать() в подписке ПриЗаписи - слышал. Автор Хан Юрий Валентинович.
ilya2184,
10 Октября 2012
−117
ВЫБОР
КОГДА ПродажиОбороты.Регистратор.Товары.СерияНоменклатуры.СрокГодности ЕСТЬ NULL
ИЛИ ПродажиОбороты.Регистратор.Товары.СерияНоменклатуры.СрокГодности < ДАТАВРЕМЯ(2000, 1, 1)
ТОГДА ПродажиОбороты.Регистратор.Товары.Ссылка.Дата МЕЖДУ НАЧАЛОПЕРИОДА(Регистр1.ДатаНачала, ДЕНЬ) И КОНЕЦПЕРИОДА(Регистр1.ДатаОкончания, ДЕНЬ)
ИНАЧЕ ПродажиОбороты.Регистратор.Товары.СерияНоменклатуры.СрокГодности МЕЖДУ НАЧАЛОПЕРИОДА(Регистр1.ДатаНачала, ДЕНЬ) И КОНЕЦПЕРИОДА(Регистр1.ДатаОкончания, ДЕНЬ)
КОНЕЦ
dmurdoc,
08 Октября 2012
−123
Функция СтрокаБезПробелов(sP,lenP= Неопределено) Экспорт
// убрать пробелы (на самом деле, символы 160) в строке sP
// (после преобразования числа в cтроку)
// если нужно - дописать пробелов спереди до длины lenP
s_ = СтрЗаменить(Строка(sP),Символ(160),"");
Если lenP>0 Тогда
l_ = СтрДлина(s_);
Если l_<lenP Тогда
j = lenP-l_;
Если j=1 Тогда
s_ = " "+s_;
Иначе
Если j=2 Тогда
s_ = " "+s_;
Иначе
Если j=3 Тогда
s_ = " "+s_;
Иначе
Если j=4 Тогда
s_ = " "+s_;
Иначе
Если j=5 Тогда
s_ = " "+s_;
Иначе
Если j=6 Тогда
s_ = " "+s_;
Иначе
Если j=7 Тогда
s_ = " "+s_;
Иначе
Если j=8 Тогда
s_ = " "+s_;
Иначе
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат s_;
КонецФункцииВот такая замена функции Формат нашлась в исходниках от одного из внедренцев.
bytemdfab,
01 Октября 2012
−121
Функция ПолучитьКонтрольКонтрагентовВключен() Экспорт
мПривилегированныйРежим=ПривилегированныйРежим();
Если НЕ мПривилегированныйРежим Тогда
УстановитьПривилегированныйРежим(Истина);
мКонтрольКонтрагентовВключен=КОнстанты.КонтрольКонтрагентовВключен.Получить()=Истина;
УстановитьПривилегированныйРежим(мПривилегированныйРежим);
Иначе
мКонтрольКонтрагентовВключен=КОнстанты.КонтрольКонтрагентовВключен.Получить()=Истина;
КонецЕсли;
Возврат мКонтрольКонтрагентовВключен;
КонецФункцииПолучение константы в в привилегированном режиме поражает. Антипаттерн Спагетти (можно обойтись двумя строками). Автор Хан Юрий Валентинович.
ilya2184,
27 Сентября 2012
−122
ВЫБРАТЬ
ПродажиОбороты.Номенклатура КАК Номенклатура,
ВЫРАЗИТЬ(ПродажиОбороты.СтоимостьОборот / ВложенныйЗапрос.Курс КАК ЧИСЛО(15, 2)) КАК Сумма,
ЕСТЬNULL(ПродажиОбороты.Номенклатура.Родитель, &ПустаяНоменклатура) КАК Родитель1,
ЕСТЬNULL(ПродажиОбороты.Номенклатура.Родитель.Родитель, &ПустаяНоменклатура) КАК Родитель2,
ЕСТЬNULL(ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель, &ПустаяНоменклатура) КАК Родитель3,
ЕСТЬNULL(ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель, &ПустаяНоменклатура) КАК Родитель4,
Контрагенты.Контрагент.Ссылка КАК Контрагент,
Контрагенты.Контрагент._г_Код1С КАК КодПартнера,
1 КАК Колво
ИЗ
(ВЫБРАТЬ
СРЕДНЕЕ(КурсыВалют.Курс) КАК Курс
ИЗ
РегистрСведений.КурсыВалют КАК КурсыВалют
ГДЕ
КурсыВалют.Период МЕЖДУ &НачалоПериода И &КонецПериода
И КурсыВалют.Валюта = ЗНАЧЕНИЕ(Справочник.Валюты._г_Валюта_Доллар)) КАК ВложенныйЗапрос,
(ВЫБРАТЬ
Контрагенты.Ссылка КАК Контрагент
ИЗ
Справочник.Контрагенты КАК Контрагенты
ГДЕ
Контрагенты.Ссылка В(&СписокКонтрагентов)) КАК Контрагенты
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Продажи.Обороты(
&НачалоПериода,
&КонецПериода,
Регистратор,
Номенклатура В ИЕРАРХИИ (&ГруппыНоменклатуры)
И ДоговорКонтрагента.Владелец В (&СписокКонтрагентов)) КАК ПродажиОбороты
ПО Контрагенты.Контрагент = ПродажиОбороты.ДоговорКонтрагента.Владелец
ИТОГИ
СУММА(Сумма),
СУММА(Колво)
ПО
Контрагент,
Номенклатура,
ЗаказПокупателяВот я даже ХЗ, что они пытались сделать.
kovyl2404,
03 Сентября 2012
Follow us!