Всем привет!
Наверняка кто-то уже сталкивался с такой проблемой: не получается передать текст письма при отправке формы напоминания по e-mail.
Письмо приходит пустое, во вложении - формуляр напоминания (PDF).
Тему письма задаю через поле c_itcpo-tdtitle (ZSAMPLE_PROCESS_00001040), это работает.
Но почему-то не подхватывается текст пиьма, которое передаю через поле С_FINAA-NAMEP или С_FINAA-MAIL_BODY_TEXT.
Вот что пишут в ноте 1042992:
Code:
Call transaction SO10 and define an introductory text (language-dependent) in the text ID FIKO. Select your own name for the text.
Enter the name of the introductory text in the field FINAA-NAMEP of process exit 1040.
Что делаю я:
Code:
FUNCTION zsample_process_00001040.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*" IMPORTING
*" VALUE(I_KNA1) LIKE KNA1 STRUCTURE KNA1
*" VALUE(I_KNB1) LIKE KNB1 STRUCTURE KNB1
*" VALUE(I_LFA1) LIKE LFA1 STRUCTURE LFA1
*" VALUE(I_LFB1) LIKE LFB1 STRUCTURE LFB1
*" VALUE(I_MHNK) LIKE MHNK STRUCTURE MHNK
*" VALUE(I_F150D2) LIKE F150D2 STRUCTURE F150D2
*" VALUE(I_T047E) LIKE T047E STRUCTURE T047E
*" VALUE(I_UPDATE) LIKE BOOLE-BOOLE
*" TABLES
*" T_FIMSG STRUCTURE FIMSG
*" CHANGING
*" VALUE(C_FINAA) LIKE FINAA STRUCTURE FINAA
*" VALUE(C_ITCPO) LIKE ITCPO STRUCTURE ITCPO
*" VALUE(C_ARCHIVE_INDEX) LIKE TOA_DARA STRUCTURE TOA_DARA
*" DEFAULT SPACE
*" VALUE(C_ARCHIVE_PARAMS) LIKE ARC_PARAMS STRUCTURE ARC_PARAMS
*" DEFAULT SPACE
*"----------------------------------------------------------------------
DATA: l_adr6 TYPE adr6,
l_namep LIKE c_finaa-namep VALUE 'ZFXXXX_DUNN_MAIL_BODY'.
IF i_t047e-fornr = 'ZF150_DUNN_01'
AND i_kna1 IS NOT INITIAL.
SELECT SINGLE *
INTO l_adr6
FROM adr6
WHERE addrnumber = i_kna1-adrnr.
break support.
c_itcpo-tdtitle = 'Напоминание по дебиторской задолженности'.
c_finaa-nacha = 'I'. "by e-mail
c_finaa-intad = l_adr6-smtp_addr.
REPLACE 'XXXX' IN l_namep WITH i_mhnk-bukrs.
c_finaa-namep = l_namep. "'ZF75_DUNN_MAIL_BODY'.
* c_finaa-mail_body_text = l_namep."'ZF75_DUNN_MAIL_BODY'.
ENDIF.
ENDFUNCTION.
Переменная l_namep содержит строку 'ZF75_DUNN_MAIL_BODY'.
текст ZF75_DUNN_MAIL_BODY проверяю с помощью ФМ READ_TEXT (ID = 'FIKO', NAME = 'ZF75_DUNN_MAIL_BODY', OBJECT = 'TEXT', ), он заведен на языках RU, EN и DE.
все ОК, текст находится.
Может я еще что-то забыла?
Заранее благодарю )