Добрый день!

В документе есть табличная часть и есть кнопочка "сохранить".

Подскажите пожалуйста синтаксис для того чтобы при нажатии на эту кнопку программа предложила выбрать директорию на жестком диске и записала туда эту табличную часть в формате ексель.

Заранее спасибо!

точный синтаксис не подскажу, но каждая инструкция должная завершаться символом ";"

(1) и правда кэп

(1) +1

Ну хоть примерно.

v8: ДиалогВыбораФайла

Режим = РежимДиалогаВыбораФайла.Сохранение;
Диалог = Новый ДиалогВыбораФайла(Режим);
Диалог.Заголовок = "Выбор файла для сохранения";
Диалог.Фильтр = "Excel (*.xls)|*.xls";
    
Если Не Диалог.Выбрать() Тогда
   Возврат ;
Иначе
   ИмяФайла= Диалог.ПолноеИмяФайла;
КонецЕсли

Как теперь мне сохранить в этот выбранный файл мою таблицу "ЭтотОбъект.Выгрузка" ?

Почему то даже пустой файл не создается :(

(7) всё правильно, записи в файл нет, значит, файл не создаётся

(6) предлагаю вывести что-нибудь как-нибудь в ТабДок и записать его

Вообщем получил я ТабДок, а как мне дальше его записать на диск в файл?

ТабДок = моя таблица "Выгрузка"

(10) ты не поверишь..

ТабДок.Записать(<ИмяФайла>, <ТипФайлаТаблицы>)

какие сюда параметры нужны?

(12) <ИмяФайла>, <ТипФайлаТаблицы>

А по подробнее нельзя?

(14) ты ж откуда скопипастил? попобней, чем там, вряд ли выйдет

ТабДок = Новый ТабличныйДокумент;
    Макет = ПолучитьМакет("Макет");
    облСтрока = Макет.ПолучитьОбласть("Строка");
    Для каждого стр Из ЭтотОбъект.Выгрузка Цикл
    облСтрока.Параметры.Дата = стр.Дата;
    облСтрока.Параметры.Номер = стр.Номер;
    облСтрока.Параметры.КомпанияИНН = стр.КомпанияИНН;
    облСтрока.Параметры.КомпанияНазвание = стр.КомпанияНазвание;
    облСтрока.Параметры.СрокОплаты = стр.СрокОплаты;
    облСтрока.Параметры.Сумма = стр.Сумма;
    ТабДок.Вывести(облСтрока);
    КонецЦикла;
    ТабДок.Записать("D:\Клиентские базы\Scheta_postavschikov.xls","xls");
    
    //ТабДок.Показать();

Сделал так,файл записался как надо, как теперь сделать так чтобы путь зашивался не на програмном уровне? чтобы файлик пользователь мог выбирать?

(16) из типовой не судьба выбрать? Например, возьми клиент-банк, там файл выбирается.

скрести первый кусок кода со вторым и будет тебе щастье

(18) будет только до тех пор, пока он не попытается открыть этот ексельный документ

(19) а или вру

(20) токо что было v8: Платформа 8.2. Криво сохраняет табличный документ в эксель.

(19) (20) сохраняется красиво но только в жестко заданную папку.

(22) плавно возвращаемся в (6)

Процедура КнопкаВыполнитьНажатие(Кнопка)

    ТабДок = Новый ТабличныйДокумент;
    Макет = ПолучитьМакет("Макет");
    облСтрока = Макет.ПолучитьОбласть("Строка");
    Для каждого стр Из ЭтотОбъект.Выгрузка Цикл
        облСтрока.Параметры.Дата = Формат(стр.Дата, "ДЛФ=Д");
        облСтрока.Параметры.Номер = стр.Номер;
        облСтрока.Параметры.КомпанияИНН = стр.КомпанияИНН;
        облСтрока.Параметры.КомпанияНазвание = стр.КомпанияНазвание;
        облСтрока.Параметры.СрокОплаты = Формат(стр.СрокОплаты, "ДЛФ=Д");
        облСтрока.Параметры.Сумма = стр.Сумма;
        ТабДок.Вывести(облСтрока);
    КонецЦикла;
    
    Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.Фильтр = "Файл Эксель(*.xls)|*.xls";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        ПолеВвода1 = ДиалогОткрытияФайла.ПолноеИмяФайла;
    КонецЕсли;
    ИмяФайла = ЭтаФорма.ФайлВыгрузки;
    ТабДок.Записать(ИмяФайла,"xls");
    
    //ТабДок.Показать();
КонецПроцедуры

Процедура КоманднаяПанель1Заполнить(Кнопка)
    Если ЗначениеЗаполнено(ЭтотОбъект.ДатаНачала) И ЗначениеЗаполнено(ЭтотОбъект.ДатаОкончания) Тогда
    Запрос = Новый Запрос;
    Запрос.Текст =
     "ВЫБРАТЬ
     |    СчетНаОплатуПокупателю.Номер,
     |    СчетНаОплатуПокупателю.Дата,
     |    СчетНаОплатуПокупателю.Контрагент,
     |    СчетНаОплатуПокупателю.Контрагент.ИНН КАК ИНН,
     |    СчетНаОплатуПокупателю.ДоговорКонтрагента.СрокОплаты КАК СрокОплаты,
     |    СчетНаОплатуПокупателю.СуммаДокумента,
     |    СчетНаОплатуПокупателю.ДоговорКонтрагента
     |ИЗ
     |    Документ.СчетНаОплатуПокупателю КАК СчетНаОплатуПокупателю
     |ГДЕ
     |    СчетНаОплатуПокупателю.Дата >= &ДатаНачала
     |    И СчетНаОплатуПокупателю.Дата <= &ДатаОкончания";
     Запрос.УстановитьПараметр("ДатаНачала", ЭтотОбъект.ДатаНачала);
     Запрос.УстановитьПараметр("ДатаОкончания", ЭтотОбъект.ДатаОкончания);
     РезультатЗапроса = Запрос.Выполнить().Выбрать();
    
     ТекстВопроса = "Перед заполнением табличные части будут очищены. Заполнить?";
     Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да,);
     Если Ответ <> КодВозвратаДиалога.Да Тогда
         Возврат;
     КонецЕсли;
     ЭтотОбъект.Выгрузка.Очистить();
     Пока РезультатЗапроса.Следующий() Цикл
         ДобавитьЭлементТаблицы = ЭтотОбъект.Выгрузка.Добавить();
        ДобавитьЭлементТаблицы.Дата = РезультатЗапроса.Дата;
        ДобавитьЭлементТаблицы.Номер = РезультатЗапроса.Номер;
        ДобавитьЭлементТаблицы.КомпанияНазвание = РезультатЗапроса.Контрагент;
        ДобавитьЭлементТаблицы.КомпанияИНН = РезультатЗапроса.ИНН;
        ДобавитьЭлементТаблицы.Сумма = РезультатЗапроса.СуммаДокумента;
        Если РезультатЗапроса.ДоговорКонтрагента.Наименование = "" Тогда
            Продолжить
        Иначе
        ДобавитьЭлементТаблицы.СрокОплаты = РезультатЗапроса.Дата + 60*60*24*РезультатЗапроса.СрокОплаты;
        КонецЕсли;
    КонецЦикла;
    Иначе
    
    ТекстВопроса = "Ошибка! Не заполнены поля: дата начала, дата окончания.";                              
    Вопрос(ТекстВопроса, РежимДиалогаВопрос.Ок, , КодВозвратаДиалога.Ок,);
    
    КонецЕсли;
    
    
    
