Сохраняю данные документа в Эксель. Как в форме документа сделать окошко, в котором можно было бы выбрать куда сохранять данные?

ФС.ВыбратьФайл();

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

за такой пример процедуры в (2) можно бить морду.....

(3) да ты что? и за что это?

(3) Куда-то наш умник пропал...

(4) +1

(6) + наверное он это Перем Каталог,Фильтр; имел ввиду... т.е. вместо фильтр - ИмяФайла

перед вызовом ФС.ВыбратьФайл
нужно восстановить стартовые каталоги для просомтра,
после выбора - сохранить полученный каталог - он будет стартовым при следующем выборе (даже в след сеансе)

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

(8) логично, но не смертельно... это уже на совести программиста :))

зато потом юзеры не орут, что файло смиздили.....

(8) Вообще то эти диалоги винда сама умеет сохранять, и последнее в сеансе тоже.

+ 11 И ты считаешь что за это реально нужно морду бить.... извини но это уже понты.

(11)Паришь?

Есть еще понятие - "юзабилти".

роцедура ВыбратьКат()
   Если ФС.ВыбратьКаталог(Кат, "Выберите каталог") = 1 Тогда
       Кат=Кат+"\";                                        
       СохранитьЗначение("КаталогДебиторки", Кат)
   КонецЕсли;
КонецПроцедуры  // ВыбратьФайл(ИФ,типфайлов="xls",аут=60)

//******************************************************************************
Кат=ВосстановитьЗначение("КаталогДебиторки");
Если ПустоеЗначение(Кат)=1 Тогда
   Кат = "E:\Dz\";
КонецЕсли;    
//******************************************************************************
ДЛя успокоения.

(14) Разочек пну тебя, Михаил :)

Если ФС.ВыбратьКаталог(Кат, "Выберите каталог",60) <> 1 Тогда
    Возврат;
КонецЕсли;
Кат=Кат+"\";                                        
СохранитьЗначение("КаталогДебиторки", Кат)

Зачем?
Если ПустоеЗначение(Кат)=1 Тогда
   Кат = "E:\Dz\";
КонецЕсли;    
Если нет надобности в другом каталоге, то назначим по умолчанию.

Всё дело в этом

Если ФС.ВыбратьКаталог(Кат, "Выберите каталог",60) <> 1 Тогда
    Возврат;
КонецЕсли;

те же яйца, только сбоку.

Я тоже не понял в чем разница

(19) Счас на У лю нарвемся - он объяснит, кто мы и в чем разница.

(18,19) ИМХО при больших участках кода будет более удобочитаемым и быстрее работает (ИМХО опять же)

(21)Ну тогда надо было вообще СохранитьЗначение выносить в процедуру при закрытии формы.

(22) в общем то да, если работа с формой преполагает открытие нескольких файлов.
а восстанавливать в ПриОткрытии

(23) Я показал код выгрузки в один файл. Ну а если несколько, то согласен.

хотя с точки зрения читабельности кода как раз лучше все (восстановить, сохранить) собрать в одной проце....

с точки зрения читабельности кода, этот код лучшее


если датамесяц(рабочаядата()) = 1 тогда
 сообщить("январь");
иначеесли  датамесяц(рабочаядата()) = 1 тогда
 сообщить("февраль");
...
...
иначеесли  датамесяц(рабочаядата()) = 1 тогда
 сообщить("декабрь");
конецесли;


чем


перем Месяц[12];

Месяц[1] = "январь";
Месяц[2] = "февраль";
...
...
Месяц[12] = "декабрь";

сообщить(Месяц[рабочаядата()]);


с точки зрения читабельности кода, этот код лучшее


если датамесяц(рабочаядата()) = 1 тогда
 сообщить("январь");
иначеесли  датамесяц(рабочаядата()) = 1 тогда
 сообщить("февраль");
...
...
иначеесли  датамесяц(рабочаядата()) = 1 тогда
 сообщить("декабрь");
конецесли;



чем



перем Месяц[12];

Месяц[1] = "январь";
Месяц[2] = "февраль";
...
...
Месяц[12] = "декабрь";

сообщить(Месяц[рабочаядата()]);


с цифрами месяцев попутал.

с точки зрения читабельности рулит функция

ПолучитьМесяцПрописью (Дата)

а как она реализована - это неинтересно

внутри функции м.б. и 27.1  и 27.2

(28)Тут важно что поняли о чем речь?

(29)Не много не согласен. Ибо как работает функция тоже приходиться парсить.

(31) да я так, ни о чем.:)))