Помогите пожалуйста разобраться с выгрузкой в excel
Показывать по
10
20
40
сообщений
- 1
- 2
12.05.2012
11:56
#12
Раньше же было даже в стандартных типах сравнения термин "В Иерархии", а потом его заменили на "В группе". Все думал для кого это сделали, когда уже на протяжении пары лет научил юзеров этому слову.
12.05.2012
12:00
#13
ну да, для нас блондинок(без обид, если кто примет на свой счет), которые за 16 лет так и не научились говорить по русски, тьфу, по 1С!
17.09.2013
13:50
#14
"Все очень просто либо поместите ваш запрос в консоль запросов и вы увидите что все поля которые он выведет будут пустые но есть одна строка, что и показал Excel либо. Измените Вашу обработку вот таким образом:
Перем Диалог Экспорт;
Процедура КнопкаВыполнитьНажатие() Экспорт;
КнопкаВыполнить();
КонецПроцедуры
Функция КнопкаВыполнить() Экспорт;
НачПериода='2011.01.01';
КонПериода='2011.12.31';
//Запрос
ЗапросОС = Новый Запрос;
ЗапросОС.Текст = ("ВЫБРАТЬ
| ХозрасчетныйОбороты.СуммаОборотДт,
| ХозрасчетныйОбороты.СуммаОборотКт
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Обороты(&НачПериода, &КонПериода,, Счет = &Счет, , , , ) КАК ХозрасчетныйОбороты");
ЗапросОС.УстановитьПараметр("НачПериода", НачПериода);
ЗапросОС.УстановитьПараметр("КонПериода", КонПериода);
ЗапросОС.УстановитьПараметр("Счет", ЭтаФорма.ПланСчет);
РезультатЗапроса = ЗапросОС.Выполнить();
ВыборкаИтоги=РезультатЗапроса.Выгрузить();
КоличествоЗаписей = ВыборкаИтоги.Количество();
//Выгрузка
ИмяФайла=(Диалог.ПолноеИмяФайла); //Путь- поле содержащие путь к файлу
Excel= Новый COMОбъект("Excel.Application");
Excel.WorkBooks.Open(ИмяФайла);
Excel.Sheets(1).Cells(1,1).Value=ВыборкаИтоги[0].СуммаОборотДт; // возвращает 0
Excel.Sheets(1).Cells(1,2).Value=ВыборкаИтоги[0].СуммаОборотКт; // возвращает 0
Excel.Sheets(1).Cells(1,3).Value=КоличествоЗаписей; // возвращает 1
Excel.Visible= Истина;
КонецФункции
Функция ВыбратьФайл(Маска="""") Экспорт
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите файл для загрузки";
Диалог.ПолноеИмяФайла = """";
Диалог.Фильтр = "Файлы "+Маска+"|*."+Маска;;
Диалог.ПредварительныйПросмотр = Истина;
Если Диалог.Выбрать() Тогда
Возврат Диалог.ПолноеИмяФайла;
Иначе
Возврат """";
КонецЕсли;
КонецФункции
Процедура ВыбратьФайлКом(Команда) Экспорт
ИмяФайла = ВыбратьФайл("xls*");
Если СокрЛП(ИмяФайла)="""" Тогда
Возврат;
КонецЕсли;
КонецПроцедуры
Соответственно добавив реквизит на форму с видом ссылки на план счетов. И выбрав счет вы увидите что по данному счету нулевые цифры. А вот если выбрать суб счет 01.01 тогда результаты действительно есть)))"
Перем Диалог Экспорт;
Процедура КнопкаВыполнитьНажатие() Экспорт;
КнопкаВыполнить();
КонецПроцедуры
Функция КнопкаВыполнить() Экспорт;
НачПериода='2011.01.01';
КонПериода='2011.12.31';
//Запрос
ЗапросОС = Новый Запрос;
ЗапросОС.Текст = ("ВЫБРАТЬ
| ХозрасчетныйОбороты.СуммаОборотДт,
| ХозрасчетныйОбороты.СуммаОборотКт
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Обороты(&НачПериода, &КонПериода,, Счет = &Счет, , , , ) КАК ХозрасчетныйОбороты");
ЗапросОС.УстановитьПараметр("НачПериода", НачПериода);
ЗапросОС.УстановитьПараметр("КонПериода", КонПериода);
ЗапросОС.УстановитьПараметр("Счет", ЭтаФорма.ПланСчет);
РезультатЗапроса = ЗапросОС.Выполнить();
ВыборкаИтоги=РезультатЗапроса.Выгрузить();
КоличествоЗаписей = ВыборкаИтоги.Количество();
//Выгрузка
ИмяФайла=(Диалог.ПолноеИмяФайла); //Путь- поле содержащие путь к файлу
Excel= Новый COMОбъект("Excel.Application");
Excel.WorkBooks.Open(ИмяФайла);
Excel.Sheets(1).Cells(1,1).Value=ВыборкаИтоги[0].СуммаОборотДт; // возвращает 0
Excel.Sheets(1).Cells(1,2).Value=ВыборкаИтоги[0].СуммаОборотКт; // возвращает 0
Excel.Sheets(1).Cells(1,3).Value=КоличествоЗаписей; // возвращает 1
Excel.Visible= Истина;
КонецФункции
Функция ВыбратьФайл(Маска="""") Экспорт
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите файл для загрузки";
Диалог.ПолноеИмяФайла = """";
Диалог.Фильтр = "Файлы "+Маска+"|*."+Маска;;
Диалог.ПредварительныйПросмотр = Истина;
Если Диалог.Выбрать() Тогда
Возврат Диалог.ПолноеИмяФайла;
Иначе
Возврат """";
КонецЕсли;
КонецФункции
Процедура ВыбратьФайлКом(Команда) Экспорт
ИмяФайла = ВыбратьФайл("xls*");
Если СокрЛП(ИмяФайла)="""" Тогда
Возврат;
КонецЕсли;
КонецПроцедуры
Соответственно добавив реквизит на форму с видом ссылки на план счетов. И выбрав счет вы увидите что по данному счету нулевые цифры. А вот если выбрать суб счет 01.01 тогда результаты действительно есть)))"
- 1
- 2
Читают тему
(гостей: 1)