Re: BAPI for equipment creation

Former Member — Fri, 03 Feb 2006 07:44:10 GMT

HI ,

i am sending the total code of equipment creation through bapi. it includes class , charactries, and address details.

have look at the code it help full to you.

REPORT Z_IPSG_BAPI_IEO1 MESSAGE-ID Z3 LINE-SIZE 185 NO STANDARD PAGE

HEADING.

*"----

Program Name: Z_IPSG_BAPI_IEO1
Ref:
Author: saleem.shaik
Date: 04/01/06
Source Code Type: using bapi function modules

*----

PROGRAM DESCRIPTION:

*----

*This Program is used to upload the Equipment details to SAP

*----

INCLUDE ZIPSGIEBAPITOP.

SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-018 .

PARAMETERS: FLATFILE LIKE RLGRAP-FILENAME DEFAULT 'C:\Equipment.txt'.

SELECTION-SCREEN END OF BLOCK BL1.

SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-027 .

PARAMETERS: P_EMAIL(50). "D0086

SELECTION-SCREEN END OF BLOCK BL2.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FLATFILE.

PERFORM GET_FILENAME.

START-OF-SELECTION.

To upload data from flat file into internal table:

IF SY-BATCH = 'X'.

PERFORM READ_FILE. " for background

ELSE.

PERFORM UPLOAD_FILE. " for foreground

DESCRIBE TABLE ITAB LINES SY-TFILL.

Files with more than 10 records should not be processed online

IF SY-TFILL > 10.

MESSAGE E398(00) WITH TEXT-030.

ENDIF.

CHECK NOT ITAB[] IS INITIAL.

PERFORM SET_CHANGE_FLAG.

SORT ITAB .

PERFORM CREATE_EQUIPMENT.

PERFORM CHANGE_EQUIPMENT.

PERFORM DISPLAYDATA.

TOP-OF-PAGE.

WRITE :/60 C_HEAD.

WRITE :/10 'DATE:', SY-DATUM, 120 'Program Name:', SY-CPROG.

WRITE :/10 'TIME:', SY-UZEIT, 120 'USER:', SY-UNAME.

ULINE: /1(185).

WRITE 😕 SPACE COLOR 4.

WRITE : 1 SY-VLINE,

2 'Equipment',

13 SY-VLINE,

14 'Material Number' COLOR 4,

35 SY-VLINE,

36 'Serial Number' COLOR 4,

67 SY-VLINE,

68 'Functional Location' COLOR 4,

103 SY-VLINE,

104 'Success/Exception' COLOR 4,

145 SY-VLINE,

146 'Status',

185 SY-VLINE.

ULINE:/1(185).

**********************************************************************

FORM UPLOAD_FILE *

**********************************************************************

FORM UPLOAD_FILE.

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

FILENAME = FLATFILE

FILETYPE = 'DAT'

TABLES

DATA_TAB = ITAB

EXCEPTIONS

CONVERSION_ERROR = 1

FILE_OPEN_ERROR = 2

FILE_READ_ERROR = 3

INVALID_TABLE_WIDTH = 4

INVALID_TYPE = 5

NO_BATCH = 6

UNKNOWN_ERROR = 7

OTHERS = 8.

write : 'WS_UPLOAD return code : ',sy-subrc.

IF SY-SUBRC <> 0.

CASE SY-SUBRC.

WHEN 1.

MESSAGE A099 WITH TEXT-010.

WHEN 2.

MESSAGE A099 WITH TEXT-011.

WHEN 3.

MESSAGE A099 WITH TEXT-012.

WHEN 4.

MESSAGE A099 WITH TEXT-013.

WHEN 5.

MESSAGE A099 WITH TEXT-014.

WHEN 6.

MESSAGE A099 WITH TEXT-015.

WHEN 7.

MESSAGE A099 WITH TEXT-016.

WHEN 8.

MESSAGE A099 WITH TEXT-017.

ENDCASE.

WRITE 😕 'ERROR' .

ENDIF.

ENDFORM. " UPLOAD_FILE

***********************************************************************

----

FORM GET_FILENAME.

CALL FUNCTION 'WS_FILENAME_GET'

EXPORTING

DEF_FILENAME = SPACE

DEF_PATH = FLATFILE

MASK = ',.,..'

MODE = 'O'

TITLE = 'Choose file'

IMPORTING

FILENAME = FLATFILE

EXCEPTIONS

INV_WINSYS = 1

NO_BATCH = 2

SELECTION_CANCEL = 3

SELECTION_ERROR = 4

OTHERS = 5.

ENDFORM. "get_filename

&----

*& Form set_change_flag

&----

FORM SET_CHANGE_FLAG .

Select all the equipment numbers for the material number serial number
Combination

SELECT EQUNR MATNR SERGE TPLNR DATBI EQUNR

FROM V_EQUI

INTO TABLE GT_EQUI

FOR ALL ENTRIES IN ITAB

