192
Рейтинг

Zircool
Михаил Щербак

Регистрация: 20.02.2011 (13 лет назад)
Был(а) на сайте: сегодня в 09:52

Друзья

Подписчики 36

Дополнительная информация

Группы

Профессиональный разработчик

IE 2012 Участник

IE 2013 REV Online

IE 2013 EVO Online

Партнер IS-WP

IE 2014 Участник

IE 2014 Online

Карта покупателя SILVER

Участник Meetup

IE2023 Участник

Рейтинг 192

Контроль первичных документов, контроль возврата оригиналов с историей
+14 –

Отчеты и формы Бухгалтер Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Управленческий учет Абонемент ($m) Расширение (cfe) Документооборот и делопроизводство (СЭД)

Расширение для контроля возврата первичных документов с историей. Все просто, создается дополнительное сведение (с типом Дополнительное значение), оно указывается в настройках и с помощью флажков выбираем в каких документах выводить команду.

2 стартмани

09.12.2019 12836 31 Zircool 16

Распознаем штрих-код pdf файла с автоматической привязкой к документу в 1С
+19 –

Инструменты и обработки Программист Пользователь Платформа 1С v8.3 1С:Документооборот 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:CRM ПРОФ, КОРП Абонемент ($m) Внешняя обработка (ert,epf) Документооборот и делопроизводство (СЭД)

Добрый день. В данной статье хочу с Вами поделиться опытом автоматизации процесса автоматического распределения сканов документов по документам 1С.

1 стартмани

11.10.2019 8379 51 Zircool 3

Проблемы переходного периода или как перейти со старой системы на новую
+1 –

Видео

Ольга Петровская, ГК Армтек СБЕ ДЗ "Проблемы переходного периода или как перейти со старой системы на новую" http://event.infostart.ru/november2013/agenda/speakers_list/detail-speaker/petrovskaya-olga/

09.09.2019 6274 Zircool 1

Круглый стол "Практика внедрения учетных систем"
+1 –

Видео

«Управление и технологии автоматизации учета на платформе 1С:Предприятие» Infostart Event Revolution 2013

09.09.2019 5134 Zircool 1

Круглый стол "Платформа 8.3 + Облачные технологии". Infostart Event Revolution 2013.
+ –

Видео

«Управление и технологии автоматизации учета на платформе 1С:Предприятие» Infostart Event Revolution 2013.

09.09.2019 6078 Zircool 1

Большой проект: документация
+2 –

Видео

Юрий Робышев. "Оценка и планирование проекта".

09.09.2019 2450 Zircool 1

Организация эффективного взаимодействия Заказчика и Исполнителя с использованием гибких (Agile) методик
+1 –

Видео

"Организация эффективного взаимодействия Заказчика и Исполнителя с использованием гибких (Agile) методик" - Captured Live on Ustream at http://www.ustream.tv/channel/infostart-event-2013-reovolution with the Ustream Mobile App

09.09.2019 2945 Zircool 1

"Программисты - кто они?, или как организовать работу
+ –

Видео

Илья Семёнов, Smart Processing "Программисты - кто они?, или как организовать работу" - Captured Live on Ustream at http://www.ustream.tv/channel/ier-2013-%D0%97%D0%B0%D0%BB-2 with the Ustream Mobile App

09.09.2019 2718 Zircool 1

Работа 1С:Предприятие 8 в облачных и виртуальных средах
+ –

Видео

1С. "Работа 1С:Предприятие 8 в облачных и виртуальных средах" - Captured Live on Ustream at http://www.ustream.tv/channel/infostart-event-2013-reovolution with the Ustream Mobile App

09.09.2019 5952 Zircool 1

Резервное копирование и хранение в облаках. Как построить надежный сервис
+ –

Видео

"Резервное копирование и хранение в облаках. Как построить надежный сервис" - Captured Live on Ustream at http://www.ustream.tv/channel/infostart-event-2013-reovolution with the Ustream Mobile App

09.09.2019 5484 Zircool 1

Смотреть все

