Имя: Пароль:
1C
1С v8
drag drop из другой программы
0 Domanoff26
 
07.05.13
12:55
Хотят файлы из аутлука перетягивать прям в 1с, на сколько я понимаю такой возможности драг и дропом нету, а можно как нить заменить это хитростью? может какие новые подходы?
1 Irek-kazan
 
07.05.13
12:57
(0) какая богатая фантазия у ваших бухгалтеров
А в туалет не сходя с рабочего места?
2 Irek-kazan
 
07.05.13
12:58
(0) если только какую-нибудь веб-морду нарисовать я думаю
3 Domanoff26
 
07.05.13
13:00
морда? (2)
4 Cube
 
07.05.13
13:03
(0) А может начать читать в почту из 1С, а дальше проще будет?
5 Wobland
 
07.05.13
13:04
(4) а дальше отправлять почту, ходить в одноклассники, просматривать фильмы, отключить рабочий стол винды... так и до 1С:ОперационнаяСистема докатиться можно
6 Domanoff26
 
07.05.13
13:27
(4) да не, там письма не одному правилу, они сами решают что куда пихать. короче я с вами согласен, глупости какие то требуют
7 kosts
 
07.05.13
13:29
(6) Почему же глупости. Если они просят например что бы таблица документа перетянулась, то почему бы и нет.
8 alexei366
 
07.05.13
13:33
Короче у меня что-то похожее реализовано, но из других программ или с диска перетаскивается только в элемент таблица (это на УФ), у меня так юзеры перетаскивают с браузера и почторя Zimbra в 1С.
9 Domanoff26
 
07.05.13
13:33
(8) а каким макаром?
10 alexei366
 
07.05.13
13:33
(9) Погодь
11 Domanoff26
 
07.05.13
13:33
(7) нет именно файлы
12 alexei366
 
07.05.13
13:36
ФайлыОператор это динамический список в форме документа в управляемой форме. Я код свой не менял, думаю так поймешь


&НаКлиенте
Процедура ФайлыОператорПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)
   СтандартнаяОбработка = Ложь;
КонецПроцедуры

&НаКлиенте
Процедура ФайлыОператорОкончаниеПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
   СтандартнаяОбработка = Ложь;    
КонецПроцедуры

&НаКлиенте
Процедура ФайлыОператорПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)
   
   Перем ОписаниеОшибки;
   Перем СсылкаНаНовый;
   
   СтандартнаяОбработка = Ложь;    
   
   Если Объект.Ссылка.Пустая() Тогда
       Предупреждение("Заявка не сохранена");
   ИначеЕсли ТипЗнч(ПараметрыПеретаскивания.Значение) = Тип("Файл") Тогда
       Файл = ПараметрыПеретаскивания.Значение;
       
       СтруктураФайлаДляЗагрузки = Новый Структура;
       СтруктураФайлаДляЗагрузки.Вставить("Наименование",Файл.ИмяБезРасширения);
       СтруктураФайлаДляЗагрузки.Вставить("Формат",Сред(Файл.Расширение,2));
       СтруктураФайлаДляЗагрузки.Вставить("ВладелецСпр",Объект.Ссылка);
       СтруктураФайлаДляЗагрузки.Вставить("Данные",Новый ДвоичныеДанные(Файл.ПолноеИмя));
       СтруктураФайлаДляЗагрузки.Вставить("Тип",ТипФайлаОператор);
       
       Если СоздатьФайлЗаявки(СтруктураФайлаДляЗагрузки,СсылкаНаНовый,ОписаниеОшибки) = Ложь Тогда
           Предупреждение(ОписаниеОшибки);    
       Иначе
           ОповеститьОбИзменении(СсылкаНаНовый);
       КонецЕсли;
       
   ИначеЕсли ТипЗнч(ПараметрыПеретаскивания.Значение) = Тип("Массив") Тогда
       Для Каждого ЭлМассива Из ПараметрыПеретаскивания.Значение Цикл
           
           Если ТипЗнч(ЭлМассива) = Тип("Файл") Тогда
               Файл = ЭлМассива;
               
               СтруктураФайлаДляЗагрузки = Новый Структура;
               СтруктураФайлаДляЗагрузки.Вставить("Наименование",Файл.ИмяБезРасширения);
               СтруктураФайлаДляЗагрузки.Вставить("Формат",Сред(Файл.Расширение,2));
               СтруктураФайлаДляЗагрузки.Вставить("ВладелецСпр",Объект.Ссылка);
               СтруктураФайлаДляЗагрузки.Вставить("Данные",Новый ДвоичныеДанные(Файл.ПолноеИмя));
               СтруктураФайлаДляЗагрузки.Вставить("Тип",ТипФайлаОператор);
               
               Если СоздатьФайлЗаявки(СтруктураФайлаДляЗагрузки,СсылкаНаНовый,ОписаниеОшибки) = Ложь Тогда
                   Предупреждение(ОписаниеОшибки);    
               Иначе
                   ОповеститьОбИзменении(СсылкаНаНовый);
               КонецЕсли;
               
           КонецЕсли;
           
       КонецЦикла;    
       
   КонецЕсли;
   
КонецПроцедуры
13 kosts
 
07.05.13
13:37
(11) >нет именно файлы
Ну а в файлах что?
14 vde69
 
07.05.13
13:41
можно на форму встроить актив-х типа проводника на темповую папку и сделать регламентное задание по проверки наличия файлов в этой папке и обработке средствами 1с.
15 Domanoff26
 
07.05.13
16:53
(12) у меня событие не срабатывает, или я чего то не понял, я хочу из аутлука тянуть...
16 Domanoff26
 
07.05.13
17:00
(12) только в рамках одного окна события срабатывают, что ты хитрого такого сделал чтоб из почти перетаскивалось?
17 Domanoff26
 
07.05.13
17:00
(14) в определнные места надо пихать, а регл не смогет с анализировать куда именно пихать
18 Domanoff26
 
07.05.13
17:06
даже в рамках только одной табл события только срабатывают
19 mikecool
 
07.05.13
17:23
настроить папку в оутглюке, куда будут переносить нужные письма, по правилу из этой папки пересылать на служебный ящик, который будет читаться из 1с...
20 kosts
 
07.05.13
17:29
(18) Я из Excel'я сегодня попробовал - вполне себе переносится. Если файл не будет тащиться из аутлука, ну значит не повезло...
21 Domanoff26
 
08.05.13
13:19
(20) ,Блин у меня события даже если из тругой таблицы той же формы переношу, не срабатывают, что не так делаю?
22 kosts
 
08.05.13
14:37
(21) У источника должно быть разрешено "начало перетаскивания", у получателя "перетаскивание".