Code: Alles auswählen.
wa_mara-tcode = 'MM01'.
wa_mara-tranc = 1.
wa_mara-d_ind = 1.
* wa_mara-matnr = '0'."lv_matnr.
wa_mara-mtart = wa_data-mtart.
wa_mara-bismt = wa_data-bismt.
wa_mara-spart = p_spart.
wa_mara-mbrsh = p_mbrsh.
APPEND wa_mara TO it_mara.
* wa_makt-matnr = '0'."lv_matnr.
wa_makt-maktx = wa_data-maktx(40) .
wa_makt-maktg = wa_makt-maktx.
TRANSLATE wa_makt-maktg TO UPPER CASE.
wa_makt-spras = 'EN'.
wa_makt-tranc = 1.
wa_makt-d_ind = 2.
APPEND wa_makt TO it_makt.
CALL FUNCTION 'MATERIAL_MAINTAIN_DARK'
EXPORTING
p_kz_no_warn = 'N'
kz_prf = 'I'
kz_test = p_test
TABLES
amara_ueb = it_mara
amakt_ueb = it_makt
amfieldres = amfieldres
amerrdat = amerrdat
EXCEPTIONS
kstatus_empty = 1
tkstatus_empty = 2
t130m_error = 3
internal_error = 4
too_many_errors = 5
update_error = 6
error_propagate_header = 7
OTHERS = 8
.
Code: Alles auswählen.
wa_makt-tranc = 1.
wa_makt-d_ind = 2.
Code: Alles auswählen.
wa_makt-tranc = wa_mara-tranc.
wa_makt-d_ind = wa_mara-d_ind.
Code: Alles auswählen.
wa_mara_ueb-pstat = 'K'.
Hi ratsnus,ratsnus hat geschrieben:...
nur mal interesse halber, warum den MAterial_Maintain_Dark und nicht BAPI_MATERIAL_SAVEDATA ?
gibt es einen bestimmten Grund ?
Code: Alles auswählen.
CALL FUNCTION 'BAPI_STDMATERIAL_GETINTNUMBER'
EXPORTING
material_type = wa_data-mtart
* INDUSTRY_SECTOR = ' '
required_numbers = 1
IMPORTING
return = return
TABLES
material_number = material_number.
LOOP AT material_number INTO wa_matnr.
lv_matnr = wa_matnr-material.
ENDLOOP.
wa_mara-tcode = 'MM01'.
wa_mara-tranc = 1.
wa_mara-d_ind = 1.
* wa_mara-KZ_MAT_RES = 'X'.
* wa_mara-matnr = lv_matnr.
wa_mara-mtart = wa_data-mtart.
wa_mara-bismt = wa_data-bismt.
wa_mara-spart = p_spart.
wa_mara-mbrsh = p_mbrsh.
wa_mara-pstat = 'K'.
APPEND wa_mara TO it_mara.
* wa_makt-matnr = lv_matnr.
wa_makt-maktx = wa_data-maktx(40) .
wa_makt-maktg = wa_makt-maktx.
TRANSLATE wa_makt-maktg TO UPPER CASE.
wa_makt-spras = 'D'.
wa_makt-tranc = wa_mara-tranc.
wa_makt-d_ind = wa_mara-d_ind.
APPEND wa_makt TO it_makt.
* wa_makt-spras = 'E'.
* wa_makt-d_ind = wa_mara-d_ind + 1.
* APPEND wa_makt TO it_makt.
CALL FUNCTION 'MATERIAL_MAINTAIN_DARK'
EXPORTING
* FLAG_MUSS_PRUEFEN = 'X'
* SPERRMODUS = 'E'
* MAX_ERRORS = 0
p_kz_no_warn = 'N'
kz_prf = 'I'
* KZ_VERW = 'X'
* KZ_AEND = 'X'
* KZ_DISPO = 'X'
kz_test = p_test
* NO_DATABASE_UPDATE = ' '
* CALL_MODE = ' '
* CALL_MODE2 = ' '
* USER = SY-UNAME
* SUPPRESS_ARRAY_READ = ' '
* FLG_MASS = ' '
* IV_CHANGE_DOC_TCODE = ' '
* IMPORTING
* MATNR_LAST =
* NUMBER_ERRORS_TRANSACTION =
TABLES
amara_ueb = it_mara
amakt_ueb = it_makt
* amarc_ueb = it_marc
* AMARD_UEB =
* AMFHM_UEB =
* AMARM_UEB =
* AMEA1_UEB =
* ambew_ueb = it_mbew
* ASTEU_UEB =
* ASTMM_UEB =
* AMLGN_UEB =
* AMLGT_UEB =
* AMPGD_UEB =
* AMPOP_UEB =
* AMVEG_UEB =
* AMVEU_UEB =
* AMVKE_UEB =
* ALTX1_UEB =
* AMPRW_UEB =
* AE1CUCFG_UEB =
* AE1CUINS_UEB =
* AE1CUVAL_UEB =
* AE1CUCOM_UEB =
amfieldres = amfieldres
amerrdat = amerrdat
EXCEPTIONS
kstatus_empty = 1
tkstatus_empty = 2
t130m_error = 3
internal_error = 4
too_many_errors = 5
update_error = 6
error_propagate_header = 7
OTHERS = 8
.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
nikibert
Füll mal den Mandant in den Übergabestrukturen.nikibert hat geschrieben:Ich werde es weiter versuchen, irgendwie muss das doch machbar sein.
Code: Alles auswählen.
READ TABLE AMAKT_UEB WITH KEY MANDT = SY-MANDT
TRANC = TRANC BINARY SEARCH.