WHERE MATNR = ITAB-REFMA AND

SERGE = ITAB-SERGE AND

EQTYP = 'Z' AND

DATBI GT SY-DATUM.

SELECT OBJEK FROM KSSK

INTO TABLE GT_KSSK

FOR ALL ENTRIES IN GT_EQUI

WHERE OBJEK = GT_EQUI-OBJEK.

SORT GT_EQUI BY EQUNR DATBI.

LOOP AT ITAB.

READ TABLE GT_EQUI WITH KEY MATNR = ITAB-REFMA

SERGE = ITAB-SERGE.

IF SY-SUBRC = 0.

ITAB-CHGFLG = 'X'.

MODIFY ITAB.

ENDIF.

ENDLOOP.

ENDFORM. " set_change_flag

&----

*& Form SENDING

&----

text

----

-->ZMAIL text

----

FORM SENDING USING ZMAIL .

CHECK NOT SY-BATCH IS INITIAL.

IF NOT ZMAIL IS INITIAL.

GT_RECLIST-LINE = ZMAIL.

ELSE.

GT_RECLIST-LINE = P_EMAIL.

ENDIF.

APPEND GT_RECLIST.

CLEAR GT_RECLIST.

DESCRIBE TABLE GT_OBJTXT LINES SY-TFILL.

CHECK SY-TFILL > 2.

CALL FUNCTION 'Z_SEND_EMAIL_FROM_APP_SERVER_1'

EXPORTING

I_SUBJECT = C_HEAD

I_SUPPRESS_COMM = 'X'

TABLES

RECIPIENTS = GT_RECLIST

BODY_TEXT = GT_OBJTXT

EXCEPTIONS

NO_RECIPIENTS = 1

NO_TEXT = 2

IO_ERROR = 3

SEND_ERROR = 4

OTHERS = 5.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

REFRESH GT_OBJTXT.

REFRESH GT_RECLIST.

ENDFORM. "sendmail

&----

*& Form read_file

&----

text

----

--> p1 text
<-- p2 text

----

FORM READ_FILE .

CLEAR LT_FILES.

REFRESH LT_FILES.

CONCATENATE 'ls -t' GV_SOURCE INTO LV_TCOM SEPARATED BY SPACE.

Read the directory for files

CALL 'SYSTEM' ID 'COMMAND' FIELD LV_TCOM ID 'TAB'

FIELD LT_FILES-SYS.

DELETE LT_FILES WHERE FILE_NAME_PATH = 'archive'.

IF LT_FILES[] IS INITIAL.

EXIT.

ENDIF.

read the files

LOOP AT LT_FILES.

CLEAR GV_FILEPATH.

CONCATENATE GV_SOURCE LT_FILES-FILE_NAME_PATH INTO GV_FILEPATH.

Check if right files are there in right servers

CASE SY-SYSID.

WHEN 'P01' OR 'NT2'. " EMEA

IF LT_FILES-FILE_NAME_PATH+0(2) NE 'EM'.

CONCATENATE LT_FILES-FILE_NAME_PATH TEXT-024 SY-SYSID TEXT-029

INTO GT_OBJTXT SEPARATED BY SPACE

APPEND GT_OBJTXT.

CLEAR GT_OBJTXT.

CONTINUE.

ENDIF.

WHEN 'PN1' OR 'NT1'. " Americas.

IF LT_FILES-FILE_NAME_PATH+0(2) NE 'AM'.

CONCATENATE LT_FILES-FILE_NAME_PATH TEXT-024 SY-SYSID TEXT-029

INTO GT_OBJTXT SEPARATED BY SPACE

APPEND GT_OBJTXT.

CLEAR GT_OBJTXT.

CONTINUE.

ENDIF.

WHEN 'PJ1' OR 'NT3'. " Asia Pacific.

IF LT_FILES-FILE_NAME_PATH+0(2) NE 'AP'.

CONCATENATE LT_FILES-FILE_NAME_PATH TEXT-024 SY-SYSID TEXT-029

INTO GT_OBJTXT SEPARATED BY SPACE

APPEND GT_OBJTXT.

CLEAR GT_OBJTXT.

CONTINUE.

ENDIF.

ENDCASE.

Move the file contents to internal table

OPEN DATASET GV_FILEPATH IN TEXT MODE FOR INPUT.

IF SY-SUBRC <> 0.

CONCATENATE TEXT-028 GV_FILEPATH INTO GT_OBJTXT

SEPARATED BY SPACE.

APPEND GT_OBJTXT.

CONTINUE.

ENDIF.

DO.

READ DATASET GV_FILEPATH INTO GV_STRING.

IF SY-SUBRC <> 0.

EXIT.

ENDIF.

SPLIT GV_STRING AT GV_TAB_LIMIT INTO

ITAB-REFMA

ITAB-IWERK

ITAB-BEGRU

ITAB-INVNR

ITAB-EQART

ITAB-HERST

