Форум

Добрый день!

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

Донастроить автоматическую отправку накладной в шаблоне FR4, скажем ТОРГ12 не сложно.
В качестве примера в прикреплении я такой вариант шаблона выложил.ШАБЛОН ТОРГ12 для АВТОМАТИЧЕСКОЙ ОТПРАВКИ ПО MAIL
Добавлены пара источников Mail, DataZak по аналогии с шаблоном счета FR4 и перед печатью передаются необходимые параметры.


procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin

// Моя добавка для передачи эл.адреса, темы и тела письма, настроек почтового сервера

DataZak.Close;
DataZak.Params.ParamByName('код_партнера').AsString :=
shapka.FieldByName('КОД_КОНТРАГЕНТА').AsString;
DataZak.Open;

report.Address := DataZak.FieldByName('АДРЕС_ЭЛЕКТРОННОЙ_ПОЧТЫ').AsString;
report.MailSubject := 'Товарная накладная по счету/заказу № '+Shapka.FieldByname('ДОГОВОРСЧЕТЗАКАЗ').AsString;
report.MailText := 'Оригиналы документов высланы по почте';

Mail.Open;
report.Host := Mail.FieldByName('Сервер').AsString;
report.User := Mail.FieldByName('Пользователь').AsString;
report.Password := Mail.FieldByName('Пароль').AsString;
report.MailTo := Mail.FieldByName('Адрес_Отправки').AsString;
INDS_nob := true;

// Дальше по системному шаблону без изменений

DD1.Visible := (CheckBoxSerNum.Checked=true);
DD2.Visible := (CheckBoxkompl.Checked=true);
HeaderDD2.Visible := (CheckBoxkompl.Checked=true);
end;

Посмотрите в дизайнере, если что не устраивает можно поправить.
В системный шаблон это не включали, т.к. особых запросов не было.

А Вы оригиналы печати, подписи тоже вставляете в шаблоны накладных?
Если возникнет необходимость доработать какие-то отчеты, документы под конкретное предприятие , то всегда можно сделать на договорной основе.

С уважением,
С.Павличенко