Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
21 ноя 2024, 18:55

Счет на оплату по старой и новой ставке

Автор sali, 30 окт 2024, 10:53

0 Пользователей и 2 гостей просматривают эту тему.

sali

Максим75, не понял. как этоОбработка ПечатьИзвещенийАиУН_ Форма - Конфигуратор - Бухгалтерия для Кыргызстана, редакция 3 11.11.2024 14_20_42.pngОбработка ПечатьИзвещенийАиУН_ Форма - Конфигуратор - Бухгалтерия для Кыргызстана, редакция 3 11.11.2024 14_20_05.png 
ЗапросДиректор = новый Запрос;
ЗапросДиректор.Текст = "ВЫБРАТЬ
                       | ОтветственныеЛицаОрганизацийСрезПоследних.ФизЛицо КАК Директор
                       |ИЗ
                       | РегистрСведений.ОтветственныеЛицаОрганизаций.СрезПоследних(&Период, ) КАК ОтветственныеЛицаОрганизацийСрезПоследних
                       |ГДЕ
                       | ОтветственныеЛицаОрганизацийСрезПоследних.Должность = &Должность";
ЗапросДиректор.УстановитьПараметр("Период", ТекущаяДата());
ЗапросДиректор.УстановитьПараметр("Должность", справочники.Должности.НайтиПоНаименованию("Генеральный директор",Истина));
Директор = ЗапросДиректор.Выполнить().Выгрузить()[0].Директор;

//Макет2 = Обработки.ПечатьИзвещенийАиУН.ПолучитьМакет("СчетНаОплатуЗаОтопление");

//ОбластьЗаголовокОтопление = Макет2.ПолучитьОбласть("Заголовок");
//ОбластьШапкаОтопление = Макет2.ПолучитьОбласть("Шапка");
//ОбластьСтрокаОтопление = Макет2.ПолучитьОбласть("Строка");
//ОбластьПодвалОтопление = Макет2.ПолучитьОбласть("Подвал");
//ОбластьОтрыв = Макет2.ПолучитьОбласть("Отрыв");

Макет3 = Обработки.ПечатьИзвещенийАиУН.ПолучитьМакет("СчетЗаОплатуОбщихПоказаний");

//ОбластьЗаголовокОбщЭлектро = Макет3.ПолучитьОбласть("Заголовок");
//ОбластьШапкаОбщЭлектро = Макет3.ПолучитьОбласть("Шапка");
//ОбластьСтрокаОбщЭлектро = Макет3.ПолучитьОбласть("Строка");
//ОбластьПодвалОбщЭлектро = Макет3.ПолучитьОбласть("Подвал");
//ОбластьОтрывОбщЭлектро = Макет3.ПолучитьОбласть("Отрыв");

Запрос = Новый Запрос();


