helpf.pro
Регистрация

Помогите с Обработкой по Счетам 60.1 и 60.2

Last-Hero
02.11.2009 22:36Прочитано: 3677
Как вывести в макет, колонки : Фильтр по всем контрагентам и договорам , счет: 60.1 , счет 60.2

Контрагенты Счет 60.1 Счет 60.2 ?
Yandex
Возможно, вас также заинтересует
Реклама на портале
E_Migachev
03.11.2009 09:59Ответ № 1
А какая конфигурация? В какой отчет?
Last-Hero
03.11.2009 12:37Ответ № 2
Бухгалтерия 8.1

Мне нужно сделать Обработку , которая будет работать в любой конфигурации.

После выведение этих колонок : Контрагенты Счет 60.1 Счет 60.2
Их надо вывести в EXCEL

Какой код написать, чтобы выводился отчет по этим позициям и затем при нажатии кнопки выводился в EXCEL ?
E_Migachev
03.11.2009 15:38Ответ № 3
Сейчас набросаю примерчик...
E_Migachev
03.11.2009 15:39Ответ № 4
Код 1C v 8.х
  Запрос=Новый Запрос;
Запрос.Текст="
|ВЫБРАТЬ
| ХозрасчетныйОстаткиИОбороты.Счет,
| ХозрасчетныйОстаткиИОбороты.Субконто1,
| ХозрасчетныйОстаткиИОбороты.Субконто2,
| ХозрасчетныйОстаткиИОбороты.Субконто3,
| ХозрасчетныйОстаткиИОбороты.Организация,
| ХозрасчетныйОстаткиИОбороты.СуммаОборот,
| ХозрасчетныйОстаткиИОбороты.СуммаОборотДт,
| ХозрасчетныйОстаткиИОбороты.СуммаОборотКт
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
| &ДатаНач,
| &ДатаКон,
| Период,
| ,
| Счет В (&Cчета),
| ,";
//Если задан отбор по контрагенту
Если Не Контрагент.Пустая() Тогда
Запрос.Текст=Запрос.Текст+"
| Субконто1 = &Контрагент
| ИЛИ Субконто2 = &Договор";
КонецЕсли;
Запрос.Текст=Запрос.Текст+"
|) КАК ХозрасчетныйОстаткиИОбороты
|";

//Создадим список счетов
СписокСчетов=Новый СписокЗначений;
СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками); //60,01
СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным); //60,02
Запрос.УстановитьПараметр("Cчета",СписокСчетов);
Запрос.УстановитьПараметр("ДатаКон",ДатаК);
Запрос.УстановитьПараметр("ДатаНач",ДатаН);
Запрос.УстановитьПараметр("Договор",Договор);
Запрос.УстановитьПараметр("Контрагент",Контрагент);
Результат = Запрос.Выполнить();
ТабДок=ЭлементыФормы.ТД;
ТабДок.Очистить();
ПечатьТЗвТаб(ТабДок, Результат);

//Выгрузка выведенного результата запроса в Excel
Режим = РежимДиалогаВыбораФайла.Сохранение;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
Фильтр = "Excel(*.xls)|*.xls";
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = "Выберите куда сохранить файл Excel";
Если ДиалогОткрытияФайла.Выбрать() Тогда
ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла;
КонецЕсли;
ТабДок.Записать(ПутьКФайлу,ТипФайлаТабличногоДокумента.XLS97);
E_Migachev
03.11.2009 15:40Ответ № 5
Пример скачать тут - http://Help1C.com/uploads/img/_1-Igx7kK8F7U.rar
E_Migachev
03.11.2009 15:41Ответ № 6
Функция ПечатьТЗвТаб - здесь
Last-Hero
03.11.2009 18:32Ответ № 7
Спасибо!
Last-Hero
03.11.2009 18:34Ответ № 8
От куда берется информация по Счетам 60.1 и 60.2 ? из регистра сведений ?
E_Migachev
03.11.2009 19:31Ответ № 9
Если ты имеешь ввиду сами счета, то из ПланыСчетов.Хозрасчетный
Last-Hero
03.11.2009 19:40Ответ № 10
Спасибо!
Подсказка: Для редактирования своего ответа щелкните по значку (справа)
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.