Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 13
+126
cnt_queue_files()->
Command = "ls "++code:lib_dir(messaging, priv)++" | grep -v ^l | wc -l",
case catch list_to_integer(string:strip(os:cmd(Command), right, $\n)) of
X when is_integer(X) -> X;
_ -> 0
end.
clear_queue_files()->
Command = "rm "++code:lib_dir(messaging, priv)++"/*",
os:cmd(Command).
create_empty_queue_file()->
Command = "touch "++code:lib_dir(messaging, priv)++"/~"++?COLD_HALT_EXCHANGE++".que",
os:cmd(Command).Ну просто похапе какое-то.
kovyl2404,
16 Января 2014
+126
%% Evaluate function Func() for all subscribers to Key
public_message(SubscrPid, Message) ->
gen_server:cast(SubscrPid, {public_message, Message}).К слову об актуальных комментариях.
kovyl2404,
14 Января 2014
−121
Функция ТекстЗапросаИзСтрокиВЧисло(пИмяПоля, пДлинаСтроки, пСимволРазделителя=".")
лТекст="ВЫБОР ";
Для лДлинаЦелойЧасти=0 По пДлинаСтроки Цикл
Если лДлинаЦелойЧасти=пДлинаСтроки Тогда
лТекст=лТекст+"ИНАЧЕ"+Символы.ПС;
Иначе
лТекст=лТекст+"КОГДА ПОДСТРОКА("+пИмяПоля+", "+(лДлинаЦелойЧасти+1)+", 1)="""+пСимволРазделителя+""" ИЛИ ПОДСТРОКА("+пИмяПоля+", "+(лДлинаЦелойЧасти+1)+", 1)="""" ТОГДА "+Символы.ПС;
КонецЕсли;
Если лДлинаЦелойЧасти=0 Тогда лТекст=лТекст+" 0"+Символы.ПС; КонецЕсли;
Для лИнд=1 По лДлинаЦелойЧасти Цикл
лТекст=лТекст+" ВЫБОР "+Символы.ПС;
Для лЦифра=0 По 9 Цикл
лТекст=лТекст+" КОГДА ПОДСТРОКА("+пИмяПоля+", "+лИнд+", 1)="""+лЦифра+""" ТОГДА "+лЦифра+Символы.ПС;
КонецЦикла;
лТекст=лТекст+" ИНАЧЕ 0 КОНЕЦ"+?(лИнд=лДлинаЦелойЧасти, "", "*"+Формат(Pow(10, лДлинаЦелойЧасти-лИнд), "ЧРД=.; ЧГ=0")+"+")+Символы.ПС;
КонецЦикла;
Для лИнд=лДлинаЦелойЧасти+2 По пДлинаСтроки Цикл
лТекст=лТекст+"+ ВЫБОР";
Для лЦифра=0 По 9 Цикл
лТекст=лТекст+" КОГДА ПОДСТРОКА("+пИмяПоля+", "+лИнд+", 1)="""+лЦифра+""" ТОГДА "+лЦифра+Символы.ПС;
КонецЦикла;
лТекст=лТекст+" ИНАЧЕ 0 КОНЕЦ"+?(лИнд=лДлинаЦелойЧасти, "", "/"+Формат(Pow(10, лИнд-лДлинаЦелойЧасти-1), "ЧРД=.; ЧГ=0"))+Символы.ПС;
КонецЦикла;
КонецЦикла;
лТекст=лТекст+"КОНЕЦ";
Возврат лТекст;
КонецФункции
kovyl2404,
23 Апреля 2013
−117
Запрос.УстановитьПараметр("Дата1",началомесяца(дата));
запрос.УстановитьПараметр("Дата2",Конецмесяца(дата)-Дней(1));//дата заказа
Запрос.УстановитьПараметр("МесяцОплаты",Месяц(Дата));
Запрос.УстановитьПараметр("ПДата1",НачалоМесяца(Дата));
Запрос.УстановитьПараметр("ПДата2",КонецМесяца(Дата)+345600);
Запрос.УстановитьПараметр("ЗДата1",НачалоМесяца(ПДата));
Запрос.УстановитьПараметр("ЗДата2",КонецМесяца(ПДата));
Запрос.УстановитьПараметр("ЗПДата1",НачалоМесяца(Дата));
Запрос.УстановитьПараметр("ЗПДата2",КонецМесяца(Дата));
Запрос.УстановитьПараметр("ППДата1",НачалоМесяца(Дата));
Запрос.УстановитьПараметр("ППДата2",КонецМесяца(Дата));
запрос.УстановитьПараметр("дата22",Конецмесяца(дата));
запрос.УстановитьПараметр("Дата21", Конецмесяца(дата));// для корпоративных клиентов берем весь период
запрос.УстановитьПараметр("ПодключениеФ",Справочники.ФормулировкиСчетов.Подключение);
запрос.УстановитьПараметр("Сотрудник",Сотрудник);
запрос.УстановитьПараметр("Список",Список);
запрос.УстановитьПараметр("ПРИХОД",ВидДвиженияНакопления.Расход);
kovyl2404,
05 Апреля 2013
+133
using (var twainManager = new DeviceManager())
{
twainManager.Open();
using (var evn = new ManualResetEvent(false))
{
var device = twainManager.Devices[targetDevice.Index];
device.UserInterfaceClosed += (sender, args) => { evn.Set(); };
device.Setup();
evn.WaitOne();
}
twainManager.Close();
}Модальное открытие говноформы.
kovyl2404,
25 Марта 2013
−122
Если ВыгружатьВзаиморасчеты тогда
Если ВыгружатьВзаиморасчеты() тогда
УспешноВзаиморасчетыВыгружено=ВыгрузитьВзаиморасчетыНаСайт(СтруктураПараметровСайта);
КонецЕсли;
КонецЕсли;Херово, когда имен не хватает =(
kovyl2404,
05 Марта 2013
−116
СтрокаСуммаСРазделителями = Строка(ТекСсылка.СуммаДокумента);
СтрокаСуммаБезРазделителей = СтрЗаменить(СтрокаСуммаСРазделителями, СимволРазделительСуммы, "");Видать, использование "Формат" запрещено внутренней политикой =(
kovyl2404,
08 Февраля 2013
−122
ВЫБРАТЬ
ПродажиОбороты.Номенклатура КАК Номенклатура,
ВЫРАЗИТЬ(ПродажиОбороты.СтоимостьОборот / ВложенныйЗапрос.Курс КАК ЧИСЛО(15, 2)) КАК Сумма,
ЕСТЬNULL(ПродажиОбороты.Номенклатура.Родитель, &ПустаяНоменклатура) КАК Родитель1,
ЕСТЬNULL(ПродажиОбороты.Номенклатура.Родитель.Родитель, &ПустаяНоменклатура) КАК Родитель2,
ЕСТЬNULL(ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель, &ПустаяНоменклатура) КАК Родитель3,
ЕСТЬNULL(ПродажиОбороты.Номенклатура.Родитель.Родитель.Родитель.Родитель, &ПустаяНоменклатура) КАК Родитель4,
Контрагенты.Контрагент.Ссылка КАК Контрагент,
Контрагенты.Контрагент._г_Код1С КАК КодПартнера,
1 КАК Колво
ИЗ
(ВЫБРАТЬ
СРЕДНЕЕ(КурсыВалют.Курс) КАК Курс
ИЗ
РегистрСведений.КурсыВалют КАК КурсыВалют
ГДЕ
КурсыВалют.Период МЕЖДУ &НачалоПериода И &КонецПериода
И КурсыВалют.Валюта = ЗНАЧЕНИЕ(Справочник.Валюты._г_Валюта_Доллар)) КАК ВложенныйЗапрос,
(ВЫБРАТЬ
Контрагенты.Ссылка КАК Контрагент
ИЗ
Справочник.Контрагенты КАК Контрагенты
ГДЕ
Контрагенты.Ссылка В(&СписокКонтрагентов)) КАК Контрагенты
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Продажи.Обороты(
&НачалоПериода,
&КонецПериода,
Регистратор,
Номенклатура В ИЕРАРХИИ (&ГруппыНоменклатуры)
И ДоговорКонтрагента.Владелец В (&СписокКонтрагентов)) КАК ПродажиОбороты
ПО Контрагенты.Контрагент = ПродажиОбороты.ДоговорКонтрагента.Владелец
ИТОГИ
СУММА(Сумма),
СУММА(Колво)
ПО
Контрагент,
Номенклатура,
ЗаказПокупателяВот я даже ХЗ, что они пытались сделать.
kovyl2404,
03 Сентября 2012
+30
class MakeBARCODE
{
public static string MakeEAN13(long prefix, long code)
{
//В случае если префикс или код слишком большие то будет выдана ошибка:
string result = "ERROR_TOOLONG";
if ((prefix < 100) && (code < 10000000000))
{
//Получаем строку символов (цифр).
long all_code = prefix * 100000000000 + code;
string nabor = all_code.ToString();
//Сумма по чётным позициям.
int count_chet = int.Parse(nabor[1].ToString()) + int.Parse(nabor[3].ToString()) + int.Parse(nabor[5].ToString()) + int.Parse(nabor[7].ToString()) + int.Parse(nabor[9].ToString()) + int.Parse(nabor[11].ToString());
//Сумма по нечётным позициям.
int count_nechet = int.Parse(nabor[0].ToString()) + int.Parse(nabor[2].ToString()) + int.Parse(nabor[4].ToString()) + int.Parse(nabor[6].ToString()) + int.Parse(nabor[8].ToString()) + int.Parse(nabor[10].ToString());
//Контрольная сумма и контрольный разряд.
int control_summ = count_chet * 3 + count_nechet;
int ostatok = control_summ % 10;
if (!(ostatok == 0))
{
ostatok = 10 - ostatok;
}
result = nabor + ostatok.ToString();
}
return result;
}
}Наткнулся сегодня в интернетах на алгоритм расчета контрольной суммы EAN.
kovyl2404,
01 Сентября 2012
−128
СсылкаНаТекущуюЗаписьРегистра.Записать();
kovyl2404,
23 Июля 2012
Follow us!