Экспорт в Эксель и остатки

13.05.2009, 12:36. **Показов** 19777. **Ответов** 6

Студворк — интернет-сервис помощи студентам

Есть простенький текст программы

Процедура Выполнить()
xl=СоздатьОбъект("Excel.Application");
xl.Workbooks.Add(); //Добавляем новый документ
xl.Visible=1; //Делаем его видимым

row=1; //первая строка
column=1;
спр=СоздатьОбъект("Справочник.Контрагент ы");
Ном=СоздатьОбъект("Справочник.Номенклату ра");
ТипыЦен=СоздатьОбъект("Справочник.ТипыЦе н");
Цены=СоздатьОбъект("Справочник.Цены");
ТипыЦен.НайтиПоНаименованию("Розничные") ;
Розн=ТипыЦен.ТекущийЭлемент();

Запрос=СоздатьОбъект("Запрос");
ТекстЗапроса=
"//{{ЗАПРОС(Остатки)
|Номенклатура=Регистр.ОстаткиТМЦ.Номенкл атура;
|Кол=Регистр.ОстаткиТМЦ.Количество;
|"//}}Запрос
;

Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
Сообщить("Не удалось выполнить запрос");
КонецЕсли;

Ном.ВыбратьЭлементы();
Пока Ном.ПолучитьЭлемент()=1 Цикл
Если Ном.ТекущийЭлемент().ЭтоГруппа()=0 Тогда
Цены.ИспользоватьВладельца(Ном.ТекущийЭл емент());
Цены.НайтиПоРеквизиту("ТипЦен", Розн, 0);
ТекущаяЦена=Цены.ТекущийЭлемент();
xl.Cells(row,1).Value=Ном.Наименование;
xl.Cells(row,2).Value=ТекущаяЦена.Цена.П олучить(РабочаяДата());
xl.Cells(row,3).Value=ТекущаяЦена.Валюта .Наименование;
xl.Cells(row,4).Value=Запрос.Кол;
row=row+1;
КонецЕсли;
КонецЦикла;
КонецПроцедуры

Не отображаются остатки ТМЦ в колонек документа экселя

ТиС 7.7

@puh14 · 13.05.2009, 12:45

конечно не отображаются - нет периода в котором рассчитываются остатки, нет функции, определяющей тип количества (начальный остаток, приход, расход, конечный остаток). то бишь остатки просто не рассчитываются, потому и пустые. Нет связи между запросом и перебором номенклатуры. Проще количество через сводныйОстаток получить.

13.05.2009, 14:17

А не подскажите по конкретнее, если не сложно )

@puh14 · 13.05.2009, 14:43

Процедура Выполнить()
xl=СоздатьОбъект("Excel.Application");
xl.Workbooks.Add(); //Добавляем новый документ
xl.Visible=1; //Делаем его видимым

row=1; //первая строка
column=1;
спр=СоздатьОбъект("Справочник.Контрагент ы");
Ном=СоздатьОбъект("Справочник.Номенклату ра");
ТипыЦен=СоздатьОбъект("Справочник.ТипыЦе н");
Цены=СоздатьОбъект("Справочник.Цены");
ТипыЦен.НайтиПоНаименованию("Розничные") ;
Розн=ТипыЦен.ТекущийЭлемент();

Рег = СоздатьОбъект("регистр.ОстаткиТОваров");
Рег.ВременныйРасчет();
РассчитатьРегистрыНа(ТутНадоДату);//проще всего дату задавать на форме.

Ном.ВыбратьЭлементы();
Пока Ном.ПолучитьЭлемент()=1 Цикл
Если Ном.ТекущийЭлемент().ЭтоГруппа()=0 Тогда
Цены.ИспользоватьВладельца(Ном.ТекущийЭл емент());
Цены.НайтиПоРеквизиту("ТипЦен", Розн, 0);
ТекущаяЦена=Цены.ТекущийЭлемент();
xl.Cells(row,1).Value=Ном.Наименование;
xl.Cells(row,2).Value=ТекущаяЦена.Цена.П олучить(РабочаяДата());
xl.Cells(row,3).Value=ТекущаяЦена.Валюта .Наименование;
xl.Cells(row,4).Value=Рег.СводныйОстаток (,Ном.ТекущийЭлемент(),,"Количество"); //Посмотри про эту функцию - там надо в опр порядке все проставить
row=row+1;
КонецЕсли;
КонецЦикла;
КонецПроцедуры

13.05.2009, 15:58

Схему я понял, но выдает ошибку:

xl.Cells(row,4).Value=Рег.СводныйОстаток (Ном.ТекущийЭлемент(),,"Количество");
{Обработка.ВыгрузкаНоменклатуры.Форма.Мо дуль(50)}: Неверный идентификатор ресурса!

