Ansicht
Dokumentation

CAD_CHANGE_BOM_WITH_SUB_ITEMS - CAD: Stückliste ändern mit Unterpositionen (im Hintergrund)

CPI1466 during Backup   BAL_S_LOG - Application Log: Log header data  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Funktionalität

Dieser Funktionsbaustein ermöglicht das Ändern einer Stückliste mit Unterpositionen. Vor dem Aufruf dieses Funktionsbausteins muß der Funktionsbausteins CAD_DISPLAY_BOM_WITH_SUB_ITEMS mit dem Parameter I_DISPLAY_FLAG = ' ' aufgerufen werden. Dieser Funktionsbaustein liest die existierende Stückliste und sperrt sie gleichzeitig.

Beispiel

...

DATA: BOM_HEADER LIKE BICSK,
BOM_ITEM LIKE CSRFCITEM OCCURS 0 WITH HEADER LINE,
BOM_SUB_ITEM LIKE CSSUBITEM OCCURS 0 WITH HEADER LINE,
DMS_CLASS_DATA LIKE CLS_CHARAC OCCURS 0 WITH HEADER LINE,
SAP_FIELD_DATA LIKE RFCDMSDATA OCCURS 0 WITH HEADER LINE,
E_RETURN LIKE CAD_RETURN-VALUE,
E_MESSAGE LIKE MESSAGE-MSGTX,
E_MESSAGE_LEN LIKE CAD_RETURN-MESSAGE_LEN,
I_DATE LIKE BICSK-DATUV.

CLEAR: BOM_HEADER, BOM_ITEM, BOM_SUB_ITEM.
REFRESH: BOM_ITEM, BOM_SUB_ITEM.

CALL FUNCTION 'CAD_DISPLAY_BOM_WITH_SUB_ITEMS'
EXPORTING
I_MATERIAL = 'AH10'
I_PLANT = ' '
I_BOM_ALTERNATIVE = '01'
I_BOM_TYPE = '1'
* I_VALID_FROM = ' '
I_REVISION_LEVEL = ' '
I_DISPLAY_FLAG = ' '
IMPORTING
E_RETURN = E_RETURN
E_MESSAGE = E_MESSAGE
E_MESSAGE_LEN = E_MESSAGE_LEN
E_BOM_HEADER = BOM_HEADER
TABLES
BOM_ITEM = BOM_ITEM
BOM_SUB_ITEM = BOM_SUB_ITEM
DMS_CLASS_DATA = DMS_CLASS_DATA
SAP_FIELD_DATA = SAP_FIELD_DATA
EXCEPTIONS
OTHERS = 1.

IF E_RETURN ne 0.
WRITE: E_MESSAGE.
EXIT.
ENDIF.

CLEAR: BOM_HEADER.

* fill BOM header
BOM_HEADER-MATNR = 'AH10'.
BOM_HEADER-STLAL = '01'.
BOM_HEADER-STLAN = '1'.
BOM_HEADER-BMENG = '2'.
BOM_HEADER-STKTX = 'new alternative text'.
BOM_HEADER-ZTEXT = 'new BOM text'.

CLEAR: BOM_ITEM, BOM_SUB_ITEM.
REFRESH: BOM_ITEM, BOM_SUB_ITEM.

* fill item
BOM_ITEM-IDNRK = 'AH20'.
BOM_ITEM-POSNR = '10'.
BOM_ITEM-POSTP = 'L'.
APPEND BOM_ITEM.

BOM_ITEM-UPSKZ = 'X'.
BOM_ITEM-IDNRK = 'AH30'.
BOM_ITEM-POSNR = '20'.
BOM_ITEM-POSTP = 'L'.
APPEND BOM_ITEM.

* fill sub item
BOM_SUB_ITEM-POSID = '2'.
BOM_SUB_ITEM-EBORT = 'left'.
BOM_SUB_ITEM-UPMNG = '1'.
BOM_SUB_ITEM-UPOSZ = '1'.
BOM_SUB_ITEM-UPTXT = 'left side'.
APPEND BOM_SUB_ITEM.

BOM_SUB_ITEM-POSID = '2'.
BOM_SUB_ITEM-EBORT = 'right'.
BOM_SUB_ITEM-UPMNG = '1'.
BOM_SUB_ITEM-UPOSZ = '2'.
BOM_SUB_ITEM-UPTXT = 'right side'.
APPEND BOM_SUB_ITEM.

BOM_SUB_ITEM-POSID = '2'.
BOM_SUB_ITEM-EBORT = 'top'.
BOM_SUB_ITEM-UPMNG = '1'.
BOM_SUB_ITEM-UPOSZ = '3'.
BOM_SUB_ITEM-UPTXT = 'top'.
APPEND BOM_SUB_ITEM.

CALL FUNCTION 'CAD_CHANGE_BOM_WITH_SUB_ITEMS'
EXPORTING
I_BOM_HEADER = BOM_HEADER
IMPORTING
E_RETURN = E_RETURN
E_MESSAGE = E_MESSAGE
E_MESSAGE_LEN = E_MESSAGE_LEN
E_BOM_HEADER = BOM_HEADER
TABLES
BOM_ITEM = BOM_ITEM
BOM_SUB_ITEM = BOM_SUB_ITEM
DMS_CLASS_DATA = DMS_CLASS_DATA
SAP_FIELD_DATA = SAP_FIELD_DATA
EXCEPTIONS
OTHERS = 1.

WRITE: 'Returncode: ', E_RETURN,
/ 'Message : ', E_MESSAGE.
...

Hinweise

Weiterführende Informationen

Parameter

BOM_ITEM
BOM_SUB_ITEM
DMS_CLASS_DATA
E_BOM_HEADER
E_MESSAGE
E_MESSAGE_LEN
E_RETURN
I_BOM_HEADER
SAP_FIELD_DATA

Ausnahmen

Funktionsgruppe

CADR

PERFORM Short Reference   ABAP Short Reference  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Length: 5009 Date: 20240523 Time: 091604     sap01-206 ( 38 ms )