|
1с8 ХозрасчетныйОстаткиИОбороты
#36593829
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Северная столица!? (Питер)
Сообщения: 1 385
|
|
Программист 1с,
Да 8.2
1.
2.
3.
4.
5.
6.
7.
8.
9.
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.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
Процедура КнопкаСформироватьНажатие(Кнопка)
СписокСчетов=новый("СписокЗначений");
ПоСчетам=" по счетам ";
Для цик= 0 по ВыбСписокСчетов.Количество()- 1 Цикл
Если ВыбСписокСчетов[цик].Пометка Тогда
СписокСчетов.Добавить(ВыбСписокСчетов[цик].Значение);
ПоСчетам=ПоСчетам+ВыбСписокСчетов[цик].Значение;
Если цик<>ВыбСписокСчетов.Количество()- 1 Тогда
ПоСчетам=ПоСчетам+", ";
Иначе
ПоСчетам=ПоСчетам+".";
КонецЕсли;
КонецЕсли;
КонецЦикла;
Для цик= 0 по ВыбСписокСчетов1.Количество()- 1 Цикл
Если ВыбСписокСчетов1[цик].Пометка Тогда
СписокСчетов.Добавить(ВыбСписокСчетов1[цик].Значение);
ПоСчетам=ПоСчетам+ВыбСписокСчетов1[цик].Значение;
Если цик<>ВыбСписокСчетов1.Количество()- 1 Тогда
ПоСчетам=ПоСчетам+", ";
Иначе
ПоСчетам=ПоСчетам+".";
КонецЕсли;
КонецЕсли;
КонецЦикла;
ОчиститьСообщения ();
запрос=новый Запрос();
запрос.Текст=
"ВЫБРАТЬ
| ХозрасчетныйОстаткиИОбороты.Счет КАК Счет,
| ХозрасчетныйОстаткиИОбороты.Субконто1 КАК Субконто1,
| ХозрасчетныйОстаткиИОбороты.Организация КАК Организация,
| ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстатокДт КАК СуммаНачальныйОстатокДт,
| ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстатокКт КАК СуммаНачальныйОстатокКт,
| ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйОстатокДт,
| ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйОстатокКт,
| ХозрасчетныйОстаткиИОбороты.Субконто2 КАК Субконто2,
|ХозрасчетныйОстаткиИОбороты.Субконто2.Комментарий,
// |ХозрасчетныйОстаткиИОбороты.Субконто2.Товары,
|ХозрасчетныйОстаткиИОбороты.Субконто2.НазначениеПлатежа
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&НДатаОтчета, &КДатаОтчета, , , , , ) КАК ХозрасчетныйОстаткиИОбороты
|ГДЕ
| ХозрасчетныйОстаткиИОбороты.Счет В ИЕРАРХИИ(&СписокСчетов)
| и Организация=Организация ";
Если ВыбСписок.Количество()> 0 тогда
запрос.Текст=запрос.Текст+"
| и Субконто1 В ИЕРАРХИИ( &СписокКонтр)";
конецесли;
запрос.Текст=запрос.Текст+"
|УПОРЯДОЧИТЬ ПО
|Субконто1,
|Счет
|ИТОГИ
| СУММА(СуммаНачальныйОстатокДт),
| СУММА(СуммаНачальныйОстатокКт),
| СУММА(СуммаКонечныйОстатокДт),
| СУММА(СуммаКонечныйОстатокКт)
|ПО
| Субконто1
|АВТОУПОРЯДОЧИВАНИЕ";
запрос.УстановитьПараметр("НДатаОтчета",НачПериода);
запрос.УстановитьПараметр("КДатаОтчета",КонецДня(КонПериода));
запрос.УстановитьПараметр("СписокСчетов",СписокСчетов);
запрос.УстановитьПараметр("Организация",Организация);
Если ВыбСписок.Количество()> 0 тогда
запрос.УстановитьПараметр("СписокКонтр",ВыбСписок);
конецесли;
Таб = Новый ТабличныйДокумент;
макет = ПолучитьМакет("Макет");
ОблШапка=макет.ПолучитьОбласть("Шапка");
ОблШапка.Параметры.КонПериода = Формат(КонПериода, "ДФ=dd.MM.yyyy");
ОблШапка.Параметры.НачПериода = Формат(НачПериода, "ДФ=dd.MM.yyyy");
Таб.ФиксацияСверху = ОблШапка.ВысотаТаблицы;
ОблШапка.Параметры.Организация= "Бла-Бла";
Таб.Вывести(ОблШапка);
ОблКонтр = макет.ПолучитьОбласть("Контр");
ОблДог = макет.ПолучитьОбласть("Дог");
Таб.НачатьАвтогруппировкуСтрок();
рез=запрос.Выполнить();
выборкаконтр=рез.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока выборкаконтр.Следующий() Цикл
СуммаДт = 0 ;
СуммаКт = 0 ;
ВыборкаСумма = выборкаконтр.Выбрать();
Пока ВыборкаСумма.Следующий() Цикл
СуммаДт = СуммаДт + ВыборкаСумма.СуммаКонечныйОстатокДт;
СуммаКт = СуммаКт + ВыборкаСумма.СуммаКонечныйОстатокКт;
КонецЦикла;
ОблКонтр.Параметры.Контрагент = выборкаконтр.субконто1;
ОблКонтр.Параметры.ДТ = СуммаДт;
ОблКонтр.Параметры.КТ = СуммаКт;
ОблКонтр.Параметры.Сальд = СуммаДт-СуммаКт;
Таб.Вывести(ОблКонтр, выборкаконтр.Уровень());
ВыборкаДог = выборкаконтр.Выбрать();
Пока ВыборкаДог.Следующий() Цикл
ОблДог.Параметры.ДоговорПлат="";
ОблДог.Параметры.ДТДоговор = ВыборкаДог.СуммаКонечныйОстатокДт;
ОблДог.Параметры.КТДоговор = ВыборкаДог.СуммаКонечныйОстатокКт;
ОблДог.Параметры.Счет = ВыборкаДог.Счет;
ОблДог.Параметры.Договор = ВыборкаДог.субконто2;
//ОблДог.Параметры.ДоговорТов = ВыборкаДог.субконто2.Товары.Номенклатура;
Попытка ОблДог.Параметры.ДоговорКом = ВыборкаДог.субконто2.Комментарий;
Исключение
КонецПопытки;
Попытка КонтрольноеЧисло = Число(Прав(ОблДог.Параметры.Счет, 2 ));
Исключение
Попытка ОблДог.Параметры.ДоговорПлат =ВыборкаДог.субконто2.НазначениеПлатежа
Исключение
КонецПопытки;
КонецПопытки;
Таб.Вывести(ОблДог, ВыборкаДог.Уровень());
КонецЦикла;
КонецЦикла;
Таб.ЗакончитьАвтогруппировкуСтрок();
Таб.Показать();
если Флажок1=Ложь тогда
Таб.Защита = Истина;
конецесли;
КонецПроцедуры
Спасибо... |
|
|
