Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 6
−141
//Адрес Получателя
СписокКому = Новый СписокЗначений;
СписокОбъектов = Новый СписокЗначений;
СписокОбъектов.Добавить(ОбъектОтправки);
Для каждого СтрокаСпискаОбъектов Из СписокОбъектов Цикл
Адрес = УправлениеЭлектроннойПочтой.ОпределитьАдресПолучателя(СтрокаСпискаОбъектов.Значение);
СписокКому.Добавить(Адрес,Строка(СтрокаСпискаОбъектов.Значение));
КонецЦикла;
СтруктураНовогоПисьма.Вставить("Кому", СписокКому);что автор хотел этим сделать?? написано с нуля, так как автор сказал, что немного подкорректировал конфигурацию и вот мне стало интересно... но увидев удивительные строки хотелось бы спросить сначала экспертов, а потом автора )))))
drhihi,
21 Сентября 2011
−133
ВЫБРАТЬ
МИНИМУМ(ЗапросСортировки.НомерСтроки) КАК НомерСтроки,
МИНИМУМ(ЗапросСортировки.НомерТЧ) КАК НомерТЧ,
ЗапросСоставаТЧ.Номенклатура.Артикул КАК Артикул,
ЗапросСоставаТЧ.Номенклатура КАК Номенклатура,
ВЫРАЗИТЬ(ЗапросСоставаТЧ.Товар КАК Строка(100)) КАК Товар,
МАКСИМУМ(ЗапросСоставаТЧ.Количество) КАК Количество,
ЗапросСоставаТЧ.ЕдиницаИзмерения.Представление КАК ЕдиницаЦены,
ЗапросСоставаТЧ.Цена КАК Цена,
МАКСИМУМ(ЗапросСоставаТЧ.Сумма) КАК Сумма,
МАКСИМУМ(ЗапросСоставаТЧ.СуммаНДС) КАК СуммаНДС,
ЗапросСоставаТЧ.Характеристика КАК Характеристика,
NULL КАК Серия
ИЗ
(ВЫБРАТЬ
ВложенныйЗапрос.Номенклатура КАК Номенклатура,
ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Товар,
ВложенныйЗапрос.Номенклатура.Код КАК КодАртикул,
ВложенныйЗапрос.Количество КАК Количество,
ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
ВложенныйЗапрос.Цена КАК Цена,
ВложенныйЗапрос.Сумма КАК Сумма,
ВложенныйЗапрос.СуммаНДС КАК СуммаНДС,
ВложенныйЗапрос.Характеристика КАК Характеристика
ИЗ
(
ВЫБРАТЬ
ЗаказПоставщику.Номенклатура,
ЗаказПоставщику.ЕдиницаИзмерения,
ЗаказПоставщику.Цена КАК Цена,
СУММА(ЗаказПоставщику.Количество) КАК Количество,
СУММА(ЗаказПоставщику.Сумма ) КАК Сумма,
СУММА(ЗаказПоставщику.СуммаНДС ) КАК СуммаНДС,
ЗаказПоставщику.ХарактеристикаНоменклатуры КАК Характеристика
ИЗ
Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщику
ГДЕ
ЗаказПоставщику.Ссылка = &ТекущийДокумент
СГРУППИРОВАТЬ ПО
ЗаказПоставщику.Номенклатура,
ЗаказПоставщику.ЕдиницаИзмерения,
ЗаказПоставщику.Цена,
ЗаказПоставщику.ХарактеристикаНоменклатуры
) КАК ВложенныйЗапрос
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ВложенныйЗапрос.Номенклатура КАК Номенклатура,
ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Товар,
ВложенныйЗапрос.Номенклатура.Код КАК КодАртикул,
ВложенныйЗапрос.Количество КАК Количество,
ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
ВложенныйЗапрос.Цена КАК Цена,
ВложенныйЗапрос.Сумма КАК Сумма,
ВложенныйЗапрос.СуммаНДС КАК СуммаНДС,
ВложенныйЗапрос.Характеристика КАК Характеристика
ИЗ
(
ВЫБРАТЬ
ЗаказПоставщику.Номенклатура,
ЗаказПоставщику.ЕдиницаИзмерения,
ЗаказПоставщику.Цена КАК Цена,
СУММА(ЗаказПоставщику.Количество) КАК Количество,
СУММА(ЗаказПоставщику.Сумма ) КАК Сумма,
СУММА(ЗаказПоставщику.СуммаНДС ) КАК СуммаНДС,
ЗаказПоставщику.ХарактеристикаНоменклатуры КАК Характеристика
ИЗ
Документ.ЗаказПоставщику.Оборудование КАК ЗаказПоставщику
ГДЕ
ЗаказПоставщику.Ссылка = &ТекущийДокумент
СГРУППИРОВАТЬ ПО
ЗаказПоставщику.Номенклатура,
ЗаказПоставщику.ЕдиницаИзмерения,
ЗаказПоставщику.Цена,
ЗаказПоставщику.ХарактеристикаНоменклатуры
) КАК ВложенныйЗапрос
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ЗаказПоставщику.Номенклатура,
ЗаказПоставщику.Содержание КАК Товар,
ЗаказПоставщику.Номенклатура.Код КАК КодАртикул,
ЗаказПоставщику.Количество,
ЗаказПоставщику.Номенклатура.ЕдиницаХраненияОстатков,
ЗаказПоставщику.Цена,
ЗаказПоставщику.Сумма,
ЗаказПоставщику.СуммаНДС,
NULL
ИЗ
Документ.ЗаказПоставщику.Услуги КАК ЗаказПоставщику
ГДЕ
ЗаказПоставщику.Ссылка = &ТекущийДокумент) КАК ЗапросСоставаТЧполучи фашист гранату... вытянул запрос и функции печать уникального автора
drhihi,
01 Апреля 2011
−135
"ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ " + ПериодАнализаВРабочихДнях + "
| РегламентированныйПроизводственныйКалендарь.ДатаКалендаря
|ИЗ
| РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
|ГДЕ
| РегламентированныйПроизводственныйКалендарь.ДатаКалендаря < &ДатаНач
| И (РегламентированныйПроизводственныйКалендарь.ВидДня = &РабочийДень
| ИЛИ РегламентированныйПроизводственныйКалендарь.ВидДня = &ПредпраздничныйДень)
|
|УПОРЯДОЧИТЬ ПО
| РегламентированныйПроизводственныйКалендарь.ДатаКалендаря УБЫВ";
датаначала = Неопределено;
Выборка = запрос.выполнить().выбрать();
пока выборка.следующий() цикл
датаначала = выборка.ДатаКалендаря;
конеццикла;
возврат датаначала;и почему я не могу додуматься взять минимальное значение??
drhihi,
31 Марта 2011
−124
"ВЫБРАТЬ
| ТоварыНаСкладахОстатки.Номенклатура КАК Номенклатура,
| СУММА(ТоварыНаСкладахОстатки.КоличествоОстаток) КАК КоличествоОстатокНаСкладах
|ИЗ
| РегистрНакопления.ТоварыОрганизаций.Остатки(
| ,
| Номенклатура В (&НоменклатураПоОтбору)
| И Склад В (&СписокСкладов)
| И Организация = (&Организация)) КАК ТоварыНаСкладахОстатки
|ГДЕ
| ТоварыНаСкладахОстатки.Склад В(&СписокСкладов)
|
|СГРУППИРОВАТЬ ПО
| ТоварыНаСкладахОстатки.Номенклатура
1с никогда меня не может понять, что мне нужны свернутые остатки....
1с загоняется... если я в виртуальной таблице отобрал по складам, то мне вновь приходится отбирать по складам
drhihi,
31 Марта 2011
−92
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| Номенклатура.Ссылка КАК Номенклатура
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Ссылка В(&НоменклатураПоОтбору)
|
|СГРУППИРОВАТЬ ПО
| Номенклатура.СсылкаПусть 1с раздупляется, что тебе не нужны одинаковые элементы справочника "номенклатура"
drhihi,
31 Марта 2011
−100
//ВИНМАНИЕ Деление на 0
Если СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод = 0 Тогда
СтрокаЗаказа.КоличествоСделокВДень = 0;
Иначе
СтрокаЗаказа.КоличествоСделокВДень = СтрокаЗаказа.КоличествоСделокЗаПериод
/ ?( СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод = 0, 1, СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод );
КонецЕсли;по условию 1с не догнала, что там 0...
drhihi,
31 Марта 2011
Follow us!