КонецПроцедуры

Процедура ФайлВыгрузкиНачалоВыбора(Элемент, СтандартнаяОбработка)
    Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.Фильтр = "Файл Эксель(*.xls)|*.xls";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        ФайлВыгрузки = ДиалогОткрытияФайла.ПолноеИмяФайла;
    КонецЕсли;
КонецПроцедуры

вообщем все работает как надо но файл приходится два раза выбирать в поле ввода и при нажатии на кнопку не пойму почему ....

(24) рассказать? ты дважды просишь юзера сохранить файл

Где это? в каком фрагменте кода?

+(25) ну и дважды интерактивно пытаешься это сделать

А, нашел.

О чудо! Оно работает!

Если РезультатЗапроса.ДоговорКонтрагента.Наименование = "" Тогда
            Продолжить

хлобысь по рукам!

а ещё предупреждение имеется у платформы

(30) а как тут лучше сделать?

Вообщем вот итоговый вариант

Процедура КнопкаВыполнитьНажатие(Кнопка)

    ТабДок = Новый ТабличныйДокумент;
    Макет = ПолучитьМакет("Макет");
    облСтрока = Макет.ПолучитьОбласть("Строка");
    Для каждого стр Из ЭтотОбъект.Выгрузка Цикл
        облСтрока.Параметры.Дата = Формат(стр.Дата, "ДЛФ=Д");
        облСтрока.Параметры.Номер = стр.Номер;
        облСтрока.Параметры.КомпанияИНН = стр.КомпанияИНН;
        облСтрока.Параметры.КомпанияНазвание = стр.КомпанияНазвание;
        облСтрока.Параметры.СрокОплаты = Формат(стр.СрокОплаты, "ДЛФ=Д");
        облСтрока.Параметры.Сумма = стр.Сумма;
        ТабДок.Вывести(облСтрока);
    КонецЦикла;
    
    ИмяФайла = ЭтаФорма.ФайлВыгрузки;
    ТабДок.Записать(ИмяФайла,"xls");
    
    //ТабДок.Показать();
