Олды тут? Нужна помощь в выгрузке из 7.7

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

Бухгалтерский учет 7.7

1. Docaru 1 15.05.25 13:03 Сейчас в теме

Добрый день. Лет 15 не открывал 7-ку. а тут задача нарисовалась - выгрузить журнал проводок в ексель (не спрашивайте зачем - сам в шоке). пишу запрос через конструктор:

Процедура Сформировать()
	Перем Запрос, ТекстЗапроса, Таб;
	//Создание объекта типа Запрос
	Запрос = СоздатьОбъект("Запрос");
	ТекстЗапроса = 
	"//{{ЗАПРОС(Сформировать)
	|СчетДт = Операция.Дебет.Счет;
	|Сумма = Операция.Сумма;
	|Количество = Операция.Количество;
	|СчетКт = Операция.Кредит.Счет;
	|ДатаОперации = Операция.ДатаОперации;
	|ВремяОперации = Операция.ВремяОперации;
	|Группировка СтрокаДокумента;
	|Условие(ДатаОперации >= ВыбДатаОперацииНач);
	|Условие(ДатаОперации <= ВыбДатаОперацииКон);
	|"//}}ЗАПРОС
	;
	// Если ошибка в запросе, то выход из процедуры
	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
		Возврат;
	КонецЕсли;

	// Подготовка к заполнению выходных форм данными запроса
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Сформировать");
	// Заполнение полей "Заголовок"
	Таб.ВывестиСекцию("Заголовок");
	Состояние("Заполнение выходной таблицы...");
	Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
	Пока Запрос.Группировка(1) = 1 Цикл
		// Заполнение полей СтрокаДокумента
		Таб.ВывестиСекцию("СтрокаДокумента");
	КонецЦикла;
	// Вывод заполненной формы
	Таб.ТолькоПросмотр(1);
	Таб.Показать("Сформировать", "");
КонецПроцедуры

Показать

не могу понять - какая нужна группировка?! уже все перетыкал - дни выводит, а детализации нет. ЧЯДНТ?!

Найденные решения

10. antz 15.05.25 14:54 Сейчас в теме

(3) Ну есть такой объект БухгалтерскиеИтоги, там, насколько помню, можно всякие запросы делать и гибко их потом обходить (ВыбратьПериоды, ВыбратьСубконто, ВыбратьСчета и т.д.).

Остальные ответы

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

Свернуть все

4. starik-2005 3179 15.05.25 13:32 Сейчас в теме

(1)

не спрашивайте зачем

Да понятно зачем - загрузить куда-то или сверить с чем-то.

Журнал проводок там доступен, можно его выгрузить в эксель через команды формы журнала (вроде бы). У меня 7.7 уже тоже лет 15 нет как.

7. Docaru 1 15.05.25 13:36 Сейчас в теме

(4) там форма не устраивает (нет "вывести список"). есть кнопка Печать, но тоже не то. Нужен просто список Дт/Кт/дата/сумма. еще впереди приколы будут с субконто - там магия, как я помню творится

2. antz 15.05.25 13:24 Сейчас в теме

Через бухитоги, может?

3. Docaru 1 15.05.25 13:29 Сейчас в теме

(2) пояснительную бригаду можно?

10. antz 15.05.25 14:54 Сейчас в теме

11. Docaru 1 15.05.25 15:08 Сейчас в теме

(10)

БухгалтерскиеИтоги

спасибо милчеловек. вроде получилось:

Процедура от()
	Таб = СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("от");
	Таб.ВывестиСекцию("Шапка");
	Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
	Ит = СоздатьОбъект("БухгалтерскиеИтоги");
	РабДата=ТекущаяДата();
	Если Ит.ВыполнитьЗапрос(ВыбДатаОперацииНач, ВыбДатаОперацииКон, ,,,, "Проводка") = 0 Тогда
		Возврат;
	КонецЕсли;
	Ит.ВыбратьПериоды();
	Пока Ит.ПолучитьПериод() = 1 Цикл
		Таб.ВывестиСекцию("Строка_1")
	КонецЦикла;	
	Таб.ВывестиСекцию("Подвал");
	Таб.ТолькоПросмотр(1);
	Таб.Показать("от","");
КонецПроцедуры

Показать

12. Docaru 1 15.05.25 15:11 Сейчас в теме

спасение утопающего - дело рук самого утопающего. В любом случае, спасибо все не прошедшим мимо. есть порох в пороховницах и ягоды в ягодицах.
в таблице параметры указываются так:
Ит.Операция.Дебет.Счет
Ит.Операция.Кредит.Счет
Ит.Операция.СодержаниеПроводки
Ит.Операция.Сумма
Ит.Операция.ДатаОперации Ит.Операция.Дебет.Субконто(1)
Ит.Операция.Дебет.Субконто(2)
Ит.Операция.Дебет.Субконто(3)
Ит.Операция.Кредит.Субконто(1)
Ит.Операция.Кредит.Субконто(2)
Ит.Операция.Кредит.Субконто(3)

5. glek 119 15.05.25 13:35 Сейчас в теме

Переслал текст кода своему знакомому, неплохому программисту с вопросом, что делает код. Он ответил, что ничего. Потому что в запросе нет источника информации)))))

6. starik-2005 3179 15.05.25 13:36 Сейчас в теме

(5)

Переслал текст кода своему знакомому, неплохому программисту с вопросом, что делает код.

Неужели чату ГПТ?

8. Docaru 1 15.05.25 13:55 Сейчас в теме

(6) а это мысль. интересно - далеко он меня пошлет?! обзовет некромантом наверно и самоудалится

13. CheBurator 3230 16.05.25 00:40 Сейчас в теме

(8) гопота почти ничего не знает про клюшки и пытается генерить код и прочее, исходя из снеговика.

9. glek 119 15.05.25 14:11 Сейчас в теме

(5) Зачем? Просто когда-то (очень давно) он тоже работал на семерке))).
Я примерно лет 15 тому покончил с семеркой и тоже ничего не понял в тексте запроса)

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

E-mail: