Помогите довести до ума Справку по ИНВ-17
26.12.2010
00:26
#1
"Помогите довести до ума код Печатной формы для справки ИНВ-17
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ОстаткиИОбороты.Субконто1 КАК Контрагент,
| ОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйДт,
| ОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйКт,
| ОстаткиИОбороты.Субконто3 как регистратор
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
| ,
| &ДатаКон,
| ,
| ,
| Счет В (&МассивСчетов),
| ,
| Организация = &Организация
| И Субконто1 В (&Контрагенты)) КАК ОстаткиИОбороты
|ГДЕ
| (ОстаткиИОбороты.СуммаКонечныйОстатокДт > 0
| ИЛИ ОстаткиИОбороты.СуммаКонечныйОстатокКт > 0)
|ИТОГИ
| СУММА(СуммаКонечныйДт),
| СУММА(СуммаКонечныйКт)
|ПО
| Контрагент
|АВТОУПОРЯДОЧИВАНИЕ";
МассивСчетов = ДокДанные.СчетаРасчетов.Выгрузить().ВыгрузитьКолонку("СчетРасчетов");
МассивСчетов = ОбщегоНазначения.УдалитьПовторяющиесяЭлементыМассива(МассивСчетов);
МассивКонтрагентов = ДокДанные.Контрагенты.Выгрузить().ВыгрузитьКолонку("Контрагент");
ВидыСубконто = Новый Массив();
ВидыСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты);
ВидыСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ДокументыРасчетовСКонтрагентами);
Запрос.Параметры.Вставить("ВидыСубконто", ВидыСубконто);
Запрос.Параметры.Вставить("ДатаКон", КонецДня(ДокДанные.Дата));
Запрос.Параметры.Вставить("МассивСчетов", МассивСчетов);
Запрос.Параметры.Вставить("Организация", ДокДанные.Организация);
Запрос.Параметры.Вставить("Контрагенты", МассивКонтрагентов);
Результат = Запрос.Выполнить();
ВыборкаКГруппы = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
облПодШапкой = Макет.ПолучитьОбласть("ПодШапкой");
ТабДок.Вывести(облПодШапкой);
облИтогоКонтрагент = Макет.ПолучитьОбласть("ИтогоКонтрагент");
облСтрока = Макет.ПолучитьОбласть("Строка");
Сч = 1;
ИтогДт = 0;
ИтогКт = 0;
Пока ВыборкаКГруппы.Следующий() Цикл
Если (ВыборкаКГруппы.СуммаКонечныйДт > 0 ИЛИ ВыборкаКГруппы.СуммаКонечныйКт > 0) тогда
облИтогоКонтрагент.Параметры.СуммаИтогоКонтрагентДт = ВыборкаКГруппы.СуммаКонечныйДт;
облИтогоКонтрагент.Параметры.СуммаИтогоКонтрагентКт = ВыборкаКГруппы.СуммаКонечныйКт;
облИтогоКонтрагент.Параметры.Контрагент = ВыборкаКГруппы.Контрагент;
КонтрагентСтрокой = Строка(ВыборкаКГруппы.Контрагент) +" " +
УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(ВыборкаКГруппы.Контрагент,"Юридический") + " " +
УправлениеКонтактнойИнформацией.ПолучитьТелефонИзКонтактнойИнформации(ВыборкаКГруппы.Контрагент);
облИтогоКонтрагент.Параметры.КонтрагентСтр = КонтрагентСтрокой;
ТабДок.Вывести(облИтогоКонтрагент);
ИтогДт = ИтогДт + ВыборкаКГруппы.СуммаКонечныйДт;
ИтогКт = ИтогКт + ВыборкаКГруппы.СуммаКонечныйКт;
ВыборкаСтр = ВыборкаКГруппы.Выбрать(ОбходРезультатаЗапроса.Прямой);
Пока ВыборкаСтр.Следующий() Цикл
// облСтрока.Параметры.КонтрагентСтр = КонтрагентСтрокой;
облСтрока.Параметры.СуммаДт = ВыборкаСтр.СуммаКонечныйДт;
облСтрока.Параметры.СуммаКт = ВыборкаСтр.СуммаКонечныйКт;
облСтрока.Параметры.ДокСтр = ВыборкаСтр.регистратор;
облСтрока.Параметры.НомерСтроки = Сч;
ТабДок.Вывести(облСтрока);
Сч = Сч+1;
КонецЦикла;
КонецЕсли;
КонецЦикла;
В поле ДокСтр. у меня выходит договор контрагента а мне надо выводить счетфактуры по которым сформировалась задолженность. Помогите"
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ОстаткиИОбороты.Субконто1 КАК Контрагент,
| ОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйДт,
| ОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйКт,
| ОстаткиИОбороты.Субконто3 как регистратор
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
| ,
| &ДатаКон,
| ,
| ,
| Счет В (&МассивСчетов),
| ,
| Организация = &Организация
| И Субконто1 В (&Контрагенты)) КАК ОстаткиИОбороты
|ГДЕ
| (ОстаткиИОбороты.СуммаКонечныйОстатокДт > 0
| ИЛИ ОстаткиИОбороты.СуммаКонечныйОстатокКт > 0)
|ИТОГИ
| СУММА(СуммаКонечныйДт),
| СУММА(СуммаКонечныйКт)
|ПО
| Контрагент
|АВТОУПОРЯДОЧИВАНИЕ";
МассивСчетов = ДокДанные.СчетаРасчетов.Выгрузить().ВыгрузитьКолонку("СчетРасчетов");
МассивСчетов = ОбщегоНазначения.УдалитьПовторяющиесяЭлементыМассива(МассивСчетов);
МассивКонтрагентов = ДокДанные.Контрагенты.Выгрузить().ВыгрузитьКолонку("Контрагент");
ВидыСубконто = Новый Массив();
ВидыСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты);
ВидыСубконто.Добавить(ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ДокументыРасчетовСКонтрагентами);
Запрос.Параметры.Вставить("ВидыСубконто", ВидыСубконто);
Запрос.Параметры.Вставить("ДатаКон", КонецДня(ДокДанные.Дата));
Запрос.Параметры.Вставить("МассивСчетов", МассивСчетов);
Запрос.Параметры.Вставить("Организация", ДокДанные.Организация);
Запрос.Параметры.Вставить("Контрагенты", МассивКонтрагентов);
Результат = Запрос.Выполнить();
ВыборкаКГруппы = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
облПодШапкой = Макет.ПолучитьОбласть("ПодШапкой");
ТабДок.Вывести(облПодШапкой);
облИтогоКонтрагент = Макет.ПолучитьОбласть("ИтогоКонтрагент");
облСтрока = Макет.ПолучитьОбласть("Строка");
Сч = 1;
ИтогДт = 0;
ИтогКт = 0;
Пока ВыборкаКГруппы.Следующий() Цикл
Если (ВыборкаКГруппы.СуммаКонечныйДт > 0 ИЛИ ВыборкаКГруппы.СуммаКонечныйКт > 0) тогда
облИтогоКонтрагент.Параметры.СуммаИтогоКонтрагентДт = ВыборкаКГруппы.СуммаКонечныйДт;
облИтогоКонтрагент.Параметры.СуммаИтогоКонтрагентКт = ВыборкаКГруппы.СуммаКонечныйКт;
облИтогоКонтрагент.Параметры.Контрагент = ВыборкаКГруппы.Контрагент;
КонтрагентСтрокой = Строка(ВыборкаКГруппы.Контрагент) +" " +
УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(ВыборкаКГруппы.Контрагент,"Юридический") + " " +
УправлениеКонтактнойИнформацией.ПолучитьТелефонИзКонтактнойИнформации(ВыборкаКГруппы.Контрагент);
облИтогоКонтрагент.Параметры.КонтрагентСтр = КонтрагентСтрокой;
ТабДок.Вывести(облИтогоКонтрагент);
ИтогДт = ИтогДт + ВыборкаКГруппы.СуммаКонечныйДт;
ИтогКт = ИтогКт + ВыборкаКГруппы.СуммаКонечныйКт;
ВыборкаСтр = ВыборкаКГруппы.Выбрать(ОбходРезультатаЗапроса.Прямой);
Пока ВыборкаСтр.Следующий() Цикл
// облСтрока.Параметры.КонтрагентСтр = КонтрагентСтрокой;
облСтрока.Параметры.СуммаДт = ВыборкаСтр.СуммаКонечныйДт;
облСтрока.Параметры.СуммаКт = ВыборкаСтр.СуммаКонечныйКт;
облСтрока.Параметры.ДокСтр = ВыборкаСтр.регистратор;
облСтрока.Параметры.НомерСтроки = Сч;
ТабДок.Вывести(облСтрока);
Сч = Сч+1;
КонецЦикла;
КонецЕсли;
КонецЦикла;
В поле ДокСтр. у меня выходит договор контрагента а мне надо выводить счетфактуры по которым сформировалась задолженность. Помогите"
26.12.2010
10:01
#2
"Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ОстаткиИОбороты.Субконто1 КАК Контрагент,
| ОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйДт,
| ОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйКт,
| ОстаткиИОбороты.Субконто2 как регистратор
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
| ,
| &ДатаКон,
| ,
| ,
| Счет В (&МассивСчетов),
| &ВидыСубконто,
| Организация = &Организация
| И Субконто1 В (&Контрагенты)) КАК ОстаткиИОбороты
|ГДЕ
| (ОстаткиИОбороты.СуммаКонечныйОстатокДт > 0
| ИЛИ ОстаткиИОбороты.СуммаКонечныйОстатокКт > 0)
|ИТОГИ
| СУММА(СуммаКонечныйДт),
| СУММА(СуммаКонечныйКт)
|ПО
| Контрагент
|АВТОУПОРЯДОЧИВАНИЕ";
"
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ОстаткиИОбороты.Субконто1 КАК Контрагент,
| ОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонечныйДт,
| ОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонечныйКт,
| ОстаткиИОбороты.Субконто2 как регистратор
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
| ,
| &ДатаКон,
| ,
| ,
| Счет В (&МассивСчетов),
| &ВидыСубконто,
| Организация = &Организация
| И Субконто1 В (&Контрагенты)) КАК ОстаткиИОбороты
|ГДЕ
| (ОстаткиИОбороты.СуммаКонечныйОстатокДт > 0
| ИЛИ ОстаткиИОбороты.СуммаКонечныйОстатокКт > 0)
|ИТОГИ
| СУММА(СуммаКонечныйДт),
| СУММА(СуммаКонечныйКт)
|ПО
| Контрагент
|АВТОУПОРЯДОЧИВАНИЕ";
"
Помогите!!!Комплексная 8,2 СторнированиеКонвертация 2.1.3.1. Перенос справочника "Материалы" из 7.7 в спр. "Номенклатура" 8.1
Читают тему
(гостей: 1)