Форум Программирование Общие вопросы программирования (Dev)

Запрос.

1. jeniks 19.12.16 11:06 Сейчас в теме

Ребят, подскажите как в запросе выбрать цену за один период текущую, а с другого деленную на 10000? 1С 7.7 Бух.

|Износ_ = Документ._АктСписаниеСпецодежды.Износ;

чтобы отображалось до деноминации поделенная, а после не делалось.

Вот это для суммы работает:

|Функция СуммаИ=Сумма(Сумма_) Когда (ДатаП >= Д); 
|Функция СуммаИ_=Сумма(Сумма_/10000) Когда (ДатаП < Д); 
|Функция ИзносИ=Сумма(Износ_) Когда (ДатаП >= Д);
|Функция ИзносИ_=Сумма(Износ_/10000) Когда (ДатаП < Д);

Ответы

В избранное Подписаться на ответы

Свернуть все

4. jeniks 20.12.16 09:57 Сейчас в теме

Запрос:

Перем Расшифровка;
Процедура Сформировать()
	Запрос  = СоздатьОбъект("Запрос");
	
	ТекстЗапроса = 
	"//{{ЗАПРОС(Счета10.11)
	|Период с ВыбНачПериода по ВыбКонПериода;
	|ОбрабатыватьДокументы проведенные;
	|Док =  Документ._АктСписаниеСпецодежды.ТекущийДокумент; 
	|ДатаДок =   Документ._АктСписаниеСпецодежды.ДатаДок;
	|НомерДок =  Документ._АктСписаниеСпецодежды.НомерДок;
	|Склад=      Документ._АктСписаниеСпецодежды.ВыбСотрудник;  
	|Контрагент= Документ._АктСписаниеСпецодежды.Субконто4;
	|Сумма_= Документ._АктСписаниеСпецодежды.НепогашеннаяСтоимость;  
	|СрокИсп= Документ._АктСписаниеСпецодежды.Срок;  
 	|Кол_во =  Документ._АктСписаниеСпецодежды.Количество;
	|Износ_ =  Документ._АктСписаниеСпецодежды.Износ;
	|Остат =  Документ._АктСписаниеСпецодежды.Остаточная;
	|Материал= Документ._АктСписаниеСпецодежды.Материал;  
	|Ном = Документ._АктСписаниеСпецодежды.НомерСтроки;


	|Функция СуммаИ=Сумма(Сумма_); 
	|Функция ИзносИ=Сумма(Износ_); 
	|Функция ОстатИ=Сумма(Остат); 
	

	|Группировка   Склад; 
	|Группировка   ДатаДок;
	|Группировка   Ном; 
	|Группировка   Материал упорядочить по Материал.наименование без Групп;
	|"//}}ЗАПРОС
	;   
	                                  
	                                  
	Если ВыбОтветственный.Выбран()=1 Тогда
		ТекстЗапроса=ТекстЗапроса+
		"Условие (Склад =ВыбОтветственный);"
	КонецЕсли;
	
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Сообщить("Ошибка при отборе документов ");
		Возврат;
	КонецЕсли;
	Таб=СоздатьОбъект("Таблица");
	Таб.ВывестиСекцию("Шапка");
	Таб.ВывестиСекцию("Шапка1");

	
	Пока Запрос.Группировка(1)=1 Цикл 
		
		Таб.ВывестиСекцию("Поставщик");  
		Пока Запрос.Группировка(2)=1 Цикл  
			Пока Запрос.Группировка(3)=1 Цикл  
			Пока Запрос.Группировка(4)=1 Цикл  
				
				Таб.ВывестиСекцию("Наименование");
				
			КонецЦикла;	
			КонецЦикла;	
		КонецЦикла;	
	КонецЦикла;	
    Таб.ВывестиСекцию("Подвал");
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Справка по ответственому");

	СохранитьЗначение("ЯСоставил",ОтчетСоставил);  

КонецПроцедуры
Процедура ПриОткрытии()
	ВыбНачПериода=НачМесяца(РабочаяДата());
	ВыбКонПериода=КонМесяца(рабочаяДата());

	ОтчетСоставил = ВосстановитьЗначение("ЯСоставил");    
	
КонецПроцедуры

Показать

А для 7 это конструкция ВЫБОР КОГДА работает?

6. S.V.Y 17 20.12.16 10:53 Сейчас в теме

(4) Нет конечно :)

2. AnnaKalacheva 6 20.12.16 09:11 Сейчас в теме

Используем конструкцию ВЫБОР КОГДА. Здесь ДатаДеноминации.Значение- константа, можно передать как параметр.

ВЫБРАТЬ
	Закупки.Количество КАК Количество,
	ВЫБОР
			КОГДА Закупки.ЗаказПоставщику.Дата <= ДатаДеноминации.Значение
					И &ДатаКон >= ДатаДеноминации.Значение
					И Закупки.ДоговорКонтрагента.ВалютаВзаиморасчетов = &Валюта
				ТОГДА ВЫРАЗИТЬ(ЕСТЬNULL(Закупки.СтоимостьВВалютеВзаиморасчетов, 0) / 10000 КАК ЧИСЛО(15, 2))
			ИНАЧЕ ЕСТЬNULL(Закупки.СтоимостьВВалютеВзаиморасчетов, 0)
		КОНЕЦ КАК Стоимость,

Показать

5. vovan_victory 63 20.12.16 10:00 Сейчас в теме

(2)Запрос нужен для семерки..

3. AnnaKalacheva 6 20.12.16 09:14 Сейчас в теме

&ДатаКон - дата конца периода формирования отчета

7. jeniks 21.12.16 10:11 Сейчас в теме

А если не использовать запрос, как перебирая документы это реализовать? :)

Оставьте свое сообщение

E-mail:

Вопросы с вознаграждением

oData: получить проводки Результат проведения документа - Бухгалтерский и налоговоый учет (1) 1 $m Обмен БП2.0	1	вчера, 18:38 petr.myazin
Путевые листы в БП 3.0 (6) 0.5 $m TMS БП3.0	6	вчера, 11:51 German_Tagil
Тонкая настройка СКД (добавление строки) (8) 1.49 $m Dev	8	09.04.2021 Shecurok
Проблема с отчётом в СКД (5) 0.8 $m Dev УТ11 v8 ИТ-компания 1С	5	09.04.2021 user1500067
Доработать запрос отчета в СКД для регистра сведений Цены Номенклатуры (8) 0.5 $m Dev	8	08.04.2021 rosenword
Проблема с универсальным отчетом (17) 1 $m Dev	17	08.04.2021 alex-l19041
Как выгрузить список новых созданных контрагентов (создаются программно) (16) 1 $m Dev	16	08.04.2021 Shecurok
Синхронизация УТ 11.4 и БП 3.0, справочник Виды номенклатуры (2) 0.09 $m Обмен БП3.0 УТ11	2	08.04.2021 Grek_Master
Курсовые разницы в РБ по 159 указу (0) 2 $m БУ 1cv8.cf БП1.6 Беларусь 1С БУ Бухгалтер Программист Вопрос	0	07.04.2021 keyn5565`
Обновление адресного классификатора (6) 0.1 $m Зарплата БП3.0 ЗУП3.x	6	06.04.2021 Verdad
Доступ в 1С по web-сервису. Внутренний и внешний сервера. (21) 0.44 $m Admin v8	21	06.04.2021 TVA_11
Не отображается общая параметризуемая команда в списке глобальных команд на форме элемента (1) 0.1 $m Dev	1	06.04.2021 Symbiat
Проблема при возврате по безналу бп 3.0 (1) 1 $m БУ	1	05.04.2021 seva1405
Нужна помощь в доработке обработки СБИС (12) 5 $m Dev УТ10	12	05.04.2021 al_zzz
Не указано значение параметра "Тип кода маркировки" (4) 0.15 $m Dev УТ11 Маркировка	4	05.04.2021 user1003434
Резервы отпусков разница БУ и НУ (18) 1 $m Зарплата ЗУП3.x	18	02.04.2021 Romanets
Не удалось заблокировать таблицу _NODE15215 (14) 0.5 $m Dev ДО УТ11	14	01.04.2021 BlinOFF
УТ 10.3. Маркировка. ОСНО + ПСН (2) 3 $m Торговля УТ10 Розничная и сетевая торговля (FMCG) НДС ПСН (патентная система налогообложения) Вопрос	2	01.04.2021 dvshaymardanov
Проверка при обмене (3) 0.16 $m Dev	3	01.04.2021 smzaly
Не переносится номенклатура в 1с Бухгалтерию (18) 1 $m Торговля Розница	18	01.04.2021 user1433617