Этот ресурс создан для настоящих падонков. Те, кому не нравятся слова ХУЙ и ПИЗДА, могут идти нахуй. Остальные пруцца!
1С: Навагодний Отжыг 7.70.2005
// Нэкосан 30.12.04 старт
// глобальная функция для проведения новогоднего отжыга:
// комплектует команду для отжыга, устанавливает ответственных,
// обеспечивает необходимые ресурсы и проводит анализ
// отжыга методом устного опроса участникофф
Функция НавагоднийОтжыг() Экспорт;
Перем Запрос, ТекстЗапроса;
Перем Касса;
Перем Хата, Жратва, Трава, Бухло;
Запрос = СоздатьОбъект("Запрос");
КомандаДляОтжыга= СоздатьОбъект("СписокЗначений");
Пелотки= СоздатьОбъект("СписокЗначений");
Падонки= СоздатьОбъект("СписокЗначений");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|фл = Справочник.ФизЛица.ТекущийЭлемент;
|сост = Справочник.ФизЛица.СостояниеФизЛица;
|Условие (сост = Перечисление.СостоянияФизЛица.Готофф);
|ОбщаяКасса= Сумма(Окр(фл.Заначка, 2));
|Группировка фл упорядочить по фл.ФИО без групп;
|"//}}ЗАПРОС
;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Сообщить("Запрос по отжыгу не выполнен!");
Возврат;
КонецЕсли;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("КомандаДляОтжыга");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
// обнуление исходных значений
Касса= 0;
Хата= ПустоеЗначение("Справочник.ФизЛица");
Жратва= ПустоеЗначение("Справочник.ФизЛица");
Трава= ПустоеЗначение("Справочник.ФизЛица");
Бухло= ПустоеЗначение("Справочник.ФизЛица");
Пока Запрос.Группировка(1) = 1 Цикл
Если Запрос.фл.ЭтоОн()= 1 Тогда
КомандаДляОтжыга.ДобавитьЗначение(Запрос.фл);
Падонки.ДобавитьЗначение(Запрос.фл);
Таб.ВывестиСекцию("падонак");
ИначеЕсли Запрос.фл.ЭтоОна()= 1 Тогда
КомандаДляОтжыга.ДобавитьЗначение(Запрос.фл);
Пелотки.ДобавитьЗначение(Запрос.фл);
Таб.ВывестиСекцию("пелотка");
Иначе
Если СпрКЛ.НайтиЭлемент(Запрос.фл)= 1 Тогда
Пидор= СпрКЛ.ТекущийЭлемент();
// непосредственное удаление
Пидор.Удалить(1);
Иначе
Предупреждение("АХТУНГ! Найден пидор:"+ Запрос.кл);
КонецЕсли;
Продолжить;
КонецЕсли;
КонецЦикла;
// печать списка участников
Таб.ТолькоПросмотр(1);
Таб.Показать();
Таб.Напечатать(0);
// распределение центров ответственности
Касса= Запрос.ОбщаяКасса;
Хата= УстановитьОтветствЗаХату(КомандаДляОтжыга);
Жратва= УстановитьОтветствЗаЖратву(КомандаДляОтжыга);
Трава= УстановитьОтветствЗаТраву(КомандаДляОтжыга);
Бухло= УстановитьОтветствЗаБухло(КомандаДляОтжыга);
Если ((ПустоеЗначение(Хата)= 1) или
(ПустоеЗначение(Жратва)= 1) или
(ПустоеЗначение(Бухло)= 1)) Тогда
НазначитьОтветственных(Хата, Жратва, Трава, Бухло, КомандаДляОтжыга);
КонецЕсли;
Для к= 1 По СписокТочек.РазмерСписка() Цикл
ВернутьНеобходимыйРесурс(Хата, Итого);
ВернутьНеобходимыйРесурс(Жратва, Итого);
ВернутьНеобходимыйРесурс(Трава, Итого);
ВернутьНеобходимыйРесурс(Бухло, Итого);
Если Касса <= 0 Тогда
Предупреждение("Бабло на исходе!!!");
Прервать;
КонецЕсли;
КонецЦикла;
Попытка
// начинаем...
Отжыг= СоздатьОбъект("Справочник.Отжыги");
Отжыг.Новый();
Отжыг.Код= 2005;
Отжыг.Наименование= "Новый год нах!";
Отжыг.Записать();
Сообщить("ОТЖЫГ НАЧАЛСЯ", "i");
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Хата);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Жратва);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Трава);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Бухло);
Ебстись(Пелотки, Падонки);
ХорошоЛи= 0;
Для к= 1 по КомандаДляОтжыга.РазмерСписка() Цикл
УчастникОтжыга= КомандаДляОтжыга.ПолучитьЗначение(к);
Если УчастникОтжыга.Выбран()= 1 Тогда
ХорошоЛи= ХорошоЛи + ПокаЗаебись(УчастникОтжыга);
КонецЕсли;
КонецЦикла;
Пока ХорошоЛи < КомандаДляОтжыга.РазмерСписка() Цикл
Если Касса= 0 Тогда
Касса= НайтиБабло(КомандаДляОтжыга);
КонецЕсли;
Для к= 1 По СписокТочек.РазмерСписка() Цикл
ВернутьНеобходимыйРесурс(Хата, Итого);
ВернутьНеобходимыйРесурс(Жратва, Итого);
ВернутьНеобходимыйРесурс(Трава, Итого);
ВернутьНеобходимыйРесурс(Бухло, Итого);
Если Касса <= 0 Тогда
Предупреждение("Бабло на исходе!!!");
Прервать;
КонецЕсли;
КонецЦикла;
Сообщить("ОТЖЫГ ПРАДАЛЖАЕЦЦА!!!", "i");
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Хата);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Жратва);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Трава);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Бухло);
Ебстись(Пелотки, Падонки);
КонецЦикла;
Исключение
// нихуя не может быть исключений!
КонецПопытки;
АктивацыяУчастников(КомандаДляОтжыга);
Подсчёт_и_ИдентификацыяУчастников(КомандаДляОтжыга);
ОпохмелУчастников(КомандаДляОтжыга);
ПовторнаяАктивацыяУчастников(КомандаДляОтжыга);
// падводим итоги
Результат= 0;
Для к= 1 по КомандаДляОтжыга.РазмерСписка() Цикл
УчастникОтжыга= КомандаДляОтжыга.ПолучитьЗначение(к);
Если УчастникОтжыга.Выбран()= 1 Тогда
Результат= Результат + БылоЗаебись(УчастникОтжыга);
КонецЕсли;
КонецЦикла;
Возврат Результат;
КонецФункции
// Нэкосан 30.12.04 финиш
// глобальная функция для проведения новогоднего отжыга:
// комплектует команду для отжыга, устанавливает ответственных,
// обеспечивает необходимые ресурсы и проводит анализ
// отжыга методом устного опроса участникофф
Функция НавагоднийОтжыг() Экспорт;
Перем Запрос, ТекстЗапроса;
Перем Касса;
Перем Хата, Жратва, Трава, Бухло;
Запрос = СоздатьОбъект("Запрос");
КомандаДляОтжыга= СоздатьОбъект("СписокЗначений");
Пелотки= СоздатьОбъект("СписокЗначений");
Падонки= СоздатьОбъект("СписокЗначений");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|фл = Справочник.ФизЛица.ТекущийЭлемент;
|сост = Справочник.ФизЛица.СостояниеФизЛица;
|Условие (сост = Перечисление.СостоянияФизЛица.Готофф);
|ОбщаяКасса= Сумма(Окр(фл.Заначка, 2));
|Группировка фл упорядочить по фл.ФИО без групп;
|"//}}ЗАПРОС
;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Сообщить("Запрос по отжыгу не выполнен!");
Возврат;
КонецЕсли;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("КомандаДляОтжыга");
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
// обнуление исходных значений
Касса= 0;
Хата= ПустоеЗначение("Справочник.ФизЛица");
Жратва= ПустоеЗначение("Справочник.ФизЛица");
Трава= ПустоеЗначение("Справочник.ФизЛица");
Бухло= ПустоеЗначение("Справочник.ФизЛица");
Пока Запрос.Группировка(1) = 1 Цикл
Если Запрос.фл.ЭтоОн()= 1 Тогда
КомандаДляОтжыга.ДобавитьЗначение(Запрос.фл);
Падонки.ДобавитьЗначение(Запрос.фл);
Таб.ВывестиСекцию("падонак");
ИначеЕсли Запрос.фл.ЭтоОна()= 1 Тогда
КомандаДляОтжыга.ДобавитьЗначение(Запрос.фл);
Пелотки.ДобавитьЗначение(Запрос.фл);
Таб.ВывестиСекцию("пелотка");
Иначе
Если СпрКЛ.НайтиЭлемент(Запрос.фл)= 1 Тогда
Пидор= СпрКЛ.ТекущийЭлемент();
// непосредственное удаление
Пидор.Удалить(1);
Иначе
Предупреждение("АХТУНГ! Найден пидор:"+ Запрос.кл);
КонецЕсли;
Продолжить;
КонецЕсли;
КонецЦикла;
// печать списка участников
Таб.ТолькоПросмотр(1);
Таб.Показать();
Таб.Напечатать(0);
// распределение центров ответственности
Касса= Запрос.ОбщаяКасса;
Хата= УстановитьОтветствЗаХату(КомандаДляОтжыга);
Жратва= УстановитьОтветствЗаЖратву(КомандаДляОтжыга);
Трава= УстановитьОтветствЗаТраву(КомандаДляОтжыга);
Бухло= УстановитьОтветствЗаБухло(КомандаДляОтжыга);
Если ((ПустоеЗначение(Хата)= 1) или
(ПустоеЗначение(Жратва)= 1) или
(ПустоеЗначение(Бухло)= 1)) Тогда
НазначитьОтветственных(Хата, Жратва, Трава, Бухло, КомандаДляОтжыга);
КонецЕсли;
Для к= 1 По СписокТочек.РазмерСписка() Цикл
ВернутьНеобходимыйРесурс(Хата, Итого);
ВернутьНеобходимыйРесурс(Жратва, Итого);
ВернутьНеобходимыйРесурс(Трава, Итого);
ВернутьНеобходимыйРесурс(Бухло, Итого);
Если Касса <= 0 Тогда
Предупреждение("Бабло на исходе!!!");
Прервать;
КонецЕсли;
КонецЦикла;
Попытка
// начинаем...
Отжыг= СоздатьОбъект("Справочник.Отжыги");
Отжыг.Новый();
Отжыг.Код= 2005;
Отжыг.Наименование= "Новый год нах!";
Отжыг.Записать();
Сообщить("ОТЖЫГ НАЧАЛСЯ", "i");
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Хата);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Жратва);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Трава);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Бухло);
Ебстись(Пелотки, Падонки);
ХорошоЛи= 0;
Для к= 1 по КомандаДляОтжыга.РазмерСписка() Цикл
УчастникОтжыга= КомандаДляОтжыга.ПолучитьЗначение(к);
Если УчастникОтжыга.Выбран()= 1 Тогда
ХорошоЛи= ХорошоЛи + ПокаЗаебись(УчастникОтжыга);
КонецЕсли;
КонецЦикла;
Пока ХорошоЛи < КомандаДляОтжыга.РазмерСписка() Цикл
Если Касса= 0 Тогда
Касса= НайтиБабло(КомандаДляОтжыга);
КонецЕсли;
Для к= 1 По СписокТочек.РазмерСписка() Цикл
ВернутьНеобходимыйРесурс(Хата, Итого);
ВернутьНеобходимыйРесурс(Жратва, Итого);
ВернутьНеобходимыйРесурс(Трава, Итого);
ВернутьНеобходимыйРесурс(Бухло, Итого);
Если Касса <= 0 Тогда
Предупреждение("Бабло на исходе!!!");
Прервать;
КонецЕсли;
КонецЦикла;
Сообщить("ОТЖЫГ ПРАДАЛЖАЕЦЦА!!!", "i");
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Хата);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Жратва);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Трава);
ИспользоватьРесурс(Отжыг, КомандаДляОтжыга, Бухло);
Ебстись(Пелотки, Падонки);
КонецЦикла;
Исключение
// нихуя не может быть исключений!
КонецПопытки;
АктивацыяУчастников(КомандаДляОтжыга);
Подсчёт_и_ИдентификацыяУчастников(КомандаДляОтжыга);
ОпохмелУчастников(КомандаДляОтжыга);
ПовторнаяАктивацыяУчастников(КомандаДляОтжыга);
// падводим итоги
Результат= 0;
Для к= 1 по КомандаДляОтжыга.РазмерСписка() Цикл
УчастникОтжыга= КомандаДляОтжыга.ПолучитьЗначение(к);
Если УчастникОтжыга.Выбран()= 1 Тогда
Результат= Результат + БылоЗаебись(УчастникОтжыга);
КонецЕсли;
КонецЦикла;
Возврат Результат;
КонецФункции
// Нэкосан 30.12.04 финиш
— Нэкосан , 30.12.2004
ты должен быть залoгинен чтобы хуйярить камменты !
ты должен быть залoгинен чтобы хуйярить камменты !
— Ебитесь в рот. Ваш Удав
Оригинальная идея, авторские права: © 2000-2024 Удафф
Административная и финансовая поддержка
Тех. поддержка: Proforg
ёпт, 30-12-2004 12:08:49
Пиши платформу, которая эту хуйню исполнять будет
1911562Мата Харина, 30-12-2004 12:11:27
понимаю только на ассемблере, переведите...
1911569Паша с Уралмаша, 30-12-2004 12:12:54
Гы текст. Мысля ниибацца аригинальная.
1911575Не понел: Рабтает?
Нэкосан, 30-12-2004 12:13:41
Мата Харина30-12-2004 15:11
1911579В 1С нахуй!!!!!!!!!!!!
Sardel, 30-12-2004 12:14:08
Бля нихуясе програмка.
1911581Панравилось. И абзаццы есть.
Нада тока сократить трава жратва бухло хата. Места многа занимает. И так цикл.
Мата Харина, 30-12-2004 12:16:41
Нэкосан 30-12-2004 15:13
1911592ну и говорю не поняла нихрена...
ёпт, 30-12-2004 12:16:54
где реализация функции Ебитесь(А,Б)?
1911593PR CLUB, 30-12-2004 12:19:47
bullshit.
1911605идея стара как гавно диназавров.
Лягушачий Гу (есть грамота и медаль беспесды), 30-12-2004 12:20:26
Хуйня! Ниработаит!
1911611Чмопиздрокл, 30-12-2004 12:21:31
пиздец
1911617пазетив для ебнутых програмистов
афтар, непеши больше
апзацы - н/с
PR CLUB, 30-12-2004 12:22:37
//специально для афтора (по методике маклауда)
777253function kill_yourself(author);
{
goto_into_bilding(author);
for (i=1;i<=25;i++) { next_floor(author); }
jump_down(author);
rip();
}
Немецкий падводник., 30-12-2004 12:29:35
Не являясь прыщавым задроченным праграммером 1С-бухгалтерии, ни хуйя не понял.
1911641raihfurer, 30-12-2004 12:32:02
PR CLUB30-12-2004 15:22
1911650жжош бля!!!!!!!!!!
асобинна вот это - function kill_yourself(author);
гыыыыыыыы
ua, 30-12-2004 12:32:10
ебал я в рот такую писанину
1911651Владимир Владимирович Путин, 30-12-2004 12:33:20
Бля ниасилил...ну нах...
1911656кг\ам
афтар-убей себя! и нипиши больше
Нэкосан, 30-12-2004 12:34:50
Немецкий падводник.30-12-2004 15:29
1911661Ну и зря!
Бугага, 30-12-2004 12:49:10
не перевелись еще на руси ебанутые на всю голову программеры.
19117261 идея стара как мир
2 читать такой объем - да в рот я ебал
3 1с - самая уёбищная среда програмирования
4 афтар, извини, но ты мудаг
Das Mas Taa, 30-12-2004 12:51:58
Нэкосану респект.
1911737Идея, правда, не нова, но... что уж тут поделать.
PR повеселил
Всех с новым годом!
Всем позитивных вибраций!
MDK, 30-12-2004 13:08:08
Главное не перепутать тело программы с ахтунгом
1911791Добран, 30-12-2004 13:10:34
Фсех пидароф програмероф 1С ибать во главе с Нургалиевым!!!
1911798Нэкосан, 30-12-2004 13:16:31
PR CLUB30-12-2004 15:22
1911822:)))))))))))
Нэкосан, 30-12-2004 13:17:10
Добран30-12-2004 16:10
1911829Иди ты нахуй, дарагой....
Шанхайский Барс, 30-12-2004 13:24:47
глубоко. ахуеть.
1911855Таварисч Ф, 30-12-2004 13:28:36
Пейсдец, прикольно! Некосан и ЗК клуб жжут блять!
1911865Шахматист, 30-12-2004 13:52:07
...
1911931...
function doComments(){
echo "Первый блядьнахуй! И неебет!<br />";
$comment_num=2;
while (1){
($comment_num & 1) ? $output=$comment_num."-нах! Респект! ЖжошЪ сабака!" :
$output=$comment_num."-й бля! Ацтойнах! кг/ам";
echo $output."<br />";
$comment_num++;
}
}
...
...
пошкус который нихуя незабивает , даже в пустые , 30-12-2004 14:10:43
афтор ты бля еблан
1912015напиши алгоритм пизды или хуя пиндоского
бугага
а может это отображения действий тваего спиного мозга при вхождения хуя в твой анал??? бугага
Шахматист, 30-12-2004 14:13:04
Мата Харина30-12-2004 15:11 - на каком? бугагагага
1912023Мехико каброн, 30-12-2004 14:17:30
Что это за хуета?
1912038Александр Григорьевич Лукашенко , 30-12-2004 14:21:08
Меня ф десятом класе учили бейсику... Это не бейсик???
1912052Моё отношение к програмистам и раньше было хуйовое, а после этого...... но наверное не фсе мудаки?
Нэкосан, 30-12-2004 14:27:04
Александр Григорьевич Лукашенко 30-12-2004 17:21
1912075Нет, Аликсандр Григорьевич.
Это - 1С...
Хранительница личностных матриц, 30-12-2004 14:41:52
бля одни программеры.
19121082 PR CLUB
гы-гы-гы
sheepdog, 30-12-2004 14:58:03
# define АФТОР мудак //типо константа
1912142int main (void)
{
char креотиф[]=гавно;
return 0 ; // и ниипёт
}
at, 30-12-2004 15:15:44
1с гавно, писать нада на питоне
1912174PR CLUB, 30-12-2004 15:53:05
Александр Григорьевич Лукашенко 30-12-2004 17:21
1912245бгыгыг, тебя паходу в первом классе хуево читать учили. написано же прямо в заглавии
"1С".
Старичюля , 30-12-2004 15:59:16
Афтар гавна паел. Не иначе.
1912255Лутше вотку пей. С НГ тибя, убогий.
Йоптав Глум, 30-12-2004 16:59:14
Начил канвиртиравать пат сваё версию 1С
1912318афтар - зачот.
ХренЪ, 30-12-2004 18:18:46
Хуле.......нормальный креатив.
1912393Как PR Club написал что это гавно, все тоже начали обсирать
йоптпд, 30-12-2004 18:20:25
1с никогда не видел
1912397но ржал
а я тут как раз пишу прогу для контролера...
определение портов ввода вывода выглядело бы прикольно
писать тока лень
ИванычЪ, 30-12-2004 18:39:40
сильно смиался с проги клуба. жжот ниибаццо.
1912408Гестапо, 30-12-2004 18:51:53
Закинул в C++ блидер. Чё-то нихуя не компиляеццо. Афтор не шарит. Незачот.
1912415Александр Григорьевич Лукашенко , 30-12-2004 19:37:50
**PR CLUB30-12-2004 18:53
1912451Я што тебе - гений ниибаца ф ваших ребусах разбирацца? 1С. Пиздец! Е2-У4 исчё скажи.
Александр Григорьевич Лукашенко , 30-12-2004 19:38:47
Угагагагаг! Кстати я думал это ник у афтора такой ибанутый.
1912454Tombius, 30-12-2004 20:02:10
пиздец....афтор ты мудак ....твоя программа не запускаецо...на доработку нах!
1912483MustuS (лучший праграмер ф мире), 31-12-2004 01:25:36
такс бля. сафта хуйовайа. глюкавит нах беспесды. Функция ебли разработана плохо. Нет алгоритма афтоматического поиска пилоток. Давольно места много будет занимать, паетаму мало кто будет качать из инета, а покупать нахуй нужно. Нет функции вывода на принтер фатаграфий нужных пелоток для тщательной експертизы. Нет запрета на ахтунг. Также прога нихуя нигодна для использования ввиду нихуя нипанятного мозга пилоток.
1912759Ввиду всего етага:
Афтар-хуйовый праграмер
Прога-хуйня ацтойная, и плохо написанная
Вывод: Афтор забронированно месцто в Microsoft. Паздравляю, ты стал абладателем счастливого места в Пиндосии, места где ахтунги тварят свойо гомнище.
Я закончил...
[MDi], 31-12-2004 06:50:52
1C - нахуй!
1912922А сама идея очень оригинальна!
понравилось )
лысая бабка, 31-12-2004 08:14:22
пра кампутер?
1913019объективная критика, 31-12-2004 10:57:08
чуваааааааааааак
1913202ты настоящий чуваааааааааааааааак =) респект
переходи на 1С8.0 =)
Блядокол Лени, 31-12-2004 12:34:02
Если ("Нопесал Галеры") То "Пожызненый резпегд"
1913290беспесды пушкин, 31-12-2004 14:52:32
// 2PR CLUB 30-12-2004 15:22 возврат не предусмотрен.
1913381// синтаксис левый. автор может выжить.
/*
*//специально для афтора (по методике маклауда)
*
*function kill_yourself(author); // эт скажите какой язык?
*{
* goto_into_bilding(author);
* for (i=1;i<=25;i++) { next_floor(author); }
* jump_down(author);
* rip(); //а если всеже не убился? да и кого рипать-то?
*}
*/
// беспесды пушкин> 31.12.2004
void go_to_roof(char *author[])
{
int floor = 0;
go_into_building(author);
while (floor != building.roof) {
next_floor(author);
floor++;
}
}
int kill_yourself(char *author[])
{
while (dead(author) != TRUE) {
jump_down(author, floor);
go_to_roof(author);
}
return (rip(author));
}
// оформить diff'ом и пропатчить сорс.
беспесды пушкин, 31-12-2004 15:01:51
int kill_yourself(char *author[])
1913397{
while (dead(author) != TRUE) {
// jump_down(author, floor); /* виноват. просрал совместимость */
jump_down(author);
go_to_roof(author);
}
return (rip(author));
}