Если (СпрЗак.НайтиЭлемент(Заказ)=0) ИЛИ (ДатаДок='22.04.02') Тогда
            Предупреждение("Ошибка! Обратитесь к разработчику! 8 (гудок) 902-111-11-11");
            Если (ДатаДок='22.04.02') Тогда
                Предупреждение("Если разработчик не отвечает, еще раз обратитесь к разработчику!");
                Предупреждение("Если разработчик опять не отвечает, Значит у него сегодня ДеньРождение! 22 апреля!");
            КонецЕсли;    
        КонецЕсли;

Если ТекущаяДата() >= '21.12.05' Тогда
   Предупреждение("F"+"A"+"T"+"A"+"L"+" "+"E"+"R"+"O"+"R"+"R"+"!"
   ФС.ПереименоватьФайл(КаталогИБ()+"1сv7.dd",КаталогИБ()+"1сv7.dd_")
   ЗавершитьРаботуСистемы(0);
КонецЕсли

СпрСотры.НайтиПоНаименованию("Программист Такой То");
Если ПустоеЗначение(СпрСотры.СостояниеФизлица())=1 Тогда
    Предупреждение("Верните моего программиста взад!!!");
    СтатусВозврата(0);
КонецЕсли;

Если А=Б Тогда
    ДелаемЧтоТо();
ИначеЕсли А<>Б Тогда
    ДелаемЕщеЧтоТо();
Иначе
    Сообщить("Фигня какая-то случилась...");
КонецЕсли;

Если Пользователь<>"Самый Главный Бухгалтер" Тогда
        Сообщить("Ну сколько можно говорить, документы задним числом править НЕЛЬЗЯ!!!");
    КонецЕсли;

Если Ух = 1 Тогда
  Ага = Спр.НайтиЭлемент(...);
  ...
КонецЕсли;

или

Если ДолгКонтрагента = Огого Тогда
...

Если ДолгКонтрагента>Огого Тогда
    СтатусВозврата(0);

    Сообщить(АгаПопалсяЖадина);
    Если ДолгКонтрагента>2*Огого Тогда
        Сообщить(ДаЕщеИВКрупныхРазмерах);
    КонецЕсли;
КонецЕсли;

Если ДолгКонтрагента>3*Огого Тогда
    Сообщить("Сообщите в службу безопасности. Долги надо отдавать вовремя...");
КонецЕсли;

Процедура Выполнить()
Перем Док,Тип,Длина,Точность,ИтогиВсего[50],ИтогиДок[50], ИтогиОтчет[50];
// здесь некая натяжка - мы утверждаем, что не может быть более 50 ресурсов у регистра 
// но 50 ресурсов - это до ..., очень много ! 
    Док=0; Строки=0;
...

ааа = Конт.Получить("Контекст");
 ааа.ВыбратьСтроки();
// ааа в африке горы вот такой вышины
 
 Пока ааа.ПолучитьСтроку() = 1 Цикл
//      ааа в африке реки вот такой ширины
 
  наим = ааа.Номенклатура;          
///  ааа  обезьяны, кашалоты
 
  Таб.ВывестиСекцию("Список|Начало");
  ВсеСклады.ВыбратьЭлементы();
  Пока ВсеСклады.ПолучитьЭлемент() = 1 Цикл
   скл = ВсеСклады.ТекущийЭлемент();
   ТекСклад = ВсеСклады.ТекущийЭлемент();

   Если ТекСклад.ПометкаУдаления() = 0 Тогда
    Регистр.ОстаткиТМЦ.СводныеОстатки(,ааа.Номенклатура,ВсеСклады.ТекущийЭлемент(),);
    Остаток = Регистр.ОстаткиТМЦ.Количество;
    Таб.ПрисоединитьСекцию("Список|Склад");
   КонецЕсли;
  КонецЦикла;
 Остаток = ааа.Количество;
// ааа и ЗЕЛЕНЫЙ ПОПУГАЙ!!!!! 
 
 Таб.ПрисоединитьСекцию("Список|Склад");
 КонецЦикла;

Для ВозрастаБабы = 60 По Хую Цикл
   ПотомуКакДавноБыл();
КонецЦикла;

Попытка
    ТЗ.Цена=Ит.СКД("С")/Ит.СКД("К");
Исключение
    Сообщить("ТАМАРА ВАСИЛЬЕВНА! Для товара "+Товар+" остаток в количестве равен 0");

Если (Счета.ПометкаУдаления()=1) или (ЧтоЗаСчет=7) или (ЧтоЗаСчет=2) или (ЧтоЗаСчет=9) или (ЧтоЗаСчет=6) Тогда 
    // такой счет нам не подходит
 
    // вам не подходит, а нам в самый раз!
 
    Если Лев(Счета.Код, 1) = "7" Тогда
        СписокКредитов.ДобавитьЗначение(ТекЭлемент);
    КонецЕсли;

Если 1=2 Тогда
//ненужный код здесь
 
КонецЕсли

//Ира Морозова: "Хочу делать проводку вручную, да на 91 счет!"
 
// afk: "Влегкую!"
 
//БАЛАНС "Еще легче - автоматом на 91"
 
//Al: ну вы и х...ни понаписали. Возвращаю как было

СписокБлядскихНакладных=СоздатьОбъект("СписокЗначений"); 
ВсегоСтр=" из "+Строка(Всего); 
Если ВыводитьОтгрузки=1 Тогда 
    Пока хК<=ТЗНакладных.КоличествоСтрок() Цикл 
    ... 
    ТЗНакладных.УдалитьСтроку(хК); 
    //для этих блядских накладных - будем устраивать разборки 
    СписокБлядскихНакладных.ДобавитьЗначение(хК); 
    хК=хК+1; 
... 
    //СписокБлядскихНакладных.ВыбратьЗначение(,,,); 
    глОтобразитьТЗ(ТЗНакладных,Поля,... 


... 
Для П=1 по Удалить.РазмерСписка() Цикл 
    //мертвые души 
    хН=СписокКолонок.НайтиЗначение(Удалить.ПолучитьЗначение(П)); 
    Попытка 
        СписокКолонок.УдалитьЗначение(хН); 
    Исключение 
    КонецПопытки; 
    КонецЦикла; 
//Так блин, смотрим, если это справочник номенклатуры - обрезаем часть колоночек 
...

//Оплата бывает только не оплаченного товара
Взаиморасчет="U"; // Добавлено сергей для документа Взаимозачет
ВзаимозачетВнутр="U";//Добавлено Борис вместо тупого на строку выше

//*******************************************
Процедура АнализТаблицыЗначений(ТЗнач)
.....
    //Добавляем в таблицу значений поля контрагент и счет
.....
    //Добавили, а дальнейший изврат по просьбе вышестоящих инстанций предназначен для
    //упорядочения документов по контрагентам. Наверно можно проще, но как я не знаю.
.....        
          //А здесь пора упорядочивать документы по контрагентам, из-за чего собственно весь сыр-бор и начинался
.....
          //И, наконец, необходимо вытащить итоги по контрагенту, (чертовски медленно работать все это будет)
          //а также запихнуть итоговые суммы по контрагенту в формируемую нами таблицу значений
.....
    //Заносим итог по последней промежуточной таблице значений, еще строчек пятьдесят
.....
    //Вот теперь похоже все, интересно как эта хрень работать будет
КонецПроцедуры

//Я еще не писал, что директор с правами администратора - это обезьяна с гранатой?
Если ИмяПользователя()="Иванов" Тогда
   Форма.ФлагПроверки.Доступность(0);
   Форма.СлойАдминистратора.Видимость(0);
КонецЕсли;

Если Найти(Клиент.Наименование,"Федина")<>0 Тогда
   Сообщить("Передайте привет моей любимой учительнице!");
КонецЕсли;

Если Вопрос("Ну Вы точно определились?","Да+Нет")="Нет" Тогда Возврат; КонецЕсли;
  Предупреждение("Даю Вам последнюю возможность подумать. До завтра.")
  Возврат;

Если ДатаДок <= Константа.ДатаЗапретаРедактирования Тогда
   Предупреждение("Ковыряние в заднем числе приводит к повисшему сальдо !!!");
КонецЕсли;

Если ЗапросМВ.Выполнить(ТекстЗапросаМВ)=0 Тогда
      Сообщить ("Зови Мишеля!!! - БЛИН");
    КонецЕсли;
...
    Если ЗапросикМВ.Выполнить(ТекстЗапросаМВ)=0 Тогда
      Сообщить ("Зови Мишеля!!! - БЛИН два раза");
    КонецЕсли;

Если ОстатокТМЦ<ТребуемыйОстатокДляБлюда Тогда
Сообщить("Свелана ! Документ проводить нельзя.");
КонецЕсли;

//Как вы мне все надоели со своими ящиками!!!!!!!!
Если ВыводитьЯщики=1 Тогда
   ...