Code: Alles auswählen.
FORM update_database.
DATA: tab_equi_error type table of zzpm_bestell with header line,
wa TYPE zzpm_bestell,
lv_BAPI_ITOB type BAPI_ITOB,
lv_BAPI_ITOB_EQ_ONLY type BAPI_ITOB_EQ_ONLY,
lv_BAPI_ITOBX type BAPI_ITOBX,
lv_BAPI_ITOB_EQ_ONLYX type BAPI_ITOB_EQ_ONLYX,
lv_return like bapiret2,
eq type equnr.
PERFORM auswahl_zu_it.
* Update
* LOOP AT tab_equi_choosen INTO wa.
Free : lv_return,
lv_BAPI_ITOB,
lv_BAPI_ITOB_EQ_ONLY,
sy-subrc.
SELECT SINGLE EQUI~EQUNR
INTO wa-equnr
FROM EQUI
WHERE EQUNR eq '000000000000010006'."wa-equnr.
if sy-subrc ne 0.
* Wenn nicht 0 dann ist das Equip nicht vorhanden
break-point.
endif.
lv_BAPI_ITOB-manserno = '12345678'. "wa-serge. "131001/2006
lv_BAPI_ITOBX-manserno = 'X'.
break-point.
CALL FUNCTION 'BAPI_EQUI_CHANGE'
EXPORTING
equipment = wa-equnr
data_general = lv_BAPI_ITOB
data_generalx = lv_BAPI_ITOBX
data_specific = lv_BAPI_ITOB_EQ_ONLY
data_specificx = lv_BAPI_ITOB_EQ_ONLYX
VALID_DATE = SY-DATUM
VALID_TIME = SY-UZEIT
IMPORTING
* DATA_GENERAL_EXP = lv_BAPI_ITOB
* DATA_SPECIFIC_EXP = lv_BAPI_ITOB_EQ_ONLY
RETURN = lv_return
.
if lv_return-type = 'E'.
write: / wa-equnr, lv_return-type, lv_return-message, lv_return-field.
endif.
break-point.
* ENDLOOP.
ENDFORM. "update_database