Этот ресурс создан для настоящих падонков. Те, кому не нравятся слова ХУЙ и ПИЗДА, могут идти нахуй. Остальные пруцца!
UDAFF
Главная
Читай
Смотри·слушай
Развлекайся
Подключайся
Казино онлайн

1С: Навагодний Отжыг 7.70.2005

  1. Читай
  2. Креативы
// Нэкосан 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гинен чтобы хуйярить камменты !


страница:
<
все камментарии
№1

ёпт, 30-12-2004 12:08:49

Пиши платформу, которая эту хуйню исполнять будет

№2

Мата Харина, 30-12-2004 12:11:27

понимаю только на ассемблере, переведите...

№3

Паша с Уралмаша, 30-12-2004 12:12:54

Гы текст. Мысля ниибацца аригинальная.
Не понел: Рабтает?

№4

Нэкосан, 30-12-2004 12:13:41

Мата Харина30-12-2004 15:11
В 1С нахуй!!!!!!!!!!!!

№5

Sardel, 30-12-2004 12:14:08

Бля нихуясе програмка.
Панравилось. И абзаццы есть.

Нада тока сократить трава жратва бухло хата. Места многа занимает. И так цикл.

№6

Мата Харина, 30-12-2004 12:16:41

Нэкосан 30-12-2004 15:13
ну и говорю не поняла нихрена...

№7

ёпт, 30-12-2004 12:16:54

где реализация функции Ебитесь(А,Б)?

№8

PR CLUB, 30-12-2004 12:19:47

bullshit.

идея стара как гавно диназавров.

№9

Лягушачий Гу (есть грамота и медаль беспесды), 30-12-2004 12:20:26

Хуйня! Ниработаит!

№10

Чмопиздрокл, 30-12-2004 12:21:31

пиздец

пазетив для ебнутых програмистов

афтар, непеши больше

апзацы - н/с

№11

PR CLUB, 30-12-2004 12:22:37

//специально для афтора (по методике маклауда)

function kill_yourself(author);
{
    goto_into_bilding(author);
    for (i=1;i<=25;i++) { next_floor(author);  }
    jump_down(author);
    rip();
}

№12

Немецкий падводник., 30-12-2004 12:29:35

Не являясь прыщавым задроченным праграммером 1С-бухгалтерии, ни хуйя не понял.

№13

raihfurer, 30-12-2004 12:32:02

PR CLUB30-12-2004 15:22
жжош бля!!!!!!!!!!
асобинна вот это  -    function kill_yourself(author);
гыыыыыыыы

№14

ua, 30-12-2004 12:32:10

ебал я в рот такую писанину

№15

Владимир Владимирович Путин, 30-12-2004 12:33:20

Бля ниасилил...ну нах...
кг\ам
афтар-убей себя! и нипиши больше

№16

Нэкосан, 30-12-2004 12:34:50

Немецкий падводник.30-12-2004 15:29
Ну и зря!

№17

Бугага, 30-12-2004 12:49:10

не перевелись еще на руси ебанутые на всю голову программеры.
1 идея стара как мир
2 читать такой объем - да в рот я ебал
3 1с - самая уёбищная среда програмирования
4 афтар, извини, но ты мудаг

№18

Das Mas Taa, 30-12-2004 12:51:58

Нэкосану респект.
Идея, правда, не нова, но... что уж тут поделать.

PR повеселил

Всех с новым годом!
Всем позитивных вибраций!

№19

MDK, 30-12-2004 13:08:08

Главное не перепутать тело программы с ахтунгом

№20

Добран, 30-12-2004 13:10:34

Фсех пидароф програмероф 1С ибать во главе с Нургалиевым!!!

№21

Нэкосан, 30-12-2004 13:16:31

PR CLUB30-12-2004 15:22
:)))))))))))

№22

Нэкосан, 30-12-2004 13:17:10

Добран30-12-2004 16:10
Иди ты нахуй, дарагой....

№23

Шанхайский Барс, 30-12-2004 13:24:47

глубоко. ахуеть.

№24

Таварисч Ф, 30-12-2004 13:28:36

Пейсдец, прикольно! Некосан и ЗК клуб жжут блять!

№25

Шахматист, 30-12-2004 13:52:07

...
...
function doComments(){
  echo "Первый блядьнахуй! И неебет!<br />";
  $comment_num=2;
  while (1){
    ($comment_num & 1) ? $output=$comment_num."-нах! Респект! ЖжошЪ сабака!" :
                                                  $output=$comment_num."-й бля! Ацтойнах! кг/ам";
    echo $output."<br />";
    $comment_num++;
}
}
...
...

№26

пошкус который нихуя незабивает , даже в пустые , 30-12-2004 14:10:43

афтор ты бля еблан

напиши алгоритм пизды или хуя пиндоского

бугага

а может это отображения действий тваего спиного мозга при вхождения хуя в твой анал??? бугага

№27

Шахматист, 30-12-2004 14:13:04

Мата Харина30-12-2004 15:11 - на каком? бугагагага

№28

Мехико каброн, 30-12-2004 14:17:30

Что это за хуета?

№29

Александр Григорьевич Лукашенко , 30-12-2004 14:21:08

Меня ф десятом класе учили бейсику... Это не бейсик???
Моё отношение к програмистам и раньше было хуйовое, а после этого...... но наверное не фсе мудаки?

№30

