SAP VF03 Invoice Email Enahcement:RSNAST00

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.