Доброго дня.  Подскажите как выгрузить Фотку из УПП в определенное место  Шаблона MSWord.  Делал год назад все работало. и рамку даже рисовало вокруг фотки.  а сейчас никак) .  в Макет простой все  выводится хорошо.

сделай так же, как год назад, только правильно

отличная идея) знать бы как.

апнем

Архивы уничтожил? Интернет ограничен только мистой?

тут нормально отвечают)

отвечали)))

отвечают только на правильные вопросы
пока только повествование идет

Блин, а я было подумал, что в Ворде новое пасхальное яйцо нашли

Ну давайте еще раз вопрос задам.

Есть УПП  82.  там есть справочник сотрудники.   и есть справочник физ лица.  в последнем у есть фотка сотрудника.  

И есть необходимость сделать внешнюю печатную форму для печати удостоверений  на что либо..   Шаблон сделан в Ворде..   фотки хранятся в папке  где то там..

в шаблоне есть место для ФОТО. возникла проблема с тем как его туда загнать. и рамкой обвести.


спасибо)

(9) 10 000 руб.

25000 руб
И не ведись на (10), у него дешёвая наколенная поделка :-)

(10) (11)  норм расценка для  максимум 2 часов работы)..  ну ладно спасибо и за то что теперь буду ориентироваться в том что по чем.

а сколько стоит отчет по остаткам  2 баз. т.е. есть база 1с77 и есть база УПП и есть задача сделать в 1с77 отчет по остаткам  2-х баз.  естественно с  сопоставлением позиций по некому коду синхронизации .  Спс)

по определенным складам.  с возможностью множественного выбора Номенклатуры или номенклатурных групп..

50 000

(14) Час выяснять требования, потом часов 5 работы писать, потмо пару часов интерфейсные детали доводить, плюс час два приемки. Добавим 30% разброса. Итого 6-12 часов. Хз сколько по вашим московским ценникам стоит.

(13) 150 000/
J,hfofqcz

(15) (17)  вы не потролив ответить можете?

(16)  там немного коряво все.  сначала поставили задание  не приложив  форму выходную которую хотели видеть, и ряд критериев нужных не указали в ТЗ.  Типо просто отчет просто остатки.  потом когда он был готов они придумали форму которую хотят  и отбор  захотели более детальный + расчет Сумм по ценам определенным и доп столбец по колву в альтернативных Ед. ИЗМ..   вот.    очень хотелось бы примерные цены узнать на эти работы.

(13) За 8-10 часов можно управиться я думаю вот и считай

(19) Выставляй по факту, фигли думать. Ценник лупи как у франча и дай процентов 20 скидки за отсутствие белых документов и красивые глаза главного бухгалтера.

для 77 и 82  наверное работы за час разные?  и сколько  сейчас стоит час работ?.

(22) Дружище, с чего бы разные то? Работает человек, а он один. А по ценнику - звони ближайшему франчу и спрашивай )

(18) Не положено

(13) 150 000 больше похоже на правду

Выгружаемое фото еще не просили?

(26)  вопрос актуален)  на днях займусь.

// Вставить содержимое обработчика.
    
    
        //Получим данные из справочника
        Договор = ПолучитьМакет("Макет2");
        
        // Получить объект из макета.
        MSWord = Договор.Получить();
        
        
        аа =СсылкаНаОбъект.Физлицо.ОсновноеИзображение.ИмяФайла;    
        Картинка = ("D:\....\"+аа);
        
        
        Попытка
            
            
            Документ = MSWord.Application.Documents(1);
            Документ.Activate();
            
            
                
          ПозицияРисунка = MSWord.Content.Find;  
          ПозицияРисунка.Execute("Фото", Ложь, Истина, Ложь, , , Истина, , Ложь,"");
          Picture = MSWord.InlineShapes.AddPicture(Сокрлп(Картинка),, Истина, ПозицияРисунка.Parent);                    

          Picture.Height = 106.38;
          Picture.Width  = 79.78;    

          //выводим рамку вокруг фотографии
          Picture.Borders(1).LineStyle = 1;//верхняя
          Picture.Borders(2).LineStyle = 1;//левая
          Picture.Borders(3).LineStyle = 1;//нижняя
          Picture.Borders(4).LineStyle = 1;//правая
          
          // Цвет рамки
          //Picture.Borders(1).Color = 1;//верхняя
          //Picture.Borders(2).Color = 1;//левая
          //Picture.Borders(3).Color = 1;//нижняя
          //Picture.Borders(4).Color = 1;//правая
          
          
        //MSWord.Application.Visible = Истина;
        //MSWord.Activate();            
            
            // Получить объект, который будем использовать для поиска и замены.

            
            Замена = Документ.Content.Find;
            Замена.Execute("[НомУ]", Ложь, Истина, Ложь, , ,
            Истина, , Ложь, Сокрлп(НомерУд_));
            
            
            Замена = Документ.Content.Find;
            Замена.Execute("[НомПрот]", Ложь, Истина, Ложь, , ,
            Истина, , Ложь, Сокрлп(НомерПротокола));

            Замена = Документ.Content.Find;
            Замена.Execute("[Дата]", Ложь, Истина, Ложь, , ,
            Истина, , Ложь, Сокрлп(Дата));

            Замена = Документ.Content.Find;
            Замена.Execute("[ФИО]", Ложь, Истина, Ложь, , ,
            Истина, , Ложь, Сокрлп(СсылкаНаОбъект.Физлицо.Наименование));
            
            //Замена = Документ.Content.Find;
            //Замена.Execute("[ФОТО]", Ложь, Истина, Ложь, , ,
            //Истина, , Ложь, Картинка);

            
            MSWord.Application.Visible = Истина;
            MSWord.Activate();
            
        Исключение
            
            // Если произойдет ошибка выводятся данные об ошибке и объект закрывается.
            Сообщить(ОписаниеОшибки());
            MSWord.Application.Quit();
            
        КонецПопытки;

если интересно каму то)

Читал код. Не верю (С)