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.