Имеем:

Док = СоздатьОбъект("Документ.АктСписания");
Док.Новый();
Док.ДатаДок       = ДатаДок;
Док.МОЛ           = Ответственный;
....................
Док.НоваяСтрока();
....................
ОткрытьФорму(Док.ТекущийДокумент());

Процедура ОткрытьФорму() ничего не делает, т.к. документ ещё не был записан. Записывать Док тоже нельзя, ибо только после его программного заполнения и вывода на экран сам пользователь по заполненной таблице должен решить, нужен ли ему именно этот док. И если нужен, то Провести его, если нет - Закрыть - Сохранить (Нет), чтобы он даже не болтался в журнале документов.

Как можно выкрутиться ?

Сначала открывай, потом через контекст заполняй

Тока через контекст с

Док.НоваяСтрока()

косяк выйдет.

1
т.е.

ОткрытьФорму("Документ.АктСписания",Контекст);
Контекст.ДатаДок = ...
и т.д. ?

А если сделать через Вопрос() ?

Типа Записать Док, а потом вывести Вопрос() юзеру Сохранить док ?
И если Нет, то Док.Удалить(1)

(3) угу.
(2) Этот косяк запросто обходится.

(5)
а как именно обходится ?

ЗагрузитьВнешнююКомпоненту("formex.dll");

7
Формекс есть. Значит Док.НоваяСтрока() отработает как нужно ?

(8) Да. Только вот здесь еще.
Конт = "";
ОткрытьФорму("Документ.АктСписания",Конт);

Конт.ДатаДок = ...

(4) а не думал, что может не удалиться или еще что-нить такое? тупа конфликт блокировок... и будет у тебя юзер сидеть и ок тыкать

(10)

а в чём там проблема будет, если аккуратно

Док.Форма.Закрыть(0)
Док.Удалить(1)

(9)
а что с ДатаДок ?

(12) Да не с ДатаДок, а с Контекст. В твоем варианте ты туда передаешь контекст твоей текущей формы, матюкнется.

В документе типа ЗаявкаПокупателя есть кнопка "Создать док.Реализция".
В Модуле формы:

Процедура СоздатьДокументРеализация()
   //....
   Парам = СоздатьОбъект("СписокЗначений");
   Парам.Установить("Команда","ИзЗаказаЗЧ");
   Парам.Установить("Основание",ТекущийДокумент());
   ОткрытьФорму("Документ.РеализацияРозница", Парам);
КонецПроцедуры

// в доке РеализацияРозница

Процедура ПриОткрытии()    
                           
   Парам = Форма.Параметр;
   
   Если ТипЗначенияСтр(Парам)="СписокЗначений" Тогда
       Если Парам.Получить("Команда") = "ИзЗаказаЗЧ" Тогда
           ДокОснование = Парам.Получить("Основание");
           Фирма = ДокОснование.Фирма;
           //заполняем поля и ТЧ
       КонецЕсли;
   КонецЕсли;
   //...
   //всё остальное
   //...
КонецПроцедуры

Хм, попробовал

Конт = "";
ОткрытьФорму("Документ.АктСписания",Конт);
Конт.ДатаДок       = КонМесяца(ДатаДок);
.................
Конт.НоваяСтрока();
.................

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

компоненту загрузил?

(16)
да. Но что странно при ручном выборе хотя бы одного элемента Шапки, табличная часть проявляется сама собой о_О

(15)
Конт создай как СписокЗначений
в Конт запихивай ТЧ в виде ТЗ
в "Документ.АктСписания" в ПриОткрытии извлекай ТЗ

+18 а вообще - как хочешь..

(17) Конт.Форма.Обновить() ?

(20)
О, так работает )
Только ещё 1 глючок. Если нужно открывать следующий док с другот табличной частью, то следующая команда

ОткрытьФорму("Документ.АктСписания",Конт);

что-то уже не отрабатывает

(18)
благодарю за подсказку, но думаю через Контекст всё же пропроще это выглядит

(21) Не может быть 2 незаписанных открытых документа одного вида одновременно.
И вообще, конт = ""; всегда ставь перед открытием

Танцы с бубнами и контекстами имеют смысл только в том случае, если вы хотите из внешней обработки создавать документ в конфигурации, изменять которую нет желания.
Если же изменение допустимо, то лучше всего сделать заполнение при открытии через переданный параметр.
Также нужно понимать такую особенность платформы - если вы пытаетесь создать два документа одинакового вида, то при повторном открытии система покажет вам предыдущий, который ещё не был сохранён, так как она считает его новым.
Эту функцию можно попытаться обойти, если после типа документа поставить #, не уверен, что отработает корректно, но должна.

И не стоит забывать, что если вы создали и не сохранили документы с номерами, скажем 11 и 12, а потом 11 не сохранили, то в системе просто не будет одиннадцатого документа.