ITAB-TYPBZ

ITAB-BAUJJ

ITAB-BAUMM

ITAB-MAPAR

ITAB-SUBMT

ITAB-TIDNR

ITAB-SERGE

ITAB-TPLNR

ITAB-KLART

ITAB-CLASS

ITAB-MNAME

ITAB-MWERT

ITAB-STATUS

ITAB-NAME1

ITAB-NAME2

ITAB-ZMAIL.

APPEND ITAB.

CLEAR ITAB.

ENDDO.

CONCATENATE 'mv' GV_FILEPATH GV_DEST INTO LV_TCOM SEPARATED BY

SPACE.

CALL 'SYSTEM' ID 'COMMAND' FIELD LV_TCOM.

ENDLOOP.

Send mail to generic id if there are any errors.

IF NOT GT_OBJTXT[] IS INITIAL.

PERFORM SENDING USING P_EMAIL.

ENDIF.

ENDFORM. " read_file

&----

*& Form create_equipment

&----

text

----

FORM CREATE_EQUIPMENT .

LOOP AT ITAB WHERE CHGFLG NE 'X'.

*****Create Equipment with Address Details

SELECT SINGLE PLTXT FROM IFLOTX INTO V_PLTXT WHERE TPLNR = ITAB-TPLNR.

SELECT SINGLE MAKTX FROM MAKT INTO V_EQKTX

WHERE MATNR = ITAB-REFMA.

V_TPLNR = ITAB-TPLNR.

WA_EQUIP-EQKTX = V_EQKTX.

WA_EQUIP-MATNR = ITAB-REFMA.

WA_EQUIP-IWERK = ITAB-IWERK.

WA_EQUIP-TIDNR = ITAB-TIDNR.

WA_EQUIP-SERGE = ITAB-SERGE.

WA_EQUIP-EQTYP = C_EQTYP.

APPEND WA_EQUIP TO IT_EQUIP.

IF ITAB-NAME1 IS NOT INITIAL OR ITAB-NAME2 IS NOT INITIAL.

select single land1 from t001w into v_country
where werks = itab-iwerk. "Get Country Key

IT_ADDR1-DATA-NAME1 = ITAB-NAME1.

IT_ADDR1-DATA-NAME2 = ITAB-NAME2.

IT_ADDR1-DATA-COUNTRY = V_COUNTRY.

APPEND IT_ADDR1.

WA_ADDR-ADDR1_DATA[] = IT_ADDR1[].

WA_ADDR-ADTEL_DATA[] = IT_ADTEL[].

APPEND WA_ADDR TO IT_ADDR.

ENDIF.

CALL FUNCTION 'Z_CREATE_EQUIP'

EXPORTING

I_FL = V_TPLNR

IT_EQUIP = IT_EQUIP

IT_ADDR = IT_ADDR

IMPORTING

ET_MESSAGES = IT_MESSAGES.

LOOP AT IT_MESSAGES INTO WA_MESSAGE.

V_EQUNR = WA_MESSAGE-NEW_EQUIP.

WA_MESSAGE1[] = WA_MESSAGE-MESSAGES[].

GT_EQUTAB-EQUNR = V_EQUNR.

GT_EQUTAB-ZMAIL = P_EMAIL.

GT_EQUTAB-REFMA = WA_MESSAGE-MATNR.

GT_EQUTAB-SERGE = WA_MESSAGE-SERIAL.

GT_EQUTAB-TPLNR = ITAB-TPLNR.

GT_EQUTAB-PLTXT = V_PLTXT.

GT_EQUTAB-MODE = V_CRE.

IF WA_MESSAGE1[] IS NOT INITIAL.

LOOP AT WA_MESSAGE1 INTO WA_MESSAGE2.

GT_EQUTAB-EXCEPT = WA_MESSAGE2-MESSAGE.

APPEND GT_EQUTAB.

CLEAR GT_EQUTAB.

ENDLOOP.

ELSE.

APPEND GT_EQUTAB.

CLEAR GT_EQUTAB.

ENDIF.

ENDLOOP.

IF V_EQUNR IS NOT INITIAL.

*********Ext The Equipment with Genral Details ***************

WA_DATA_GENERAL-AUTHGRP = ITAB-BEGRU.

WA_GENERAL_DATAX-AUTHGRP = TRUE.

WA_DATA_GENERAL-INVENTORY = ITAB-INVNR.

WA_GENERAL_DATAX-INVENTORY = TRUE.

WA_DATA_GENERAL-OBJECTTYPE = ITAB-EQART.

WA_GENERAL_DATAX-OBJECTTYPE = TRUE.

WA_DATA_GENERAL-MANFACTURE = ITAB-HERST.

WA_GENERAL_DATAX-MANFACTURE = TRUE.

WA_DATA_GENERAL-MANMODEL = ITAB-TYPBZ.

WA_GENERAL_DATAX-MANMODEL = TRUE.

WA_DATA_GENERAL-CONSTYEAR = ITAB-BAUJJ.

WA_GENERAL_DATAX-CONSTYEAR = TRUE.

WA_DATA_GENERAL-CONSTMONTH = ITAB-BAUMM.

WA_GENERAL_DATAX-CONSTMONTH = TRUE.

WA_DATA_GENERAL-MANPARNO = ITAB-MAPAR.

WA_GENERAL_DATAX-MANPARNO = TRUE.

WA_DATA_GENERAL-CONSTTYPE = ITAB-SUBMT.

WA_GENERAL_DATAX-CONSTTYPE = TRUE.

CALL FUNCTION 'BAPI_EQUI_CHANGE'

EXPORTING

EQUIPMENT = V_EQUNR

DATA_GENERAL = WA_DATA_GENERAL

DATA_GENERALX = WA_GENERAL_DATAX

DATA_SPECIFIC = WA_SPECIFIC_DATA

DATA_SPECIFICX = WA_SPECIFIC_DATAX

IMPORTING

RETURN = IT_RETURN.

APPEND IT_RETURN.

IF IT_RETURN[] IS NOT INITIAL.

LOOP AT IT_RETURN.

GT_EQUTAB1-EQUNR = V_EQUNR.

GT_EQUTAB1-ZMAIL = ITAB-ZMAIL.

GT_EQUTAB1-REFMA = ITAB-REFMA.

GT_EQUTAB1-SERGE = ITAB-SERGE.

GT_EQUTAB1-TPLNR = ITAB-TPLNR.

GT_EQUTAB1-EXCEPT = IT_RETURN-MESSAGE.

GT_EQUTAB1-TYPE = IT_RETURN-TYPE.

GT_EQUTAB1-PLTXT = V_PLTXT.

GT_EQUTAB1-MODE = V_CRE.

APPEND GT_EQUTAB1.

CLEAR GT_EQUTAB.

ENDLOOP.

ENDIF.

READ TABLE IT_RETURN WITH KEY TYPE = 'E' .

IF SY-SUBRC IS INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'.

ENDIF.

WAIT UP TO 2 SECONDS.

IF ITAB-CLASS IS NOT INITIAL.

V_OBJECT = V_EQUNR.

V_CLASS_NEW = ITAB-CLASS.

V_CLASS_TYP = ITAB-KLART.

IF ITAB-MNAME = 'INST_DATE'.

V_DATE = ITAB-MWERT.

WRITE V_DATE TO IT_CHAR-VALUE_CHAR..

IT_CHAR-CHARACT = ITAB-MNAME.

APPEND IT_CHAR.

ENDIF.

CALL FUNCTION 'BAPI_OBJCL_CREATE'

EXPORTING

OBJECTKEYNEW = V_OBJECT

OBJECTTABLENEW = V_TABLE

CLASSNUMNEW = V_CLASS_NEW

CLASSTYPENEW = V_CLASS_TYP

STATUS = ' '

TABLES

ALLOCVALUESCHAR = IT_CHAR

RETURN = IT_RETCAL.

READ TABLE IT_RETCAL WITH KEY TYPE = 'E' .

IF SY-SUBRC IS NOT INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'.

ELSE .

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

ENDIF.

LOOP AT IT_RETCAL.

GT_EQUTAB1-EQUNR = V_EQUNR.

GT_EQUTAB1-ZMAIL = ITAB-ZMAIL.

GT_EQUTAB1-REFMA = ITAB-REFMA.

GT_EQUTAB1-SERGE = ITAB-SERGE.

GT_EQUTAB1-TPLNR = ITAB-TPLNR.

GT_EQUTAB1-EXCEPT = IT_RETCAL-MESSAGE.

GT_EQUTAB1-TYPE = IT_RETCAL-TYPE.

GT_EQUTAB1-PLTXT = V_PLTXT.

GT_EQUTAB1-MODE = V_CRE.

APPEND GT_EQUTAB1.

CLEAR GT_EQUTAB1.

ENDLOOP.

ENDIF.

CLEAR : WA_DATA_GENERAL,

WA_GENERAL_DATAX,

WA_SPECIFIC_DATA,

WA_SPECIFIC_DATAX,

WA_ADDR,

WA_EQUIP,

V_OBJECT,

V_EQKTX,

V_EQUNR,

V_DATE,

V_CLASS_NEW,

V_CLASS_TYP,

IT_CHAR,

IT_RETCAL,

IT_RETURN,

V_TPLNR,

IT_EQUIP,

IT_ADDR,

IT_ADDR1.

REFRESH : IT_CHAR,

IT_RETCAL,

IT_RETURN,

IT_EQUIP,

IT_ADDR,

IT_ADDR1.

ENDIF.

ENDLOOP.

ENDFORM. " create_equipment

&----

*& Form change_equipment

&----

Change the Equipment data

----

FORM CHANGE_EQUIPMENT .