КонецПроцедуры

Процедура КоманднаяПанель1Заполнить(Кнопка)
    Если ЗначениеЗаполнено(ЭтотОбъект.ДатаНачала) И ЗначениеЗаполнено(ЭтотОбъект.ДатаОкончания) Тогда
    Запрос = Новый Запрос;
    Запрос.Текст =
     "ВЫБРАТЬ
     |    СчетНаОплатуПокупателю.Номер,
     |    СчетНаОплатуПокупателю.Дата,
     |    СчетНаОплатуПокупателю.Контрагент,
     |    СчетНаОплатуПокупателю.Контрагент.ИНН КАК ИНН,
     |    СчетНаОплатуПокупателю.ДоговорКонтрагента.СрокОплаты КАК СрокОплаты,
     |    СчетНаОплатуПокупателю.СуммаДокумента,
     |    СчетНаОплатуПокупателю.ДоговорКонтрагента
     |ИЗ
     |    Документ.СчетНаОплатуПокупателю КАК СчетНаОплатуПокупателю
     |ГДЕ
     |    СчетНаОплатуПокупателю.Дата >= &ДатаНачала
     |    И СчетНаОплатуПокупателю.Дата <= &ДатаОкончания";
     Запрос.УстановитьПараметр("ДатаНачала", ЭтотОбъект.ДатаНачала);
     Запрос.УстановитьПараметр("ДатаОкончания", ЭтотОбъект.ДатаОкончания);
     РезультатЗапроса = Запрос.Выполнить().Выбрать();
    
     ТекстВопроса = "Перед заполнением табличные части будут очищены. Заполнить?";
     Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да,);
     Если Ответ <> КодВозвратаДиалога.Да Тогда
         Возврат;
     КонецЕсли;
     ЭтотОбъект.Выгрузка.Очистить();
     Пока РезультатЗапроса.Следующий() Цикл
         ДобавитьЭлементТаблицы = ЭтотОбъект.Выгрузка.Добавить();
        ДобавитьЭлементТаблицы.Дата = РезультатЗапроса.Дата;
        ДобавитьЭлементТаблицы.Номер = РезультатЗапроса.Номер;
        ДобавитьЭлементТаблицы.КомпанияНазвание = РезультатЗапроса.Контрагент;
        ДобавитьЭлементТаблицы.КомпанияИНН = РезультатЗапроса.ИНН;
        ДобавитьЭлементТаблицы.Сумма = РезультатЗапроса.СуммаДокумента;
        Если РезультатЗапроса.ДоговорКонтрагента.Наименование = "" Тогда
            Продолжить
        Иначе
        ДобавитьЭлементТаблицы.СрокОплаты = РезультатЗапроса.Дата + 60*60*24*РезультатЗапроса.СрокОплаты;
        КонецЕсли;
    КонецЦикла;
    Иначе
    
    ТекстВопроса = "Ошибка! Не заполнены поля: дата начала, дата окончания.";                              
    Вопрос(ТекстВопроса, РежимДиалогаВопрос.Ок, , КодВозвратаДиалога.Ок,);
    
    КонецЕсли;
    
    
    
КонецПроцедуры

Процедура ФайлВыгрузкиНачалоВыбора(Элемент, СтандартнаяОбработка)
    Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.Фильтр = "Файл Эксель(*.xls)|*.xls";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        ФайлВыгрузки = ДиалогОткрытияФайла.ПолноеИмяФайла;
    КонецЕсли;
КонецПроцедуры

(32) запросом сразу вынуть только нужное

+(34) не ориентируясь на наименование

Складывать и умножать внутри запроса?

да и расчет срока оплаты тоже можно в запрос засунуть

и пустых контрагентов исключить из выборки, кстати почему они пустые?

(37) согласен. сейчас он будет даты с числами складывать. посмотрим..

и вообще вставить в цикл ЗаполнитьЗначенияСвойств()

пофиг пускай так будет, надоели эти буквы уже О_о

а при установке даты начала и даты окончания навеное следует применить функции НачалоДня() и КонецДня()

(41) вы не программист?

А запросом как то можно вытащить внутренний индефикатор объекта?

(43) начинающий :)

+(44) идентификатор

(44) на зачем? иногда можно