Расчетные листки организации с рассылкой по почте. Вариант 2

07.05.24

Расчетные листки организации с рассылкой по почте. Вызывается стандартный отчет и анализируется для формирования рассылки расчетных листков в формате xls на почтовые ящики сотрудников.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
РасчетныеЛисткиОрганизаций.epf .epf 22,30Kb 606	606	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

Решил адаптировать отчет для УПП и пришел к идее что лучше будет не копировать стандартный отчет и адаптировать, а вызвать его и проанализировать результаты. В общих чертах: из обработки открывается форма отчета "РасчетныеЛисткиОрганизаций", к ней присоединяется форма формирования рассылки.

Тестировалось в УПП 1.2.25.1 и ЗУП 2.5.17.8 и 2.5.18.2

07.05.2024: тестировалось в УПП 1.3 (1.3.227.1)

Проверено на следующих конфигурациях и релизах:

Управление производственным предприятием, редакция 1.3, релизы 1.3.227.1

Вступайте в нашу телеграмм-группу Инфостарт

+85 –

См. также

Консолидация 1С:ЗУП. Создание и настройка обмена

Зарплата Консолидация данных 1С:Зарплата и Управление Персоналом 3.x Россия Управленческий учет Платные (руб)

Расширение для создания и настройки обмена с консолидированной базой ЗУП. Код разработки под определенные требования проекта.

85400 руб.

11.07.2025 7103 6 1

Сервисный центр по ремонту техники для 1С УТ, УНФ, ERP, КА, БП (Расширение Модуль ТОиР)

Зарплата Производство готовой продукции (работ, услуг) Учет рабочего времени Рабочее место Аналитик Пользователь Руководитель проекта 1С:Предприятие 8 1С:Управление торговлей 10 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Торговля и склад 7.7 Бытовые услуги, сервис Оптовая торговля, дистрибуция, логистика Электротехника и микроэлектроника Управленческий учет Платные (руб)

Модуль или расширение «Сервисный центр для 1С» позволяет принимать в ремонт оборудование (компьютеры, бытовая техника и т.п.), оформлять заявки инженеров на посещение клиентов и вести начисление заработной платы для сотрудников. Позволяет наладить автоматизированный учет в сервисном центре на уже существующей базе.

15500 руб.

01.11.2012 108813 137 1

144

SALE! 50%

Рассылки из 1С через Email, SMS, MAX, WhatsApp, Telegram - Директ Маркетинг

Мессенджеры и боты SMS рассылки Email рассылки Пользователь 1С:Предприятие 8 1C:Бухгалтерия 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Управленческий учет Платные (руб)

Расширение 1С с полным набором инструментов для качественных транзакционных, триггерных и маркетинговых рассылок Email, SMS, MAX, WhatsApp, Telegram. Даже простые уведомления об оплате счетов способны существенно упростить сбор дебиторской задолженности. Применение всех возможностей прямого маркетинга выводит коммуникацию с клиентами, уровень сервиса и лояльность на новый уровень.

~~6100~~ 3050 руб.

07.04.2014 99701 92 205

175

Перенос данных из Камин 3.5 (5.5) в ЗиКГУ 3.х

Перенос данных 1C Зарплата Бюджетный учет Разработчик Бухгалтер 1С:Предприятие 8 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x Государственные, бюджетные структуры Россия Бюджетный учет Платные (руб)

Обработки для быстрого перехода с конфигураций «КАМИН:Расчет зарплаты для бюджетных учреждений 3.5» и «КАМИН:Зарплата для бюджетных учреждений 5.5» на конфигурацию «Зарплата и кадры государственного учреждения».

20740 руб.

28.07.2016 73751 196 160

159

Кадровый учет. Отпуска и Командировки в 1С:УНФ 3.0