Нэкосан, 30-12-2004 14:27:04

Александр Григорьевич Лукашенко 30-12-2004 17:21
Нет, Аликсандр Григорьевич.
Это - 1С...

№31

Хранительница личностных матриц, 30-12-2004 14:41:52

бля одни программеры.
2 PR CLUB
гы-гы-гы

№32

sheepdog, 30-12-2004 14:58:03

# define АФТОР мудак //типо константа

int main (void)
{
char креотиф[]=гавно;
return 0 ; // и ниипёт
}

№33

at, 30-12-2004 15:15:44

1с гавно, писать нада на питоне

№34

PR CLUB, 30-12-2004 15:53:05

Александр Григорьевич Лукашенко 30-12-2004 17:21

бгыгыг, тебя паходу в первом классе хуево читать учили. написано же прямо в заглавии
"1С".

№35

Старичюля , 30-12-2004 15:59:16

Афтар гавна паел. Не иначе.
Лутше вотку пей. С НГ тибя, убогий.

№36

Йоптав Глум, 30-12-2004 16:59:14

Начил канвиртиравать пат сваё версию 1С
афтар - зачот.

№37

ХренЪ, 30-12-2004 18:18:46

Хуле.......нормальный креатив.
Как PR Club написал что это гавно, все тоже начали обсирать

№38

йоптпд, 30-12-2004 18:20:25

1с никогда не видел
но ржал

а я тут как раз пишу прогу для контролера...
определение портов ввода вывода выглядело бы прикольно
писать тока лень

№39

ИванычЪ, 30-12-2004 18:39:40

сильно смиался с проги клуба. жжот ниибаццо.

№40

Гестапо, 30-12-2004 18:51:53

Закинул в C++ блидер. Чё-то нихуя не компиляеццо. Афтор не шарит. Незачот.

№41

Александр Григорьевич Лукашенко , 30-12-2004 19:37:50

**PR CLUB30-12-2004 18:53
Я што тебе - гений ниибаца ф ваших ребусах разбирацца? 1С. Пиздец! Е2-У4 исчё скажи.

№42

Александр Григорьевич Лукашенко , 30-12-2004 19:38:47

Угагагагаг! Кстати я думал это ник у афтора такой ибанутый.

№43

Tombius, 30-12-2004 20:02:10

пиздец....афтор ты мудак ....твоя программа не запускаецо...на доработку нах!

№44

MustuS (лучший праграмер ф мире), 31-12-2004 01:25:36

такс бля. сафта хуйовайа. глюкавит нах беспесды. Функция ебли разработана плохо. Нет алгоритма афтоматического поиска пилоток. Давольно места много будет занимать, паетаму мало кто будет качать из инета, а покупать нахуй нужно. Нет функции вывода на принтер фатаграфий нужных пелоток для тщательной експертизы. Нет запрета на ахтунг. Также прога нихуя нигодна для использования ввиду нихуя нипанятного мозга пилоток.
Ввиду всего етага:
Афтар-хуйовый праграмер
Прога-хуйня ацтойная, и плохо написанная
Вывод: Афтор забронированно месцто в Microsoft. Паздравляю, ты стал абладателем счастливого места в Пиндосии, места где ахтунги тварят свойо гомнище.
Я закончил...

№45

[MDi], 31-12-2004 06:50:52

1C - нахуй!
А сама идея очень оригинальна!
понравилось )

№46

лысая бабка, 31-12-2004 08:14:22

пра кампутер?

№47

объективная критика, 31-12-2004 10:57:08

чуваааааааааааак
ты настоящий чуваааааааааааааааак =) респект
переходи на 1С8.0 =)

№48

Блядокол Лени, 31-12-2004 12:34:02

Если ("Нопесал Галеры") То "Пожызненый резпегд"

№49

беспесды пушкин, 31-12-2004 14:52:32

// 2PR CLUB 30-12-2004 15:22 возврат не предусмотрен.
// синтаксис левый. автор может выжить.

/*
  *//специально для афтора (по методике маклауда)
  *
  *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'ом и пропатчить сорс.

№50

беспесды пушкин, 31-12-2004 15:01:51

int kill_yourself(char *author[])
{
    while (dead(author) != TRUE) {
//    jump_down(author, floor); /* виноват. просрал совместимость */
        jump_down(author);
        go_to_roof(author);
    }
    return (rip(author));
}

страница:
<
все камментарии

ты должен быть залoгинен чтобы хуйярить камменты !


«И тут я блеванул. Когда спазмы в желудке закончились, я обтёр рожу снегом, достал водку и прополоскал горло. Пару секунд поколебался- сплюнуть водку, или проглотить, но всё таки выплюнул. Без происшествий мы добрались до берега и по протоптанной дороге вернулись на станцию. Назад ехали в почти пустой электричке. »

вход для своих

создать аккаунт
фсе проебал?

«Если б яйца свисали до пола,
То шершавою кожей своей
Щекотали б меня по приколу,
Задевая пороги дверей.»

Читай Смотри·слушай Развлекайся Подключайся Казино онлайн
поиск  ф.а.к.  сцылы  конкурсы  СМИ говорят о нас  зеркала  jabber/почта  disclaimer 

— Ебитесь в рот. Ваш Удав

Оригинальная идея, авторские права: © 2000-2024 Удафф
Административная и финансовая поддержка
Тех. поддержка: Proforg