topic Re: Material Created by user in Application Development and Automation Discussions

Material Created by user

Former Member — Sun, 29 Jul 2007 12:49:28 GMT

Hi,

Please help me out in development of below report eith coding.

<b>A report for displaying purchase documents for a material created by user.</b>

You can send your views to 'muraly.g@gmail.com.

Thanks in advance.

-muraly.

Re: Material Created by user

Former Member — Sun, 29 Jul 2007 15:22:06 GMT

At first I extend the structures BAPI_TE_MARA by my customer field ZZFORST (char 10), then I extend the structure BAPI_TE_MARAX by field ZZFORST (BAPIUPDATE).

Call of the fm:

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

STRUCTURE

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

TABLES:

BAPIMATHEAD, "Headerdata

BAPI_MARA, "Clientdata

BAPI_MARAX, "Clientdatax

BAPI_MARC, "Plantdata

BAPI_MARCX, "Plantdatax

BAPI_MAKT, "Material description

BAPIPAREX, "Extensionstruktur

BAPIPAREXX,

BAPIRET2. "Return messages

DATA:

BAPI_TE_MARA LIKE BAPI_TE_MARA,

BAPI_TE_MARAX LIKE BAPI_TE_MARAX,

V_FILE TYPE STRING.

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

INTERNAL TABLE

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

*to store the output data

DATA:BEGIN OF it_material_number OCCURS 0.

INCLUDE STRUCTURE BAPIMATINR.

DATA:END OF it_material_number.

*for materialtext

DATA:BEGIN OF IT_MATERIALDESC OCCURS 0.

INCLUDE STRUCTURE BAPI_MAKT .

DATA:END OF IT_MATERIALDESC.

*für z-feld

DATA:BEGIN OF IT_BAPIPAREX OCCURS 0.

INCLUDE STRUCTURE BAPIPAREX.

DATA:END OF IT_BAPIPAREX.

*für z-feldx

DATA:BEGIN OF IT_BAPIPAREXX OCCURS 0.

INCLUDE STRUCTURE BAPIPAREXX.

DATA:END OF IT_BAPIPAREXX.

*to return messages

DATA:BEGIN OF IT_RETURN2 OCCURS 0.

INCLUDE STRUCTURE BAPIRET2.

DATA:END OF IT_RETURN2.

DATA:BEGIN OF IT_RETURN OCCURS 0.

INCLUDE STRUCTURE BAPIRET1.

DATA:END OF IT_RETURN.

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

PROCESSING

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

BAPIMATHEAD-MATERIAL = IT_MATERIAL_NUMBER-MATERIAL.

BAPIMATHEAD-IND_SECTOR = 'S'.

BAPIMATHEAD-MATL_TYPE = 'ZRHD'.

BAPIMATHEAD-BASIC_VIEW = 'X'.

BAPIMATHEAD-PURCHASE_VIEW = 'X'.

BAPI_MARA-MATL_GROUP = 'RH01'.

BAPI_MARA-OLD_MAT_NO = '0815'.

BAPI_MARA-BASE_UOM = 'FM'.

BAPI_MARAX-MATL_GROUP = 'X'.

BAPI_MARAX-OLD_MAT_NO = 'X'.

BAPI_MARAX-BASE_UOM = 'X'.

BAPI_MARC-PLANT = '0100'.

BAPI_MARCX-PLANT = '0100'.

IT_MATERIALDESC-LANGU = 'DE'.

IT_MATERIALDESC-MATL_DESC = 'RH TEST-Material'.

APPEND IT_MATERIALDESC.

BAPI_TE_MARA-MATERIAL = IT_MATERIAL_NUMBER-MATERIAL.

BAPI_TE_MARA-ZZFORST = '0000704148'.

BAPI_TE_MARAX-MATERIAL = IT_MATERIAL_NUMBER-MATERIAL.

BAPI_TE_MARAX-ZZFORST = 'X'.

IT_BAPIPAREX-STRUCTURE = 'BAPI_TE_MARA'.

IT_BAPIPAREX-VALUEPART1 = BAPI_TE_MARA.

APPEND IT_BAPIPAREX.

IT_BAPIPAREXX-STRUCTURE = 'BAPI_TE_MARAX'.

IT_BAPIPAREXX-VALUEPART1 = BAPI_TE_MARAX.

APPEND IT_BAPIPAREXX.

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

EXPORTING

headdata = BAPIMATHEAD

CLIENTDATA = BAPI_MARA

CLIENTDATAX = BAPI_MARAX

PLANTDATA = BAPI_MARc

PLANTDATAX = BAPI_MARcx

IMPORTING

RETURN = IT_RETURN2

TABLES

MATERIALDESCRIPTION = IT_MATERIALDESC

EXTENSIONIN = IT_BAPIPAREX

EXTENSIONINX = IT_BAPIPAREXX.

Re: Material Created by user

Former Member — Sun, 29 Jul 2007 15:22:34 GMT

At first I extend the structures BAPI_TE_MARA by my customer field ZZFORST (char 10), then I extend the structure BAPI_TE_MARAX by field ZZFORST (BAPIUPDATE).

Call of the fm:

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

STRUCTURE

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

TABLES:

BAPIMATHEAD, "Headerdata

BAPI_MARA, "Clientdata

BAPI_MARAX, "Clientdatax

BAPI_MARC, "Plantdata

BAPI_MARCX, "Plantdatax

BAPI_MAKT, "Material description

BAPIPAREX, "Extensionstruktur

BAPIPAREXX,

BAPIRET2. "Return messages

DATA:

BAPI_TE_MARA LIKE BAPI_TE_MARA,

BAPI_TE_MARAX LIKE BAPI_TE_MARAX,

V_FILE TYPE STRING.

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

INTERNAL TABLE

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

*to store the output data

DATA:BEGIN OF it_material_number OCCURS 0.

INCLUDE STRUCTURE BAPIMATINR.

DATA:END OF it_material_number.

*for materialtext

DATA:BEGIN OF IT_MATERIALDESC OCCURS 0.

INCLUDE STRUCTURE BAPI_MAKT .

DATA:END OF IT_MATERIALDESC.

*für z-feld

DATA:BEGIN OF IT_BAPIPAREX OCCURS 0.

INCLUDE STRUCTURE BAPIPAREX.

DATA:END OF IT_BAPIPAREX.

*für z-feldx

DATA:BEGIN OF IT_BAPIPAREXX OCCURS 0.

INCLUDE STRUCTURE BAPIPAREXX.

DATA:END OF IT_BAPIPAREXX.

*to return messages

DATA:BEGIN OF IT_RETURN2 OCCURS 0.

INCLUDE STRUCTURE BAPIRET2.

DATA:END OF IT_RETURN2.

DATA:BEGIN OF IT_RETURN OCCURS 0.

INCLUDE STRUCTURE BAPIRET1.

DATA:END OF IT_RETURN.

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

PROCESSING

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

BAPIMATHEAD-MATERIAL = IT_MATERIAL_NUMBER-MATERIAL.

BAPIMATHEAD-IND_SECTOR = 'S'.

BAPIMATHEAD-MATL_TYPE = 'ZRHD'.

BAPIMATHEAD-BASIC_VIEW = 'X'.

BAPIMATHEAD-PURCHASE_VIEW = 'X'.

BAPI_MARA-MATL_GROUP = 'RH01'.

BAPI_MARA-OLD_MAT_NO = '0815'.

BAPI_MARA-BASE_UOM = 'FM'.

BAPI_MARAX-MATL_GROUP = 'X'.

BAPI_MARAX-OLD_MAT_NO = 'X'.

BAPI_MARAX-BASE_UOM = 'X'.

BAPI_MARC-PLANT = '0100'.

BAPI_MARCX-PLANT = '0100'.

IT_MATERIALDESC-LANGU = 'DE'.

IT_MATERIALDESC-MATL_DESC = 'RH TEST-Material'.

APPEND IT_MATERIALDESC.

BAPI_TE_MARA-MATERIAL = IT_MATERIAL_NUMBER-MATERIAL.

BAPI_TE_MARA-ZZFORST = '0000704148'.

BAPI_TE_MARAX-MATERIAL = IT_MATERIAL_NUMBER-MATERIAL.

BAPI_TE_MARAX-ZZFORST = 'X'.

IT_BAPIPAREX-STRUCTURE = 'BAPI_TE_MARA'.

IT_BAPIPAREX-VALUEPART1 = BAPI_TE_MARA.

APPEND IT_BAPIPAREX.

IT_BAPIPAREXX-STRUCTURE = 'BAPI_TE_MARAX'.

IT_BAPIPAREXX-VALUEPART1 = BAPI_TE_MARAX.

APPEND IT_BAPIPAREXX.

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'

EXPORTING

headdata = BAPIMATHEAD

CLIENTDATA = BAPI_MARA

CLIENTDATAX = BAPI_MARAX

PLANTDATA = BAPI_MARc

PLANTDATAX = BAPI_MARcx

IMPORTING

RETURN = IT_RETURN2

TABLES

MATERIALDESCRIPTION = IT_MATERIALDESC

EXTENSIONIN = IT_BAPIPAREX

EXTENSIONINX = IT_BAPIPAREXX.

Re: Material Created by user

Former Member — Sun, 29 Jul 2007 19:10:46 GMT

Muraly,

SAP provides a standard transaction ME2L to get Purchasing Documents for a material created by a specific user. You may see the code behind this Tcode.

Thanks,

Venu

Re: Material Created by user

Former Member — Sat, 04 Aug 2007 14:50:28 GMT

thanks