Зарплата Кадровый учет Бухгалтер 1С:Предприятие 8 1С:Управление нашей фирмой 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Предлагаем расширить возможности конфигурации 1С:УНФ 3.0 в части ведения кадрового учета. С помощью данного расширения в конфигурацию будут добавлены новые документы: "Отпуск" и "Командировка". Документы облегчат работу кадровика и расчетчика, а также повысят эффективность работы за счет оптимизации и упрощения процесса ведения учета.

36600 руб.

31.10.2024 4194 4 0

Акты сверки + Групповая подготовка и рассылка актов сверки для Бухгалтерии 3.0

Взаиморасчеты Email рассылки Акт сверки Бухгалтер Пользователь 1С:Предприятие 8 1С:Бухгалтерия 3.0 Бухгалтерский учет Платные (руб)

Внешняя обработка для Бухгалтерии 3.0 - позволяет автоматически формировать документы «Акт сверки расчетов» с контрагентами за выбранный период с последующей фоновой отправкой на почту контрагента.

5084 руб.

25.11.2020 31649 345 21

296

Выгрузка файла по расчетным листкам в банк

Зарплата Обмен с интернет-банком Файловый обмен (TXT, XML, DBF), FTP Печатные формы Бухгалтер 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет НДФЛ Платные (руб)

Выгрузка расчетных листков из 1С в банк в формате XML. Поддерживаются форматы файлов для Сбера, Альфабанка, Росбанк

6100 руб.

29.11.2021 32735 141 32

134

Перенос данных из Парус 8 в ЗГУ ред.3

Зарплата Внешние источники данных Бюджетный учет Перенос данных 1C Системный администратор Разработчик 1С:Предприятие 8 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактическим удержаниям, НДФЛ, вычетам, страховым взносам из базы Парус 8 учреждений (далее Парус) в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (далее 1С) и начать с ней работать с любого месяца года.

122000 руб.

19.08.2020 30612 28 3

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. gutentag 253 03.11.09 21:29 Сейчас в теме

Полезная вещь!

2. rabanik 2 17.11.09 19:08 Сейчас в теме

Спасибо

3. ctankina 04.12.09 11:32 Сейчас в теме

Очень полезная вещь!

4. MOPC 24 19.05.10 09:10 Сейчас в теме

Спасибо.

Модифицировал - добавил получение адреса электронной почты из AD.

Функция ПолучитьАдресЭлектроннойПочтыИзActiveDirectory(Объект) Экспорт
//
Адр = "";
АдоСоед = новый ComObject("ADODB.Connection");
АдоСоед.Provider = "ADSDSOObject";
АдоСоед.Open("ADs Provider");

query = "SELECT ADsPath FROM 'LDAP://DC=ВашДомен,DC=ru' WHERE objectClass='user' AND objectCategory='person' AND name = '"+Объект.Сотрудник.Наименование+"'";

Cmd = Новый ComObject("ADODB.Command");
Cmd.ActiveConnection = АдоСоед;
Cmd.CommandType = 1;
Cmd.CommandText= query;

Rs = новый ComObject("ADODB.RecordSet");

попытка
Rs = Cmd.Execute();

Rs.MoveFirst();
Пока Rs.EOF() = 0 do
Value1 = ПолучитьCOMОбъект(Rs.Fields("ADsPath").Value);
Адр = Value1.Mail;
Rs.MoveNext();
КонецЦикла;
исключение
Сообщить("Почтовый адрес в AD для сотрудника "+Объект.Сотрудник.Наименование+" не найден!");
конецпопытки;
Rs.Close();
Rs = NULL;
Cmd = NULL;
АдоСоед.Close();
АдоСоед = NULL;

возврат Адр;
конецфункции

//////////////////////////////////

Использование:

Процедура СформироватьТаблицуСотрудников(ТабличныйДокумент,ДанныеРасшифровки) Экспорт
...
Для каждого СтрокаТабл Из ТаблицаСотрудников Цикл
СтрокаТабл.Адрес=ПолучитьАдресЭлектроннойПочтыИзActiveDirectory(СтрокаТабл);
если ПустаяСтрока(СтрокаТабл.Адрес) тогда
СтрокаТабл.Адрес=ПолучитьАдресЭлектроннойПочтыИзКонтактнойИнформации(СтрокаТабл.Сотрудник.Физлицо);
конецесли;
Если ПустаяСтрока(СтрокаТабл.Адрес) Тогда
СтрокаТабл.Пометка=Ложь;
возврат;
КонецЕсли;
...

5. kate_kate 07.06.10 17:38 Сейчас в теме

Спасибо большое, очень помог этот отчетик

6. Anna_Vl 18.11.10 10:48 Сейчас в теме

Спасибо огромное, отличный отчет!

7. sound 538 29.12.10 00:03 Сейчас в теме

Ай маладца! Хотел уже сам писать. Лови жЫрный плюс!

8. nicon1984 02.02.11 23:19 Сейчас в теме

Отличная вещь=) попробовал на 2.5.31 все прекрасно работает, респект.

9. Lo1jke 05.07.11 14:19 Сейчас в теме

Спасибо, очень полезно!

10. vlasov 20.07.11 17:36 Сейчас в теме

Спасибо!

11. amalisheva 15.09.11 14:51 Сейчас в теме

хорошая вешь! огромное спасибо

12. aqua22 25.09.11 22:35 Сейчас в теме

Спасибо! Очень полезная обработка!

13. e_kazakova 81 23.11.11 11:49 Сейчас в теме

А для ЗУП 8.2 эта обработка будет работать?

14. oaizatulin@yahoo.com 28.12.11 13:17 Сейчас в теме

Супер! Большое спасибо. Надесь быстро врубиться и внедрить до НГ

15. oaizatulin@yahoo.com 28.12.11 13:18 Сейчас в теме

Скажите пож.
Модифицировал - добавил получение адреса электронной почты из AD.

Функция ПолучитьАдресЭлектроннойПочтыИзActiveDirectory(Объект) Экспорт
//
Адр = "";
АдоСоед = новый ComObject("ADODB.Connection");
АдоСоед.Provider = "ADSDSOObject";
АдоСоед.Open("ADs Provider");

query = "SEL ECT ADsPath FR OM 'LDAP://DC=ВашДомен,DC=ru' WHERE objectClass='user' AND objectCategory='person' AND name = '"+Объект.Сотрудник.Наименование+"'";

Cmd = Новый ComObject("ADODB.Command");
Cmd.ActiveConnection = АдоСоед;
Cmd.CommandType = 1;
Cmd.CommandText= query;

Rs = новый ComObject("ADODB.RecordSet");

попытка
Rs = Cmd.Execute();

Rs.MoveFirst();
Пока Rs.EOF() = 0 do
Value1 = ПолучитьCOMОбъект(Rs.Fields("ADsPath").Value);
Адр = Value1.Mail;
Rs.MoveNext();
КонецЦикла;
исключение
Сообщить("Почтовый адрес в AD для сотрудника "+Объект.Сотрудник.Наименование+" не найден!");
конецпопытки;
Rs.Close();
Rs = NULL;
Cmd = NULL;
АдоСоед.Close();
АдоСоед = NULL;

возврат Адр;
конецфункции

//////////////////////////////////

Показать

Использование:

Процедура СформироватьТаблицуСотрудников(ТабличныйДокумент,ДанныеРасшифровки) Экспорт
...
Для каждого СтрокаТабл Из ТаблицаСотрудников Цикл
СтрокаТабл.Адрес=ПолучитьАдресЭлектроннойПочтыИзActiveDirectory(СтрокаТабл);
если ПустаяСтрока(СтрокаТабл.Адрес) тогда
СтрокаТабл.Адрес=ПолучитьАдресЭлектроннойПочтыИзКонтактнойИнформации(СтрокаТабл.Сотрудник.Физлицо);
конецесли;
Если ПустаяСтрока(СтрокаТабл.Адрес) Тогда
СтрокаТабл.Пометка=Ложь;
возврат;
КонецЕсли;

а этот код как использовать?

16. Alltruist 114 28.12.11 13:23 Сейчас в теме

(15) oaizatulin@yahoo.com, я не понял о каком именно коде идет речь?

17. kit 74 26.01.12 01:07 Сейчас в теме

Отчет пригодился, спасибо!

18. Andryuha83 16.02.12 13:42 Сейчас в теме

А там код открытый?
Нужно сделать такой отчет, жаль скачать пока не могу(

20. Alltruist 114 16.02.12 14:36 Сейчас в теме

(18) Открытый.

19. Мать Тереза 16.02.12 13:58 Сейчас в теме

Расчетные листки-хорошая вещь,частенько народ просит, а тут рассылкой-экономит время, особенно у кого штат большой.

21. lira_nk 16.02.12 14:47 Сейчас в теме

Полезная вещица,забираю :)

22. Gonza1978 20.02.12 11:10 Сейчас в теме

Отличная вещь!!! Самому поставили задачу доработать программу, чтобы можно было рассылать расчетные листки сотрудникам. Подумал, может есть что-то уже готовое. И точно - есть!
Реализовано лучше не придумаешь! В список рассылки попадают только те, у которых заполнено поле E-mail. Тема письма формируется автоматически и сразу понятная пользователям.
В ЗУП под 1С8.2 великолепно работает после стандартной конвертации. Единственное, у меня ранее встроенная учетная запись была настроена без реальной настройки пользователя POP3, а при рассылке расчетных листков почему то стала ругаться, что нет такого пользователя. Ну это мелочи, да и ругается скорее всего сам стандартный модуль рассылки.

23. festiv1 07.03.12 19:21 Сейчас в теме

А можно отправить по e-mail altress@yandex.ru? не получается скачать

24. iran3 05.04.12 13:12 Сейчас в теме

Пожалуйста, скиньте этот отчетик на irbor@mail.ru. Очень нужно и время не терпит. Заранее большое спасибо!

25. necropunk 12 05.06.12 13:09 Сейчас в теме

Жирный плюс. Хорошая реализация. Переписал под себя, все замечательно.

26. Pavel777777 76 19.07.12 20:29 Сейчас в теме

Вещь! Спасибо!

27. Mixailo333 19.09.12 22:54 Сейчас в теме

Скажите, а как проверить корректность работы, если всем сотрудникам уже забит свой и-мейл? Не переделывать же вручную для каждого сотрудника на тестовый адрес...

28. RakovskiyK 21.11.12 22:52 Сейчас в теме

великолепно! как раз то, что нужно. пробовал другие, но здесь есть выборочная рассылка. работает великолепно.

29. Zhilyakovdr 148 11.03.13 17:47 Сейчас в теме

Отличная штука! Работает на Комплексной.

30. Baksheev-Nikita 589 29.05.13 11:20 Сейчас в теме

Хорошая публикация. Большой плюс в том, что вызывается стандартный типовой отчет, а на его основе формируются письма. Таким образом обновления типовых конфигураций не влияют на работоспособность данной обработки.

31. Lo1jke 03.08.13 16:47 Сейчас в теме

Изменил Вашу обработку и использую каждый месяц при рассылке расчеток. Спасибо большое за труды!

32. Mila81 34 04.12.13 15:34 Сейчас в теме

спасибо, пригодилось :)

33. sergio199 17 21.07.14 08:24 Сейчас в теме

Интересная. Замечание хотелось бы добавить - желательно добавить проверку на наличие каталога и вообще поле для хранения файлов с расчетными листами вывести на форму. ну а так - респект за обработку!

34. stroga 89 29.07.16 16:31 Сейчас в теме

Обработка проработала несколько лет. Сейчас выдает ошибку:
Обработка.РасчетныеЛисткиОрганизацийПоПочте.МодульОбъекта(515)}: Значение, соответствующее ключу, не задано
Сотрудник = ДанныеРасшифровки.Элементы[ИдентификаторРасшифровки].ПолучитьПоля()[0].Значение;
Причем только в клиент-серверном варианте работы 1С (УПП). В файловом варианте БД, локально без ошибок.

35. Alltruist 114 29.07.16 20:24 Сейчас в теме

(34) stroga, а версия УПП какая?

36. itriot11 74 29.12.16 12:10 Сейчас в теме

(35) столкнулся с тем же, что и (34)

1С:Предприятие 8.3 (8.3.9.1818)
Управление производственным предприятием, редакция 1.3 (1.3.85.2)

Правится изменением в двух местах этого:

ИдентификаторРасшифровки=ТабличныйДокумент.Область(НомерСтрокиНачалаРЛ+3,1 , НомерСтрокиНачалаРЛ+3,1 ).Расшифровка;
Сотрудник = ДанныеРасшифровки.Элементы[ИдентификаторРасшифровки].ПолучитьПоля()[0].Значение;

на это

Сотрудник = ТабличныйДокумент.Область(НомерСтрокиНачалаРЛ+3,1 , НомерСтрокиНачалаРЛ+3,1 ).Расшифровка;

Спасибо за разработку!

42. rkozom 25.05.21 10:29 Сейчас в теме

(36)

Сотрудник = ТабличныйДокумент.Область(НомерСтрокиНачалаРЛ+3,1 , НомерСтрокиНачалаРЛ+3,1 ).Расшифровка;

(36)

Спасибо большое за подсказку! Все заработало на версии 2.5.161.1.

43. it-volna.com 21 27.03.22 13:45 Сейчас в теме

Проверено на УПП 1.3 (1.3.176.2) работает надо только внести изменения из
(36)

Сотрудник = ТабличныйДокумент.Область(НомерСтрокиНачалаРЛ+3,1 , НомерСтрокиНачалаРЛ+3,1 ).Расшифровка;

37. user752987 30.05.17 11:44 Сейчас в теме

Добрый день, скачали обработку, но при формировании списка выдает ошибку (во вложении). Как исправить ошибку?

Прикрепленные файлы:

ошибка расч.листки.docx

38. user817736 12.02.18 12:45 Сейчас в теме

Спасибо большое! Отлично работает и выручает.

39. sound 538 13.02.18 10:32 Сейчас в теме

Проверил еще раз, все работает

40. Alltruist 114 13.02.18 13:53 Сейчас в теме

Кто бы мог подумать! Написал эту обработку в 2009 году, а до сих пор живет...

41. alo2012 23 02.03.18 11:23 Сейчас в теме

Спасибо, помогло.

44. user1997820 24.04.24 09:48 Сейчас в теме

Добрый день! Нажимаю на кнопку Сформировать список

Получаю ошибку
Значение, соответствующее ключу, не задано
{ВнешняяОбработка.РасчетныеЛисткиОрганизаций.МодульОбъекта(515)}: Сотрудник = ДанныеРасшифровки.Элементы[ИдентификаторРасшифровки].ПолучитьПоля()[0].Значение;
{ВнешняяОбработка.РасчетныеЛисткиОрганизаций.Форма.ФормаОтправкиПочты.Форма(149)}: СформироватьТаблицуСотрудников(ТабличныйДокумент,ВладелецФормы.ДанныеРасшифровки);

Управление производственным предприятием, редакция 1.3 (1.3.225.1)
1С:Предприятие 8.3 (8.3.24.1467)

45. Alltruist 114 25.04.24 11:43 Сейчас в теме

(44) Добрый день! Этой обработке уже много лет и уже даже успел забыть про ее существование. Постараюсь на майских праздниках посмотреть по вашей ошибке.