topic bapi in Application Development and Automation Discussions

bapi

Former Member — Wed, 19 Dec 2007 09:06:00 GMT

Hi experts,

suppose I hv a table with 5 different fields and suppose I wanted to delete duplicate entries of any one fields without deleting entire row of that table. How to do the same.

Shashikant

Re: bapi

amit_khare — Wed, 19 Dec 2007 09:11:07 GMT

sort the table on that field.

Store the value in a variable.

check with the rows.

Wherever find that value, replace it with BLANK.

Modify the table for that row transporting that field.

Regards,

Amit

Re: bapi

Vijay — Wed, 19 Dec 2007 11:22:58 GMT

the sample code would be

sort itab by field f1.

itab1[] = itab[].

loop at itab1 into wa_itab1.

loop at itab1 into wa_itab2.

if wa_itab2-f1 = wa_itab1-f1.

count = count + 1.

endif.

if count ge 1.

clear wa_itab2-f1.

endif.

modify itab from wa_itab2 index sy-index.

endloop.

clear : wa_itab2

wa_itab1.

endloop.

regards

vijay

reward points if helpfull

Edited by: vijay sharma on Dec 19, 2007 12:23 PM

Re: bapi

Former Member — Wed, 19 Dec 2007 14:58:57 GMT

can u send structure of the internal table and sample data.

Re: bapi

Former Member — Thu, 20 Dec 2007 04:28:31 GMT

I am writing a BAPI where I am using four tables

AGR_USERS(uname, agr_name), AGR_HIER(report), AGR_1016(profile), UST12(objct, field, von)

Now here i wan to display agr_name, report, profile, objct, field, von for the uname which user will enter. I want display the objct field von for all the profile the fields should not repeated for new valu of report.

My code is like this here it is repeating the values of ust12 fields for every new value of report

FUNCTION zbapi_autho_object .

*"----

""Local interface:

*" IMPORTING

*" VALUE(UNAME) TYPE XUBNAME

*" EXPORTING

*" VALUE(OUTPUT) TYPE ZST_ITAB

*" EXCEPTIONS

*" NO_RECORDS

*"----

*--

SHASHIKANT--

TYPES: BEGIN OF TY_TEMP,

UNAME TYPE AGUNAME,

AGR_NAME TYPE AGR_NAME,

REPORT TYPE EXTDREPORT,

PROFILE TYPE AGPROFILE,

END OF TY_TEMP.

DATA: IT_TEMP TYPE STANDARD TABLE OF TY_TEMP.

FIELD-SYMBOLS <FS_ITAB> LIKE LINE OF IT_TEMP.

DATA: BEGIN OF WA.

INCLUDE STRUCTURE ZAUTHO.

DATA: END OF WA.

SELECT p_{uname p}agr_name s_{report t}profile

INTO CORRESPONDING FIELDS OF TABLE IT_TEMP

FROM agr_users AS p INNER JOIN agr_hier AS s ON s_{agr_name = p}agr_name

INNER JOIN agr_1016 AS t ON t_{agr_name = p}agr_name

WHERE p~uname EQ uname.

LOOP AT IT_TEMP ASSIGNING <FS_ITAB>.

CONCATENATE <FS_ITAB>-PROFILE '00' INTO <FS_ITAB>-PROFILE.

CONDENSE <FS_ITAB>-PROFILE NO-GAPS.

SELECT OBJCT FIELD VON INTO (WA-OBJCT, WA-FIELD, WA-VON)

FROM UST12 WHERE AUTH = <FS_ITAB>-PROFILE.

WA-UNAME = <FS_ITAB>-UNAME.

WA-AGR_NAME = <FS_ITAB>-AGR_NAME.

WA-report = <FS_ITAB>-report.

WA-PROFILE = <FS_ITAB>-PROFILE.

APPEND WA TO output.

ENDSELECT.

ENDLOOP.

ENDFUNCTION.

************************END********************************888

if anythig wan to ask pls give a call 9322468903 or give ur cell no.

Thanks