DELETE ITAB WHERE CHGFLG NE 'X'.

CHECK NOT ITAB[] IS INITIAL.

SORT ITAB .

LOOP AT ITAB.

* For the material and serial number combination from the file
Select the equipment

READ TABLE GT_EQUI WITH KEY MATNR = ITAB-REFMA

SERGE = ITAB-SERGE.

Equipment Number

V_EQUNR = GT_EQUI-EQUNR.

New Address Details( Building & Grid)

IF ITAB-NAME1 IS NOT INITIAL OR ITAB-NAME2 IS NOT INITIAL.

select single iloan from equz into v_iloan where equnr = v_equnr
and EQLFN = c_eqlfn.

select single adrnr from iloa into v_address
where iloan = v_iloan.

SELECT EQUNR ILOAN FROM EQUZ INTO TABLE IT_ILOAN

WHERE EQUNR = V_EQUNR.

LOOP AT IT_ILOAN.

SELECT SINGLE ADRNR FROM ILOA INTO V_ADDRESS

WHERE ILOAN = IT_ILOAN-ILOAN.

IF V_ADDRESS IS NOT INITIAL.

EXIT.

ENDIF.

ENDLOOP.

IF V_ADDRESS IS INITIAL.

SELECT SINGLE OBJNR FROM ITOB INTO

V_NEW_OBJNR WHERE EQUNR = V_EQUNR.

MOVE: V_TABLE TO IT_AD_HANDLE_STR-TABLE,

V_NEW_OBJNR TO IT_AD_HANDLE_STR-OBJNR.

MOVE IT_AD_HANDLE_STR TO V_ADDRESS_HANDLE.

V_UPDATE_FLAG = 'I'.

select single land1 from t001w into v_country
where werks = itab-iwerk. "Get Country Key

IT_ADDR1-DATA-NAME1 = ITAB-NAME1.

IT_ADDR1-DATA-NAME2 = ITAB-NAME2.

IT_ADDR1-DATA-COUNTRY = V_COUNTRY.

APPEND IT_ADDR1.

WA_ADDR-ADDR1_DATA[] = IT_ADDR1[].

WA_ADDR-ADTEL_DATA[] = IT_ADTEL[]. "Dummy structure

WA_COMPLETE_ADDRESS-ADDRHANDLE = V_ADDRESS_HANDLE.

WA_COMPLETE_ADDRESS-ADDR1_TAB[] = WA_ADDR-ADDR1_DATA[].

WA_COMPLETE_ADDRESS-ADTEL_TAB[] = WA_ADDR-ADTEL_DATA[].

CALL FUNCTION 'ADDR_MAINTAIN_COMPLETE'

EXPORTING

UPDATEFLAG = V_UPDATE_FLAG

ADDR1_COMPLETE = WA_COMPLETE_ADDRESS

ADDRESS_GROUP = V_PM01

IMPORTING

RETURNCODE = V_RECODE

TABLES

ERROR_TABLE = IT_ERROR_TAB

EXCEPTIONS

PARAMETER_ERROR = 1

ADDRESS_NOT_EXIST = 2

HANDLE_EXIST = 3

INTERNAL_ERROR = 4

OTHERS = 5.

MOVE: SY-MANDT TO IT_AD_REFKEY-MANDT,

V_EQUNR TO IT_AD_REFKEY-ID.

MOVE: V_TABLE TO IT_AD_REF-APPL_TABLE,

V_EQUNR1 TO IT_AD_REF-APPL_FIELD,

IT_AD_REFKEY TO IT_AD_REF-APPL_KEY.

IT_AD_REF-ADDR_GROUP = V_PM01.

IT_AD_REF-OWNER = TRUE.

MOVE IT_AD_HANDLE_STR TO V_AD_HANDLE.

CALL FUNCTION 'ADDR_NUMBER_GET'

EXPORTING

ADDRESS_HANDLE = V_AD_HANDLE

ADDRESS_REFERENCE = IT_AD_REF

IMPORTING

ADDRESS_NUMBER = V_NEW_ADDRESS

EXCEPTIONS

ADDRESS_HANDLE_NOT_EXIST = 1

INTERNAL_ERROR = 2

PARAMETER_ERROR = 3

OTHERS = 4.

IF SY-SUBRC = 0.

CALL FUNCTION 'ADDR_MEMORY_SAVE'

EXPORTING

EXECUTE_IN_UPDATE_TASK = TRUE

EXCEPTIONS

ADDRESS_NUMBER_MISSING = 1

PERSON_NUMBER_MISSING = 2

INTERNAL_ERROR = 3

DATABASE_ERROR = 4

REFERENCE_MISSING = 5

OTHERS = 6.

**********Address Details

WA_DATA_GENERAL-ADRNR = V_NEW_ADDRESS.

WA_GENERAL_DATAX-ADRNR = TRUE.

WA_DATA_GENERAL-ADRNRI = 'D'.

WA_GENERAL_DATAX-ADRNRI = TRUE.

ENDIF.

ELSE.

Existing address

WA_COMPLETE_ADDRESS-ADDRNUMBER = V_ADDRESS.

V_UPDATE_FLAG = 'U'.

select single land1 from t001w into v_country
where werks = itab-iwerk. "Get Country Key

IT_ADDR1-DATA-NAME1 = ITAB-NAME1.

IT_ADDR1-DATA-NAME2 = ITAB-NAME2.

IT_ADDR1-DATA-COUNTRY = V_COUNTRY.

APPEND IT_ADDR1.

WA_ADDR-ADDR1_DATA[] = IT_ADDR1[].

WA_ADDR-ADTEL_DATA[] = IT_ADTEL[]. "Dummy structure

WA_COMPLETE_ADDRESS-ADDRHANDLE = V_ADDRESS_HANDLE.

WA_COMPLETE_ADDRESS-ADDR1_TAB[] = WA_ADDR-ADDR1_DATA[].

WA_COMPLETE_ADDRESS-ADTEL_TAB[] = WA_ADDR-ADTEL_DATA[].

CALL FUNCTION 'ADDR_MAINTAIN_COMPLETE'

EXPORTING

UPDATEFLAG = V_UPDATE_FLAG

ADDR1_COMPLETE = WA_COMPLETE_ADDRESS

ADDRESS_GROUP = V_PM01

IMPORTING

RETURNCODE = V_RECODE

TABLES

ERROR_TABLE = IT_ERROR_TAB

EXCEPTIONS

PARAMETER_ERROR = 1

ADDRESS_NOT_EXIST = 2

HANDLE_EXIST = 3

INTERNAL_ERROR = 4

OTHERS = 5.

CALL FUNCTION 'ADDR_SINGLE_SAVE'

EXPORTING

ADDRESS_NUMBER = V_ADDRESS

EXECUTE_IN_UPDATE_TASK = TRUE

EXCEPTIONS

ADDRESS_NOT_EXIST = 1

PERSON_NOT_EXIST = 2

ADDRESS_NUMBER_MISSING = 3

REFERENCE_MISSING = 4

INTERNAL_ERROR = 5

DATABASE_ERROR = 6

PARAMETER_ERROR = 7

OTHERS = 8.

ENDIF.

*********************Change Equipment

Genral Data

WA_DATA_GENERAL-AUTHGRP = ITAB-BEGRU.

WA_GENERAL_DATAX-AUTHGRP = TRUE.

WA_DATA_GENERAL-PLANPLANT = ITAB-IWERK.

WA_GENERAL_DATAX-PLANPLANT = TRUE.

WA_DATA_GENERAL-INVENTORY = ITAB-INVNR.

WA_GENERAL_DATAX-INVENTORY = TRUE.

WA_DATA_GENERAL-OBJECTTYPE = ITAB-EQART.

WA_GENERAL_DATAX-OBJECTTYPE = TRUE.

WA_DATA_GENERAL-MANFACTURE = ITAB-HERST.

WA_GENERAL_DATAX-MANFACTURE = TRUE.

WA_DATA_GENERAL-MANMODEL = ITAB-TYPBZ.

WA_GENERAL_DATAX-MANMODEL = TRUE.

WA_DATA_GENERAL-CONSTYEAR = ITAB-BAUJJ.

WA_GENERAL_DATAX-CONSTYEAR = TRUE.

WA_DATA_GENERAL-CONSTMONTH = ITAB-BAUMM.

WA_GENERAL_DATAX-CONSTMONTH = TRUE.

WA_DATA_GENERAL-MANPARNO = ITAB-MAPAR.

WA_GENERAL_DATAX-MANPARNO = TRUE.

WA_DATA_GENERAL-CONSTTYPE = ITAB-SUBMT.

WA_GENERAL_DATAX-CONSTTYPE = TRUE.

Technical identification number

WA_SPECIFIC_DATA-TECHID = ITAB-TIDNR.

WA_SPECIFIC_DATAX-TECHID = TRUE.

CALL FUNCTION 'BAPI_EQUI_CHANGE'

EXPORTING

EQUIPMENT = V_EQUNR

DATA_GENERAL = WA_DATA_GENERAL

DATA_GENERALX = WA_GENERAL_DATAX

DATA_SPECIFIC = WA_SPECIFIC_DATA

DATA_SPECIFICX = WA_SPECIFIC_DATAX

IMPORTING

RETURN = IT_RETURN.

APPEND IT_RETURN.

SELECT SINGLE PLTXT FROM IFLOTX INTO V_PLTXT WHERE TPLNR = ITAB-TPLNR.

IF IT_RETURN IS NOT INITIAL.

LOOP AT IT_RETURN.

GT_EQUTAB-EQUNR = V_EQUNR.

GT_EQUTAB-ZMAIL = ITAB-ZMAIL.

GT_EQUTAB-REFMA = ITAB-REFMA.

GT_EQUTAB-SERGE = ITAB-SERGE.

GT_EQUTAB-TPLNR = ITAB-TPLNR.

GT_EQUTAB-EXCEPT = IT_RETURN-MESSAGE.

GT_EQUTAB-TYPE = IT_RETURN-TYPE.

GT_EQUTAB-PLTXT = V_PLTXT.

GT_EQUTAB-MODE = V_CHAN.

APPEND GT_EQUTAB.

CLEAR GT_EQUTAB.

ENDLOOP.

ELSE.

GT_EQUTAB-EQUNR = V_EQUNR.

GT_EQUTAB-ZMAIL = P_EMAIL.

GT_EQUTAB-REFMA = ITAB-REFMA.

GT_EQUTAB-SERGE = ITAB-SERGE.

GT_EQUTAB-TPLNR = ITAB-TPLNR.

GT_EQUTAB-TYPE = 'S'.

GT_EQUTAB-PLTXT = V_PLTXT.

GT_EQUTAB-MODE = V_CHAN.

APPEND GT_EQUTAB.

CLEAR GT_EQUTAB.

ENDIF.

READ TABLE IT_RETURN WITH KEY TYPE = 'E' .

IF SY-SUBRC IS INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'.

ENDIF.

wait up to 2 seconds.
Characteristics

read table gt_kssk with key objek = gt_equi-objek.
if sy-subrc = 0.

V_OBJECT = V_EQUNR.

V_CLASS_NEW = ITAB-CLASS.

V_CLASS_TYP = ITAB-KLART.

IF ITAB-MNAME = 'INST_DATE'.

V_DATE = ITAB-MWERT.

WRITE V_DATE TO IT_CHAR-VALUE_CHAR.

IT_CHAR-CHARACT = ITAB-MNAME.

APPEND IT_CHAR.

CALL FUNCTION 'BAPI_OBJCL_CHANGE'

EXPORTING

OBJECTKEY = V_OBJECT

OBJECTTABLE = V_TABLE

CLASSNUM = V_CLASS_NEW

CLASSTYPE = V_CLASS_TYP

STATUS = '1'

TABLES

ALLOCVALUESNUMNEW = ALLOCVAL_NUM

ALLOCVALUESCHARNEW = IT_CHAR

ALLOCVALUESCURRNEW = ALLOCVAL_CURR

RETURN = IT_RETCAL.

IF SY-SUBRC IS INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

WAIT = 'X'.

ENDIF.

endif.

LOOP AT IT_RETCAL.

GT_EQUTAB1-EQUNR = V_EQUNR.

GT_EQUTAB1-ZMAIL = ITAB-ZMAIL.

GT_EQUTAB1-REFMA = ITAB-REFMA.

GT_EQUTAB1-SERGE = ITAB-SERGE.

GT_EQUTAB1-TPLNR = ITAB-TPLNR.

GT_EQUTAB1-EXCEPT = IT_RETCAL-MESSAGE.

GT_EQUTAB1-TYPE = IT_RETCAL-TYPE.

GT_EQUTAB1-PLTXT = V_PLTXT.

APPEND GT_EQUTAB1.

CLEAR GT_EQUTAB1.

ENDLOOP.

CLEAR : WA_DATA_GENERAL,

WA_GENERAL_DATAX,

WA_SPECIFIC_DATA,

WA_SPECIFIC_DATAX,

WA_ADDR,

WA_EQUIP,

V_OBJECT,

V_EQKTX,

V_EQUNR,

V_DATE,

V_CLASS_NEW,

V_CLASS_TYP,

V_ILOAN,

V_NEW_ADDRESS,

V_AD_HANDLE,

IT_CHAR,

IT_RETCAL,

IT_RETURN,

V_TPLNR,

IT_EQUIP,

IT_ADDR,

IT_ADDR1.

REFRESH : IT_CHAR,

IT_RETCAL,

IT_RETURN,

IT_EQUIP,

IT_ADDR,

IT_ADDR1.

ENDLOOP.

ENDFORM. " change_equipment

&----

*& Form displaydata

&----

text

----

FORM DISPLAYDATA .

LOOP AT GT_EQUTAB.

IF GT_EQUTAB-MODE = V_CRE.

READ TABLE GT_EQUTAB1 WITH KEY EQUNR = GT_EQUTAB-EQUNR

TYPE = 'E'.

IF SY-SUBRC IS NOT INITIAL.

IF GT_EQUTAB-TYPE NE 'E'.

GT_EQUTAB-STATUS = TEXT-036.

ELSE.

GT_EQUTAB-STATUS = TEXT-035.

ENDIF.

IF GT_EQUTAB1-EXCEPT IS INITIAL .

GT_EQUTAB1-EXCEPT = TEXT-036.

ENDIF.

ULINE: 1(185).

WRITE 😕 SPACE COLOR 2.

WRITE : 1 SY-VLINE,

