- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
Процедура СправочникСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
ТекКвота = ДанныеСтроки.Ссылка;
мЗапросДок = Новый Запрос;
мЗапросДок.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(СУММА(СДотчетТовары.Количество), 0) КАК Количество
|ИЗ
| Документ.СДотчет.Товары КАК СДотчетТовары
|ГДЕ
| СДотчетТовары.Ссылка.Проведен = ИСТИНА
| И СДотчетТовары.КвотаОтчета = &Квота";
мЗапросДок.УстановитьПараметр("Квота",ТекКвота);
Выборка = мЗапросДок.Выполнить().Выбрать();
Выборка.Следующий();
ВДоке = Выборка.Количество;
ОформлениеСтроки.Ячейки.СогласноСД.Значение = ?(ВДоке=0,"",ВДоке);
мЗапросПОС = Новый Запрос;
мЗапросПОС.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(СписаноПоПОСОбороты.КоличествоОборот, 0) КАК Количество
|ИЗ
| РегистрНакопления.СписаноПоПОС.Обороты(, , , Квота = &Квота) КАК СписаноПоПОСОбороты";
мЗапросПОС.УстановитьПараметр("Квота",ТекКвота);
Выборка = мЗапросПОС.Выполнить().Выбрать();
Выборка.Следующий();
ВПОС = Выборка.Количество;
ОформлениеСтроки.Ячейки.СогласноПОС.Значение = ?(ВПОС=0,"",ВПОС);
мЗапросРег = Новый Запрос;
мЗапросРег.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(Квоты.КолВЗаказахПокупателя, 0) КАК КолВЗаказахПокупателя,
| ЕСТЬNULL(ЗаказПоставщику.КолВЗаказахПоставщику, 0) КАК КолВЗаказахПоставщику
|ИЗ
| (ВЫБРАТЬ
| СУММА(ЕСТЬNULL(ЗаказПоставщикуТовары.Количество, 0)) КАК КолВЗаказахПоставщику
| ИЗ
| Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщикуТовары
| ГДЕ
| ЗаказПоставщикуТовары.КвотаЗаказа = &Квота) КАК ЗаказПоставщику,
| (ВЫБРАТЬ
| СУММА(ЕСТЬNULL(КвотыЗаказовПокупателейОстаткиИОбороты.КоличествоПриход, 0)) КАК КолВЗаказахПокупателя
| ИЗ
| РегистрНакопления.КвотыЗаказовПокупателей.ОстаткиИОбороты(
| ,
| ,
| ,
| ,
| Квота = &Квота
| И ВидКвоты = ЗНАЧЕНИЕ(Перечисление.ВидыКвот.ОтчетнаяКвота)) КАК КвотыЗаказовПокупателейОстаткиИОбороты) КАК Квоты";
мЗапросРег.УстановитьПараметр("Квота",ТекКвота);
Выборка = мЗапросРег.Выполнить().Выбрать();
ЕстьВыборка = Выборка.Следующий();
КолВЗаказахПокупателя = ?(не ЕстьВыборка,0,Выборка.КолВЗаказахПокупателя);
КолВЗаказахПоставщику = ?(не ЕстьВыборка,0,Выборка.КолВЗаказахПоставщику);
ОформлениеСтроки.Ячейки.ВЗаказахПокупателя.Значение = КолВЗаказахПокупателя;
ОформлениеСтроки.Ячейки.ВЗаказахПоставщику.Значение = КолВЗаказахПоставщику;
КонецПроцедуры
Чудный справочник, очень быстро открывается и прокручивается. Приходится ждать по 20 секунд)))
guest 14.01.2010 16:40 # −2
KingOfShit 14.01.2010 16:46 # 0
Dreyk 14.01.2010 18:04 # 0
Интересно, программерам на 1С удобно переключать язык для набора NULL и &?
guest 15.01.2010 10:23 # 0
Помимо этого неудобство доставляет набор символа | при печати многострочных запросов.
grandatlant 26.01.2017 14:17 # 0
guest 22.01.2010 14:43 # +1
guest 06.08.2013 09:05 # 0
guest 25.01.2010 12:39 # 0
grandatlant 26.01.2017 14:18 # 0
Апостроф - альт 3 9
А вот налл вводить - реально харит
guest 14.01.2010 18:24 # −4
guest 14.01.2010 18:54 # +2
Кстати, можно-то ведь и на рассово-верном английском писать.
guest 14.01.2010 21:16 # 0
guest 15.01.2010 10:09 # −1
guest 15.01.2010 10:32 # +1
grandatlant 26.01.2017 14:20 # 0
Трактор 04.02.2010 20:44 # +1
guest 15.01.2010 10:31 # +5
Да, многие вещи в языке неудобны, но это не делает его идиотским. Свое предназначение он исполняет. Говнокод создают люди, а не язык. Если 95% программистов 1С пишут крайне плохой код, это значит что плох программист, а не язык. Мне приходилось встречать весьма хорошо спроектированный код на языке 1С.
А то что вы из-за не можете разобраться в коде - очень жаль, что ваши эмоции перечеркивают ваши профессиональные навыки.
guest 15.01.2010 11:51 # +6
Может, поэтому?
guest 09.02.2010 19:19 # −7
guest 14.01.2010 19:18 # −8
Pencioner 14.01.2010 20:38 # 0
homakov 15.01.2010 13:31 # −6
Еще блять кто нить выложит такую хуйню отпишусь от гк нахуй
guest 25.01.2010 12:38 # +4
guest 19.05.2011 21:37 # 0
guest 19.05.2011 23:51 # 0
barop 26.01.2017 15:22 # 0
guest 22.01.2010 13:58 # +5
guest 22.01.2010 14:00 # −6
guest 09.02.2010 19:19 # +2
guest 09.02.2010 19:19 # +2
guest 19.05.2011 23:52 # 0
синтаксисаёб.
guest 25.01.2010 12:37 # −4
guest 27.01.2010 20:53 # +4
Трактор 04.02.2010 20:50 # +2
За такое надо на доску позора вешать.
danxill 05.02.2010 00:46 # −4
guest 05.02.2010 10:24 # 0
GovnocoderJr 05.02.2010 10:45 # −3
guest 09.02.2010 19:20 # +1
guest 30.06.2012 21:14 # 0
rat4 30.06.2012 21:34 # +2
guest 21.02.2010 19:32 # +1
guest 19.05.2011 23:53 # 0
bugmenot 20.05.2011 00:10 # 0
sergeante 12.04.2011 16:06 # −2