Имя: Пароль:
1C
1С v8
v8: Фото сотрудников из УПП в MSWord
0 mazafakuh
 
01.08.13
14:22
Доброго дня.  Подскажите как выгрузить Фотку из УПП в определенное место  Шаблона MSWord.  Делал год назад все работало. и рамку даже рисовало вокруг фотки.  а сейчас никак) .  в Макет простой все  выводится хорошо.
1 Капитан О
 
01.08.13
14:22
сделай так же, как год назад, только правильно
2 mazafakuh
 
01.08.13
15:37
отличная идея) знать бы как.
3 mazafakuh
 
02.08.13
12:11
апнем
4 Мимохожий Однако
 
02.08.13
12:13
Архивы уничтожил? Интернет ограничен только мистой?
5 mazafakuh
 
02.08.13
12:15
тут нормально отвечают)
6 mazafakuh
 
02.08.13
14:12
отвечали)))
7 dk
 
02.08.13
14:17
отвечают только на правильные вопросы
пока только повествование идет
8 Crush
 
02.08.13
14:24
Блин, а я было подумал, что в Ворде новое пасхальное яйцо нашли
9 mazafakuh
 
02.08.13
15:29
Ну давайте еще раз вопрос задам.

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

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

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


спасибо)
10 shuhard
 
02.08.13
15:39
(9) 10 000 руб.
11 ДенисЧ
 
02.08.13
15:41
25000 руб
И не ведись на (10), у него дешёвая наколенная поделка :-)
12 mazafakuh
 
02.08.13
16:10
(10) (11)  норм расценка для  максимум 2 часов работы)..  ну ладно спасибо и за то что теперь буду ориентироваться в том что по чем.
13 mazafakuh
 
05.08.13
08:55
а сколько стоит отчет по остаткам  2 баз. т.е. есть база 1с77 и есть база УПП и есть задача сделать в 1с77 отчет по остаткам  2-х баз.  естественно с  сопоставлением позиций по некому коду синхронизации .  Спс)
14 mazafakuh
 
05.08.13
08:56
по определенным складам.  с возможностью множественного выбора Номенклатуры или номенклатурных групп..
15 scanduta
 
05.08.13
08:57
50 000
16 Лодырь
 
05.08.13
09:00
(14) Час выяснять требования, потом часов 5 работы писать, потмо пару часов интерфейсные детали доводить, плюс час два приемки. Добавим 30% разброса. Итого 6-12 часов. Хз сколько по вашим московским ценникам стоит.
17 ДенисЧ
 
05.08.13
09:10
(13) 150 000/
J,hfofqcz
18 mazafakuh
 
05.08.13
09:13
(15) (17)  вы не потролив ответить можете?
19 mazafakuh
 
05.08.13
09:16
(16)  там немного коряво все.  сначала поставили задание  не приложив  форму выходную которую хотели видеть, и ряд критериев нужных не указали в ТЗ.  Типо просто отчет просто остатки.  потом когда он был готов они придумали форму которую хотят  и отбор  захотели более детальный + расчет Сумм по ценам определенным и доп столбец по колву в альтернативных Ед. ИЗМ..   вот.    очень хотелось бы примерные цены узнать на эти работы.
20 scanduta
 
05.08.13
09:19
(13) За 8-10 часов можно управиться я думаю вот и считай
21 Лодырь
 
05.08.13
09:20
(19) Выставляй по факту, фигли думать. Ценник лупи как у франча и дай процентов 20 скидки за отсутствие белых документов и красивые глаза главного бухгалтера.
22 mazafakuh
 
05.08.13
09:23
для 77 и 82  наверное работы за час разные?  и сколько  сейчас стоит час работ?.
23 Лодырь
 
05.08.13
09:25
(22) Дружище, с чего бы разные то? Работает человек, а он один. А по ценнику - звони ближайшему франчу и спрашивай )
24 ДенисЧ
 
05.08.13
09:26
(18) Не положено
25 screamhome
 
05.08.13
09:34
(13) 150 000 больше похоже на правду
26 Паланик
 
05.08.13
09:42
Выгружаемое фото еще не просили?
27 mazafakuh
 
05.08.13
10:02
(26)  вопрос актуален)  на днях займусь.
28 mazafakuh
 
27.08.13
12:28
// Вставить содержимое обработчика.
    
    
        //Получим данные из справочника
        Договор = ПолучитьМакет("Макет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();
            
        КонецПопытки;
29 mazafakuh
 
27.08.13
12:28
если интересно каму то)
30 Aleks73
 
27.08.13
12:32
Читал код. Не верю (С)