Имя: Пароль:
1C
1С v8
Заполнение открытого документа документом того же типа
0 Melcor
 
16.04.15
13:34
Подскажите, есть ли возможность автоматического заполнения документа. У меня открыта ФормаРегистрацииПродаж документа ЧекККМ, я хочу заполнить её данными уже существующего документа, т.е. пользователь выбирает документ которым надо заполнить и я получаю ДокЧек.Ссылка, как данные этого документа загрузить в Текущий. Спасибо.
1 Рэйв
 
16.04.15
13:37
пусть встанет на документ которым хочет заполнит и нажмет F9
2 Рэйв
 
16.04.15
13:38
А если это док другого вида, то настраивай ввод на основании
3 Рэйв
 
16.04.15
13:38
или делай на форме красивую кнопку с блэкджеком:-)
4 Melcor
 
16.04.15
13:40
(1) Ты не понял, нужен программное заполнение ЧекаККМ другим ЧекомККМ
5 Рэйв
 
16.04.15
13:40
(4)А что мешает просто скопировать по F9 с источника?
6 Cube
 
16.04.15
13:41
(4) Это программировать нужно, а ты не программист, судя по вопросу...
7 Melcor
 
16.04.15
13:41
(5) Ну как еще объяснить, если бы ничего не мешало, так бы и делал
8 Рэйв
 
16.04.15
13:42
(7)Тогда рисуй(3), пусть выирает док, пробегайся по реквизитам и таб частям и перетаскивай из одного в другой
9 Melcor
 
16.04.15
13:44
(8) Это понятно, вопрос был в том, нет ли случаем функции авотзаполнения какой, но видимо нет
10 Cube
 
16.04.15
13:47
(9) ЗаполнитьЗначенияСвойств()
Только ТЧ, скорее всего, он так не заполнит...
11 Рэйв
 
16.04.15
13:48
Вот тебе функция

//------
Мета=ЭтотОбъект.Метаданные()
Для Каждого Рек Из Мета.Реквизиты Цикл
   Имя=Рек.Имя;
     ЭтотОбъект[Имя]=ВыбранныйДок[Имя];
КонецЦикла;

Для Каждого ТЧ Из Мета.ТабличныеЧасти Цикл
   ИмяТЧ=ТЧ.Имя;
   ЭтотОбъект[ИмяТЧ].Очистить();
   Для Каждого Стр Из ВыбранныйДок[ИмяТЧ] Цикл    
        Нов=ЭтотОбъект[ИмяТЧ].Добавить();
        Для Каждого РекТЧ Из Мета.ТабличныеЧасти[ИмяТЧ].Реквизиты Цикл
           ИмяРекТЧ=РекТЧ.Имя;
           Нов[ИмяРекТЧ]=Стр[ИмяРекТЧ];
        КонецЦикла  
   КонецЦикла;  
КонецЦикла;
//---------
Как то так
12 Рэйв
 
16.04.15
13:49
+ да , с ЗаполнитьЗначенияСвойств()  будет удобнее:-)
  совсем про это забыл :-)
13 Melcor
 
17.04.15
07:48
с ТЧ все намного проще:

    ТЧЧека = ВыбЧек.Значение.ПолучитьОбъект().Товары.Выгрузить();
    ЭтотОбъект.Товары.Загрузить(ТЧЧека);
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой