ENDENHANCEMENT.
ENHANCEMENT 1 ZCHANGE_EMAILTITLE. "active version
*
* DATA: PARNR LIKE nast-PARNR,
* objky LIKE nast-objky.
** IF nast-KAPPL eq 'V3' AND nast-KSCHL eq 'ZRD0' AND nast-TCODE eq 'CS01' AND
** nast-LDEST eq 'MAIL' AND nast-NACHA eq '5'.
* IF nast-NACHA eq '5'.
* WRITE nast-PARNR to PARNR NO-ZERO.
* WRITE nast-objky to objky NO-ZERO.
* CONCATENATE 'VTech Invoice No.:' nast-OBJKY 'to customer:' PARNR
* INTO nast-TDCOVTITLE SEPARATED BY space.
* ENDIF.
ENDENHANCEMENT.
*$*$-End: EHP_PROGRAMM_AUFRUFEN_02------------------------------------------------------------$*$*
tnapr-ronam = ronam.
tnapr-fonam = fonam.
tnapr-pgnam = pgnam.
ENHANCEMENT 1 ZCHANGE_EMAILTITLE. "active version
*
* DATA: PARNR LIKE nast-PARNR,
* objky LIKE nast-objky.
** IF nast-KAPPL eq 'V3' AND nast-KSCHL eq 'ZRD0' AND nast-TCODE eq 'CS01' AND
** nast-LDEST eq 'MAIL' AND nast-NACHA eq '5'.
* IF nast-NACHA eq '5'.
* WRITE nast-PARNR to PARNR NO-ZERO.
* WRITE nast-objky to objky NO-ZERO.
* CONCATENATE 'VTech Invoice No.:' nast-OBJKY 'to customer:' PARNR
* INTO nast-TDCOVTITLE SEPARATED BY space.
* ENDIF.
ENDENHANCEMENT.
*$*$-End: EHP_PROGRAMM_AUFRUFEN_02------------------------------------------------------------$*$*
tnapr-ronam = ronam.
tnapr-fonam = fonam.
tnapr-pgnam = pgnam.

本文详细阐述了如何通过编程逻辑优化电子邮件标题,包括特定条件下的数据处理和字符串操作,旨在提高邮件标题的清晰性和信息传递效率。
2124

被折叠的 条评论
为什么被折叠?



