Obiettivo
Ricavare l’indirizzo email di default, SMTP_ADDR, del cliente, KUNNR.
Modalità
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
*&---------------------------------------------------------------------* *& Form get_email_address *&---------------------------------------------------------------------* * text Returns in SMTP_ADDR the customer, KUNNR, default email address. * (by N4N) *----------------------------------------------------------------------* * -->KUNNR text * -->SMTP_ADDR text *----------------------------------------------------------------------* FORM get_email_address USING kunnr smtp_addr. DATA: t_adrnr TYPE adrnr, t_smtp_addr TYPE ad_smtpadr. SELECT SINGLE adrnr FROM kna1 INTO t_adrnr WHERE kunnr = kunnr. IF sy-subrc EQ 0. SELECT SINGLE smtp_addr FROM adr6 INTO t_smtp_addr WHERE addrnumber = t_adrnr and flgdefault = 'X'. IF sy-subrc EQ 0. smtp_addr = t_smtp_addr. ENDIF. ENDIF. ENDFORM. "get_email_address |