CDHDR Material Log per Report eintragen
Posted: Thu Oct 31, 2019 11:28 am
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- *&---------------------------------------------------------------------*
- *& Report Z_TEST_MATERIAL_WRITE_DOCUMENT
- *&
- *&---------------------------------------------------------------------*
- *&
- *&
- *&---------------------------------------------------------------------*
- REPORT z_test_material_write_document.
- * Test QM: Änderungsbelegerstellung für MATERIAL
- *um die Materialnr an den Änderbelge zu übergeben
- * um die Textänderungen an den Änderungsbele zu übergeben
- icdtxt_material_line LIKE cdtxt.
- * Dummytabellen für FuBa-Aufruf, werden alle leer übergeben!
- n_marc LIKE marc, o_marc LIKE marc,
- n_mare LIKE mare, o_mare LIKE mare,
- n_mard LIKE mard, o_mard LIKE mard,
- n_mbew LIKE mbew, o_mbew LIKE mbew,
- n_mfhm LIKE mfhm, o_mfhm LIKE mfhm,
- n_mlgn LIKE mlgn, o_mlgn LIKE mlgn,
- n_mlgt LIKE mlgt, o_mlgt LIKE mlgt,
- n_mpgd LIKE mpgd, o_mpgd LIKE mpgd,
- n_mpop LIKE mpop, o_mpop LIKE mpop,
- n_mvke LIKE mvke, o_mvke LIKE mvke,
- xdgesv TYPE TABLE OF xdgesv,
- ydgesv TYPE TABLE OF xdgesv,
- xdmaex TYPE TABLE OF xdmaex,
- ydmaex TYPE TABLE OF xdmaex,
- xdmakt TYPE TABLE OF xdmakt,
- ydmakt TYPE TABLE OF xdmakt,
- xdmape TYPE TABLE OF xdmape,
- ydmape TYPE TABLE OF xdmape,
- xdmarm TYPE TABLE OF xdmarm,
- ydmarm TYPE TABLE OF xdmarm,
- xdmean TYPE TABLE OF xdmean,
- ydmean TYPE TABLE OF xdmean,
- xdmkal TYPE TABLE OF xdmkal,
- ydmkal TYPE TABLE OF xdmkal,
- xdmlan TYPE TABLE OF xdmlan,
- ydmlan TYPE TABLE OF xdmlan,
- xdprow TYPE TABLE OF xdprow,
- ydprow TYPE TABLE OF xdprow,
- xdqmat TYPE TABLE OF xdqmat,
- ydqmat TYPE TABLE OF xdqmat,
- xdungv TYPE TABLE OF xdungv,
- ydungv TYPE TABLE OF xdungv.
- data:
- ls_xdqmat TYPE xdqmat,
- ls_ydqmat TYPE xdqmat.
- * Zum testen für verschiedene Materialien
- p_vkorg TYPE vkorg DEFAULT 'BP01',
- p_vtweg TYPE vtweg DEFAULT '01'.
- * Test: Änderungsbelegerstellung für MATERIAL, nur Vertriebstext
- * Änderungsstruktur für Text aufbauen:
- ** TEXT-ID erzeugen
- * CONCATENATE sy-mandt "Mandant
- * p_matnr "Material
- * p_vkorg "Verkaufsorganisation
- * p_vtweg "Vertriebsweg
- * INTO icdtxt_material_line-teilobjid.
- * icdtxt_material_line-textart = '0001'. "Vertriebstext
- * icdtxt_material_line-textspr = 'D'. "Sprache
- * icdtxt_material_line-updkz = 'U'. " I = Insert, U = Update, D = Delete
- * APPEND icdtxt_material_line TO icdtxt_material.
- werks = p_vkorg AND matnr = p_matnr.
- *ydqmat[] = Alt.
- *xdqmat[] = Neu.
- READ TABLE ydqmat into ls_ydqmat INDEX 1.
- ls_ydqmat-hpz = 'X'.
- ELSE.
- ls_ydqmat-hpz = ' '.
- * Matnr umformatieren
- objectid = p_matnr.
- * FuBa aufruf
- CALL FUNCTION 'MATERIAL_WRITE_DOCUMENT'
- EXPORTING
- objectid = objectid "Material welches geändert wird
- tcode = 'QMAT_JOB' "Aus welcher Transaktion wird geändert
- utime = sy-uzeit "Änderungszeit
- udate = sy-datum "Änderungsdatum
- username = sy-uname "Änderer
- planned_change_number = ' '
- object_change_indicator = 'U' "Es findet ein Update des Materials statt
- planned_or_real_changes = 'R' "direkte Änderung
- no_change_pointers = ' '
- upd_icdtxt_material = ' ' "Nur der Text wird geändert
- upd_dgesv = ' '
- upd_dmaex = ' '
- upd_dmakt = ' '
- upd_dmape = ' '
- upd_dmarm = ' '
- upd_dmean = ' '
- upd_dmkal = ' '
- upd_dmlan = ' '
- upd_dprow = ' '
- upd_dqmat = 'U'
- upd_dungv = ' '
- n_mara = n_mara
- o_mara = o_mara
- upd_mara = ' '
- n_marc = n_marc
- o_marc = o_marc
- n_mare = n_mare
- o_mare = o_mare
- upd_marc = ' '
- n_mard = n_mard
- o_mard = o_mard
- upd_mard = ' '
- n_mbew = n_mbew
- o_mbew = o_mbew
- upd_mbew = ' '
- n_mfhm = n_mfhm
- o_mfhm = o_mfhm
- upd_mfhm = ' '
- n_mlgn = n_mlgn
- o_mlgn = o_mlgn
- upd_mlgn = ' '
- n_mlgt = n_mlgt
- o_mlgt = o_mlgt
- upd_mlgt = ' '
- n_mpgd = n_mpgd
- o_mpgd = o_mpgd
- upd_mpgd = ' '
- n_mpop = n_mpop
- o_mpop = o_mpop
- upd_mpop = ' '
- n_mvke = n_mvke
- o_mvke = o_mvke
- upd_mvke = ' '
- icdtxt_material = icdtxt_material
- xdgesv = xdgesv
- ydgesv = ydgesv
- xdmaex = xdmaex
- ydmaex = ydmaex
- xdmakt = xdmakt
- ydmakt = ydmakt
- xdmape = xdmape
- ydmape = ydmape
- xdmarm = xdmarm
- ydmarm = ydmarm
- xdmean = xdmean
- ydmean = ydmean
- xdmkal = xdmkal
- ydmkal = ydmkal
- xdmlan = xdmlan
- ydmlan = ydmlan
- xdprow = xdprow
- ydprow = ydprow
- xdqmat = xdqmat
- ydqmat = ydqmat
- xdungv = xdungv
- ydungv = ydungv.
- GeSHi ©