Проверил названия Регистра и индентификатора "Количество" все совпадает, не пойму в чем проблема (

@umkmowm181538 · 13.05.2009, 16:21

Сообщение от Dzo

Проверил названия Регистра и индентификатора "Количество" все совпадает, не пойму в чем проблема (

А порядок проверил? В этой функции количеству измерений должно соответствовать количество запятых.

13.05.2009, 16:42

Я разобрался, а как ставить плюсы? Что то у меня закрыты эти поля..

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

Dzo

	Экспорт в Эксель и остатки 13.05.2009, 12:36. Показов 19777. Ответов 6 Метки нет (Все метки) Есть простенький текст программы Процедура Выполнить() xl=СоздатьОбъект("Excel.Application"); xl.Workbooks.Add(); //Добавляем новый документ xl.Visible=1; //Делаем его видимым row=1; //первая строка column=1; спр=СоздатьОбъект("Справочник.Контрагент ы"); Ном=СоздатьОбъект("Справочник.Номенклату ра"); ТипыЦен=СоздатьОбъект("Справочник.ТипыЦе н"); Цены=СоздатьОбъект("Справочник.Цены"); ТипыЦен.НайтиПоНаименованию("Розничные") ; Розн=ТипыЦен.ТекущийЭлемент(); Запрос=СоздатьОбъект("Запрос"); ТекстЗапроса= "//{{ЗАПРОС(Остатки) \|Номенклатура=Регистр.ОстаткиТМЦ.Номенкл атура; \|Кол=Регистр.ОстаткиТМЦ.Количество; \|"//}}Запрос ; Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда Сообщить("Не удалось выполнить запрос"); КонецЕсли; Ном.ВыбратьЭлементы(); Пока Ном.ПолучитьЭлемент()=1 Цикл Если Ном.ТекущийЭлемент().ЭтоГруппа()=0 Тогда Цены.ИспользоватьВладельца(Ном.ТекущийЭл емент()); Цены.НайтиПоРеквизиту("ТипЦен", Розн, 0); ТекущаяЦена=Цены.ТекущийЭлемент(); xl.Cells(row,1).Value=Ном.Наименование; xl.Cells(row,2).Value=ТекущаяЦена.Цена.П олучить(РабочаяДата()); xl.Cells(row,3).Value=ТекущаяЦена.Валюта .Наименование; xl.Cells(row,4).Value=Запрос.Кол; row=row+1; КонецЕсли; КонецЦикла; КонецПроцедуры Не отображаются остатки ТМЦ в колонек документа экселя ТиС 7.7

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	13.05.2009, 12:45
	конечно не отображаются - нет периода в котором рассчитываются остатки, нет функции, определяющей тип количества (начальный остаток, приход, расход, конечный остаток). то бишь остатки просто не рассчитываются, потому и пустые. Нет связи между запросом и перебором номенклатуры. Проще количество через сводныйОстаток получить. 0

Dzo
	13.05.2009, 14:17
	А не подскажите по конкретнее, если не сложно )

@puh14 0 / 0 / 0 Регистрация: 07.07.2008 Сообщений: 1,401
	13.05.2009, 14:43
	Процедура Выполнить() xl=СоздатьОбъект("Excel.Application"); xl.Workbooks.Add(); //Добавляем новый документ xl.Visible=1; //Делаем его видимым row=1; //первая строка column=1; спр=СоздатьОбъект("Справочник.Контрагент ы"); Ном=СоздатьОбъект("Справочник.Номенклату ра"); ТипыЦен=СоздатьОбъект("Справочник.ТипыЦе н"); Цены=СоздатьОбъект("Справочник.Цены"); ТипыЦен.НайтиПоНаименованию("Розничные") ; Розн=ТипыЦен.ТекущийЭлемент(); Рег = СоздатьОбъект("регистр.ОстаткиТОваров"); Рег.ВременныйРасчет(); РассчитатьРегистрыНа(ТутНадоДату);//проще всего дату задавать на форме. Ном.ВыбратьЭлементы(); Пока Ном.ПолучитьЭлемент()=1 Цикл Если Ном.ТекущийЭлемент().ЭтоГруппа()=0 Тогда Цены.ИспользоватьВладельца(Ном.ТекущийЭл емент()); Цены.НайтиПоРеквизиту("ТипЦен", Розн, 0); ТекущаяЦена=Цены.ТекущийЭлемент(); xl.Cells(row,1).Value=Ном.Наименование; xl.Cells(row,2).Value=ТекущаяЦена.Цена.П олучить(РабочаяДата()); xl.Cells(row,3).Value=ТекущаяЦена.Валюта .Наименование; xl.Cells(row,4).Value=Рег.СводныйОстаток (,Ном.ТекущийЭлемент(),,"Количество"); //Посмотри про эту функцию - там надо в опр порядке все проставить row=row+1; КонецЕсли; КонецЦикла; КонецПроцедуры 0

Dzo
	13.05.2009, 15:58
	Схему я понял, но выдает ошибку: xl.Cells(row,4).Value=Рег.СводныйОстаток (Ном.ТекущийЭлемент(),,"Количество"); {Обработка.ВыгрузкаНоменклатуры.Форма.Мо дуль(50)}: Неверный идентификатор ресурса! Проверил названия Регистра и индентификатора "Количество" все совпадает, не пойму в чем проблема (

Dzo
	13.05.2009, 16:42
	Я разобрался, а как ставить плюсы? Что то у меня закрыты эти поля..