Re: bapi

Former Member — Wed, 09 May 2007 03:43:01 GMT

Jaya,

check below code

Implementation of object type BUS2116 *****

INCLUDE <OBJECT>.

BEGIN_DATA OBJECT. " Do not change.. DATA is generated

only private members may be inserted into structure private

DATA:

" begin of private,

" to declare private attributes remove comments and

" insert private attributes here ...

" end of private,

BEGIN OF KEY,

CONFIRMATION LIKE AFRU-RUECK,

CONFIRMATIONCOUNTER LIKE AFRU-RMZHL,

END OF KEY,

OPERATION TYPE SWC_OBJECT,

WORKITEMTEXT LIKE HRS1206-WITEXT,

_AFRU LIKE AFRU.

END_DATA OBJECT. " Do not change.. DATA is generated

BEGIN_METHOD CANCEL CHANGING CONTAINER.

DATA:

POSTGDATE LIKE BAPI_PP_CONFIRM-POSTG_DATE,

CONFTEXT LIKE BAPI_PP_CONFIRM-CONF_TEXT,

RETURN LIKE BAPIRET1,

LOCKED LIKE BAPI_CORU_PARAM-LOCKED,

CREATEDCONFNO LIKE BAPI_PP_CONF_KEY-CONF_NO,

CREATEDCONFCOUNT LIKE BAPI_PP_CONF_KEY-CONF_CNT.

SWC_GET_ELEMENT CONTAINER 'PostgDate' POSTGDATE.

SWC_GET_ELEMENT CONTAINER 'ConfText' CONFTEXT.

CALL FUNCTION 'BAPI_PRODORDCONF_CANCEL'

EXPORTING

CONF_TEXT = CONFTEXT

POSTG_DATE = POSTGDATE

CONFIRMATIONCOUNTER = OBJECT-KEY-CONFIRMATIONCOUNTER

CONFIRMATION = OBJECT-KEY-CONFIRMATION

IMPORTING

CREATED_CONF_COUNT = CREATEDCONFCOUNT

CREATED_CONF_NO = CREATEDCONFNO

LOCKED = LOCKED

RETURN = RETURN

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

SWC_SET_ELEMENT CONTAINER 'Locked' LOCKED.

SWC_SET_ELEMENT CONTAINER 'CreatedConfNo' CREATEDCONFNO.

SWC_SET_ELEMENT CONTAINER 'CreatedConfCount' CREATEDCONFCOUNT.

END_METHOD.

BEGIN_METHOD GETDETAIL CHANGING CONTAINER.

DATA:

RETURN LIKE BAPIRET1,

CONFDETAIL LIKE BAPI_PP_CONFIRM,

GOODSMOVEMENTS LIKE BAPI2017_GM_ITEM_SHOW OCCURS 0,

FAILEDGMOVES LIKE BAPI_CORU_FGM OCCURS 0.

CALL FUNCTION 'BAPI_PRODORDCONF_GETDETAIL'

EXPORTING

CONFIRMATION = OBJECT-KEY-CONFIRMATION

CONFIRMATIONCOUNTER = OBJECT-KEY-CONFIRMATIONCOUNTER

IMPORTING

CONF_DETAIL = CONFDETAIL

RETURN = RETURN

TABLES

GOODSMOVEMENTS = GOODSMOVEMENTS

FAILEDGMOVES = FAILEDGMOVES

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

SWC_SET_ELEMENT CONTAINER 'ConfDetail' CONFDETAIL.

SWC_SET_TABLE CONTAINER 'Goodsmovements' GOODSMOVEMENTS.

SWC_SET_TABLE CONTAINER 'Failedgmoves' FAILEDGMOVES.

END_METHOD.

BEGIN_METHOD CREATETIMEEVENTMULTIPLE CHANGING CONTAINER.

DATA:

POSTWRONGENTRIES LIKE BAPI_CORU_PARAM-INS_ERR,

TESTRUN LIKE BAPI_CORU_PARAM-TESTRUN,

RETURN LIKE BAPIRET1,

TIMEEVENTS LIKE BAPI_PP_TIMEEVENT OCCURS 0,

GOODSMOVEMENTS LIKE BAPI2017_GM_ITEM_CREATE OCCURS 0,

LINKCONFGOODSMOV LIKE BAPI_LINK_CONF_GOODSMOV OCCURS 0,

DETAILRETURN LIKE BAPI_CORU_RETURN OCCURS 0.

SWC_GET_ELEMENT CONTAINER 'PostWrongEntries' POSTWRONGENTRIES.

IF SY-SUBRC <> 0.

MOVE 0 TO POSTWRONGENTRIES.

ENDIF.

SWC_GET_ELEMENT CONTAINER 'Testrun' TESTRUN.

SWC_GET_TABLE CONTAINER 'Timeevents' TIMEEVENTS.

SWC_GET_TABLE CONTAINER 'Goodsmovements' GOODSMOVEMENTS.

SWC_GET_TABLE CONTAINER 'LinkConfGoodsmov' LINKCONFGOODSMOV.

CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_TE'

EXPORTING

POST_WRONG_ENTRIES = POSTWRONGENTRIES

TESTRUN = TESTRUN

IMPORTING

RETURN = RETURN

TABLES

DETAIL_RETURN = DETAILRETURN

LINK_CONF_GOODSMOV = LINKCONFGOODSMOV

GOODSMOVEMENTS = GOODSMOVEMENTS

TIMEEVENTS = TIMEEVENTS

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

SWC_SET_TABLE CONTAINER 'DetailReturn' DETAILRETURN.

END_METHOD.

BEGIN_METHOD GETTIMEEVENTPROPOSAL CHANGING CONTAINER.

DATA:

PROPGMOV LIKE BAPI_CORU_PARAM-PROP_GMOV,

RETURN LIKE BAPIRET1,

TIMEEVENTS LIKE BAPI_PP_TIMEEVENT OCCURS 0,

GOODSMOVEMENTS LIKE BAPI2017_GM_ITEM_CREATE OCCURS 0,

LINKCONFGOODSMOV LIKE BAPI_LINK_CONF_GOODSMOV OCCURS 0,

DETAILRETURN LIKE BAPI_CORU_RETURN OCCURS 0.

SWC_GET_ELEMENT CONTAINER 'PropGmov' PROPGMOV.

IF SY-SUBRC <> 0.

MOVE SPACE TO PROPGMOV.

ENDIF.

SWC_GET_TABLE CONTAINER 'Timeevents' TIMEEVENTS.

CALL FUNCTION 'BAPI_PRODORDCONF_GET_TE_PROP'

EXPORTING

PROP_GMOV = PROPGMOV

IMPORTING

RETURN = RETURN

TABLES

DETAIL_RETURN = DETAILRETURN

LINK_CONF_GOODSMOV = LINKCONFGOODSMOV

GOODSMOVEMENTS = GOODSMOVEMENTS

TIMEEVENTS = TIMEEVENTS

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

SWC_SET_TABLE CONTAINER 'Timeevents' TIMEEVENTS.

SWC_SET_TABLE CONTAINER 'Goodsmovements' GOODSMOVEMENTS.

SWC_SET_TABLE CONTAINER 'LinkConfGoodsmov' LINKCONFGOODSMOV.

SWC_SET_TABLE CONTAINER 'DetailReturn' DETAILRETURN.

END_METHOD.

BEGIN_METHOD CREATEATHEADERLEVELMULTIPLE CHANGING CONTAINER.

DATA:

POSTWRONGENTRIES LIKE BAPI_CORU_PARAM-INS_ERR,

TESTRUN LIKE BAPI_CORU_PARAM-TESTRUN,

RETURN LIKE BAPIRET1,

ATHDRLEVELS LIKE BAPI_PP_HDRLEVEL OCCURS 0,

GOODSMOVEMENTS LIKE BAPI2017_GM_ITEM_CREATE OCCURS 0,

LINKCONFGOODSMOV LIKE BAPI_LINK_CONF_GOODSMOV OCCURS 0,

DETAILRETURN LIKE BAPI_CORU_RETURN OCCURS 0.

SWC_GET_ELEMENT CONTAINER 'PostWrongEntries' POSTWRONGENTRIES.

IF SY-SUBRC <> 0.

MOVE 0 TO POSTWRONGENTRIES.

ENDIF.

SWC_GET_ELEMENT CONTAINER 'Testrun' TESTRUN.

SWC_GET_TABLE CONTAINER 'Athdrlevels' ATHDRLEVELS.

SWC_GET_TABLE CONTAINER 'Goodsmovements' GOODSMOVEMENTS.

SWC_GET_TABLE CONTAINER 'LinkConfGoodsmov' LINKCONFGOODSMOV.

CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_HDR'

EXPORTING

POST_WRONG_ENTRIES = POSTWRONGENTRIES

TESTRUN = TESTRUN

IMPORTING

RETURN = RETURN

TABLES

DETAIL_RETURN = DETAILRETURN

LINK_CONF_GOODSMOV = LINKCONFGOODSMOV

GOODSMOVEMENTS = GOODSMOVEMENTS

ATHDRLEVELS = ATHDRLEVELS

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

SWC_SET_TABLE CONTAINER 'DetailReturn' DETAILRETURN.

END_METHOD.

BEGIN_METHOD GETATHEADERLEVELPROPOSAL CHANGING CONTAINER.

DATA:

PROPGMOV LIKE BAPI_CORU_PARAM-PROP_GMOV,

RETURN LIKE BAPIRET1,

ATHDRLEVELS LIKE BAPI_PP_HDRLEVEL OCCURS 0,

GOODSMOVEMENTS LIKE BAPI2017_GM_ITEM_CREATE OCCURS 0,

LINKCONFGOODSMOV LIKE BAPI_LINK_CONF_GOODSMOV OCCURS 0,

DETAILRETURN LIKE BAPI_CORU_RETURN OCCURS 0.

SWC_GET_ELEMENT CONTAINER 'PropGmov' PROPGMOV.

IF SY-SUBRC <> 0.

MOVE SPACE TO PROPGMOV.

ENDIF.

SWC_GET_TABLE CONTAINER 'Athdrlevels' ATHDRLEVELS.

CALL FUNCTION 'BAPI_PRODORDCONF_GET_HDR_PROP'

EXPORTING

PROP_GMOV = PROPGMOV

IMPORTING

RETURN = RETURN

TABLES

DETAIL_RETURN = DETAILRETURN

LINK_CONF_GOODSMOV = LINKCONFGOODSMOV

GOODSMOVEMENTS = GOODSMOVEMENTS

ATHDRLEVELS = ATHDRLEVELS

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

SWC_SET_TABLE CONTAINER 'Athdrlevels' ATHDRLEVELS.

SWC_SET_TABLE CONTAINER 'Goodsmovements' GOODSMOVEMENTS.

SWC_SET_TABLE CONTAINER 'LinkConfGoodsmov' LINKCONFGOODSMOV.

SWC_SET_TABLE CONTAINER 'DetailReturn' DETAILRETURN.

END_METHOD.

BEGIN_METHOD EXISTENCECHECK CHANGING CONTAINER.

DATA:

RETURN LIKE BAPIRET1.

CALL FUNCTION 'BAPI_PRODORDCONF_EXIST_CHK'

EXPORTING

CONFIRMATION = OBJECT-KEY-CONFIRMATION

CONFIRMATIONCOUNTER = OBJECT-KEY-CONFIRMATIONCOUNTER

IMPORTING

RETURN = RETURN

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

IF NOT RETURN IS INITIAL.

EXIT_OBJECT_NOT_FOUND.

ENDIF.

WHEN OTHERS. " to be implemented

EXIT_OBJECT_NOT_FOUND.

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

END_METHOD.

BEGIN_METHOD GETTIMETICKETPROPOSAL CHANGING CONTAINER.

DATA:

PROPOSE LIKE BAPI_PP_CONF_PROP,

RETURN LIKE BAPIRET1,

TIMETICKETS LIKE BAPI_PP_TIMETICKET OCCURS 0,

GOODSMOVEMENTS LIKE BAPI2017_GM_ITEM_CREATE OCCURS 0,

LINKCONFGOODSMOV LIKE BAPI_LINK_CONF_GOODSMOV OCCURS 0,

DETAILRETURN LIKE BAPI_CORU_RETURN OCCURS 0.

SWC_GET_ELEMENT CONTAINER 'Propose' PROPOSE.

IF SY-SUBRC <> 0.

MOVE SPACE TO PROPOSE.

ENDIF.

SWC_GET_TABLE CONTAINER 'Timetickets' TIMETICKETS.

CALL FUNCTION 'BAPI_PRODORDCONF_GET_TT_PROP'

EXPORTING

PROPOSE = PROPOSE

IMPORTING

RETURN = RETURN

TABLES

DETAIL_RETURN = DETAILRETURN

LINK_CONF_GOODSMOV = LINKCONFGOODSMOV

GOODSMOVEMENTS = GOODSMOVEMENTS

TIMETICKETS = TIMETICKETS

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

SWC_SET_TABLE CONTAINER 'Timetickets' TIMETICKETS.

SWC_SET_TABLE CONTAINER 'Goodsmovements' GOODSMOVEMENTS.

SWC_SET_TABLE CONTAINER 'LinkConfGoodsmov' LINKCONFGOODSMOV.

SWC_SET_TABLE CONTAINER 'DetailReturn' DETAILRETURN.

END_METHOD.

BEGIN_METHOD CREATETIMETICKETMULTIPLE CHANGING CONTAINER.

DATA:

POSTWRONGENTRIES LIKE BAPI_CORU_PARAM-INS_ERR,

TESTRUN LIKE BAPI_CORU_PARAM-TESTRUN,

RETURN LIKE BAPIRET1,

TIMETICKETS LIKE BAPI_PP_TIMETICKET OCCURS 0,

GOODSMOVEMENTS LIKE BAPI2017_GM_ITEM_CREATE OCCURS 0,

LINKCONFGOODSMOV LIKE BAPI_LINK_CONF_GOODSMOV OCCURS 0,

DETAILRETURN LIKE BAPI_CORU_RETURN OCCURS 0.

SWC_GET_ELEMENT CONTAINER 'PostWrongEntries' POSTWRONGENTRIES.

IF SY-SUBRC <> 0.

MOVE 0 TO POSTWRONGENTRIES.

ENDIF.

SWC_GET_ELEMENT CONTAINER 'Testrun' TESTRUN.

SWC_GET_TABLE CONTAINER 'Timetickets' TIMETICKETS.

SWC_GET_TABLE CONTAINER 'Goodsmovements' GOODSMOVEMENTS.

SWC_GET_TABLE CONTAINER 'LinkConfGoodsmov' LINKCONFGOODSMOV.

CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_TT'

EXPORTING

POST_WRONG_ENTRIES = POSTWRONGENTRIES

TESTRUN = TESTRUN

IMPORTING

RETURN = RETURN

TABLES

DETAIL_RETURN = DETAILRETURN

LINK_CONF_GOODSMOV = LINKCONFGOODSMOV

GOODSMOVEMENTS = GOODSMOVEMENTS

TIMETICKETS = TIMETICKETS

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

SWC_SET_TABLE CONTAINER 'DetailReturn' DETAILRETURN.

END_METHOD.

BEGIN_METHOD GETLIST CHANGING CONTAINER.

DATA:

SEQUENCE LIKE BAPI_PP_CONFIRM-SEQUENCE,

OPERATION LIKE BAPI_PP_CONFIRM-OPERATION,

SUBOPERATION LIKE BAPI_PP_CONFIRM-SUB_OPER,

RETURN LIKE BAPIRET1,

ORDERRANGE LIKE BAPI_PP_ORDERRANGE OCCURS 0,

CONFRANGE LIKE BAPI_PP_CONFRANGE OCCURS 0,

CONFIRMATIONS LIKE BAPI_PP_CONF_KEY OCCURS 0.

SWC_GET_ELEMENT CONTAINER 'Sequence' SEQUENCE.

SWC_GET_ELEMENT CONTAINER 'Operation' OPERATION.

SWC_GET_ELEMENT CONTAINER 'Suboperation' SUBOPERATION.

SWC_GET_TABLE CONTAINER 'OrderRange' ORDERRANGE.

SWC_GET_TABLE CONTAINER 'ConfRange' CONFRANGE.

CALL FUNCTION 'BAPI_PRODORDCONF_GETLIST'

EXPORTING

SEQUENCE = SEQUENCE

OPERATION = OPERATION

SUBOPERATION = SUBOPERATION

IMPORTING

RETURN = RETURN

TABLES

ORDER_RANGE = ORDERRANGE

CONF_RANGE = CONFRANGE

CONFIRMATIONS = CONFIRMATIONS

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

SWC_SET_TABLE CONTAINER 'Confirmations' CONFIRMATIONS.

END_METHOD.

BEGIN_METHOD CREATEACTCONFMULTIPLE CHANGING CONTAINER.

DATA:

POSTWRONGENTRIES LIKE BAPI_CORU_PARAM-INS_ERR,

RETURN LIKE BAPIRET1,

ACTIVITIES LIKE BAPI_CORU_ACTIV OCCURS 0,

DETAILRETURN LIKE BAPI_CORU_RETURN OCCURS 0.

SWC_GET_ELEMENT CONTAINER 'PostWrongEntries' POSTWRONGENTRIES.

IF SY-SUBRC <> 0.

MOVE 0 TO POSTWRONGENTRIES.

ENDIF.

SWC_GET_TABLE CONTAINER 'Activities' ACTIVITIES.

CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_ACT'

EXPORTING

POST_WRONG_ENTRIES = POSTWRONGENTRIES

IMPORTING

RETURN = RETURN

TABLES

ACTIVITIES = ACTIVITIES

DETAIL_RETURN = DETAILRETURN

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

SWC_SET_TABLE CONTAINER 'DetailReturn' DETAILRETURN.

END_METHOD.

BEGIN_METHOD DISPLAYDIFFERENCE CHANGING CONTAINER.

*TYPES

TYPES: TYP_DIFFERENCE(255) TYPE C,

TYP_T_DIFFERENCE TYPE STANDARD TABLE OF TYP_DIFFERENCE.

*DATA

DATA: LT_DIFFERENCE TYPE TYP_T_DIFFERENCE,

L_CREATOR LIKE WFSYST-AGENT,

L_CREATION_DATE LIKE WFSYST-START_DATE,

L_CREATION_TIME LIKE WFSYST-START_TIME,

L_WIID LIKE SWWWIHEAD-WI_ID.

*READ CONTAINER ELEMENTS

SWC_GET_ELEMENT CONTAINER 'Creator' L_CREATOR.

SWC_GET_ELEMENT CONTAINER 'CreationDate' L_CREATION_DATE.

SWC_GET_ELEMENT CONTAINER 'CreationTime' L_CREATION_TIME.

SWC_GET_ELEMENT CONTAINER 'WorkitemId' L_WIID.

SWC_GET_TABLE CONTAINER 'Differences' LT_DIFFERENCE.

*CALL CO_WF_DIFFERENCE_DISPLAY

CALL FUNCTION 'CO_WF_DIFFERENCE_DISPLAY'

EXPORTING

I_CREATION_TIME = L_CREATION_TIME

I_CREATION_DATE = L_CREATION_DATE

I_CREATOR = L_CREATOR

I_CONFIRMATION = SELF

I_WIID = L_WIID

TABLES

IT_DIFFERENCE = LT_DIFFERENCE

EXCEPTIONS

CANC = 01

OTHERS = 02.

*DO ERROR HANDLING

IF NOT SY-SUBRC IS INITIAL.

EXIT_CANCELLED.

ENDIF.

END_METHOD.

TABLES AFRU.

GET_TABLE_PROPERTY AFRU.

DATA SUBRC LIKE SY-SUBRC.

Fill TABLES AFRU to enable Object Manager Access to Table Properties

PERFORM SELECT_TABLE_AFRU USING SUBRC.

IF SUBRC NE 0.

EXIT_OBJECT_NOT_FOUND.

ENDIF.

END_PROPERTY.

Use Form also for other(virtual) Properties to fill TABLES AFRU

FORM SELECT_TABLE_AFRU USING SUBRC LIKE SY-SUBRC.

Select single * from AFRU, if OBJECT-_AFRU is initial

IF OBJECT-_AFRU-MANDT IS INITIAL

AND OBJECT-_AFRU-RUECK IS INITIAL

AND OBJECT-_AFRU-RMZHL IS INITIAL.

SELECT SINGLE * FROM AFRU CLIENT SPECIFIED

WHERE MANDT = SY-MANDT

AND RUECK = OBJECT-KEY-CONFIRMATION

AND RMZHL = OBJECT-KEY-CONFIRMATIONCOUNTER.

SUBRC = SY-SUBRC.

IF SUBRC NE 0. EXIT. ENDIF.

OBJECT-_AFRU = AFRU.

ELSE.

SUBRC = 0.

AFRU = OBJECT-_AFRU.

ENDIF.

ENDFORM.

GET_PROPERTY OPERATION CHANGING CONTAINER.

*DATA

DATA: BEGIN OF L_OPERATION_KEY,

ROUTINGNUMBER LIKE AFVC-AUFPL,

COUNTER LIKE AFVC-APLZL,

END OF L_OPERATION_KEY,

L_OBJKEY LIKE SWEINSTCOU-OBJKEY,

L_SUBRC LIKE SY-SUBRC.

IF OBJECT-_AFRU IS INITIAL.

PERFORM SELECT_TABLE_AFRU USING L_SUBRC.

ENDIF.

*CREATE OBJECT

IF NOT OBJECT-_AFRU-APLZL IS INITIAL.

L_OPERATION_KEY-ROUTINGNUMBER = OBJECT-_AFRU-AUFPL.

L_OPERATION_KEY-COUNTER = OBJECT-_AFRU-APLZL.

L_OBJKEY = L_OPERATION_KEY.

SWC_CREATE_OBJECT OBJECT-OPERATION 'AFVC_PROD' L_OBJKEY.

ELSE.

CLEAR OBJECT-OPERATION.

ENDIF.

SWC_SET_ELEMENT CONTAINER 'Operation' OBJECT-OPERATION.

END_PROPERTY.

GET_PROPERTY WORKITEMTEXT CHANGING CONTAINER.

*DATA

DATA: L_OBJ TYPE SWC_OBJECT,

L_ORDER LIKE AUFK-AUFNR,

L_OPERATION LIKE AFVC-VORNR,

L_SEQUENCE LIKE AFVC-APLFL,

L_SUPERIOROPERATION LIKE AFVC-VORNR,

L_ORDER_TXT LIKE AUFK-AUFNR,

L_OPERATION_TXT LIKE AFVC-VORNR,

L_SEQUENCE_TXT LIKE AFVC-APLFL,

L_SUPERIOROPERATION_TXT LIKE AFVC-VORNR,

L_OPERATION_CCTXT(10) TYPE C.

*ORDER

SWC_GET_PROPERTY SELF 'Order' L_OBJ.

SWC_GET_PROPERTY L_OBJ 'Number' L_ORDER.

*OPERATION

SWC_GET_PROPERTY SELF 'Operation' L_OBJ.

IF NOT L_OBJ IS INITIAL.

SWC_GET_PROPERTY L_OBJ 'Number' L_OPERATION.

SWC_GET_PROPERTY L_OBJ 'Sequence' L_SEQUENCE.

*SUBOPERATION

SWC_GET_PROPERTY L_OBJ 'SuperiorOperation' L_OBJ.

IF NOT L_OBJ IS INITIAL.

SWC_GET_PROPERTY L_OBJ 'Number' L_SUPERIOROPERATION.

ENDIF.

*GENERATE TEXT

IF L_OPERATION IS INITIAL.

WRITE L_ORDER TO L_ORDER_TXT.

CONCATENATE 'Auftr.'(001) "Order

L_ORDER_TXT

INTO OBJECT-WORKITEMTEXT SEPARATED BY SPACE.

ELSEIF L_SUPERIOROPERATION IS INITIAL.

WRITE L_ORDER TO L_ORDER_TXT.

WRITE L_OPERATION TO L_OPERATION_TXT.

WRITE L_SEQUENCE TO L_SEQUENCE_TXT.

CONCATENATE 'Auftr.'(001) "Order

L_ORDER_TXT

'Vg.'(002) "Operation

L_OPERATION_TXT

'Flg.'(003) "Sequence

L_SEQUENCE_TXT

INTO OBJECT-WORKITEMTEXT SEPARATED BY SPACE.

ELSE.

WRITE L_ORDER TO L_ORDER_TXT.

WRITE L_OPERATION TO L_OPERATION_TXT.

WRITE L_SEQUENCE TO L_SEQUENCE_TXT.

WRITE L_SUPERIOROPERATION TO L_SUPERIOROPERATION_TXT.

CONCATENATE L_SUPERIOROPERATION_TXT

'/'(004)

L_OPERATION_TXT

INTO L_OPERATION_CCTXT.

CONCATENATE 'Auftr.'(001)

L_ORDER_TXT

'Vg.'(002)

L_OPERATION_CCTXT

'Flg.'(003)

L_SEQUENCE_TXT

INTO OBJECT-WORKITEMTEXT SEPARATED BY SPACE.

ENDIF.

SWC_SET_ELEMENT CONTAINER 'WorkitemText' OBJECT-WORKITEMTEXT.

END_PROPERTY.

BEGIN_METHOD CREATEPREDEFTIMETICKETMULTIPLE CHANGING CONTAINER.

DATA:

RETURN LIKE BAPIRET1,

TIMETICKETS LIKE BAPI_PP_TIMETICKET OCCURS 0,

GOODSMOVEMENTS LIKE BAPI2017_GM_ITEM_CREATE OCCURS 0,

LINKCONFGOODSMOV LIKE BAPI_LINK_CONF_GOODSMOV OCCURS 0.

SWC_GET_TABLE CONTAINER 'Timetickets' TIMETICKETS.

SWC_GET_TABLE CONTAINER 'Goodsmovements' GOODSMOVEMENTS.

SWC_GET_TABLE CONTAINER 'LinkConfGoodsmov' LINKCONFGOODSMOV.

CALL FUNCTION 'BAPI_PRODORDCONF_PDC_UPLOAD_TT'

IMPORTING

RETURN = RETURN

TABLES

TIMETICKETS = TIMETICKETS

GOODSMOVEMENTS = GOODSMOVEMENTS

LINKCONFGOODSMOV = LINKCONFGOODSMOV

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

END_METHOD.

BEGIN_METHOD CREATEPREDEFTIMEEVENTMULTIPLE CHANGING CONTAINER.

DATA:

RETURN LIKE BAPIRET1,

TIMEEVENTS LIKE BAPI_PP_TIMEEVENT OCCURS 0,

GOODSMOVEMENTS LIKE BAPI2017_GM_ITEM_CREATE OCCURS 0,

LINKCONFGOODSMOV LIKE BAPI_LINK_CONF_GOODSMOV OCCURS 0.

SWC_GET_TABLE CONTAINER 'Timeevents' TIMEEVENTS.

SWC_GET_TABLE CONTAINER 'Goodsmovements' GOODSMOVEMENTS.

SWC_GET_TABLE CONTAINER 'LinkConfGoodsmov' LINKCONFGOODSMOV.

CALL FUNCTION 'BAPI_PRODORDCONF_PDC_UPLOAD_TE'

IMPORTING

RETURN = RETURN

TABLES

TIMEEVENTS = TIMEEVENTS

GOODSMOVEMENTS = GOODSMOVEMENTS

LINKCONFGOODSMOV = LINKCONFGOODSMOV

EXCEPTIONS

OTHERS = 01.

CASE SY-SUBRC.

WHEN 0. " OK

WHEN OTHERS. " to be implemented

ENDCASE.

SWC_SET_ELEMENT CONTAINER 'Return' RETURN.

END_METHOD.

BEGIN_METHOD DISPLAY CHANGING CONTAINER.

SET PARAMETER ID 'RCK' FIELD OBJECT-KEY-CONFIRMATION.

SET PARAMETER ID 'RZL' FIELD OBJECT-KEY-CONFIRMATIONCOUNTER.

CALL TRANSACTION 'CO14' AND SKIP FIRST SCREEN.

END_METHOD.

Don't forget to reward if useful

topic Re: bapi in Application Development and Automation Discussions

bapi

Re: bapi

Re: bapi