Стояла задача сделать отправку по кнопке из формы документа "Заявка покупателя" сформированного документа в формате pdf. Я немного помучался с отправкой email в 1с 7.7, не получалось удачно отправить письмо. Поэтому решил сделать это на самой хайповом языке в мире - петухоне Python! Ну а как же, мы тоже хотим быть модными молодежными и стильными, держать в правой руке банку ягуара смузи, а левой говнокодить кодить data science без знания матстатистики!!!
Ладно, приступим к делу!
По кнопке из "ЗаявкиПокупателя" отправлять по email в формате pdf под
1) Добавляем нужные реквизиты на форму контрагента
2) На форму документа "ЗаявкаПокупателя" добавляем кнопку "Отправить Email".
3) Ниже приведен пример кода обработки нажатия на кнопку "Отправить Email".
Функция json(Объект, Тип = "",СклеиваниеТаблиц=0)
СклеиваниеТаблиц = 1;
Если Тип = "" тогда
Тип = ТипЗначенияСтр(Объект);
КонецЕсли;
Если Тип = "ТаблицаЗначений" тогда
Сообщить("json type = таблица значений");
Количество = Объект.КоличествоСтрок();
JsonResult = "";
JsonResult = ?(СклеиваниеТаблиц=1,"","[");
Для н = 1 ПО Количество Цикл
Объект.ПолучитьСтрокуПоНомеру(н);
JsonResult = JsonResult + json(Объект, "СтрокаТаблицыЗначений") + ?(н < Количество , ", ", "");
Сообщить("JsonResult="+Строка(JsonResult));
КонецЦикла;
JsonResult = JsonResult + ?(СклеиваниеТаблиц=1,"","]");
Возврат JsonResult;
ИначеЕсли Тип = "СтрокаТаблицыЗначений" Тогда
JsonResult = "{";
Количество = Объект.КоличествоКолонок();
Для н = 1 ПО Количество Цикл
Ключ = Объект.ПолучитьПараметрыКолонки(н);
Значение = Объект.ПолучитьЗначение(Объект.НомерСтроки, н);
JsonResult = JsonResult + json(Ключ) + ": " + json(Значение) + ?(н < Количество , ", ", "");
КонецЦикла;
JsonResult = JsonResult + "}";
Возврат JsonResult;
ИначеЕсли Тип = "Строка" Тогда
Если СтрДлина(Объект) = 9 тогда
JsonResult = Объект;
иначе
JsonResult = СокрЛП(Объект);
КонецЕсли;
JsonResult = СтрЗаменить(JsonResult, "\", "\\");
JsonResult = СтрЗаменить(JsonResult, "/", "\/");
JsonResult = СтрЗаменить(JsonResult, """", "\""");
JsonResult = СтрЗаменить(JsonResult, Симв(13), "\r");
JsonResult = СтрЗаменить(JsonResult, Симв(9), "\t");
JsonResult = СтрЗаменить(JsonResult, Симв(10), "\n");
Возврат """" + JsonResult + """";
ИначеЕсли Тип = "Число" Тогда
Если Объект = Цел(Объект) тогда
Возврат Формат(Объект, "Ч015");
иначе
Возврат Формат(Объект, "Ч015.2");
КонецЕсли;
ИначеЕсли Тип = "Дата" Тогда
ДатаВремя= СтрокаДаты(ДатаГод(Объект))+"-"+СтрокаДаты(ДатаМесяц(Объект))+"-"+СтрокаДаты(ДатаЧисло(Объект))+"T00:00:00";
Возврат json(ДатаВремя);
Иначе
Возврат json(Строка(Объект));
КонецЕсли;
КонецФункции
Функция СоздатьИВернутьТаблицуСНужнымиКолонками()
ИсходныеДанные = СоздатьОбъект("ТаблицаЗначений");
ИсходныеДанные.InsertColumn("send_to","Строка",100);
ИсходныеДанные.InsertColumn("subject","Строка",100);
ИсходныеДанные.InsertColumn("text","Строка",100);
ИсходныеДанные.InsertColumn("attachment","Строка",200);
Возврат ИсходныеДанные;
КонецФункции
Функция СтрокаДаты(ЧислоДаты)
Если ЧислоДаты > 9 тогда
возврат Строка(ЧислоДаты);
иначе
возврат "0"+Строка(ЧислоДаты);
КонецЕсли;
КонецФункции
Функция Получить_ПутьКФайлу_СчетДоговор()
СразуНаПринтер = 0;
КолЭкз = 1;
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(глВзятьКонтекст(Контекст), "Контекст");
Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");
Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");
Параметры.ДобавитьЗначение(СПодписьюИПечатью, "СПодписьюИПечатью");
Параметры.ДобавитьЗначение(1, "СохранитьВФайл");
Параметры.ДобавитьЗначение(СчетИзмененный, "СчетИзмененный");
Параметры.ДобавитьЗначение(СохранитьВPDF, "pdf");
ОткрытьФорму("Обработка", Параметры, КаталогИБ() + "\ExtForms\PrnForms\zayavka_schet_dogovor.ert");
Если СохранитьВPDF=0 Тогда
Возврат "E:\1C Bases\1CByx\send_email\schet_dogovor.xls";
Иначе
Возврат "E:\1C Bases\1CByx\send_email\schet_dogovor.pdf";
КонецЕсли;
КонецФункции
Процедура ОтправитьEmail()
ПутьКФайлу_СчетДоговор = Получить_ПутьКФайлу_СчетДоговор();
ПутьКФайлу_СчетДоговор = СтрЗаменить(ПутьКФайлу_СчетДоговор,"\\","/");
ПутьКФайлу_СчетДоговор = СтрЗаменить(ПутьКФайлу_СчетДоговор,"\","/");
ТекстПисьма = СокрЛП(Комментарий);
ТекстПисьма = СтрЗаменить(ТекстПисьма, РазделительСтрок, "\n");
Если СчетИзмененный = 0 Тогда
ТемаПисьма = "Счет от ООО 'Ромашка'";
Иначе
ТемаПисьма = "Счет от ООО 'Ромашка' измененный";
КонецЕсли;
ТЗ = СоздатьИВернутьТаблицуСНужнымиКолонками();
send_to = "";
ЭлементДобавлен = 0;
Если Контрагент.ЭлПочтаВыбор = 1 Тогда
send_to = send_to+СокрЛП(Контрагент.ЭлПочта);
ЭлементДобавлен = 1;
КонецЕсли;
Если Контрагент.ЭлПочта1Выбор = 1 Тогда
Если ЭлементДобавлен = 1 Тогда
send_to = send_to+", ";
КонецЕсли;
send_to = send_to+Контрагент.ЭлПочта1;
КонецЕсли;
Если Контрагент.ЭлПочта2Выбор = 1 Тогда
Если ЭлементДобавлен = 1 Тогда
send_to = send_to+", ";
КонецЕсли;
send_to = send_to+Контрагент.ЭлПочта2;
КонецЕсли;
json_text = "{
|"+""""+"send_to"+""""+": "+""""+СокрЛП(send_to)+""""+",
|"+""""+"subject"+""""+": "+""""+СокрЛП(ТемаПисьма)+""""+",
|"+""""+"text"+""""+": "+""""+СокрЛП(ТекстПисьма)+""""+",
|"+""""+"attachment"+""""+": "+""""+СокрЛП(ПутьКФайлу_СчетДоговор)+""""+"
|}";
Текст = СоздатьОбъект("Текст");
Текст.КодоваяСтраница(0);
Текст.ДобавитьСтроку(json_text);
Текст.Записать("E:\1C Bases\1CByx\send_email\data_send_email.json");
ЗапуститьПриложение("E:\1C Bases\1CByx\send_email\run_script.bat");
Сообщить("Отправлен счет-договор на email '"+send_to+"'");
КонецПроцедуры
Собственно, во вложении находятся файлы с говонокодом кодом на самом хайповом языке вселенной Python, с помощью которого и происходит отправка писем на почтовые ящики клиентов с вложениями pdf, считывая данные ищ json, который мы сформировали в 1с 7.7 !
*протестировано и работает на конфигурации 1с 7.7 ТиС 7.70.935 на платформе 7.70.020.