Код
Процедура _нц_ПрисоединитьФайлыИзДокумента(Источник, Форма) Если ТипЗнч(Источник) = Тип("ДокументСсылка.ЗаявкаНаРасходованиеДенежныхСредств") Тогда МассивФайловЛокальный = РаботаСФайламиСлужебный.ПрисоединенныеФайлыКОбъекту(Источник, Истина); Для Каждого ПрисоединенныйФайл Из МассивФайловЛокальный Цикл Если ПрисоединенныйФайл.Размер > 0 Тогда СтрокаФайлов = Форма.Файлы.Добавить(); СтрокаФайлов.АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище(РаботаСФайлами.ДвоичныеДанныеФайла(ПрисоединенныйФайл.Ссылка, Ложь),Форма.УникальныйИдентификатор); СтрокаФайлов.Наименование = ПрисоединенныйФайл.Наименование; СтрокаФайлов.Расширение = ПрисоединенныйФайл.Расширение; СтрокаФайлов.ИндексКартинки = ИнтеграцияС1СДокументооборотБазоваяФункциональность.ИндексПиктограммыФайла( ПрисоединенныйФайл.Расширение); СтрокаФайлов.ДатаСоздания = ТекущаяДатаСеанса(); СтрокаФайлов.ДатаМодификацииУниверсальная = ТекущаяДатаСеанса(); СтрокаФайлов.Размер = ПрисоединенныйФайл.Размер; СтрокаФайлов.НомерКартинкиПодписанЗашифрован = -1; КонецЕсли; КонецЦикла; КонецЕсли; КонецПроцедуры //Используется при запуске процесса Функция _нц_ПрисоединитьФайлыИзДокументаПоПравилу(Источник,КонтрольОтправкиФайлов,ТолькоОбновление,ИдентификаторФормы = Неопределено) Результат = Новый Массив; Если ТипЗнч(Источник) = Тип("ДокументСсылка.ЗаявкаНаРасходованиеДенежныхСредств") Тогда МассивФайловЛокальный = РаботаСФайламиСлужебный.ПрисоединенныеФайлыКОбъекту(Источник, Истина); Для Каждого ПрисоединенныйФайл Из МассивФайловЛокальный Цикл Если ПрисоединенныйФайл.Размер > 0 Тогда ИмяВременногоФайла = ПолучитьИмяВременногоФайла(); Если ТолькоОбновление И РегистрыСведений.КонтрольОтправкиФайловВ1СДокументооборот.ФайлУжеОтправлен( Источник, ПрисоединенныйФайл.Наименование, ПрисоединенныйФайл.ВерсияДанных) Тогда Продолжить; ИначеЕсли КонтрольОтправкиФайлов <> Неопределено Тогда НоваяСтрока = КонтрольОтправкиФайлов.Добавить(); НоваяСтрока.Источник = Источник; НоваяСтрока.ИмяФайла = ПрисоединенныйФайл.Наименование; НоваяСтрока.ТабличныйДокумент = ПрисоединенныйФайл.ВерсияДанных; Иначе РегистрыСведений.КонтрольОтправкиФайловВ1СДокументооборот.СохранитьХешСуммуВерсииФайла( Источник, ПрисоединенныйФайл.Наименование, ПрисоединенныйФайл.ВерсияДанных); КонецЕсли; ДанныеФайла = РаботаСФайлами.ДвоичныеДанныеФайла(ПрисоединенныйФайл.Ссылка, Ложь); Если ДанныеФайла <> Неопределено Тогда ДанныеФайла.Записать(ИмяВременногоФайла); КонецЕсли; Файл = Новый Файл(ИмяВременногоФайла); ТекущийФайл = ИнтеграцияС1СДокументооборотБазоваяФункциональностьКлиентСервер.ДанныеФайла( ПрисоединенныйФайл.Наименование, Неопределено, "DMFile", ПрисоединенныйФайл.Расширение, Неопределено); ТекущийФайл.Размер = Файл.Размер(); ТекущийФайл.ДатаМодификации = Файл.ПолучитьВремяИзменения(); ТекущийФайл.ДатаМодификацииУниверсальная = Файл.ПолучитьУниверсальноеВремяИзменения(); ПараметрыСозданияФайла = ИнтеграцияС1СДокументооборотБазоваяФункциональностьКлиентСервер.НовыеПараметрыСозданияФайла(ТекущийФайл); ПараметрыСозданияФайла.АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище( Новый ДвоичныеДанные(ИмяВременногоФайла), ИдентификаторФормы); ПараметрыСозданияФайла.Владелец = Источник; Результат.Добавить(ПараметрыСозданияФайла); Файл = Неопределено; УдалитьФайлы(ИмяВременногоФайла); КонецЕсли; КонецЦикла; КонецЕсли; Возврат Результат; КонецФункции

Процедура _нц_ПрисоединитьФайлыИзДокумента(Источник, Форма)
   
   Если ТипЗнч(Источник) = Тип("ДокументСсылка.ЗаявкаНаРасходованиеДенежныхСредств") Тогда 
      МассивФайловЛокальный = РаботаСФайламиСлужебный.ПрисоединенныеФайлыКОбъекту(Источник, Истина);
         Для Каждого ПрисоединенныйФайл Из МассивФайловЛокальный Цикл
            Если ПрисоединенныйФайл.Размер > 0 Тогда   
               
                  СтрокаФайлов = Форма.Файлы.Добавить();  
                  СтрокаФайлов.АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище(РаботаСФайлами.ДвоичныеДанныеФайла(ПрисоединенныйФайл.Ссылка, Ложь),Форма.УникальныйИдентификатор);
                  СтрокаФайлов.Наименование = ПрисоединенныйФайл.Наименование;
                  СтрокаФайлов.Расширение = ПрисоединенныйФайл.Расширение;
                  СтрокаФайлов.ИндексКартинки =
                     ИнтеграцияС1СДокументооборотБазоваяФункциональность.ИндексПиктограммыФайла(
                        ПрисоединенныйФайл.Расширение);
                  СтрокаФайлов.ДатаСоздания = ТекущаяДатаСеанса();
                  СтрокаФайлов.ДатаМодификацииУниверсальная = ТекущаяДатаСеанса();
                  СтрокаФайлов.Размер = ПрисоединенныйФайл.Размер;
                  СтрокаФайлов.НомерКартинкиПодписанЗашифрован = -1;                             
            КонецЕсли;
         КонецЦикла;
   КонецЕсли;   
   
КонецПроцедуры  

//Используется при запуске процесса
Функция _нц_ПрисоединитьФайлыИзДокументаПоПравилу(Источник,КонтрольОтправкиФайлов,ТолькоОбновление,ИдентификаторФормы = Неопределено) 
   
   Результат = Новый Массив;

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

               
            Файл = Новый Файл(ИмяВременногоФайла);
            
            ТекущийФайл = ИнтеграцияС1СДокументооборотБазоваяФункциональностьКлиентСервер.ДанныеФайла(
               ПрисоединенныйФайл.Наименование,
               Неопределено,
               "DMFile",
               ПрисоединенныйФайл.Расширение,
               Неопределено);
            ТекущийФайл.Размер = Файл.Размер();
            ТекущийФайл.ДатаМодификации = Файл.ПолучитьВремяИзменения();
            ТекущийФайл.ДатаМодификацииУниверсальная = Файл.ПолучитьУниверсальноеВремяИзменения();
            
            ПараметрыСозданияФайла =
               ИнтеграцияС1СДокументооборотБазоваяФункциональностьКлиентСервер.НовыеПараметрыСозданияФайла(ТекущийФайл);
            ПараметрыСозданияФайла.АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище(
               Новый ДвоичныеДанные(ИмяВременногоФайла),
               ИдентификаторФормы);
            ПараметрыСозданияФайла.Владелец = Источник;

            Результат.Добавить(ПараметрыСозданияФайла);
            
            Файл = Неопределено;
            УдалитьФайлы(ИмяВременногоФайла);   
               
   
         КонецЕсли;
      КонецЦикла;
   КонецЕсли; 
   
   Возврат Результат;
   
КонецФункции

Первая процедура добавляется в конце процедуры ЗаполнитьФормуОбъектаДОПоПравилу, вторая в конце процедуры ЗаполнитьСтруктуруРеквизитовОбъектаДОПоПравилу

Dev › Автозаполнение рабочей группы на основании связей › #15 03.09.21 15:16

(1)

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

