"Перлы" (Жемчужины) или как не надо писать на 1С

Внимание! Все используемые в этой статье примеры взяты из реальных модулей.
Все программы приводятся с сохраненным форматированием и оформлением кода.

 

1. Часто начинающие программисты, стараясь «заточить» свою программу под конкретного заказчика, перегибают палку и вот что у них получается:

Если ТЗСотр.Сотрудник.Подразделение.Получить(НаДату).Код="7" тогда
        Если ТЗСотр.Сотрудник.Должность.Получить(НаДату).Код<>"00055" тогда
                Если число(ТЗСотр.Сотрудник.Оклад.Получить(НаДату).Код)<13 тогда

 

2. Некоторые из программистов не знают что такое циклы (списки, таблицы значений), поэтому они вынуждены, чтобы ну хоть как-то закрыть работу у Заказчика, придумывать гениальные решения:

                Всего=Точка1+Точка2+Точка3+Точка4+Точка5+Точка6+
                Точка7+Точка8+Точка9+Точка10+Точка11+Точка12+Точка13+
                Точка14+Точка15+Точка16+Точка17+Точка18+Точка19+Точка20+
                Точка21+Точка22+Точка23+Точка24+Точка25+Точка26+Точка27+
                Точка28+Точка29+Точка30;

И там же:

                Процедура  ВводНового()
                Склад = Константа.ОснСклад;
                
                     
                Спр=СоздатьОбъект("Справочник.Точки");		  
                Спр.НайтиПоКоду("1");
                Имя1=Спр.ТекущийЭлемент();
                
                Спр.НайтиПоКоду("2");
                Имя2=Спр.ТекущийЭлемент();
                Спр.НайтиПоКоду("3");
                
                Имя3=Спр.ТекущийЭлемент();
                Спр.НайтиПоКоду("4");
                Имя4=Спр.ТекущийЭлемент();
                
                Спр.НайтиПоКоду("5");
                Имя5=Спр.ТекущийЭлемент();
                          
                …
                
                Спр.НайтиПоКоду("29");		  
                Имя29=Спр.ТекущийЭлемент();
                Спр.НайтиПоКоду("30");
                
                Имя30=Спр.ТекущийЭлемент();

 

3. Просто, "гениальные" названия:

                Константа.Новый2;
                Перечисление.Скотч;
                Процедура Сформировать88888888();
                Процедура Сформироватьчччччч();

 

4. Люди – полиглоты:

                Пока ПолучитьСтроку() = 1 do
                
                …
                enddo;

 

5. Кто ищет тот найдет! Но видимо не в этот раз :)

                    Если -Зн>10000  тогда
                
                    Спр.НайтиПоКоду(   -(Цел(Зн1/10000))   );
                    ВВ=Спр.ТекущийЭлемент();
                    //СС=Выб
                
                    Сообщить(ВыбПлан.Субконто);
                    СпрС.Вид(ВыбПлан.Субконто);
                
                    СпрС.НайтиПоКоду (  (-зн1)-(10000*(   -(Цел(Зн1/10000))  )) ,0);
                    СС=СпрС.ТекущийЭлемент();
                
                иначе
                    Спр.НайтиПоКоду(-Зн1,0);
                    ВВ=Спр.ТекущийЭлемент();
                
                    СС=0;
                КонецЕсли;

 

6. А что эта гениальная программа делает?

                    Процедура  ОбработкаПоставщиков()
                    ф3="99";  ф4="8";   ф1="01.0";
                
                    ф2="9.1";
                    Раз=Дата(ПолучитьДатуТА())-
                        Дата(ф1+ф2+ф3+ф4);
                
                    Если Раз<0 Тогда
                        Раз=0;
                    КонецЕсли;
                
                    к=0;
                    Пока к<(Раз*380) Цикл
                        //Сообщить(К);
                
                        к=к+1;
                    КонецЦикла;
                КонецПроцедуры