Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−105
Г = 0;
Пока Г = 0 Цикл
ПОПЫТКА
Док.РазрешитьОтгрузку = Перечисление.Булево.Да;
Док.Записать();
ИСКЛЮЧЕНИЕ
Сообщить("" + Г + " : Документ " + Док.НомерДок + " заблокирован. Пробую еще раз ...");
Если Г > 20 Тогда
Сообщить("Неудачка...");
Прервать;
КонецЕсли;
КОНЕЦПОПЫТКИ;
Г = Г + 1;
КонецЦикла;
dsfix,
19 Июня 2015
−106
//*****************************************************************************************
Запрос9 = Новый Запрос;
Запрос9.УстановитьПараметр("ТекущийЭлемент", Спецификация);
Запрос9.Текст =
"ВЫБРАТЬ
| СпецификацииНоменклатуры.Ссылка.Код КАК Код,
| СпецификацииНоменклатуры.Ссылка.Наименование КАК Обозначение,
| СпецификацииНоменклатуры.ХарактеристикаНоменклатуры КАК Характеристика
| ИЗ
| Справочник.СпецификацииНоменклатуры.ВыходныеИзделия КАК СпецификацииНоменклатуры
| ГДЕ
| СпецификацииНоменклатуры.Ссылка = &ТекущийЭлемент";
ЗапросТовары9 = Запрос9.Выполнить().Выгрузить();
Для Каждого ВыборкаСтрок9 Из ЗапросТовары9 Цикл
Харка = ВыборкаСтрок9.Характеристика;
КонецЦикла;
ТоЧтоНужно = РегистрыСведений.ЗначенияСвойствОбъектов.Получить(Новый структура("Объект,Свойство",Харка,ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоКоду ("00000000033"))).Значение;
Если ЗначениеЗаполнено(ТоЧтоНужно) ТОгда
Область.Параметры.Вид = ТоЧтоНужно;
КонецЕсли;
//*****************************************************************************************Когда в наследство достается процедура печати, написанная одним, дополненная другим и порученная тебе переписать.
lyakusha,
03 Июня 2015
−107
НачальнаяДата = НачДата;
КонечнаяДата = КонДата;
НачальныйМесяц = Месяц(НачальнаяДата);
КонечныйМесяц = Месяц(КонечнаяДата);
Если (НачальныйМесяц < КонечныйМесяц) ИЛИ (НачальныйМесяц = КонечныйМесяц) Тогда
КоличествоМесяцев = (Месяц(КонецМесяца(КонечнаяДата)) - Месяц(НачалоМесяца(НачальнаяДата))) + 1;
КонечнаяДата = КонецМесяца(НачальнаяДата);
Если КоличествоМесяцев > 0 Тогда
Для Сч = 1 По КоличествоМесяцев Цикл
ВыгрузитьРасчеты(НачальнаяДата,КонечнаяДата);
Сообщить(""+ТекущаяДата()+": Выгружен месяц "+Месяц(НачальнаяДата));
НачальнаяДата = НачалоМесяца(ДобавитьМесяц(НачальнаяДата,1));
КонечнаяДата = КонецМесяца(НачальнаяДата);
КонецЦикла;
КонецЕсли;
Иначе ////переход года
КолМесДоКонцаГода = (12-НачальныйМесяц)+1;
КолМесСНачалоГода = КонечныйМесяц;
///выгрузка месяцев с прошлого года
КонечнаяДата = КонецМесяца(НачальнаяДата);
Для Сч = 1 По КолМесДоКонцаГода Цикл
ВыгрузитьРасчеты(НачальнаяДата,КонечнаяДата);
Сообщить(""+ТекущаяДата()+": Выгружен месяц "+Месяц(НачальнаяДата));
НачальнаяДата = НачалоМесяца(ДобавитьМесяц(НачальнаяДата,1));
КонечнаяДата = КонецМесяца(НачальнаяДата);
КонецЦикла;
////выгрузка месяцев нового года
НачальнаяДата = НачалоГода(КонечнаяДата);
КонечнаяДата = КонецМесяца(НачальнаяДата);
Для Сч = 1 По КолМесСНачалоГода Цикл
ВыгрузитьРасчеты(НачальнаяДата,КонечнаяДата);
Сообщить(""+ТекущаяДата()+": Выгружен месяц "+Месяц(НачальнаяДата));
НачальнаяДата = НачалоМесяца(ДобавитьМесяц(НачальнаяДата,1));
КонечнаяДата = КонецМесяца(НачальнаяДата);
КонецЦикла;
КонецЕсли;
Насколько я понял это была попытка помесячного обхода с начальной даты по конечную указанную.
Как я понял вторая часть условия даже не отрабатывала и работало на половину. Но фантазия у автора конечно сказочная...
Переписал данное Г* в 5 строк.
З.Ы. человек этот сидел за 120р.мес...
Goggy,
02 Июня 2015
−106
ДокументРасчетовСКонтрагентом = СсылкаНаОбъект.ДокументОснование;
Для ы = 1 По 100 Цикл
Если ТипЗнч(ДокументРасчетовСКонтрагентом) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда
Прервать;
Иначе
ДокументРасчетовСКонтрагентом = ДокументРасчетовСКонтрагентом.ДокументОснование;
КонецЕсли;
КонецЦикла;С вероятностью 100% доберемся до нужного документа
grandatlant,
27 Мая 2015
−105
Филиал = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(ПараметрыСеанса.ТекущийПользователь, "ОсновнойФилиал");
Если НЕ ЗначениеЗаполнено(Филиал) Тогда
Филиал = Филиал;
КонецЕсли;Не заполнен - значит заполним!
grandatlant,
27 Мая 2015
−107
Процедура ПокрытияКодПокрытияОкончаниеВводаТекста(Элемент, Текст, Значение, СтандартнаяОбработка)
Покрытия = ЭтаФорма.Покрытия;
Количество = 0;
Для Каждого СтрокаПокрытия из Покрытия Цикл
Если СтрокаПокрытия.КодПокрытия = Текст Тогда
Количество = 1;
КонецЕсли;
КонецЦикла;
Если Количество > 0 Тогда
ПоказатьОповещениеПользователя("Ошибка!",,"Такое покрытие уже присутствует в составе изделия", БиблиотекаКартинок.Ошибка);
НеНайденоПокрытие = Истина;
Возврат;
КонецЕсли;
НеНайденоПокрытие = Ложь;
ЭлементыФормы.Покрытия.ТекущиеДанные.СвязьСПокрытиями = Неопределено;
Если ЭлементыФормы.Покрытия.ТекущиеДанные <> Неопределено Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Покрытия.Ссылка,
| Покрытия.НаименованиеПокрытия
|ИЗ
| Документ.Покрытия КАК Покрытия
|ГДЕ
| Покрытия.КодПокрытия = &КодПокрытия";
Запрос.УстановитьПараметр("КодПокрытия", Текст);
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Если ВыборкаДетальныеЗаписи.Количество() > 0 Тогда
ВыборкаДетальныеЗаписи.Следующий();
ЭлементыФормы.Покрытия.ТекущиеДанные.СвязьСПокрытиями = ВыборкаДетальныеЗаписи.Ссылка;
ЭлементыФормы.Покрытия.ТекущиеДанные.НаименованиеПокрытия = ВыборкаДетальныеЗаписи.НаименованиеПокрытия;
Иначе
ПоказатьОповещениеПользователя("Ошибка!",,"Не найдено введенное покрытие", БиблиотекаКартинок.Ошибка);
ЭлементыФормы.Покрытия.ТекущиеДанные.СвязьСПокрытиями = Неопределено;
ЭлементыФормы.Покрытия.ТекущиеДанные.НаименованиеПокрытия = Неопределено;
НеНайденоПокрытие = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедурыМоё творение. =)
Startwar,
20 Мая 2015
−161
//AS
Если ЭтотОбъект.Проведен И ((глЗначениеПеременной("глТекущийПользователь").Наименование = "Гуля") или
(глЗначениеПеременной("глТекущийПользователь").Наименование = "Марина") или
(глЗначениеПеременной("глТекущийПользователь").Наименование = "Ирина")) Тогда
ЭтаФорма.ТолькоПросмотр = Истина ;
КонецЕсли ;
//AS\\Не мое, стырил на просторах интернета у пользователя Shipik1982, за что ему спасибо - повеселил)
portwein,
18 Мая 2015
−157
Функция ОпределитьБазовуюДату(стр,ТипДаты,Условие)
рез=NULL ;
Если ТипДаты=Перечисления._ВидБазовойДаты.ЗавершениеРаботы тогда
рез= Стр.ДатаОкончанияРаботы;
ИначеЕсли ТипДаты=Перечисления._ВидБазовойДаты.НачалоРабот тогда
рез= Стр.ДатаНачалаРаботы;
ИначеЕсли ТипДаты=Перечисления._ВидБазовойДаты.ФиксированнаяДата тогда
рез=Условие.ДатаАкта;
ИначеЕсли ТипДаты=Перечисления._ВидБазовойДаты.НачалоРабот тогда
ИначеЕсли ТипДаты=Перечисления._ВидБазовойДаты.НачалоРабот тогда
ИначеЕсли ТипДаты=Перечисления._ВидБазовойДаты.НачалоРабот тогда
рез= Стр.ДатаЗавершенияРаботы;
КонецЕсли;
Попытка
рез =Дата(рез);
исключение
рез=ТекущаяДата();
Сообщить("неопределена дата "+ТипДаты+" для локальной сметы " + стр.ЛокальнаяСмета + ", ключ строки " + Стр.Ключ);
КонецПопытки;
возврат рез;
КонецФункции
-------------------------------------------------------------------------------------------------------------------------
Вот отдельные выжимки:
/////////////////////
Если ст.Options="Percent" тогда //Нужно выяснить что за Percent ибо не помню =( Лучше потом подумаю
Сообщить("Данная смета возможно не корректно рассчитывает концевики! Обратитесь к Администратору!");
КонецЕсли;
//////////////////////
//ЧЧЧ Серега 09,12,12 слав, а почему ты это удалил? (без этих строк сумма сметы не была везде правильной)
Строки=Дерево.Строки.НайтиСтроки(новый Структура("ВидГруппы",Перечисления.ВидыГруппЛокальныхСмет.ДанныеСметы),истина);
//ЧЧЧС помощью таких вот функций производится расчет бюджета проекта по капитальному строительству в очень крупной российской компании. Главное что функциональный заказчик этого добра, с глубокой уверенностью считает что у него замечательная конфигурация. Код специаьн
Gostmair,
07 Мая 2015
−160
http://clip2net.com/s/3gT4udu
Не совсем код.
Скорее невероятные способности к проектированию структуры табличной части документа.
kinazarov,
28 Апреля 2015
−156
Функция ПолучитьКоличествоДокументов(ИмяДокумента) Экспорт
Запрос = Новый Запрос("Выбрать Документ." + СокрЛП(ИмяДокумента) + ".Ссылка");
Выборка = Запрос.Выполнить().Выбрать();
Возврат Выборка.Количество();
КонецФункции
stungnthumz,
22 Апреля 2015
Follow us!