Код

 Задача = Событие.Источник;
   Для Каждого СтрокаТЧ из Задача.Предметы Цикл 
      Если  ТипЗнч(СтрокаТЧ.Предмет)   =  Тип("СправочникСсылка.ВнутренниеДокументы") Тогда 
         ТекущаяРабочаяГруппа = РаботаСРабочимиГруппами.ПолучитьРабочуюГруппуДокумента(СтрокаТЧ.Предмет);
         
         
         тСвязи = СвязиДокументов.ПолучитьВсеСвязиДокумента(СтрокаТЧ.Предмет); 
         Для Каждого СтрокаСвязей из тСвязи Цикл
            РабочаяГруппаСвязанногоДокумента = РаботаСРабочимиГруппами.ПолучитьРабочуюГруппуДокумента(СтрокаСвязей.СвязанныйДокумент);
            
            РабочаяГруппаИзменена = Ложь;

            Для Каждого Участник из ТекущаяРабочаяГруппа Цикл 
               Отбор = Новый Структура;
                Отбор.Вставить("Участник", Участник.Участник);
               
               НайденныеСтроки = РабочаяГруппаСвязанногоДокумента.НайтиСтроки(Отбор);
               Если НайденныеСтроки.Количество() = 0 Тогда
            
                  РабочаяГруппаИзменена = Истина;
                  
                  Строка = РабочаяГруппаСвязанногоДокумента.Добавить();
                  ЗаполнитьЗначенияСвойств(Строка,Участник); 
                  
               КонецЕсли;                
            КонецЦикла;
            
            Если РабочаяГруппаИзменена Тогда
               РаботаСРабочимиГруппами.ПерезаписатьРабочуюГруппуОбъекта(
                  СтрокаСвязей.СвязанныйДокумент,
                  РабочаяГруппаСвязанногоДокумента,
                  Истина); // ОбновитьПраваДоступа
            КонецЕсли;

            
         КонецЦикла;
      КонецЕсли;       
   КонецЦикла;

Добавьте скрипт в обработчики бизнес события и привяжитесь к событию создания задачи.

Обмен › Расширенный подбор сотрудников в рассылке расчетных листов › #10 29.07.20 13:30

(9) Супер!

Обмен › Расширенный подбор сотрудников в рассылке расчетных листов › #8 29.07.20 11:49

(7) 4 вариант: исправить ) А это можно сделать только путем создания нового расширения внутри вашей конфигурации (режим совместимости будет установлен автоматически) и через сравнение и объединение сравнить со скачанной обработкой.

Обмен › Расширенный подбор сотрудников в рассылке расчетных листов › #6 29.07.20 11:41

(5) нужно в базе ЗУП создать новое расширение, затем выбираем в меню нового расширения Конфигурация\Загрузить конфигурацию из файла и выбираем скачанный файл.

Обмен › Расширенный подбор сотрудников в рассылке расчетных листов › #4 29.07.20 10:30

(3) нужно сделать тогда следующее:

1. Открыть конфигуратор.
2. В меню Конфигурация\Расширения конфигурации
3. Добавляем расширение: в окне Расширения конфигурации в меню Действия\Добавить
4. Создаём расширение с значениями по умолчанию
5. Выбираем расширение и в меню Конфигурация\Загрузить конфигурацию из файла

Обмен › Расширенный подбор сотрудников в рассылке расчетных листов › #2 29.07.20 9:40

(1) Откройте расширение в конфигураторе (без установки), посмотрите, какой режим совместимости установлен в вашей рабочей базе ЗУП, установите такой же режим совместимости для расширения и сохраните его. После этих манипуляций, расширение не должно выдавать ошибок.

Dev › 1С ЗУП 3.1 Не получается добавить новое поле в форму списка Сотрудников › #16 28.05.20 18:14

(1) править надо запрос в общем модуле СотрудникиФормыРасширенный в функции ТекстыЗапросовФормыВыбораСотрудников()
Динамический список в форме только чтобы указать место вывода колонки.

Публикации › Контроль первичных документов, контроль возврата оригиналов с историей › #12 23.03.20 12:36

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

192 Рейтинг

Zircool Михаил Щербак

Рейтинг 192

Комментарии

192
Рейтинг

Zircool
Михаил Щербак