Regarding CSAP_MAT_BOM_CREATE

[Former Member]

Hi

I want to use the function CSAP_MAT_BOM_CREATE to create a material list.

Which parameters I must to fill ?

Thanks

[Former Member]

Hi

I want to use the function CSAP_MAT_BOM_CREATE to create a material list.

Which parameters I must to fill ?

Thanks

[former_member227140]

Hi,

use this code ...i have created a FM and done the coding in it you can do the same thing or you can use this code in report aswell.

below code creates material bom ...but your passing parametrs will be different..but this code will definetly help you.

rewards if useful

DATA : T_STPO TYPE TABLE OF STPO_API01 WITH HEADER LINE.

DATA : I_STKO LIKE STKO_API01.


translate material to UPPER CASE.

DATA : VAR1 TYPE CSAP_MBOM-DATUV.


WRITE VALID_FROM TO VAR1.

LOOP AT ET_ITEM.
IF ET_ITEM-COMPONENT is not initial.
SHIFT ET_ITEM-QUANTITY LEFT DELETING LEADING SPACE.
CONDENSE ET_ITEM-QUANTITY.
CONDENSE ET_ITEM-QUANTITY.
translate ET_ITEM-COMPONENT to UPPER CASE.








T_STPO-ITEM_CATEG = 'L'.
T_STPO-ITEM_NO = ET_ITEM-ITEM.
T_STPO-COMPONENT = ET_ITEM-COMPONENT.
T_STPO-COMP_QTY = ET_ITEM-QUANTITY.
T_STPO-COMP_UNIT = 'EA'.
APPEND T_STPO.
ENDIF.
ENDLOOP.




CALL FUNCTION 'CSAP_MAT_BOM_CREATE'
  EXPORTING
    MATERIAL                 = MATERIAL
    PLANT                    = PLANT
    BOM_USAGE                = BOM_USAGE
    VALID_FROM               = VAR1
*   CHANGE_NO                =
*   REVISION_LEVEL           =
    I_STKO                   = I_STKO
*   FL_NO_CHANGE_DOC         = ' '
*   FL_COMMIT_AND_WAIT       = ' '
*   FL_CAD                   = ' '
*   FL_DEFAULT_VALUES        = 'X'
* IMPORTING
*   FL_WARNING               =
*   BOM_NO                   =
  TABLES
    T_STPO                   = T_STPO
*   T_DEP_DATA               =
*   T_DEP_DESCR              =
*   T_DEP_ORDER              =
*   T_DEP_SOURCE             =
*   T_DEP_DOC                =
*   T_LTX_LINE               =
*   T_STPU                   =
 EXCEPTIONS
   ERROR                    = 1
   OTHERS                   = 2
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

IF SY-SUBRC EQ 0.
COMMIT WORK.
ENDIF.

CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
   ID              = SY-MSGID
   LANG            = '-D'
   NO              = SY-MSGNO
   V1              = SY-MSGV1
   V2              = SY-MSGV2
   V3              = SY-MSGV3
   V4              = SY-MSGV4
 IMPORTING
   MSG             = MESSAGE
* EXCEPTIONS
*   NOT_FOUND       = 1
*   OTHERS          = 2
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Edited by: abhijeet udgirkar on Aug 13, 2010 12:25 PM

Edited by: abhijeet udgirkar on Aug 13, 2010 12:30 PM

Edited by: abhijeet udgirkar on Aug 13, 2010 12:33 PM

Edited by: abhijeet udgirkar on Aug 13, 2010 12:37 PM