(23)
конт = "" всегда стоит перед открытием следующего, но открытие нескольких всё же необходимо, от этого никуда не деться. И что, тут без вариантов ?

(25) Да. Особенность платформы.

(25) Если открывать сразу несколько, то можно из функции ПриОткрытии одного документа открыть другой - форма ещё не открыта и будет заготовлено создание формы другого и так далее.
Но, как оказалось, система вообще не может открыть более 128 форм одновременно - каких бы мы не открывали.

(24)
# ничего не даёт, всё равно вся ТЧ бомбится в первый открытый нами док ((

(27)
т.е. способ в (14) прокатит и для нескольких открываемых Доков ?

(29) Если в параметр передать список значений, где каждая строка описывает один открываемый документ, то в процедуре при открытии нужно просто первую строку отработать и удалить, а если что-то осталось, то выполнить открытие ещё раз, передав остатки - система всё правильно отработает - формы появятся на экране после окончания работы кода.

(30)
в смысле "каждая строка описывает 1 док" ?

Я так понял там каждая строка описывает 1 реквизит.

(31) Ну так значениями списка значений могут быть другие списки значений.

(32) И таблицы, так как строки документа в списке не очень красиво смотрятся.

Не подскажете ещё, как можно динамически в программе создавать
Список1, Список2, Список3 ... СписокN для добавления их потом в результирующий список параметров для передачи ?

ЛспРезультирующий = СоздатьОбъект("СписокЗначений");
// Список1
лспТекущий = СоздатьОбъект("СписокЗначений") ;

// Заполняем Текущий.

ЛспРезультирующий.ДобавитьЗначение(лспТекущий) ;

// Список2
лспТекущий = СоздатьОбъект("СписокЗначений") ;

// Заполняем Текущий.

ЛспРезультирующий.ДобавитьЗначение(лспТекущий) ;

(35)
Так а при пересоздании "лспТекущий" в "ЛспРезультирующий" он разве не будет обнулён ?

(36) Нет. Будет создан новый экземпляр. Это если бы ты вместо СоздатьОбъект в последующих, сделал лспТекущий.УдалитьВсе() то тогда обновился бы.

НачатьТранзакцию();
Док.Записать();
ОткрытьФорму(Док.ТекущийДокумент(),конт);
ОтменитьТранзакцию();

(38)
после этого в случае если документ будет нужен, его не даст сохранить вроде

да

(40)
в смысле "да", не даст сохранить
или "да", сохранит ? )))

не сохранит )) но условию сабжа (38) соответствует

плюсом еще и блокировку получим по документам

(42)
не совсем )
в сабже "И если нужен, то Провести его" ))

Пока пробую способом в (14) через передачу параметров списком значений.