Запрос1 = Новый Запрос;
Запрос1.Текст =  "ВЫБРАТЬ
                 | НачисленияПоПриборамУчета.ДоговорАренды.Организация.ИНН КАК ИНН,
                 | НачисленияПоПриборамУчета.ДоговорАренды.Организация.НаименованиеПолное КАК Организация,
                 | НачисленияПоПриборамУчета.Услуга КАК Услуга
                 |ИЗ
                 | РегистрНакопления.НачисленияПоПриборамУчета КАК НачисленияПоПриборамУчета
                 |ГДЕ
                 | НачисленияПоПриборамУчета.ДоговорАренды.Контрагент = &Контрагент
                 | И НачисленияПоПриборамУчета.Период >= &Период
                 | И НачисленияПоПриборамУчета.Период <= &ПериодК
                 | И НачисленияПоПриборамУчета.Услуга.Наименование ПОДОБНО ""%электроэнергию%""" ;

ЗапросНач = Новый Запрос;
ЗапросНач.Текст =  "ВЫБРАТЬ
                   | НачисленияПоКонтрагентам_Извещения.Контрагент.НаименованиеПолное КАК Контрагент,
                   | НачисленияПоКонтрагентам_Извещения.ПриборУчета КАК ПриборУчета,
                   | НачисленияПоКонтрагентам_Извещения.ЦенаПоприборамУчета КАК ЦенаПоприборамУчета,
                   | НачисленияПоКонтрагентам_Извещения.Цена КАК Цена,
                   | НачисленияПоКонтрагентам_Извещения.Регистратор КАК Регистратор,
                   | НачисленияПоКонтрагентам_Извещения.ОбъектНедвижимости.ПолезнаяПлощадьОбъектаНедвижимости КАК Метры,
                   | НачисленияПоКонтрагентам_Извещения.СуммаНСП КАК НСП,
                   | НачисленияПоКонтрагентам_Извещения.СуммаВсего КАК ВсегоСУчетомНалогов,
                   | НачисленияПоКонтрагентам_Извещения.СуммаНДС КАК НДС,
                   | НачисленияПоКонтрагентам_Извещения.ОбъектНедвижимости КАК Объект,
                   | НачисленияПоКонтрагентам_Извещения.СуммаБезУчетаНалогов КАК Всего,
                   | НачисленияПоКонтрагентам_Извещения.БезНаличныйРасчет КАК БезНаличныйРасчет,
                   | НачисленияПоКонтрагентам_Извещения.Документ КАК Документ,
                   | НачисленияПоКонтрагентам_Извещения.Номенклатура КАК Номенклатура,
                   | НачисленияПоКонтрагентам_Извещения.ДоговорАренды КАК ДоговорАренды,
                   | ПоказанияСчетчиковОбъектовНедвижимости.Показание КАК ПоказаниеНаКонецПериода,
                   | ПоказанияСчетчиковОбъектовНедвижимости.ДоговорКонтрагента КАК ДоговорКонтрагента,
                   | ПоказанияСчетчиковОбъектовНедвижимости.Услуга КАК Услуга,
                   | ПоказанияСчетчиковОбъектовНедвижимости.ФактическоеОкончание КАК ФактическоеОкончание,
                   | ПоказанияСчетчиковОбъектовНедвижимости.ФактическоеНачало КАК ФактическоеНачало,
                   | ПоказанияСчетчиковОбъектовНедвижимости.РазницаПоказаний КАК Разница,
                   | ПоказанияСчетчиковОбъектовНедвижимости.РазницаФакт КАК РазницаФакт,
                   | ПоказанияСчетчиковОбъектовНедвижимости.Показание - ПоказанияСчетчиковОбъектовНедвижимости.РазницаПоказаний КАК ПоказаниНаНачалоПериода
                   |ИЗ
                   | РегистрСведений.НачисленияПоКонтрагентам_Извещения КАК НачисленияПоКонтрагентам_Извещения
                   | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПоказанияСчетчиковОбъектовНедвижимости КАК ПоказанияСчетчиковОбъектовНедвижимости
                   | ПО НачисленияПоКонтрагентам_Извещения.ПриборУчета = ПоказанияСчетчиковОбъектовНедвижимости.ПриборУчета
                   | И НачисленияПоКонтрагентам_Извещения.Документ = ПоказанияСчетчиковОбъектовНедвижимости.Регистратор
                   |ГДЕ
                   | НачисленияПоКонтрагентам_Извещения.Номенклатура.Наименование ПОДОБНО ""%электроэнергию%""
                   | И ПоказанияСчетчиковОбъектовНедвижимости.Период МЕЖДУ &ДатаНачала И &ДатаОкончания
                   | И НачисленияПоКонтрагентам_Извещения.Регистратор = &Регистратор";
ЗапросНач.УстановитьПараметр("СтандартныйПериод", Объект.Период.ДатаНачала);   
ЗапросНач.УстановитьПараметр("СтандартныйПериод", Объект.Период.ДатаОкончания);
ЗапросНач.УстановитьПараметр("Регистратор", Объект.Документ);

//Запрос2.УстановитьПараметр("Контрагент", Объект.Контрагент);
//Запрос2.УстановитьПараметр("Период", Объект.Период);
//Запрос2.УстановитьПараметр("Документ",Объект.Документ);
//Запрос2.УстановитьПараметр("ПериодК", КонецМесяца(Объект.Период));

Запрос.УстановитьПараметр("Контрагент", Объект.Контрагент);
Запрос.УстановитьПараметр("Период", Объект.Период.ДатаНачала); 
Запрос.УстановитьПараметр("ПериодК", Объект.Период.ДатаОкончания);

//Запрос.УстановитьПараметр("Услуга", Объект.Услуга);
Запрос1.УстановитьПараметр("Контрагент", Объект.Контрагент);
Запрос1.УстановитьПараметр("Период", Объект.Период.ДатаНачала); 
Запрос1.УстановитьПараметр("ПериодК", Объект.Период.ДатаОкончания);


// Запрос5.УстановитьПараметр("Контрагент", Объект.Контрагент);
// Запрос5.УстановитьПараметр("Период", НачалоМесяца(Объект.Период));
// Запрос5.УстановитьПараметр("ПериодК", КонецМесяца(Объект.Период));

//Запрос6.УстановитьПараметр("Контрагент", Объект.Контрагент);
//Запрос6.УстановитьПараметр("Период", Объект.Период);
//Запрос6.УстановитьПараметр("ПериодК", КонецМесяца(Объект.Период));

//Запрос1.УстановитьПараметр("Услуга", Объект.Услуга);

ДанныеОрганизации = Запрос1.Выполнить();
ДанныеНачисления = ЗапросНач.Выполнить();

sali

Максим75, Объект.Период.ДатаНачала берет именно дату начала  (месяца/первое число), в моем случае 01,10,2024 00000, а Объект.период берет дату с какого дня стартовать

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск