-
Лучший говнокод
- В номинации:
-
- За время:
-
-
−127
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
теСтрокаТЗ_двухТЧ=ТЗ_двухТЧ_РТиУ.Найти(СокрЛП(ЗначениеВСтрокуВнутр(теСтрокаТЧ.Номенклатура))+"++"+Строка(ё)+"++"+Строка(теСтрокаТЧ.НомерСтроки),"Ид");
теСтрокаТЗ_НДС_БезТекРТиУ=ТЗ_НДС_БезТекРТиУ.Найти(теСтрокаТЧ.Номенклатура);
ТЗостНмЗаказаБезТекРТиУ=ПолучитьТЗ_НоменклатурыЗаказа(текущСделка, РТиУобъ.Ссылка, ТекДата, ТекДата, ДокиЗаказаПлан, теСтрокаТЧ.Номенклатура);
Если ТЗостНмЗаказаБезТекРТиУ.Количество()>0 И ТЗостНмЗаказаБезТекРТиУ.Итог("СуммаКолвоПоНм")=ТЗотбора1.Итог("КолвоВ_ЕдХр") Тогда
РазностьСум=ТЗостНмЗаказаБезТекРТиУ.Итог("СуммаСуммВзаиморасчПоНм")-(ТЗотбора1.Итог("Сумма")+?(текущСуммаВключаетНДС,0,ТЗотбора1.Итог("СуммаНДС")));
Если РазностьСум<>0 И ПолучитьМодульЧисла(РазностьСум)<=Константы.опмМаксимальноеКорректируемоеВторымСпособомОтклонениеСуммОтгрузкиОтЗаказа.Получить() Тогда
теСтрокаТЧ.Сумма=теСтрокаТЧ.Сумма+РазностьСум*ЗнакТипаДок; теСтрокаТЗ_двухТЧ.Сумма=теСтрокаТЗ_двухТЧ.Сумма+РазностьСум;
КонецЕсли;
Если ВсеОтгрузкиВВалютеЗаказа И НЕ теСтрокаТЗ_НДС_БезТекРТиУ=Неопределено Тогда
РазностьСумНДС=теСтрокаТЗ_НДС_БезТекРТиУ.СуммаНДС-ТЗотбора1.Итог("СуммаНДС");
Если РазностьСумНДС<>0 И ПолучитьМодульЧисла(РазностьСумНДС)<=Константы.опмМаксимальноеКорректируемоеВторымСпособомОтклонениеСуммОтгрузкиОтЗаказа.Получить() Тогда
теСтрокаТЧ.СуммаНДС=теСтрокаТЧ.СуммаНДС+РазностьСумНДС*ЗнакТипаДок; теСтрокаТЗ_двухТЧ.СуммаНДС=теСтрокаТЗ_двухТЧ.СуммаНДС+РазностьСумНДС;
Если НЕ текущСуммаВключаетНДС Тогда
теСтрокаТЧ.Сумма=теСтрокаТЧ.Сумма -РазностьСумНДС*ЗнакТипаДок; теСтрокаТЗ_двухТЧ.Сумма=теСтрокаТЗ_двухТЧ.Сумма -РазностьСумНДС;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если ЗаказПокВыполненПолностью Тогда СтрокаТЗпоНм=ТЗ_НепоставленнойНмЗаказа.Найти(теСтрокаТЧ.Номенклатура);
Если НЕ СтрокаТЗпоНм=Неопределено Тогда
ТЗ_НепоставленнойНмЗаказа.Удалить(СтрокаТЗпоНм);
КонецЕсли;
КонецЕсли;
Иначе ЗаказПокВыполненПолностью=Ложь;
КонецЕсли;
HomoAlbus,
10 Октября 2014
-
+175
- 1
http://www.intel.com/content/dam/www/public/us/en/documents/specification-updates/xeon-e3-1200v3-spec-update.pdf
http://www.anandtech.com/show/8376/intel-disables-tsx-instructions-erratum-found-in-haswell-haswelleep-broadwelly
На этот раз мне зогплатила амд, и принёс вам почитать.
3.14159265,
24 Сентября 2014
-
+158
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
$rand = rand(1,100);
if (($rand => 1) && ($rand <= 50)) {
include 'код баннера 1';
}
elseif (($rand => 51) && ($rand <= 80)) {
include 'код баннера 2';
}
else {
include 'код баннера 3';
}
50% - баннер 1, 30% - баннер 2, остальное (20%) - баннер 3.
Хотели сделать "ротацию с весом" для X баннеров :)
SVP,
18 Сентября 2014
-
+82
- 1
Boolean hasRefId = !node.getAttributes().getNamedItem("refid").equals(null);
equals(null)
roman-kashitsyn,
18 Сентября 2014
-
−119
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
import sys;
class Cout(object):
def __lshift__(self, anything):
sys.stdout.write(str(anything));
return self;
cout = Cout();
endl = '\n';
cout << 'Hello, World!' << endl;
http://lurkmore.to/Обсуждение:Python#.D0.92_.D1.81.D1.82.D0 .B8.D0.BB.D0.B5_.D0.BF.D0.BB.D1.8E.D1.81 .D0.BE.D0.B2
someone,
11 Сентября 2014
-
+154
- 1
- 2
- 3
- 4
- 5
foreach ($params as $param) {
$param_type = (isset($param['type']) ? $param['type'] : 's');
$param_value = (isset($param['value']) ? $param['value'] : $param);
// <...>
}
Угадайте, что произошло, когда значение параметра оказалось равным 'type'?
Tesstarossa,
29 Августа 2014
-
+134
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
for (var i = 0; i < numberPhone.Length; i++)
{
if (numberPhone[i] == ',')
return resultPhone;
if (Char.IsNumber(numberPhone[i]))
{
resultPhone += numberPhone[i];
}
}
return resultPhone;
vladb9582,
14 Августа 2014
-
+122
- 1
- 2
- 3
protected SimulationElement getThis(){
return this;
}
someone,
08 Августа 2014
-
+157
- 1
- 2
- 3
- 4
$PriceProduct = $Price;
$Skidka = $Skidka;
$PriceSkidka = $PriceSkidka;
$Price = $PriceItog;
Самописная CRM. Коллега метко назвал этот кусок кода считалочкой. Для полноты картины осталось заменить последнюю строку на $Price = $PriceProduct;
Khvorostin,
25 Июля 2014
-
+123
- 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
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
//---------------------------------------------------------------------------
#include <vcl.h>
#include <iostream.h>
#include <conio.h>
#include <stdlib.h>
#include <stdio.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 test;
int a;
int b;
int i;
int t;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject Sender)
{
Edit1->Text='0';
/*glob_check:=True;//Для поля
t:=0;
for i:=1 to 1000 do // Очищает массив
begin
a[i]:='|';
b[i]:='0'; */
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button14Click(TObject Sender)
{
/*var z,n: integer;
begin*/
if (Sk=0) then begin
if (glob_check=true) then t:=t-1;
t:=t+1;
a[t]:=edit1.Text; //Присваевает значение массиву элементу
if (glob_check=true) then t:=t-1; // храняшему в поле мемо
edit1.text:=rezul(t);
glob_check:=true;
end
else MessageBeep(0);
end;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject Sender)
{
var n,d,z:integer;
begin
if (glob_check=true) then t:=t-1;
t:=t+1;
a[t]:=edit1.Text;
b[t]:='+';
glob_check:=true;
if ((b[2]<>'0') and (skob=false)) then
edit1.Text:=rezul(t-1);
end;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button15Click(TObject Sender)
{
if (glob_check=true) then t:=t-1;
t:=t+1;
a[t]:=edit1.Text;
b[t]:='*';
if (((b[2]<>'0') and ((b[1]<>'+') and (b[1]<>'-'))) and (skob=false)) then
edit1.Text:=rezul(t-1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button16Click(TObject Sender)
{
if (glob_check=true) then t:=t-1;
t:=t+1;
a[t]:=edit1.Text;
b[t]:='/';
Когда-то, когда я абсолютно не шарил в плюсах, но хотел изучить их, я откопал среду Borland Turbo C++ и проверки ради её работоспособности попросил одного чувака ( который хвастался, что изучает С++ ) прислать мне калькулятор. Ну, он прислал. В среде мне выдало хренову тучу ошибок. Я думал уже с ней что-то не так, а другой не имел. Так и отложил плюсы до поры. А сегодня откопал тот самый код калькулятора и охренел от увиденного. Это просто капец. Смесь плюсов и дельфи какая-то. И ясен пень, что оно не запашет, как не старайся заставить. Тут ещё не влезло в поле для кода... Перед кодом калькулятора были прописаны каждый с новой строки числа от 1 по 172.
CodeStar,
16 Июля 2014
Follow us!