- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
...
</tr>
</tbody>
<? if($color == "#ffffff")
$color = "#ffffff";
else
$color = "#ffffff";
?>
</table>
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+159
...
</tr>
</tbody>
<? if($color == "#ffffff")
$color = "#ffffff";
else
$color = "#ffffff";
?>
</table>
Гений блин... Правда так и не понятно что хотелось этим сказать...
−151
Процедура ВводНаОсновании(ДокОснование)
// .....
ДатаДок=РабочаяДата();
// .....
КонецПроцедуры
Типовая торговля для Украины.
Зачем то явно указывается рабочая дата. Причём ровно один раз.
−146
Процедура ОбработкаНоменклатуры()
НомерЛистаТипы = 1;
Попытка ExcelТипы = СоздатьОбъект("Excel.Application");
ФайлДанныхТипы = ExcelТипы.Workbooks.Open(НазваниеФайла);
Исключение
КонецПопытки;
//Лист = ФайлДанныхТипы.WorkSheets(НазваниеФайла);
ЗагрузкаТипы = ФайлДанныхТипы.Worksheets(НомерЛистаТипы).UsedRange;
//КоличествоСтрокЭкселеТипы = Лист.Rows.Count;
КоличествоСтрокЭкселеТипы = ФайлДанныхТипы.Worksheets(НомерЛистаТипы).UsedRange.Rows.Count;
ExcelТипы.Sheets(НомерЛистаТипы).Select();
Спр2 = СоздатьОбъект("Справочник.Номенклатура");
СпрВидНом = СоздатьОбъект("Справочник.ВидыНоменклатуры");
СпрНДС = СоздатьОбъект("Справочник.СтавкиНДС");
СпрНП = СоздатьОбъект("Справочник.СтавкиНП");
СпрЕд = СоздатьОбъект("Справочник.ЕдиницыИзмерений");
Для СтрТипы = НачСтр+1 По КонСтр Цикл
Спр = СоздатьОбъект("Справочник.Номенклатура");
Если Спр.НайтиПоНаименованию(Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,1).Value))) = 1 Тогда
Сообщить("Номенклатура найдена");
Если ВидыЦен = 1 Тогда
Спр.Себестоимость = Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,4).Value));
ИначеЕсли ВидыЦен = 2 Тогда
Спр.Цена = Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,4).Value));
КонецЕсли;
Спр.Записать();
Иначе
Спр.Новый();
Спр.ИспользоватьДату('01.11.2011');
Если Спр2.НайтиПоКоду("Сй111")=1 Тогда
Спр.Родитель =Спр2.ТекущийЭлемент();
Конецесли;
Спр.Наименование = Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,1).Value));
Сообщить("Создается номенклатура" + Спр.Наименование);
Спр.ТипТовара = Перечисление.ТипыТоваров.Собственный;
Если СпрВидНом.НайтиПоНаименованию("Товар")=1 Тогда
Спр.ВидНоменклатуры = СпрВидНом.ТекущийЭлемент();
КонецЕсли;
Спр.ПолнНаименование = Спр.Наименование;
Если ВидыЦен = 1 Тогда
Спр.Себестоимость = Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,4).Value));
ИначеЕсли ВидыЦен = 2 Тогда
Спр.Цена = Строка(СокрЛП(ExcelТипы.Cells(СтрТипы,4).Value));
КонецЕсли;
Спр.СтранаПроисхожд = 1;
Если СпрНДС.НайтиПоКоду("3")=1 Тогда
Спр.СтавкаНДС = СпрНДС.ТекущийЭлемент();
КонецЕсли;
Если СпрНП.НайтиПоКоду("1")=1 тогда
Спр.СтавкаНП = СпрНП.ТекущийЭлемент();
КонецЕсли;
Если СпрЕд.НайтиПоНаименованию("шт")=1 Тогда
Спр.ЕдиницаИзмерения = СпрЕд.ТекущийЭлемент();
КонецЕсли;
Спр.Записать();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
В бух 7.7 нужно было загрузить определенный данные из экселя. С 7.7 не работаю - начал сочинять. В начале писал по аналогии с 8.х:
Спр.СтавкаНДС = СпрНДС.НайтиПоКоду("3") и т.д.
Потом на инфостарте и мисте подсказали как правильно сделать и посоветовали создать здесь эту запись)
+155
$pathToAction = str_replace("\\", "/", $pathToAction);
while (substr($pathToAction, strlen($pathToAction) - 1, 1) == "/")
$pathToAction = substr($pathToAction, 0, strlen($pathToAction) - 1);
+82
private static final String QUERY =
new StringBuffer("SELECT p.id FROM policysummary p ")
.append(" WHERE p.currentRevisionInd = 1 ")
.append("AND p.policyStatusCd IN ('issued') ")
.append("AND p.timedPolicyStatusCd IN ('inForce') ")
.append("AND p.txType IN ('policy','renewal','endorsement','reinstatement') ")
.append("AND p.expiration <= :requestDate ")
.append("AND :requestDate <= (p.expiration + :requestTo) ")
.append("AND NOT EXISTS ")
.append(" (SELECT prs.id ")
.append(" FROM PolicyReportStatus prs ")
.append(" WHERE prs.policyId = p.id ")
.append(" AND prs.mvrOrderDt IS NOT NULL ")
.append(" )")
.toString();
Недавно выдавили заграничные коллеги
+120
Пришёл крешлог нашего приложения от пользователя
Error Message:
Segmentation fault
Backtrace:
<someapp>:0:in `0x00076d9f ht_handle_signal + 94'
libsystem_c.dylib:1:in `0x37cb9539 _sigtramp + 48'
JavaScriptCore:2:in `0x362d7aef WTFReportBacktrace + 146'
JavaScriptCore:3:in `0x3621d173 _ZN3WTF12_GLOBAL__N_125ARC4RandomNumberGenerator12stirIfNeededEv + 26'
JavaScriptCore:4:in `0x3621d0b3 _ZN3WTF29cryptographicallyRandomNumberEv + 102'
JavaScriptCore:5:in `0x36227991 _ZN3WTF12randomNumberEv + 8'
WebCore:6:in `0x32c3104b _ZN7WebCore17JSDOMGlobalObjectC2ERN3JSC12JSGlobalDataEPNS1_9StructureEN3WTF10PassRefPtrINS_15DOMWrapperWorldEEEPNS1_8JSObjectE + 138'
<...>
Внимательно смотрим лог, идём по ссылке
http://trac.webkit.org/browser/releases/Apple/Safari%205.1/JavaScriptCore/wtf/Assertions.h
и впечатляемся названиями переменных
Краш, кстати, в генераторе случайных чисел, судя по логу...
+154
function trySearch(form)
{
var loc = "/?";
var query_len = $.trim(form.query.value).length;
if(form.game.value !== "all")
{
loc += 'game='+form.game.value;
}
if(!query_len && form.search_by.value !== 'hostname' && form.search_by.value !== 'mode')
{
$('#display').slideDown();
Timer.set(function(){$('#display').slideUp();},5000);
form.query.focus();
var msg = '';
switch(form.search_by.value)
{
case 'map':
msg = 'Введите название карты которую хотите найти, например: <a href="#" onclick="$(\'#query\').val(\'de_dust2,de_inferno\').submit(); return false;">de_dust2,de_inferno</a>';
break;
case 'player':
msg = 'Введите имя игрока которого хотите найти';
break;
case 'rules':
msg = 'Введите настройку которую хотите найти, например: <a href="#" onclick="$(\'#query\').val(\'amxmodx_version 1.8.2-dev\').submit(); return false;">amxmodx_version 1.8.2-dev</a>';
break;
case 'ip':
msg = 'Введите ип-адрес который хотите найти';
break;
}
$('#Msg').html(msg);
return false;
}
if(query_len > 0 || form.search_by.value !== 'hostname')
loc += (form.game.value !== "all" ? '&' : '')+"search_by="+form.search_by.value;
if(query_len > 0)
{
loc += "&query="+escape(form.query.value);
}
location.href = loc;
return false;
}
+88
function gethours: integer;
var
s: string;
h: integer;
begin
s := timetostr(time);
h := strtoint(s[1] + s[2]);
Result := h;
end;
function getmins: integer;
var
s: string;
h: integer;
begin
s := timetostr(time);
h := strtoint(s[4] + s[5]);
Result := h;
end;
function getsecs: integer;
var
s: string;
h: integer;
begin
s := timetostr(time);
h := strtoint(s[7] + s[8]);
Result := h;
end;
+154
function unbb($str)
{
return preg_replace('#\[(.*?)\]#ui', '', preg_replace('#\[(.*?)\](.*?)\[\/(.*?)\]#ui', '', $str));
}
+994
http://paste.org.ru/?qgrubj
http://paste.org.ru/?r6kovp
#define X3J11_CallFunction(WinApi,FuncHash,ModHash,...) \
((sizeof(WinApi(__VA_ARGS__),'~')),(X3J11_Gate<FuncHash,ModHash,boost::add_pointer<BOOST_TYPEOF(WinApi)>::type>(__VA_ARGS__)))
#define X3J11_CallOverload(Signature,FuncHash,ModHash,...) \
((sizeof(((boost::add_pointer<Signature>::type)0)(__VA_ARGS__),'~')),(X3J11_Gate<FuncHash,ModHash,boost::add_pointer<Signature>::type>(__VA_ARGS__)))