Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

BAPI for serial number

Former Member
0 Likes
803

Hi,

Can any one tell me the BAPI for updating the warranty data of a serial number .

regards,

Raghunath.S

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
570

Hi,

Hi,

Check this sample codes.

LOOP AT DA_SERIKOM.

MOVE DA_SERIKOM-SERNR TO DA_RIWOL1-SERNR.

MOVE US_MATNR TO DA_RIWOL1-MATNR.

APPEND DA_RIWOL1.

ENDLOOP.

CALL FUNCTION 'IWOL_WV_ADD_OBJECTS'

EXPORTING

I_SDAUFNR = VBAP-VBELN

I_SDPOSNR = VBAP-POSNR

TO_TYPE = 'SD'

I_KUNDE = VBAK-KUNNR

I_VBTYP = VBAK-VBTYP

I_SD_AUART = VBAK-AUART

I_POSTYP = VBAP-PSTYV

TABLES

T_RIWOL1 = DA_RIWOL1

T_SER02 = DA_RSERXX

EXCEPTIONS

NO_OBJECT_LIST = 1

ENTRY_EXISTS = 2

INVALID_MATERIAL = 3

INVALID_SERIALNR = 4

INVALID_EQUIPMENT = 5

INVALID_LOCATION = 6

INVALID_ASSEMBLY = 7

STATUS_NOT_ALLOWED = 8

EQUI_FOREIGN_KEY = 9

EQUI_SYSTEM_FAILURE = 10

CUSTOMER_EXIT_ERROR = 11

OTHERS = 12.

try to add FM IWOL_WV_POST_OBJECT_LIST at the end.

CALL FUNCTION 'IWOL_WV_POST_OBJECT_LIST'

EXPORTING

I_SDAUFNR = VBAK-VBELN

EXCEPTIONS

NO_OBJECT_LIST = 1.

Also check this thread for sample code of SERNR_ADD_TO_AU.

<b>Reward points</b>

Regards

1 REPLY 1
Read only

Former Member
0 Likes
571

Hi,

Hi,

Check this sample codes.

LOOP AT DA_SERIKOM.

MOVE DA_SERIKOM-SERNR TO DA_RIWOL1-SERNR.

MOVE US_MATNR TO DA_RIWOL1-MATNR.

APPEND DA_RIWOL1.

ENDLOOP.

CALL FUNCTION 'IWOL_WV_ADD_OBJECTS'

EXPORTING

I_SDAUFNR = VBAP-VBELN

I_SDPOSNR = VBAP-POSNR

TO_TYPE = 'SD'

I_KUNDE = VBAK-KUNNR

I_VBTYP = VBAK-VBTYP

I_SD_AUART = VBAK-AUART

I_POSTYP = VBAP-PSTYV

TABLES

T_RIWOL1 = DA_RIWOL1

T_SER02 = DA_RSERXX

EXCEPTIONS

NO_OBJECT_LIST = 1

ENTRY_EXISTS = 2

INVALID_MATERIAL = 3

INVALID_SERIALNR = 4

INVALID_EQUIPMENT = 5

INVALID_LOCATION = 6

INVALID_ASSEMBLY = 7

STATUS_NOT_ALLOWED = 8

EQUI_FOREIGN_KEY = 9

EQUI_SYSTEM_FAILURE = 10

CUSTOMER_EXIT_ERROR = 11

OTHERS = 12.

try to add FM IWOL_WV_POST_OBJECT_LIST at the end.

CALL FUNCTION 'IWOL_WV_POST_OBJECT_LIST'

EXPORTING

I_SDAUFNR = VBAK-VBELN

EXCEPTIONS

NO_OBJECT_LIST = 1.

Also check this thread for sample code of SERNR_ADD_TO_AU.

<b>Reward points</b>

Regards