Geschaeftspartner Telefonnummer

Code: Alles auswählen.

DATA : gpart      LIKE but020-partner.
DATA : addrnumber LIKE but020-addrnumber.
DATA : persnumber LIKE adr2-persnumber.
DATA : i_adr2     LIKE adr2 OCCURS 0.
DATA : wa_adr2    LIKE LINE OF i_adr2.
DATA : l_rc       LIKE szad_field-returncode.

* Geschaeftspartner ziehen
gpart = '0010042870'.

* Adressnummer lesen
SELECT addrnumber INTO addrnumber
  FROM but020
 WHERE partner EQ gpart.
ENDSELECT.

SELECT persnumber INTO persnumber
  FROM but000
 WHERE partner EQ gpart.
ENDSELECT.
* Murks
wa_adr2-addrnumber = addrnumber.
wa_adr2-persnumber = persnumber.
wa_adr2-consnumber = '001'.
wa_adr2-flgdefault = 'X'.
wa_adr2-home_flag = 'X'.
wa_adr2-date_from = '00010101'.
wa_adr2-country = 'DE'.
wa_adr2-tel_number = '06123456'.
wa_adr2-tel_extens = '789'.
wa_adr2-telnr_long = '+496123456789'.
wa_adr2-telnr_call = '06123456789'.

APPEND wa_adr2 TO i_adr2.

MODIFY adr2 FROM TABLE i_adr2.