(35)
Мда :(
В результирующем списке всё таки оказываются списки, идентичные последнему созданному "лспТекущий".
СоздатьОбъект не помогает, и в результирующем заменяются и прошлые сохранённые списки.

Может быть можно как-то создавать программно объекты Список1, Список2 и т.д., чтобы они не пересекались ?

(46) Че-то ты там не то пишешь. Специально проверил, все нормально там.

Процедура Сформировать()
   лспРезультирующий = СоздатьОбъект("СписокЗначений");
   
   лспТекущий = СоздатьОбъект("СписокЗначений");
   лспТекущий.ДобавитьЗначение(1);
   лспРезультирующий.ДобавитьЗначение(лспТекущий,"Первый");
   
   лспТекущий = СоздатьОбъект("СписокЗначений");
   //лспТекущий.УдалитьВсе() ;
   лспТекущий.ДобавитьЗначение(2);
   лспРезультирующий.ДобавитьЗначение(лспТекущий,"Второй");    
   
   
   Сообщить(""+лспРезультирующий.Получить("Первый").ПолучитьЗначение(1));
   Сообщить(""+лспРезультирующий.Получить("Второй").ПолучитьЗначение(1));
   
КонецПроцедуры

Ввыодит
1
2

Вот мой код:

ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Счёт","Счет");
ТЗ.НоваяКолонка("Материал","Справочник.Материалы");
ТЗ.НоваяКолонка("Количество","Число",10,3);
   
ВыбратьСтроки();
   Пока ПолучитьСтроку() = 1 Цикл
       ТЗ.НоваяСтрока();
       ТЗ.Счёт       = Материал.СубСчет10;
       ТЗ.Материал   = Материал;
       ТЗ.Количество = Количество;
   КонецЦикла;
   
ТЗ.Сортировать("+1,+2");

ТекСчёт = ТЗ.ПолучитьЗначение(1,"Счёт");
   
СписокПараметров = СоздатьОбъект("СписокЗначений");
ДопТЗ = СоздатьОбъект("ТаблицаЗначений");
ДопТЗ.НоваяКолонка("Материал","Справочник.Материалы");
ДопТЗ.НоваяКолонка("Количество","Число",10,3);
   
ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку() = 1 Цикл
       Если ТЗ.Счёт <> ТекСчёт  Тогда
           Список = СоздатьОбъект("СписокЗначений");
           Список.Установить("ТЧ",ДопТЗ);
           Список.Установить("ТекДок",ТекущийДокумент());
           
           ДопТЗ.УдалитьСтроки();
           ТекСчёт = ТЗ.Счёт;
       КонецЕсли;
           
       ДопТЗ.НоваяСтрока();
       ДопТЗ.Материал   = ТЗ.Материал;
       ДопТЗ.Количество = ТЗ.Количество;
           
       Если ТЗ.НомерСтроки = ТЗ.КоличествоСтрок() Тогда
           Список = СоздатьОбъект("СписокЗначений");
           Список.Установить("ТЧ",ДопТЗ);
           Список.Установить("ТекДок",ТекущийДокумент());
       КонецЕсли;
   КонецЦикла;
ОткрытьФорму("Документ.АктСписания",СписокПараметров);

Тестирую на документе на 32 строки, 31 строка на счёте 10.1 и 1 строка на 10.9. В результате в СпискеПараметров 2 элемента, но в обоих элементах при получении оказывается "ТЧ" со счётом 10.9 и 1 строкой.

Получаю так:

ТекСписок     = СписокПараметров.ПолучитьЗначение(1);
...........................
СписокПараметров.УдалитьЗначение(1);
Если СписокПараметров.РазмерСписка() <> 0 Тогда
   ОткрытьФорму("Документ.АктСписания",СписокПараметров);
КонецЕсли;

Ой, сорри, такой вложенный цикл:

ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку() = 1 Цикл
       Если ТЗ.Счёт <> ТекСчёт  Тогда
           Список = СоздатьОбъект("СписокЗначений");
           Список.Установить("ТЧ",ДопТЗ);
           Список.Установить("ТекДок",ТекущийДокумент());
           СписокПараметров.ДобавитьЗначение(Список);
           
           ДопТЗ.УдалитьСтроки();
           ТекСчёт = ТЗ.Счёт;
       КонецЕсли;
           
       ДопТЗ.НоваяСтрока();
       ДопТЗ.Материал   = ТЗ.Материал;
       ДопТЗ.Количество = ТЗ.Количество;
           
       Если ТЗ.НомерСтроки = ТЗ.КоличествоСтрок() Тогда
           Список = СоздатьОбъект("СписокЗначений");
           Список.Установить("ТЧ",ДопТЗ);
           Список.Установить("ТекДок",ТекущийДокумент());
           СписокПараметров.ДобавитьЗначение(Список);
       КонецЕсли;
   КонецЦикла;
ОткрытьФорму("Документ.АктСписания",СписокПараметров);

Для ТЗ такая же песня.

СписокПараметров = СоздатьОбъект("СписокЗначений");

   
ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку() = 1 Цикл
       Если ТЗ.Счёт <> ТекСчёт  Тогда
           Список = СоздатьОбъект("СписокЗначений");
           Список.Установить("ТЧ",ДопТЗ);
           Список.Установить("ТекДок",ТекущийДокумент());
           
          ДопТЗ = СоздатьОбъект("ТаблицаЗначений");
          ДопТЗ.НоваяКолонка("Материал","Справочник.Материалы");
          ДопТЗ.НоваяКолонка("Количество","Число",10,3);
           ТекСчёт = ТЗ.Счёт;
       КонецЕсли;
           
       ДопТЗ.НоваяСтрока();
       ДопТЗ.Материал   = ТЗ.Материал;
       ДопТЗ.Количество = ТЗ.Количество;

(51)
смысл ?

ДопТЗ.НоваяСтрока();
ДопТЗ.Материал   = ТЗ.Материал;
ДопТЗ.Количество = ТЗ.Количество;

выполняется для каждой строки ТЗ без исключения и так

(52)
упс, не то подумал, туплю

ДопТЗ.УдалитьСтроки(); же стоит

Я ж тебе еще раньше написал для списка значений разницу между удалением строк у одного и того же объекта и созданием нового экземпляра объекта. В данном случае объект - это ТЗ.

Тем более я проверял отладчиком:
в первом случае в ДопТЗ пишется 31 строка по счёту 10.1
во втором - 1 строка по 10.9

но как только происходит СписокПараметров.ДобавитьЗначение(Список);
меняются и прошлые сохранённые списки (

(56) Ты сделай как в (51). Вместо УдалитьСтроки() сделай СоздатьОбъект().

(55)
ППЦ, проверил ваш вариант, и действительно работает, ничего не могу понять (((

Отладчик показывал верное заполнение ДопТЗ (((

Походу всё же туплю Я: сохраняется по ДопТЗ всё же правильно, но при сохранении ДопТЗ по 10.9 изменяется и ДопТЗ по 10.1. Вы оказались абсолютно правы.

Демо открывалки нескольких форм новых документов одного вида
.
http://infostart.ru/public/15819/