Архив автора: Anton

Сохранение отправленных писем из 1С в папке «Отправленные» по imap

Добавить комментарий

Появилась необходимость сохранять отправленные из 1С письма на веб-почте yandex, в папке Отправленные
для реализации использую протокол IMAP — настройки надо прописать в 1С, в учетной записи электопочты
дописал несколько модулей, все работает )

все дописки связаны с передачей Профиля подключения к почте в процедуру отправки, это не сложно
главная дописка в модуле «РаботаСПочтовымиСообщениямиСлужебный», в процедуре «ОтправитьСообщение» в самом конце, перед Возврат_ом

//Антон { сохранить письмо в Отправленных
Если ЗначениеЗаполнено(Профиль.АдресСервераIMAP) Тогда
    ИнтернетПочта = Новый ИнтернетПочта;
    ИнтернетПочта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP);
    ИнтернетПочта.ТекущийПочтовыйЯщик = "Отправленные";
    ИнтернетПочта.Послать(Письмо,, ПротоколИнтернетПочты.IMAP);
    ИнтернетПочта.Отключиться();
КонецЕсли;
//---}

Печатная форма из СКД

Добавить комментарий 
Функция СформироватьПечатнуюФорму(МассивОбъектов) Экспорт

    ТабличныйДокумент = Новый ТабличныйДокумент;
    ТабличныйДокумент.АвтоМасштаб = Истина;
    ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабличныйДокумент.ОтображатьСетку = Ложь;
    ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_WB";

    ИмяФайла = ПолучитьИмяВременногоФайла();
    ПолучитьМакет("Настройка").Записать(ИмяФайла);

    ЧтениеХМЛ = Новый ЧтениеXML;
    ЧтениеХМЛ.ОткрытьФайл(ИмяФайла);

    НовыйСXDTO = Новый СериализаторXDTO(ФабрикаXDTO);
    Настройки = НовыйСXDTO.ПрочитатьXML(ЧтениеХМЛ);

    ЧтениеХМЛ = Неопределено;
    УдалитьФайлы(ИмяФайла);

    КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
    КомпоновщикНастроек.ЗагрузитьНастройки(Настройки);

    Эл = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("МассивДокументов");
    Эл.Значение = МассивОбъектов;

    Схема = ПолучитьМакет("Схема");

    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, КомпоновщикНастроек.Настройки);

    ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);

    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ТабличныйДокумент);
    ПроцессорВывода.Вывести(ПроцессорКомпоновки, Истина);

    Возврат ТабличныйДокумент;

КонецФункции

1С + Slack = очень удобная оповещалка

Добавить комментарий

Раньше слал логи рег. заданий себе на почту.
Ящик быстро замусоривался
Slack оказался намного удобнее + есть хорошая аппа для iPhone и Apple Watch с PUSH уведомлениями
Snap_2015.08.11_11h47m48s_047
Читать далее →

Интеграция 1С УТ11 с курьерской службой Axiomus

Добавить комментарий

Обработка обмена с Axiomus реализована в виде внешней печатной формы для документа Заказ покупателя, это позволяет использовать ее без внесения изменений в типовую конфигурацию
Обработка создает Заявку на доставку в личном кабинете Axiomus и получает статус исполнения этой заявки
Планирую дописать создание Реализации, после того как заказ будет доставлен.
Так же есть версия для 1С УТ 10.3!
(эту обработку можно купить и заказать доработку под ваши уникальные бизнес-процессы)
Ashampoo_Snap_2014.12.10_12h01m20s_011_

Интеграция сервиса dadata.ru с 1С

Добавить комментарий

один из API сервиса dadata.ru позволяет преобразовать адрес, написанный как попало, в упорядоченную структуру. примерно тоже самое приходилось делать руками — искать в КЛАДР регион, улицу и т.д.
dadata.ru

Читать далее →