2 GT_EQUTAB-EQUNR COLOR 2,

13 SY-VLINE,

14 GT_EQUTAB-REFMA COLOR 2,

35 SY-VLINE,

36 GT_EQUTAB-SERGE COLOR 2,

67 SY-VLINE,

68 GT_EQUTAB-PLTXT COLOR 2,

103 SY-VLINE,

104 GT_EQUTAB-EXCEPT,

145 SY-VLINE,

146 GT_EQUTAB-STATUS COLOR 3 ,

185 SY-VLINE.

ULINE:/1(185).

ELSE.

GT_EQUTAB-STATUS = TEXT-035.

IF GT_EQUTAB1-EXCEPT IS INITIAL .

GT_EQUTAB1-EXCEPT = TEXT-035.

ENDIF.

LOOP AT GT_EQUTAB1 WHERE EQUNR = GT_EQUTAB-EQUNR.

ULINE: 1(185).

WRITE 😕 SPACE COLOR 2.

WRITE : 1 SY-VLINE,

2 GT_EQUTAB1-EQUNR COLOR 2,

13 SY-VLINE,

14 GT_EQUTAB1-REFMA COLOR 2,

35 SY-VLINE,

36 GT_EQUTAB1-SERGE COLOR 2,

67 SY-VLINE,

68 GT_EQUTAB1-PLTXT COLOR 2,

103 SY-VLINE,

104 GT_EQUTAB1-EXCEPT,

145 SY-VLINE,

146 GT_EQUTAB1-STATUS COLOR 3 ,

185 SY-VLINE.

ULINE:/1(185).

ENDLOOP.

ENDIF.

ELSE.

READ TABLE GT_EQUTAB1 WITH KEY EQUNR = GT_EQUTAB-EQUNR

TYPE = 'E'.

IF SY-SUBRC IS NOT INITIAL.

IF GT_EQUTAB-TYPE NE 'E'.

GT_EQUTAB-STATUS = TEXT-038.

ELSE.

GT_EQUTAB-STATUS = TEXT-037.

ENDIF.

IF GT_EQUTAB-EXCEPT IS INITIAL .

GT_EQUTAB-EXCEPT = TEXT-038.

ENDIF.

ULINE: 1(185).

WRITE 😕 SPACE COLOR 2.

WRITE : 1 SY-VLINE,

2 GT_EQUTAB-EQUNR COLOR 2,

13 SY-VLINE,

14 GT_EQUTAB-REFMA COLOR 2,

35 SY-VLINE,

36 GT_EQUTAB-SERGE COLOR 2,

67 SY-VLINE,

68 GT_EQUTAB-PLTXT COLOR 2,

103 SY-VLINE,

104 GT_EQUTAB-EXCEPT,

145 SY-VLINE,

146 GT_EQUTAB-STATUS COLOR 3 ,

185 SY-VLINE.

ULINE:/1(185).

ELSE.

GT_EQUTAB1-STATUS = TEXT-037.

GT_EQUTAB1-EXCEPT = TEXT-037.

LOOP AT GT_EQUTAB1 WHERE EQUNR = GT_EQUTAB-EQUNR.

ULINE: 1(185).

WRITE 😕 SPACE COLOR 2.

WRITE : 1 SY-VLINE,

2 GT_EQUTAB1-EQUNR COLOR 2,

13 SY-VLINE,

14 GT_EQUTAB1-REFMA COLOR 2,

35 SY-VLINE,

36 GT_EQUTAB1-SERGE COLOR 2,

67 SY-VLINE,

68 GT_EQUTAB1-PLTXT COLOR 2,

103 SY-VLINE,

104 GT_EQUTAB1-EXCEPT,

145 SY-VLINE,

146 GT_EQUTAB1-STATUS COLOR 3 ,

185 SY-VLINE.

ULINE:/1(185).

ENDLOOP.

ENDIF.

AT NEW ZMAIL.

GT_OBJTXT = TEXT-020.

APPEND GT_OBJTXT.

CLEAR GT_OBJTXT.

APPEND GT_OBJTXT.

ENDAT.

CONCATENATE GT_EQUTAB-EQUNR

TEXT-032 GT_EQUTAB-REFMA

TEXT-033 GT_EQUTAB-SERGE

TEXT-034 GT_EQUTAB-TPLNR '-'

GT_EQUTAB-EXCEPT

INTO GT_OBJTXT SEPARATED BY SPACE.

APPEND GT_OBJTXT.

CLEAR GT_OBJTXT.

AT END OF ZMAIL.

PERFORM SENDING USING GT_EQUTAB-ZMAIL.

ENDAT.

ENDLOOP.

ENDFORM. " displaydata

code includes all details for equipment . if you have any dout mail me to shaik0079@yahoo.com

topic Re: BAPI for equipment creation in Application Development and Automation Discussions

BAPI for equipment creation

Re: BAPI for equipment creation

Re: BAPI for equipment creation