Gestione Modifiche Master Data Vendor e relativo indirizzo mail

SVILUPPARE:

Creare un file csv da inviare su una cartella di un server esterno a sap con i dati principali del fornitore modificato compreso il suo indirizzo mail.

Creare la BTE 1421 Master Data Vendor

Richiamare la transazione FIBF, poi selezionare PARAMETRIZZAZIONE-> PRODOTTI-> ... di un cliente

Inserire un codice prodotto, una descrizione e flaggare l'ultimo campo

Copiare il FM: SAMPLE_INTERFACE_00001421 in un nuovo FM ad esempio ZSD_INTERFACE_00001421

Associare l'evento ZSD1421 al nuovo FM ZSD_INTERFACE_00001421

quindi inserire il numero evento, prodotto e il FM creato

La problematica principale di questo sviluppo è stata quella di reperire l'indirizzo mail inserito di default, perchè quando scatta questo evento, il nuovo dato non è ancora inserito in tabella ADR6, ma si è riusciti come a leggere il nuovo dato.

Riporto il FM ZSD_INTERFACE_00001421 creato.

FUNCTION zsd_interface_00001421.

  DATA: lwa_output TYPE zsd_output.

  FIELD-SYMBOLS: <lfs_mail>   TYPE any,
                 <t_itab>     TYPE ANY TABLE,
                 <lfs_adsmtp> TYPE adsmtp.

  CLEAR: lwa_output.
  lwa_output-znome_rubrica = gc_fornitori.
  lwa_output-z_aoo = gc_aoo.
  lwa_output-z_cod_sap = i_lfa1-lifnr.
  CONCATENATE i_lfa1-name1 i_lfa1-name2 INTO lwa_output-z_ragione_sociale
      SEPARATED BY space.
  lwa_output-z_piva = i_lfa1-stcd2.
  lwa_output-z_codfisc = i_lfa1-stcd1.
  lwa_output-z_indirizzo = i_lfa1-stras.
  lwa_output-z_localita = i_lfa1-ort01.
  lwa_output-z_cap = i_lfa1-pstlz.
  lwa_output-z_provincia = i_lfa1-regio.
  lwa_output-z_nazione = i_lfa1-land1.

* Leggo i dati dell <lfs_mail>
  ASSIGN '(SAPMF02K)ADDR_COMPLETE-ADSMTP_TAB' TO <lfs_mail>.

  IF sy-subrc = 0 AND <lfs_mail> IS ASSIGNED.
    ASSIGN (<lfs_mail>) TO <t_itab>.
    IF sy-subrc = 0 AND <t_itab> IS ASSIGNED.
      LOOP AT <t_itab> ASSIGNING FIELD-SYMBOL(<lfs_righe>).
        ASSIGN COMPONENT 'ADSMTP' OF STRUCTURE <lfs_righe> TO <lfs_adsmtp>.
        IF sy-subrc = 0 AND <lfs_adsmtp> IS ASSIGNED.
          IF <lfs_adsmtp>-flgdefault = 'X'. "mail di default
            lwa_output-z_email =  <lfs_adsmtp>-smtp_addr.
          ENDIF.
        ENDIF.
      ENDLOOP.
    ENDIF.
  ENDIF.

* QUI INSERIRE IL FM CHE SCRIVE SUL SERVER

ENDFUNCTION.