BAPI or FM for Material Listing

Hi Experts,
Good day, is there a BAPI or a FM that i can use to perform Material Listing?
Thanks!
Jesus

Use'BAPI_MATERIAL_GETLIST'.
Or you can fetch materials from material master MARA.
Regards,
Aparna

Similar Messages

Procedure for material listing

Hello all,
When I use the following customizing : "Sales and Distribution > Basic Functions > Listing/Exclusion > Activate listing/exclusion by sales document type"
There is a setting called "procedure for material listing" (3rd column) that determines how the system reacts to several listings. The possible values are :
- The first listing in the access sequence is used
A - The last listing in the access sequence is used
B - At least one listing must apply
C - All listings must apply
But I don't understand what is the purpose of these values because, concerning material listings, if there is at least one listing, it is enough to consider the material can be bought. Isn't it?
Also I encounter a bug when I use the first value "- The first listing in the access sequence is used" : the program finds entries for the given customer but within these entries there is none for the given material. Even if the system finds no entry (customer+material), it reacts like if there is one.
Using VA01, when I run the material listing/exclusion analysis, the answer for the following access sequences is "Access not made due to a previous access"...
Thanks in advance if you provide any help about this issue.
Regards,
Francois.

up

BAPI or FM for Source List (ME01 TCode)

Hello,
         I have a requirement to upload master data for Source List which is T-Code ME01. Now, as there is a Table Control in it, we are having trouble using LSMW because when there is more than 1 record for the given Material Plant Combination, it fails to handle the 2nd Record. There is a table Control in the T-Code ME01 in which if we go by the Recording in LSMW, we would have the 2nd Record overwrite the 1st Record when we actually try to upload the Data.
       So, is there a BAPI by which we can achieve this requirement? Please let me know.
Thanks and Regards,
Venkata Phani Prasad Konduri

Hello Manjunath,
                              I have neither used BDC or BAPI Method to upload SourceList but used the LSMW-IDOC method using;
IDoc Type : SRCLST01
Message Type : SRCLST
Process Code : SRCL
Inbound Posting Program : IDOC_INPUT_SRCLIST
                             It worked fine for me. Try this out.
Thank You,
Venkata Phani Prasad K

Report for material list

hi,
i want a material list for which if i specify a period i will get materials with
a)No goods reciept
b)No stock or material movement(issue/transfer posting etc).
c)no sales or shipping.
should have happened for the materials for that period.
if no standard report exists can you tell me the algoritthm.
urgent: satisfying answers will be awarded full points

Rajkiran,
am sure you will never setisfy even we send you number of report because you have to chenge according to your requirement.dont expect spoon feeding.
*& Object Id               :                                                  &*
*& Object Name             : ZMM_STO_REGISTER                                 &*
*& Function Module Name    : MM                                               &*
*& Transaction Code        : ZMMSTO                                           &*
*& Author                  : Amit&*
*& Module Name             : MATERIAL MANAGEMENT                              &*
*& Sub-Module              :                                                  &*
*& Program Type            : Report                                           &*
*& Create Date             : 28.03.2007                                       &*
*& Completion Date         : 30.03.2007                                       &*
*& SAP Release             :                                                  &*
*& Description             : STO REGISTER                                     &*
*& MODIFICATION LOG        : MODIFIED AT 30.04.2007 adding new field          &*
*&                          chapter-id by chakrapani mishra                   &*
REPORT zmm_sto_register.
*                             TABLES USED                                     *
TABLES :vbrk,                                   "Billing Document: Header Data
        vbrp,                                   "Billing Document: Item Data
        mara,                                   "General Material Data
        konv,                                   "Conditions (Transaction Data)
        t023t,                                  "Material Group Descriptions
        ekko,                                   "Purchasing Document Header
        likp,                                   "SD Document: Delivery Header Data
        mvke,                                   "Sales Data for Material
        t001w,                                  "Plants/Branches
        marm,                                   "Units of Measure for Material
        j_1imtchid,                             "Combination of Material Number and Chapter ID
        mseg,
        mkpf,
        j_1iexchdr.
TYPE-POOLS : slis.                              "TYPE POOL SLIS
*                      INTERNAL TABLES                                      *
DATA: BEGIN OF t_vbrp OCCURS 0,                "INTERNAL TABLE FOR VBRP
        vbeln LIKE vbrp-vbeln,                 "Billing Document
        vstel LIKE vbrp-vstel,                 "Shipping Point/Receiving Point
       vgbel LIKE vbrp-vgbel,                 "Document number of the reference document
        aubel LIKE vbrp-aubel,                 "Sales Document
        matnr LIKE vbrp-matnr,                 "Material Number
        arktx LIKE vbrp-arktx,                 "Short text for sales order item
        matkl LIKE vbrp-matkl,                 "Material Group
        fkimg LIKE vbrp-fkimg,                 "Actual Invoiced Quantity
        werks LIKE vbrp-werks,                 "Plant
        posnr LIKE vbrp-posnr,                 " Billing item
        vrkme LIKE vbrp-vrkme,                 " Sales unit
        vgbel1 LIKE mkpf-xblnr,
END OF t_vbrp.
DATA: BEGIN OF t_vbrk OCCURS 0,                 "INTERNAL TABLE FOR VBRK
        kunag LIKE vbrk-kunag,                  "Sold-to party
        vbeln LIKE vbrk-vbeln,                  "Billing Document
        fkdat LIKE vbrk-fkdat,                  "Billing date for billing index and printout
        knumv LIKE vbrk-knumv,                  "Number of the document condition
        fkart LIKE vbrk-fkart,                  "Billing Type
        vtweg LIKE vbrk-vtweg,                  "Distribution Channel
        vkorg LIKE vbrk-vkorg,                  "Sales Organization
        erzet LIKE vbrk-erzet,
        w_flag TYPE c,
        l_tabix TYPE sy-tabix,
END OF t_vbrk.
DATA: BEGIN OF t_temp1 OCCURS 0,                 "INTERNAL TABLE FOR VBRK
       vbeln LIKE vbrp-vbeln,                 "Billing Document
       fkart LIKE vbrk-fkart,
      fkdat LIKE vbrk-fkdat,
       vgbel LIKE vbrp-vgbel,                 "Document number of the reference document
       werks LIKE vbrp-werks,
       w_flag TYPE c,
END OF t_temp1.
DATA: BEGIN OF t_mara OCCURS 0,                 "INTERNAL TABLE FOR MARA
        matnr LIKE mara-matnr,                  "Material Number
        mtart LIKE mara-mtart,                  "Material Type
        wrkst LIKE mara-wrkst,                  "Finish
        extwg LIKE mara-extwg,                  "Design
        labor LIKE mara-labor,                  "Grade/Category No.
        normt LIKE mara-normt,                  "Thickness in mm
        bismt LIKE mara-bismt,                  "Size (L*B) in mm
        matkl LIKE mara-matkl,
        spart LIKE mara-spart,
        meins LIKE mara-meins,
END OF t_mara.
DATA : BEGIN OF t_konv OCCURS 0,                "INTERNAL TABLE FOR KONV
        knumv LIKE konv-knumv,                  "Number of the document condition
        kposn LIKE konv-kposn,                  "Condition item number
        kschl LIKE konv-kschl,                  "Condition type
        kwert LIKE konv-kwert,                  "Condition value
        kbetr LIKE konv-kbetr,                  "Condition rate
        END OF t_konv.
DATA : BEGIN OF t_likp OCCURS 0,               "INTERNAL TABLE FOR LIKP
        vbeln LIKE likp-vbeln,                 "Delivery
        lfdat LIKE likp-lfdat,                 "Delivery Date
        kunnr LIKE likp-kunnr,
        bldat LIKE likp-bldat,                " document date
        vbeln_kp LIKE mkpf-xblnr, " likp-vbeln,
        END OF t_likp.
DATA : BEGIN OF t_t023t OCCURS 0,              "INTERNAL TABLE FOR T023T
        matkl LIKE t023t-matkl,               "Material Group
        wgbez LIKE t023t-wgbez,                "Material Group Description
        spras LIKE t023t-spras,                "Language Key
        END OF t_t023t.
DATA : BEGIN OF t_ekko OCCURS 0,               "INTERNAL TABLE FOR EKKO
        ebeln LIKE ekko-ebeln,                 "Purchasing Document Number
        bsart LIKE ekko-bsart,                 "Purchasing Document Type
        aedat LIKE ekko-aedat,                 "Date on Which Record Was Created
        knumv LIKE ekko-knumv,                 "Number of the document condition
        END OF t_ekko.
DATA : BEGIN OF t_ekpo OCCURS 0,               "INTERNAL TABLE FOR EKKO
        ebeln LIKE ekko-ebeln,                 "Purchasing Document Number
        loekz LIKE ekko-loekz,                 "Purchasing Document Type
        END OF t_ekpo.
DATA : BEGIN OF t_mvke OCCURS 0,
        matnr LIKE mvke-matnr,
        mvgr1 LIKE mvke-mvgr1,
        END OF t_mvke.
DATA : BEGIN OF t_t001w OCCURS 0,                "INTERNAL TABLE FOR KONV
        werks LIKE t001w-werks,                  "Number of the document condition
        name1 LIKE t001w-name1,                  "Condition type
        kunnr LIKE t001w-kunnr,                  "Condition value
        name2 LIKE t001w-name2,                  "Condition item number
       END OF t_t001w.
DATA : BEGIN OF t_t001w2 OCCURS 0,                "INTERNAL TABLE FOR KONV
        werks LIKE t001w-werks,                  "Number of the document condition
        name1 LIKE t001w-name1,                  "Condition type
        kunnr LIKE t001w-kunnr,                  "Condition value
        name2 LIKE t001w-name2,                  "Condition item number
       END OF t_t001w2.
DATA : BEGIN OF t_marm OCCURS 0,
        matnr LIKE marm-matnr,
        meinh LIKE marm-meinh,
        umrez LIKE marm-umrez,
        umren LIKE marm-umren,
        END OF t_marm.
DATA : BEGIN OF t_tvm1t OCCURS 0,
        mvgr1 LIKE tvm1t-mvgr1,
        bezie LIKE tvm1t-bezei,
        END OF t_tvm1t.
**********************modification additioon of chapter ID 30.04.2007
DATA : BEGIN OF t_j_1imtchid OCCURS 0,              "INTERNAL TABLE FOR j_1imtchid
        matnr LIKE j_1imtchid-matnr,                "Material Number
       j_1ichid LIKE j_1imtchid-j_1ichid,           "Chapter ID
        END OF t_j_1imtchid.
DATA : BEGIN OF t_j_1iexchdr OCCURS 0,              "INTERNAL TABLE FOR j_1imtchid
        exnum LIKE j_1iexchdr-exnum,                "Material Number
        exdat LIKE j_1iexchdr-exdat,                "Chapter ID
        rdoc LIKE j_1iexchdr-rdoc,
        werks LIKE j_1iexchdr-werks,
        status LIKE j_1iexchdr-status,
        trntyp LIKE j_1iexchdr-trntyp,
        END OF t_j_1iexchdr.
**********************modification additioon of chapter ID 30.04.2007
DATA: BEGIN OF t_final OCCURS 0,                  "INTERNAL TABLE T_FINAL
          fkart LIKE vbrk-fkart,
          kunag LIKE vbrk-kunag,
          vbeln_k LIKE vbrk-vbeln,
          fkdat LIKE vbrk-fkdat,
          knumv LIKE vbrk-knumv,
          fkart1 LIKE vbrk-fkart,
          vtweg LIKE vbrk-vtweg,
          vkorg LIKE vbrk-vkorg,
          vbeln LIKE likp-vbeln,                 "Delivery
          vbeln_p LIKE vbrp-vbeln,
          vstel LIKE vbrp-vstel,
          "vgbel like mkpf-xblnr,
          vgbel LIKE vbrp-vgbel,
          aubel LIKE vbrp-aubel,
          matnr LIKE vbrp-matnr,
          arktx LIKE vbrp-arktx,
          matkl LIKE vbrp-matkl,
          fkimg LIKE vbrp-fkimg,
          posnr LIKE vbrp-posnr,
          vrkme LIKE vbrp-vrkme,
          matnr_m LIKE mara-matnr,
          mtart LIKE mara-mtart,
          wrkst LIKE mara-wrkst,
          extwg LIKE mara-extwg,
          labor LIKE mara-labor,
          normt LIKE mara-normt,
          bismt LIKE mara-bismt,
          spart LIKE mara-spart,
          meins LIKE mara-meins,
          kposn LIKE konv-kposn,
          kschl LIKE konv-kschl,
          kwert LIKE konv-kwert,
          kwert1 LIKE konv-kwert,
          kwert2 LIKE konv-kwert,
          kwert3 LIKE konv-kwert,
          kwert4 LIKE konv-kwert,
          kwert5 LIKE konv-kwert,
          kbetr LIKE konv-kbetr,
          vbeln_kp LIKE mkpf-xblnr, " likp-vbeln,
          lfdat LIKE likp-lfdat,
          wgbez LIKE t023t-wgbez,
          spras LIKE t023t-spras,
          bsart LIKE ekko-bsart,
          aedat LIKE ekko-aedat,
**********************modification additioon of chapter ID 30.04.2007
       j_1ichid LIKE j_1imtchid-j_1ichid ,
**********************modification additioon of chapter ID 30.04.2007
          total TYPE p DECIMALS 2,
          mvgr1 LIKE mvke-mvgr1,
          werks LIKE t001w-werks,                  "Number of the document condition
          kunnr LIKE t001w-kunnr,                  "Condition value
          name1 LIKE t001w-name1,                  "Condition type
          name2 LIKE t001w-name2,                  "Condition item number
          werks1 LIKE t001w-werks,                  "Number of the document condition
          kunnr1 LIKE t001w-kunnr,                  "Condition value
          name11 LIKE t001w-name1,                  "Condition type
          name21 LIKE t001w-name2,
          exnum LIKE j_1iexchdr-exnum,                "Material Number
          exdat LIKE j_1iexchdr-exdat,           "Chapter ID
          rdoc LIKE j_1iexchdr-rdoc,
          bom TYPE p DECIMALS 4,
          mult TYPE p DECIMALS 4,
          bezie LIKE tvm1t-bezei,
          length(5) TYPE n,
          breath(5) TYPE n,
           bldat LIKE likp-bldat,                " document date
          size(15) TYPE p DECIMALS 2,
          area(15) TYPE p DECIMALS 2,
           mblnr TYPE mseg-mblnr,     "Number of Material Document
           mjahr TYPE mseg-mjahr,     "Material Document Year
           budat TYPE mkpf-budat,     "Posting period
           w_flag TYPE c,
            flag TYPE c,
    END OF t_final.
DATA : BEGIN OF t_temp OCCURS 0,
       kunag LIKE vbrk-kunag,
          vbeln_k LIKE vbrk-vbeln,
          fkdat LIKE vbrk-fkdat,
          knumv LIKE vbrk-knumv,
          fkart LIKE vbrk-fkart,
          vtweg LIKE vbrk-vtweg,
          vkorg LIKE vbrk-vkorg,
          vbeln LIKE likp-vbeln,                 "Delivery
          vbeln_p LIKE vbrp-vbeln,
          vstel LIKE vbrp-vstel,
          "vgbel like mkpf-xblnr,
          vgbel LIKE vbrp-vgbel,
          aubel LIKE vbrp-aubel,
          matnr LIKE vbrp-matnr,
          arktx LIKE vbrp-arktx,
          matkl LIKE vbrp-matkl,
          fkimg LIKE vbrp-fkimg,
          posnr LIKE vbrp-posnr,
          vrkme LIKE vbrp-vrkme,
          matnr_m LIKE mara-matnr,
          mtart LIKE mara-mtart,
          wrkst LIKE mara-wrkst,
          extwg LIKE mara-extwg,
          labor LIKE mara-labor,
          normt LIKE mara-normt,
          bismt LIKE mara-bismt,
          spart LIKE mara-spart,
          meins LIKE mara-meins,
          kposn LIKE konv-kposn,
          kschl LIKE konv-kschl,
          kwert LIKE konv-kwert,
          kwert1 LIKE konv-kwert,
          kwert2 LIKE konv-kwert,
          kwert3 LIKE konv-kwert,
          kwert4 LIKE konv-kwert,
          kwert5 LIKE konv-kwert,
          kbetr LIKE konv-kbetr,
          vbeln_kp LIKE mkpf-xblnr, " likp-vbeln,
          lfdat LIKE likp-lfdat,
          wgbez LIKE t023t-wgbez,
          spras LIKE t023t-spras,
          bsart LIKE ekko-bsart,
          aedat LIKE ekko-aedat,
**********************modification additioon of chapter ID 30.04.2007
       j_1ichid LIKE j_1imtchid-j_1ichid ,
**********************modification additioon of chapter ID 30.04.2007
          total TYPE p DECIMALS 2,
          mvgr1 LIKE mvke-mvgr1,
          werks LIKE t001w-werks,                  "Number of the document condition
          kunnr LIKE t001w-kunnr,                  "Condition value
          name1 LIKE t001w-name1,                  "Condition type
          name2 LIKE t001w-name2,                  "Condition item number
          werks1 LIKE t001w-werks,                  "Number of the document condition
          kunnr1 LIKE t001w-kunnr,                  "Condition value
          name11 LIKE t001w-name1,                  "Condition type
          name21 LIKE t001w-name2,
          exnum LIKE j_1iexchdr-exnum,                "Material Number
          exdat LIKE j_1iexchdr-exdat,           "Chapter ID
          rdoc LIKE j_1iexchdr-rdoc,
          bom TYPE p DECIMALS 4,
          mult TYPE p DECIMALS 4,
          bezie LIKE tvm1t-bezei,
          length(5) TYPE n,
          breath(5) TYPE n,
          size(15) TYPE p DECIMALS 2,
          area(15) TYPE p DECIMALS 2,
           mblnr TYPE mseg-mblnr,     "Number of Material Document
           mjahr TYPE mseg-mjahr,     "Material Document Year
           budat TYPE mkpf-budat,     "Posting period
        END OF t_temp.
DATA : BEGIN OF it_mseg OCCURS 0,
         werks LIKE mseg-werks,
         matnr LIKE mseg-matnr,
         ebeln LIKE mseg-ebeln,
         mblnr TYPE mseg-mblnr,    "Number of Material Document
         mjahr TYPE mseg-mjahr,     "Material Document Year
       END OF it_mseg.
DATA : BEGIN OF it_mkpf OCCURS 0,
          budat TYPE mkpf-budat,
          mblnr TYPE mkpf-mblnr,
         tcode2 LIKE mkpf-tcode2,
        " xblnr(10) TYPE C,
         xblnr LIKE likp-vbeln,                 "Delivery
       END OF it_mkpf.
DATA : BEGIN OF it_vbuk OCCURS 0,
        vbeln LIKE vbuk-vbeln,
        wbstk LIKE vbuk-wbstk,
        END OF it_vbuk.
DATA : it_vbrk LIKE t_vbrk OCCURS 0 WITH HEADER LINE.
DATA : it_vbrp LIKE t_vbrp OCCURS 0 WITH HEADER LINE.
DATA : it_mara LIKE t_mara OCCURS 0 WITH HEADER LINE.
TYPES : w_str TYPE string,
        str TYPE string.
*                      WORK AREAS                                         *
DATA: wa_vbrk    LIKE t_vbrk.                     "WORK AREA FOR VBRK
DATA: wa_vbrp    LIKE t_vbrp.                     "WORK AREA FOR VBRP
DATA: wa_mara    LIKE t_mara.                     "WORK AREA FOR MARA
DATA: wa_sfinal LIKE t_temp.                    "WORK AREA FOR T_FINAL
DATA: wa_sfinal1 LIKE t_final.                    "WORK AREA FOR T_FINAL
DATA: wa_mseg    LIKE it_mseg.                     "Workarea for internal table mseg
DATA : wa_vbeln LIKE t_vbrk-vbeln.
DATA: wa_mkpf    LIKE it_mkpf.                     "Workarea for internal table mkpf
*                          ALV                                           *
DATA: it_fieldcat     TYPE    slis_t_fieldcat_alv,
      wa_fieldcat     LIKE    LINE OF it_fieldcat,
      it_top_of_page TYPE    slis_t_listheader,
      ls_layout       TYPE    slis_layout_alv,
      gt_events       TYPE    slis_t_event.
*                     SELECTION-SCREEN                                    *
SELECTION-SCREEN BEGIN OF BLOCK detail WITH FRAME TITLE text-000.
SELECT-OPTIONS: supp_pnt FOR vbrp-vstel OBLIGATORY.              "SUPPLYING PLANT
SELECT-OPTIONS: recv_pnt FOR vbrk-kunag OBLIGATORY.              "RECEIVING PLANT
SELECT-OPTIONS: period   FOR vbrk-fkdat OBLIGATORY.              "PERIOD
SELECT-OPTIONS: budat    FOR mkpf-budat.                        " MIGO DATE
SELECTION-SCREEN END OF BLOCK detail.
*                   START-OF-SELECTION                                 *
***********************************POPULATING DATA
PERFORM populating_data.
**********************************MOVE DATA
PERFORM move_data.
*********************************DATA- FETCHING
PERFORM data_fetching.
*********************************GET ALV DATA
PERFORM alv_get_data.
*********************************ALV GRID DATA
PERFORM alv_grid.
*********************************TOP OF PAGE
PERFORM top_of_page.
*                    VALIDATION OF SELECTION SCREEN                     *
AT SELECTION-SCREEN ON period.
IF period-high IS INITIAL.
    MESSAGE e001(zamit).
ENDIF.
*                      SELECTION OF DATA                        *
FORM populating_data.
*************POPULATING DATA FROM VBRK
CLEAR   t_vbrk.
REFRESH t_vbrk.
SELECT kunag
          vbeln
          fkdat
          knumv
          fkart
          vtweg
          vkorg
          erzet
FROM vbrk INTO TABLE t_vbrk
WHERE kunag IN recv_pnt AND
        fkdat IN period   AND
            fkart = 'JEX' OR
            fkart = 'F8' AND
            vtweg = '10' AND
            vkorg = '1000'.
DELETE t_vbrk[]   WHERE fkdat = '' .
DELETE t_vbrk[]   WHERE fkdat NOT IN period.
DELETE t_vbrk[]   WHERE kunag NOT IN recv_pnt.
IF t_vbrk[] IS INITIAL.
    MESSAGE i002(zamit).
    LEAVE LIST-PROCESSING.
ENDIF.
DELETE t_vbrk WHERE fkdat NOT IN period.
*DATA: l_tabix TYPE sy-tabix.           " declare the sy-tabix as local variable
*DATA: l_lines TYPE sy-tabix.
*DATA: l_index TYPE sy-tabix.
*"SORT T_VBRK DESCENDING BY vbeln.
*SORT T_VBRK ASCENDING BY vbeln fkart .
*DESCRIBE TABLE t_vbrk LINES l_lines .       "The current number of table rows of the internal table itab is determined and is assigned to the data object lin
*CHECK l_lines > 1.                               " check lines are greater than 1
*LOOP AT t_vbrk.
* l_tabix = sy-tabix.                              " assine Index of Internal Tables into local var l_tabix
* l_index = l_tabix + 1.
* IF t_vbrk-fkart = 'F8'.                          " loop on the temp table
*READ TABLE t_vbrk INTO wa_vbrk INDEX l_index. " read the temp table with index l_index
*IF sy-subrc = 0.
*CHECK t_vbrk-vbeln < wa_vbrk-vbeln .
* if sy-subrc = 0.
* t_vbrk-W_FLAG = 'X'.
* MODIFY t_vbrk TRANSPORTING W_FLAG.
*endif.
* endif.
*else.
* exit.
*endif.
*endloop.
*LOOP at t_vbrk.
*DELETE t_vbrk WHERE w_flag = 'X' .
*endloop.
*" change by kalika dated 28.06.2007
**" change by kalika dated 28.06.2007
*************POPULATING DATA FROM VBRP
IF t_vbrk[] IS NOT INITIAL.
    CLEAR   t_vbrp.
    REFRESH t_vbrp.
    SELECT vbeln
            vstel
            vgbel
            aubel
            matnr
            arktx
            matkl
            fkimg
            werks
            posnr
            vrkme
     FROM vbrp INTO TABLE t_vbrp
     FOR ALL ENTRIES IN t_vbrk
     WHERE vbeln = t_vbrk-vbeln
     AND vstel IN supp_pnt .
ENDIF.
IF sy-subrc <> 0.
    MESSAGE i000(zamit).
    LEAVE LIST-PROCESSING.
ENDIF.
IF t_vbrp[] IS NOT INITIAL.
    SELECT vbeln wbstk FROM vbuk
      INTO TABLE it_vbuk FOR ALL ENTRIES IN
      t_vbrp WHERE vbeln = t_vbrp-vgbel.
ENDIF.
"DELETE t_vbrp[] WHERE vstel NOT in supp_pnt. " by kalika
*************POPULATING DATA FROM MARA
it_vbrp[] = t_vbrp[].
" it_vbrp-vgbel1 = t_vbrp-vgbel.
"SORT it_vbrp BY matnr.
SORT t_vbrp BY vbeln.
" DELETE ADJACENT DUPLICATES FROM it_vbrp COMPARING matnr . by kalika
* IF t_vbrp IS NOT INITIAL.
CLEAR   t_mara.
REFRESH t_mara.
SELECT matnr
          mtart
          wrkst
          extwg
          labor
          normt
          bismt
          matkl
          spart
          meins
     FROM mara INTO TABLE t_mara
          FOR ALL ENTRIES IN it_vbrp WHERE
          matnr = it_vbrp-matnr .
* ENDIF.
*************POPULATING DATA FROM KONV
it_vbrk[] = t_vbrk[].
SORT it_vbrk BY knumv .
DELETE ADJACENT DUPLICATES FROM it_vbrk COMPARING knumv .
CLEAR   t_konv.
REFRESH t_konv.
SELECT knumv
          kposn
          kschl
          kwert
          kbetr
     FROM konv INTO TABLE t_konv
     FOR ALL ENTRIES IN it_vbrk
       WHERE knumv = it_vbrk-knumv.
DELETE t_konv WHERE
                         kschl <> 'ZR02'
                         AND kschl <> 'JEXP'
                         AND kschl <> 'JECS'
                         AND kschl <> 'DIFF'.
*************POPULATING DATA FROM LIKP
it_vbrp[] = t_vbrp[].
SORT it_vbrp BY vgbel.
" DELETE ADJACENT DUPLICATES FROM it_vbrp COMPARING vgbel . by kalika
CLEAR   t_likp.
REFRESH t_likp.
SELECT vbeln
          lfdat
          bldat " NEW CHANGE
     FROM likp INTO CORRESPONDING FIELDS OF TABLE t_likp
     FOR ALL ENTRIES IN it_vbrp
     WHERE vbeln = it_vbrp-vgbel.
*************POPULATING DATA FROM T023T
it_mara[] = t_mara[].
SORT it_mara BY matkl .
DELETE ADJACENT DUPLICATES FROM it_mara COMPARING matkl.
CLEAR   t_t023t.
REFRESH t_t023t.
IF t_mara[] IS NOT INITIAL.
    SELECT matkl
            wgbez
            spras
       FROM t023t INTO TABLE t_t023t
       FOR ALL ENTRIES IN it_mara
       WHERE matkl = it_mara-matkl AND
             spras = sy-langu.
ENDIF.
*************POPULATING DATA FROM EKKO
it_vbrp[] = t_vbrp[].
SORT it_vbrp BY aubel.
" DELETE ADJACENT DUPLICATES FROM it_vbrp COMPARING aubel. by kalika
CLEAR t_ekko.
REFRESH t_ekko.
SELECT ebeln
         bsart
         aedat
         knumv
    FROM ekko
    INTO TABLE t_ekko
    FOR ALL ENTRIES IN it_vbrp
   WHERE ebeln = it_vbrp-aubel
          AND bsart LIKE 'U%'.
************************delete invoice where it is being deleted from the system
*SELECT ebeln loekz
* FROM ekpo
* INTO CORRESPONDING FIELDS OF TABLE t_ekpo
* FOR ALL ENTRIES IN t_ekko
* WHERE ebeln = t_ekko-ebeln.
*DELETE t_ekpo WHERE loekz = 'L'.
*************POPULATING DATA FROM t001w
it_vbrp[] = t_vbrp[].
SORT it_vbrp BY werks.
" DELETE ADJACENT DUPLICATES FROM it_vbrp COMPARING werks . by kalika
CLEAR   t_t001w.
REFRESH t_t001w.
SELECT werks
          name1
          kunnr
          name2
     FROM t001w INTO TABLE t_t001w
     FOR ALL ENTRIES IN it_vbrp
     WHERE werks = it_vbrp-werks .
it_vbrk[] = t_vbrk[].
SORT it_vbrk BY kunag.
DELETE ADJACENT DUPLICATES FROM it_vbrk COMPARING kunag .
CLEAR   t_t001w2.
REFRESH t_t001w2.
SELECT werks
          name1
          kunnr
          name2
     FROM t001w INTO TABLE t_t001w2
     FOR ALL ENTRIES IN it_vbrk
     WHERE kunnr = it_vbrk-kunag .
*--------POPULATING DATA FROM MARM
SELECT matnr
          meinh
          umrez
          umren FROM marm INTO TABLE t_marm
          FOR ALL ENTRIES IN t_mara
          WHERE matnr = t_mara-matnr.
*********************POPULATING DATA FROM MVKE
CLEAR   t_mvke.
REFRESH t_mvke.
SELECT matnr
          mvgr1
     FROM mvke INTO TABLE t_mvke
     FOR ALL ENTRIES IN t_vbrp
       WHERE matnr = t_vbrp-matnr .
*-----------------POPULATING DATA FROM TVM1T.
SELECT
          mvgr1 bezei FROM tvm1t
          INTO TABLE t_tvm1t FOR ALL ENTRIES IN t_mvke
          WHERE mvgr1 = t_mvke-mvgr1.
**********************modification additioon of chapter ID 30.04.2007
*-----------------POPULATING DATA FROM j_1imtchid.
CLEAR   t_j_1imtchid.
REFRESH t_j_1imtchid.
SELECT matnr
          j_1ichid
     FROM j_1imtchid INTO TABLE t_j_1imtchid
     FOR ALL ENTRIES IN t_vbrp
       WHERE matnr = t_vbrp-matnr .
*-----------------POPULATING DATA FROM j_1iexchdr.
CLEAR   t_j_1iexchdr.
REFRESH t_j_1iexchdr.
SELECT exnum
          exdat
          rdoc
          werks
          trntyp
          status
     FROM j_1iexchdr INTO TABLE t_j_1iexchdr
     FOR ALL ENTRIES IN t_vbrp
     WHERE rdoc = t_vbrp-vbeln
     AND werks = t_vbrp-werks
     AND trntyp = 'DLFC'   .      " by kalika
DELETE t_j_1iexchdr WHERE status = 'R' .   " by kalika
DELETE t_j_1iexchdr WHERE status = 'B' .   " by kalika
SORT t_j_1iexchdr BY rdoc.
***************end of modification additioon of chapter ID 30.04.2007
******* start of modification kalika dated 19.06.2007
LOOP AT t_likp.
    t_likp-vbeln_kp = t_likp-vbeln.
    MODIFY t_likp.
ENDLOOP.
* SELECT budat mblnr xblnr tcode2
*    FROM mkpf
*    INTO CORRESPONDING FIELDS OF TABLE it_mkpf
*    FOR ALL ENTRIES IN t_likp
*    WHERE xblnr = t_likp-vbeln_kp
*    AND tcode2 LIKE 'MIGO_GR'
*    AND budat IN budat. "26.07.2007
SELECT ebeln mblnr FROM mseg
    INTO CORRESPONDING FIELDS OF TABLE it_mseg
    FOR ALL ENTRIES IN t_vbrp
    WHERE ebeln = t_vbrp-aubel AND mblnr LIKE '5%'.
SELECT budat mblnr tcode2
      FROM mkpf
      INTO CORRESPONDING FIELDS OF TABLE it_mkpf
      FOR ALL ENTRIES IN it_mseg
      WHERE mblnr = it_mseg-mblnr
      AND tcode2 LIKE 'MIGO_GR'
      AND budat IN budat.                                   "26.07.2007
*loop at it_mkpf.
*DELETE it_mkpf WHERE mblnr = '4'.
*MODIFY it_mkpf.
*ENDLOOP.
ENDFORM.                    "populating_data
*                    FORM MOVE_DATA.                             *
FORM move_data.
CLEAR   t_final.
REFRESH t_final.
SORT : t_vbrp BY vbeln,
         t_vbrk BY vbeln,
         t_mara BY matnr,
         t_likp BY vbeln,
         t_ekko BY ebeln,
         t_t023t BY matkl,
         t_konv BY knumv,
         t_mvke BY matnr,
         t_t001w BY werks,
         t_t001w2 BY kunnr,
         t_tvm1t BY mvgr1,
         t_j_1iexchdr BY rdoc,
         t_j_1imtchid BY matnr,
          t_j_1iexchdr BY rdoc werks,
       "   it_mkpf by mblnr,
          it_mseg BY mblnr,
          it_mkpf BY mblnr,
          it_vbuk BY vbeln.
CLEAR   t_vbrp.
LOOP AT t_vbrp.
    t_final-vstel = t_vbrp-vstel.
    t_final-vgbel = t_vbrp-vgbel.
    t_final-aubel = t_vbrp-aubel.
    t_final-matnr = t_vbrp-matnr.
    t_final-arktx = t_vbrp-arktx.
    t_final-matkl = t_vbrp-matkl.
    t_final-fkimg = t_vbrp-fkimg.
    t_final-posnr = t_vbrp-posnr.
    t_final-vrkme = t_vbrp-vrkme.
    " t_vbrp-vgbel1 = t_vbrp-vgbel.
    READ TABLE it_vbuk WITH KEY vbeln = t_vbrp-vgbel BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-flag = it_vbuk-wbstk.
    ENDIF.
    CLEAR t_vbrk.
    READ TABLE t_vbrk WITH KEY vbeln = t_vbrp-vbeln
                               BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-kunag   = t_vbrk-kunag.
      t_final-vbeln_k = t_vbrk-vbeln.
      t_final-fkdat   = t_vbrk-fkdat.
      t_final-fkart = t_vbrk-fkart.
      t_final-knumv =   t_vbrk-knumv.
    ENDIF.
    CLEAR t_mara.
    READ TABLE t_mara WITH KEY matnr = t_vbrp-matnr BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-mtart = t_mara-mtart.
      t_final-wrkst = t_mara-wrkst.
      t_final-extwg = t_mara-extwg.
      t_final-labor = t_mara-labor.
      t_final-normt = t_mara-normt.
      t_final-bismt = t_mara-bismt.
      t_final-spart = t_mara-spart.
      t_final-meins = t_mara-meins.
      SPLIT t_final-bismt AT '*' INTO t_final-length t_final-breath.
      IF t_final-bismt = ''.
        t_final-size = ''.
      ELSE.
        t_final-size = t_vbrp-fkimg * ( t_final-length * t_final-breath ) / 1000000.
      ENDIF.
    ENDIF.
    CLEAR t_konv.
    READ TABLE t_konv WITH KEY knumv = t_vbrk-knumv BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-kschl = t_konv-kschl.
    ENDIF.
    CLEAR t_likp.
    READ TABLE t_likp WITH KEY vbeln = t_vbrp-vgbel BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-lfdat = t_likp-lfdat.
      t_final-bldat = t_likp-bldat. " NEW CHANGE
      t_final-vbeln_kp = t_likp-vbeln.
    ENDIF.
    CLEAR t_ekko.
    READ TABLE t_ekko WITH KEY ebeln = t_vbrp-aubel BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-aedat = t_ekko-aedat.
    ENDIF.
    CLEAR t_t023t.
    READ TABLE t_t023t WITH KEY matkl = t_vbrp-matkl BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-wgbez = t_t023t-wgbez.
    ENDIF.
    CLEAR t_t001w.
    READ TABLE t_t001w WITH KEY werks = t_vbrp-werks BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-name1 = t_t001w-name1.
    ENDIF.
    CLEAR t_t001w2.
    READ TABLE t_t001w2 WITH KEY kunnr = t_vbrk-kunag BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-name21 = t_t001w2-name2.
    ENDIF.
    READ TABLE t_mvke WITH KEY matnr = t_vbrp-matnr BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-mvgr1 = t_mvke-mvgr1.
    ENDIF.
    READ TABLE t_tvm1t WITH KEY mvgr1 = t_mvke-mvgr1 BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-bezie = t_tvm1t-bezie.
    ENDIF.
**********************modification additioon of chapter ID 30.04.2007
    READ TABLE t_j_1imtchid WITH KEY matnr = t_vbrp-matnr BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-j_1ichid = t_j_1imtchid-j_1ichid.
    ENDIF.
    READ TABLE t_j_1iexchdr WITH KEY rdoc = t_vbrp-vbeln
                                     werks = t_vbrp-werks
                                     BINARY SEARCH.
    IF sy-subrc = 0.
      t_final-exnum = t_j_1iexchdr-exnum.
      t_final-exdat = t_j_1iexchdr-exdat.
      t_final-rdoc = t_j_1iexchdr-rdoc.
      t_final-werks = t_j_1iexchdr-werks.
    ENDIF.
**************end of modification additioon of chapter ID 30.04.2007
    "******** START OF MODIFICATION KALIKA 26.07.2007.
    READ TABLE it_mseg INTO wa_mseg WITH KEY ebeln = t_vbrp-aubel.
    IF sy-subrc = 0.
      t_final-mblnr = wa_mseg-mblnr.
    ENDIF.
    "INTO wa_mkpf
    READ TABLE it_mkpf WITH KEY mblnr = t_final-mblnr
                                tcode2 = 'MIGO_GR'.
    IF sy-subrc = 0.
      t_final-budat = it_mkpf-budat.
    ENDIF.
    APPEND t_final.
    CLEAR t_final.
ENDLOOP.
DELETE t_final[]   WHERE flag = 'A' OR flag = ''. "change by amit for reverse deliveries as rkp.
DELETE t_final     WHERE fkdat = ' ' .
DELETE t_final[]   WHERE kunag NOT IN recv_pnt.
DELETE t_final[]   WHERE vstel NOT IN supp_pnt.
DELETE t_final[]   WHERE fkart = 'JEX' AND exnum = ' '. " CHANGE BY KALIKA
" FOR INVOICE WHOSE EXCISE NOT MAINTAINED
IF t_final[] IS INITIAL.
    MESSAGE i002(zamit).
    LEAVE LIST-PROCESSING.
ENDIF.
*---------------MARM CALCULATION
SORT t_marm BY matnr meinh.
DELETE t_marm WHERE meinh = 'M2'.
SORT t_marm BY matnr.
LOOP AT t_final.
    READ TABLE t_marm WITH KEY matnr = t_final-matnr." T_MARM-MEINH <> 'M2'.
    t_final-bom = ( t_marm-umrez / t_marm-umren ).
    MODIFY t_final TRANSPORTING bom.
    t_final-mult = t_final-bom * t_final-fkimg.
    MODIFY t_final TRANSPORTING mult.
    CLEAR t_final.
ENDLOOP.
*--------------------delivery no.
*-------------------beginning of adding na*******
LOOP AT t_final.
    " *** change by kalika
    IF t_final-matkl EQ 'BWGRBBD'
OR t_final-matkl = 'BWGRBPD'
OR t_final-matkl = 'BWGRCLB'
OR t_final-matkl = 'BWGRCMD'
OR t_final-matkl = 'BWGRGFB'
OR t_final-matkl = 'BWGRGFC'
OR t_final-matkl = 'BWGRGFO'
OR t_final-matkl = 'GRNLAM'
OR t_final-matkl = 'DVNRTKBB'
OR t_final-matkl = 'MRETBBD'
OR t_final-matkl = 'MRGRBBD'
OR t_final-matkl = 'MRGRCMD'
OR t_final-matkl = 'MRRBBD'
OR t_final-matkl = 'PLAMGBSD'
OR t_final-matkl = 'BWETBBD'
OR t_final-matkl = 'PLAMGOSD'.
* "LOOP AT t_final WHERE matkl = 'BWGRBBD'
*OR matkl = 'BWGRBPD'
*OR matkl = 'BWGRCLB'
*OR matkl = 'BWGRCMD'
*OR matkl = 'BWGRGFB'
*OR matkl = 'BWGRGFC'
*OR matkl = 'BWGRGFO'
*OR matkl = 'GRNLAM'
*OR matkl = 'DVNRTKBB'
*OR matkl = 'MRETBBD'
*OR matkl = 'MRGRBBD'
*OR matkl = 'MRGRCMD'
*OR matkl = 'MRRBBD'
*OR matkl = 'PLAMGBSD'
*OR matkl = 'BWETBBD'
*OR matkl = 'PLAMGOSD'.
*** change by kalika
      t_final-area = ( t_final-size * 15 ) / 10 .
      MODIFY t_final TRANSPORTING area.
    ELSE.
      t_final-area = ( t_final-normt * t_final-size ) / 4.   "t_final-bom
      MODIFY t_final TRANSPORTING area.
    ENDIF.
ENDLOOP.
"*** change by kalika
" ** start Division Specific FA & NA to be displayed by kalika
LOOP AT t_final.
    IF t_final-spart = 'LM' .
      t_final-area = space.
    ENDIF.
    IF t_final-spart = 'DD'.
      t_final-area = space.
    ENDIF.
    MODIFY t_final.
ENDLOOP.
* " ** end Division Specific FA & NA to be displayed by kalika
* LOOP AT t_final WHERE matkl = 'BWETPLY'
* OR matkl = 'BWGRCHQ'
* OR matkl = 'BWGRCLP'
* OR matkl = 'BWGRCMG'
* OR matkl = 'BWGRFLX'
* OR matkl = 'BWGRFRP'
* OR matkl = 'BWGRGCP'
* OR matkl = 'BWGRPCT'
* OR matkl = 'BWGRPLY'
* OR matkl = 'BWGRSHT'
* OR matkl = 'MRGRPLY'
* OR matkl = 'MRTPLY'.
*    t_final-area = ( t_final-normt * t_final-bom ) / 4.
*    MODIFY t_final.
* ENDLOOP.
*-------------------ending of adding na**********
ENDFORM.                                            " move_data.
*                    data_fetching                            *
FORM data_fetching.
*------ASSESSIBLE VALUE
SORT t_final BY knumv.
SORT t_konv BY knumv kposn.
CLEAR t_final.
CLEAR t_konv.
LOOP AT t_konv.
    IF t_konv-kschl = 'ZR02'.
      READ TABLE t_final WITH KEY knumv = t_konv-knumv posnr = t_konv-kposn.
      t_final-kwert1 = t_konv-kwert.
      t_final-kbetr = t_konv-kbetr.
      IF sy-tabix <> 0.
        MODIFY t_final INDEX sy-tabix TRANSPORTING kwert1 kbetr.
        CLEAR t_final.
        CLEAR t_konv.
      ENDIF.
    ENDIF.
*-----EXICESE
    IF t_konv-kschl = 'JEXP'.
      READ TABLE t_final WITH KEY knumv = t_konv-knumv posnr = t_konv-kposn.
      t_final-kwert2 = t_konv-kwert.
      IF sy-tabix <> 0.
        MODIFY t_final INDEX sy-tabix TRANSPORTING kwert2.
        CLEAR t_final.
        CLEAR t_konv.
      ENDIF.
    ENDIF.
*-------CESS
    IF t_konv-kschl = 'JECS'.
      READ TABLE t_final WITH KEY knumv = t_konv-knumv posnr = t_konv-kposn.
      t_final-kwert3 = t_konv-kwert.
      IF sy-tabix <> 0.
        MODIFY t_final INDEX sy-tabix TRANSPORTING kwert3.
        CLEAR t_final.
        CLEAR t_konv.
      ENDIF.
    ENDIF.
*-----ROUNDING
    IF t_konv-kschl = 'DIFF'.
      READ TABLE t_final WITH KEY knumv = t_konv-knumv posnr = t_konv-kposn.
      t_final-kwert4 = t_konv-kwert.
      IF sy-tabix <> 0.
        MODIFY t_final INDEX sy-tabix TRANSPORTING kwert4.
        CLEAR t_final.
        CLEAR t_konv.
      ENDIF.
    ENDIF.
ENDLOOP.
****************TOTAL OF ALL VALUES
LOOP AT t_final.
    t_final-total = t_final-kwert1 + t_final-kwert2 + t_final-kwert3 + t_final-kwert4.
    MODIFY t_final INDEX sy-tabix TRANSPORTING total .
    CLEAR t_final.
ENDLOOP.
*--------------delivery calculation.
" start change by kalika
DELETE t_final WHERE total = ' '. " BY KALIKA
" end change by kalika
LOOP AT t_final.
    t_temp-vbeln_k = t_final-vbeln_k.
    t_temp-vgbel = t_final-vgbel.
    t_temp-fkart = t_final-fkart.
    t_temp-kunag = t_final-kunag.
    APPEND t_temp.
    CLEAR t_temp.
ENDLOOP.
SORT t_temp DESCENDING BY vbeln_k .
SORT t_temp BY vgbel.
LOOP AT t_final.
    READ TABLE t_temp WITH KEY vgbel = t_final-vgbel.
    t_final-vbeln_k = t_temp-vbeln_k.
*---change by amit for validating migi date by amit
    if t_final-budat = 0.
      t_final-mblnr = ''.
      endif.
*---change by amit for validating migi date by amit
    MODIFY t_final TRANSPORTING vbeln_k mblnr.
    CLEAR t_final.
ENDLOOP.
" start KALIKA 30.06.2007.
"SORT t_final STABLE DESCENDING by fkart fkdat. "plz kalika do not forbid stable even it doent any effect this case but in future when large amount of data in production it will works.
SORT t_final STABLE ASCENDING BY fkart fkdat. "plz kalika do not forbid stable even it doent any effect this case but in future when large amount of data in production it will works.
DATA: l_tabix TYPE sy-tabix.           " declare the sy-tabix as local variable
DATA: l_lines TYPE sy-tabix.
DATA: l_index TYPE sy-tabix.
DESCRIBE TABLE t_final LINES l_lines .       "The current number of table rows of the internal table itab is determined and is assigned to the data object lin
CHECK l_lines > 1.                               " check lines are greater than 1
LOOP AT t_final WHERE fkart = 'F8'.
    l_tabix = sy-tabix.                              " assine Index of Internal Tables into local var l_tabix
    l_index = l_tabix + 1.
    READ TABLE t_final INTO wa_sfinal1 INDEX l_index. " read the temp table with index l_index
    IF sy-subrc = 0.
      CHECK t_final-vgbel = wa_sfinal1-vgbel AND t_final-knumv NE wa_sfinal1-knumv.
      IF sy-subrc = 0.
        t_final-w_flag = 'X'.
        MODIFY t_final TRANSPORTING w_flag.
      ENDIF.
    ENDIF.
ENDLOOP.
"DELETE ADJACENT DUPLICATES FROM t_final[] COMPARING fkart
DELETE t_final[] WHERE w_flag = 'X'.
" end KALIKA 30.06.2007.
*--change by amit for performa invoice deletion
DELETE t_final[] WHERE aedat = 0.
ENDFORM.                                                  " sub_CAL
*                       FORM ALV GET DATA FOR NOTIONAL AREA      *
FORM alv_get_data .
CLEAR it_fieldcat.
***************** SUPPLYING PLANT
* wa_fieldcat-col_pos    = '1'.                    " ALV O/P COL-1
wa_fieldcat-fieldname = 'VSTEL'.
wa_fieldcat-seltext_m = 'SUPPLYING PLANT'.
wa_fieldcat-just       = 'L'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
wa_fieldcat-tabname    = 'T_FINAL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
***************** SUPPLYING PLANT
* wa_fieldcat-col_pos    = '2'.                    " ALV O/P COL-1
wa_fieldcat-fieldname = 'NAME1'.
wa_fieldcat-seltext_m = 'SUPP PLANT DESCRTN'.
wa_fieldcat-just       = 'L'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 20.
wa_fieldcat-tabname    = 'T_FINAL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
******************** RECEIVING PLANT
* wa_fieldcat-col_pos    = '3'.                     " ALV O/P COL-2
wa_fieldcat-fieldname = 'KUNAG'.
wa_fieldcat-seltext_m = 'RECEIVING PLANT'.
wa_fieldcat-just       = 'L'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
******************** RECEIVING PLANT
* wa_fieldcat-col_pos    = '4'.                     " ALV O/P COL-2
wa_fieldcat-fieldname = 'NAME21'.
wa_fieldcat-seltext_m = 'RECE PLNT DESCRTN'.
wa_fieldcat-just       = 'L'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
***************** BILL NUMBER
* wa_fieldcat-col_pos    = '5'.                     " ALV O/P COL-3
wa_fieldcat-fieldname = 'VBELN_K'.
wa_fieldcat-seltext_m = 'BILL NUMBER'.
wa_fieldcat-just       = 'L'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*******************BILL DATE
* wa_fieldcat-col_pos    = '6'.                     " ALV O/P COL-4
wa_fieldcat-fieldname = 'FKDAT'.
wa_fieldcat-seltext_m = 'BILL DATE'.
wa_fieldcat-just       = 'L'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*********** OUT BOUND DELIVERY NO
* wa_fieldcat-col_pos    = '7'.                     " ALV O/P COL-5
wa_fieldcat-fieldname = 'VGBEL'.
wa_fieldcat-seltext_m = 'OUT BOUND DELIVERY NO'.
wa_fieldcat-just       = 'L'.
* wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-tabname    = 'T_FINAL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*********** OUT BOUND DELIVERY DATE
** wa_fieldcat-col_pos    = '8'.                     " ALV O/P COL-6
* wa_fieldcat-fieldname = 'LFDAT'.
* wa_fieldcat-seltext_m = 'OUT BOUND DELIVERY DATE'.
* wa_fieldcat-just       = 'L'.
* wa_fieldcat-tabname    = 'T_FINAL'.
* wa_fieldcat-outputlen = 15.
* APPEND wa_fieldcat TO it_fieldcat.
* CLEAR wa_fieldcat.
" * wa_fieldcat-col_pos    = '8'.                     " ALV O/P COL-6
wa_fieldcat-fieldname = 'BLDAT'.
wa_fieldcat-seltext_m = 'DELIVERY DOC DATE'. " NEW CHANGE
wa_fieldcat-just       = 'L'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
************* S.T.O. NO.
* wa_fieldcat-col_pos    = '9'.                     " ALV O/P COL-6
wa_fieldcat-fieldname = 'AUBEL'.
wa_fieldcat-seltext_m = 'S.T.O. NO.'.
wa_fieldcat-just       = 'L'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*********** S.T.O. DATE
* wa_fieldcat-col_pos    = '10'.                     " ALV O/P COL-6
wa_fieldcat-fieldname = 'AEDAT'.
wa_fieldcat-seltext_m = 'S.T.O. DATE'.
wa_fieldcat-just       = 'L'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
************ DIVISION
* wa_fieldcat-col_pos    = '11'.                     " ALV O/P COL-7
wa_fieldcat-fieldname = 'SPART'.
wa_fieldcat-seltext_m = 'DIVISION'.
wa_fieldcat-just       = 'L'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
********** MATERIAL CODE
* wa_fieldcat-col_pos    = '12'.                     " ALV O/P COL-9
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-seltext_m = 'MATERIAL CODE'.
wa_fieldcat-just       = 'L'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
************ DESCRIPTION
* wa_fieldcat-col_pos    = '13'.                     " ALV O/P COL-10
wa_fieldcat-fieldname = 'ARKTX'.
wa_fieldcat-seltext_m = 'DESCRIPTION'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
**************MATERIAL TYPE
* wa_fieldcat-col_pos    = '14'.                     " ALV O/P COL-11
wa_fieldcat-fieldname = 'MTART'.
wa_fieldcat-seltext_m = 'MATERIAL TYPE'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
************MATERIAL GROUP
* wa_fieldcat-col_pos    = '15'.                     " ALV O/P COL-13
wa_fieldcat-fieldname = 'MATKL'.
wa_fieldcat-seltext_m = 'MATERIAL GROUP'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*******************modification additioon of chapter ID 30.04.2007
******************chapterID
* wa_fieldcat-col_pos    = '32'.                  " ALV O/P COL-27'.
wa_fieldcat-fieldname = 'J_1ICHID'.
wa_fieldcat-seltext_m = 'CHAPTER-ID'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
* wa_fieldcat-col_pos    = '33'.                  " ALV O/P COL-27'.
wa_fieldcat-fieldname = 'EXNUM'.
wa_fieldcat-seltext_m = 'EXCISE DOC.NO.'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
* wa_fieldcat-col_pos    = '34'.                  " ALV O/P COL-27'.
wa_fieldcat-fieldname = 'EXDAT'.
wa_fieldcat-seltext_m = 'EXCISE DOC.DATE'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
***************end of modification additioon of chapter ID 30.04.2007
*********SUB GROUP
* wa_fieldcat-col_pos    = '16'.                     " ALV O/P COL-13
wa_fieldcat-fieldname = 'MVGR1'.
wa_fieldcat-seltext_m = 'SUB GROUP'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
* wa_fieldcat-col_pos    = '16'.                     " ALV O/P COL-13
wa_fieldcat-fieldname = 'BEZIE'.
wa_fieldcat-seltext_m = 'SUB GROUP DISCRP'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
***************GROUP DISCRIPTION
* wa_fieldcat-col_pos    = '17'.                     " ALV O/P COL-14
wa_fieldcat-fieldname = 'WGBEZ'.
wa_fieldcat-seltext_m = 'GROUP DISCRIPTION'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*****************FINISH
* wa_fieldcat-col_pos    = '18'.                     " ALV O/P COL-15
wa_fieldcat-fieldname = 'WRKST'.
wa_fieldcat-seltext_m = 'FINISH'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*****************sale u o m
* wa_fieldcat-col_pos    = '19'.                     " ALV O/P COL-15
wa_fieldcat-fieldname = 'VRKME'.
wa_fieldcat-seltext_m = 'SALE U O M'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*****************BASE u o m
* wa_fieldcat-col_pos    = '19'.                     " ALV O/P COL-15
wa_fieldcat-fieldname = 'MEINS'.
wa_fieldcat-seltext_m = 'BASE U O M'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
**************DESIGN NO.
* wa_fieldcat-col_pos    = '20'.                     " ALV O/P COL-17
wa_fieldcat-fieldname = 'EXTWG'.
wa_fieldcat-seltext_m = 'DESIGN NO.'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*****************CATEGORY
* wa_fieldcat-col_pos    = '21'.                     " ALV O/P COL-18
wa_fieldcat-fieldname = 'LABOR'.
wa_fieldcat-seltext_m = 'CATEGORY'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
**************THICKNESS
* wa_fieldcat-col_pos    = '22'.                     " ALV O/P COL-19.
wa_fieldcat-fieldname = 'NORMT'.
wa_fieldcat-seltext_m = 'THICKNESS'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
**************SIZE
* wa_fieldcat-col_pos    = '23'.                      " ALV O/P COL-20.
wa_fieldcat-fieldname = 'BISMT'.
wa_fieldcat-seltext_m = 'SIZE'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
****************BILLED QTY
* wa_fieldcat-col_pos    = '24'.                    " ALV O/P COL-21.
wa_fieldcat-fieldname = 'FKIMG'.
wa_fieldcat-seltext_m = 'BILLED QTY'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
**************RETE
* wa_fieldcat-col_pos    = '26'.                    " ALV O/P COL-21.
wa_fieldcat-fieldname = 'BOM'.
wa_fieldcat-seltext_m = 'CONVERSION RATE'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
******************MULT
* wa_fieldcat-col_pos    = '32'.                  " ALV O/P COL-27'.
wa_fieldcat-fieldname = 'MULT'.
wa_fieldcat-seltext_m = 'BILLED QTY IN BUM'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
**************RETE
* wa_fieldcat-col_pos    = '25'.                    " ALV O/P COL-21.
wa_fieldcat-fieldname = 'KBETR'.
wa_fieldcat-seltext_m = 'RATE / BASE UOM'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
**************ASSESSIBLE VALUE
* wa_fieldcat-col_pos     = '27'.                    " ALV O/P COL-22.
wa_fieldcat-fieldname   = 'KWERT1'.
wa_fieldcat-seltext_m   = 'ASSESSIBLE VALUE'.
wa_fieldcat-tabname     = 'T_FINAL'.
wa_fieldcat-just        = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen   = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
****************EXCISE
* wa_fieldcat-col_pos    = '28'.                     " ALV O/P COL-23.
wa_fieldcat-fieldname = 'KWERT2'.
wa_fieldcat-seltext_m = 'EXCISE'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
*****************CESS
* wa_fieldcat-col_pos    = '29'.                      " ALV O/P COL-24.
wa_fieldcat-fieldname = 'KWERT3'.
wa_fieldcat-seltext_m = 'CESS'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
******************ROUNDING
* wa_fieldcat-col_pos    = '30'.                    " ALV O/P COL-26.
wa_fieldcat-fieldname = 'KWERT4'.
wa_fieldcat-seltext_m = 'ROUNDING'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
******************TOTAL
* wa_fieldcat-col_pos    = '31'.                  " ALV O/P COL-27'.
wa_fieldcat-fieldname = 'TOTAL'.
wa_fieldcat-seltext_m = 'TOTAL'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'AREA'.
wa_fieldcat-seltext_m = 'NA'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'MBLNR'.
wa_fieldcat-seltext_m = 'MIGO NO'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'BUDAT'.
wa_fieldcat-seltext_m = 'MIGO DATE'.
wa_fieldcat-just       = 'R'.
wa_fieldcat-tabname    = 'T_FINAL'.
wa_fieldcat-no_zero(1) = 'X'.
wa_fieldcat-outputlen = 15.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM.                                                       " ALV_GET_DATA
*                            FORM ALV_GRID                                  *
FORM alv_grid .
PERFORM fill_list_header USING it_top_of_page[].
PERFORM event-build USING gt_events[].
PERFORM fill_layout USING ls_layout.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      is_layout          = ls_layout
      it_fieldcat        = it_fieldcat
      it_events          = gt_events[]
      i_save             = 'A'
    TABLES
      t_outtab

BAPI or FM for Material and ChapterID Combination(J1ID Transaction)

Dear All,
I need BAPI or FM for Creation of Material and ChapterID combination. I dont need for other options present in J1ID Transaction.
I cannot use Insert statement for Material and ChapterID Creation as it contains only few fields.
Please let me know regarding this.
Regards,
Anilkumar

Hello
The bapi BAPI_INSPECTIONPLAN_CREATE is used for creation. There you can assign several materials through structure MATERIALTASKALLOCATION (BAPI1191_MTK_C). There is no bapi for modifications so you can assign other materials using LSMW or BDC as Gururaj told you or in this special case populate table MAPL directly (better talk to your ABAP to decide it); I did it without issues and I checked and the function CZ_VB_MAPL_POST could update the information you need (talk to your ABAP to validate it).
Best regards
Carlos Díaz

MM60 Material List - New Field

Hi
Requirement is to generate a report for material list (MM60) which includes MRP Controller and Material creation date. In the standard layout these options r not available.
I'm new to enhancements.
For MRP Controller (MARC_DISPO)
For Material creation date (MARA_ERSDA) is this correct ??
Please help me how to develop this custom reports. What should I use? User exits, bapis or query quick viewer (SQVI).
I am also posting this question in ABAP forum.
If there is any other transaction that works just like MM60 which also includes MRP Controller...tat is also good enough.
Thanks

MSTA table is for Material Master status which has following fields related to Dates:
ERSDA - Created on (same as MARA)
LAEDA - Date of Last Change (its already available in Standard MM60 report)
in MARC I found: MMSTD - Date from which the plant-specific material status is valid. when you said "creation date of this material in that plant" - Is this the one you are referring to. Can you please tell me which specific field you r talking about?
Actually I'm also not sure, which Creation date the user is talking about. So, I am trying to sort out all the possibilities and options on Material creation date for my next meeting.
Thanks

Material Listing/Exclution replication from R/3 to CRM,

hi,
We are using SAP CRM 3.0 and R/3 4.6c
In R/3 system we maintained an exclution for a material and the system is giving the message 'Material xxxx excluded.
If we use the same customer and the same material in CRM, the Material xxxx accepting (there is no message saying material excluded)
Please let me know if there is any downloading object for material listing/exclusion or how to over come this problem
Thanks in advance.
Regards,
Ram.

This is a recent blog http://weblogs.sdn.sap.com/pub/wlg/15445?page=last [original link is broken] [original link is broken] [original link is broken]
I can't remember if 3.0 offers some or all of this.

Checking material listing in sales order

Hi
Where can we assign whether system checks material listing or not while creating sales order?
my doubt is if there are material listing master records, will system check for material listing for all order types?
thanks

HI,
The Tcode for maintaining the Listing/Exclusion Records is : VB01.
Then select the combination for hich u wanna create the records:
(1) Cust Hierarchy/article
(2) Customer/Material
Selectthe appropriate and then Enter...
Ensure that the Listing has been configured at:
SPRO->SD->BF->Listing/Exclusion
Enssur that u have maintained the setting at :
ctivate listing/exclusion by sales document type
Hope this will clarify ure doubts.Reward points accordingly.
Cheerzz..
Subbz..

Difference between material listing and item proposal?

HI Gurus,
COuld you explain what is the difference between material listing and item proposal?
--james

Hi James,
Item Proposal is automatically proposed by the system while creating a sales order for a specific customer.
This setting is maintained in the Sales Area of customer master under Sales tab.
It can be stored as master records. When you create a sales order, you can refer to an item proposal, look over the proposed items, and copy all or just selected items into the order. If a customer routinely orders the same goods, you can create a proposal and enter it in the customer master record. During sales order processing, the system automatically proposes items from this proposal.
Item Proposal is created using VA51.
Material Listing lists which materials a customer can buy. With material listing or exclusion you can control which materials can be sold to each customer.
A material listing is created for a customer. The customer can only buy the materials contained in the list. The system does not allow any materials to be entered if they are not contained in the material listing.
If no records exist for material listing, the sold-to party, for example, can in principle buy the same materials as the payer. However, if there is a material listing record specific to the sold-to party, the sold-to party can only buy the materials permitted in the list. These materials do not have to be identical to those which the payer can buy.
Material listing and material exclusion are controlled using the condition technique.
Hope it helps.
Regards,
Priyanka

BAPI for material documents by production order

I'm looking for a BAPI that will provide the list of material documents for a given production order. This is similiar to the functionality provided by the COOIS transaction using: "Documented Goods Movements" as the list type. I've looked at BAPI_GOODSMVT_GETITEMS. However this BAPI does not contain a method to select by production order.
Message was edited by:
Glenn Doherty

HI
Check this link it wuld be helpful to you
'BAPI_ALM_ORDER_MAINTAIN' for change in service order.

BAPIs / FMs required to display vendor list/ material list/supplysourcelist

Hi Frnds,
I need 3 BAPIs to list (1)all supply source and their text (2)all vendors and their text,(3)materials and their text.
IF you know any STD BAPI/ RFC FM/ FM to get those datails, please provide me...
Note: for example I shd get all existing materials with their descriptions when i execute that BAPI/FM. i.e., what we get when we press F4 like that.
regards,
Krishna Kiran.

hiii
use FM BAPI_VENDOR_GETDETAIL
& for material and their text use following FM
CALL FUNCTION 'BAPI_MATERIAL_GET_ALL'
EXPORTING
    material                   = w_matnr
*   COMP_CODE                  = COMP_CODE
*   VAL_AREA                   = VAL_AREA
*   VAL_TYPE                   = VAL_TYPE
*   PLANT                      = PLANT
*   STGE_LOC                   = STGE_LOC
*   SALESORG                   = SALESORG
*   DISTR_CHAN                 = DISTR_CHAN
*   WHSENUMBER                 = WHSENUMBER
*   STGE_TYPE                  = STGE_TYPE
*   LIFO_VALUATION_LEVEL       = LIFO_VALUATION_LEVEL
* IMPORTING
*   CLIENTDATA                 = CLIENTDATA
*   PLANTDATA                  = PLANTDATA
*   FORECASTPARAMETERS         = FORECASTPARAMETERS
*   PLANNINGDATA               = PLANNINGDATA
*   STORAGELOCATIONDATA        = STORAGELOCATIONDATA
*   VALUATIONDATA              = VALUATIONDATA
*   WAREHOUSENUMBERDATA        = WAREHOUSENUMBERDATA
*   SALESDATA                  = SALESDATA
*   STORAGETYPEDATA            = STORAGETYPEDATA
*   PRTDATA                    = PRTDATA
*   LIFOVALUATIONDATA          = LIFOVALUATIONDATA
TABLES
   materialdescription         = ls_matdetail
*   UNITSOFMEASURE             = UNITSOFMEASURE
*   INTERNATIONALARTNOS        = INTERNATIONALARTNOS
*   MATERIALLONGTEXT           = MATERIALLONGTEXT
*   TAXCLASSIFICATIONS         = TAXCLASSIFICATIONS
*   EXTENSIONOUT               = EXTENSIONOUT
   return                      = ls_return1.
IF ls_return1-type CA 'EA'.
ROLLBACK WORK.
MESSAGE ID '26' TYPE 'I' NUMBER '000'
          WITH ls_return1-message.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
*     EXPORTING
*       WAIT          = w_WAIT
*     IMPORTING
*       RETURN        = RETURN.
*         wait up to 5 seconds.
WRITE:
         / 'Language Key   :', ls_matdetail-langu,
         / 'Language       :', ls_matdetail-langu_iso,
         / 'Description    :', ls_matdetail-matl_desc.
regards
twinkal

Report for Customer and Material list

Dear Experts,
Is there any Std. reprot to list all customers under particular sales org and also the material for each customer deals with.
Input only sales org.
Please advise,
Regards,
Siva

hi,
Go for MCTA report ....anter the sales org as the criteria and get the out put .
You need to drill down til last to get the material list.
hope this will help you !!
Rgards,
Krishna O

BAPI for Material master update

Hello,
I need to upload and change data to the classification screen of Material master (MM01/02). I am thinking of using BAPI_CHARACT_CREATE and BAPI_CHARACT_CHANGE. Can we use BAPI_MATERIAL_SAVEDATA to upload and change characteristic data for material master(MM01/02)?
Can anybody provide me some sample code for mass upload and mass change of characteristic data to material master?
Thanks in advance
Rajesh.

Hi Rajesh,
You can use standard SAP program <b>RCCLBI03</b> to do mass upload.
Please check the program documentation for more information.
Also you can take a look this BAPI/FM.
<b>BAPI_OBJCL_CREATE
BAPI_OBJCL_CHANGE
CLVF_INSERT_AUSP
CLVF_UPDATE_AUSP
CLVF_VB_INSERT_CLASSIFICATION</b>
Hope this will help.
Regards,
Ferry Lianto
Please reward points if helpful.

Are there any tcode like MD04 but for a list of material or material group

Hello Experts,
Some users want to have a list of dynamic stock (like MD04), but for a list of materials or material group.
Are there reports or standard transactions for that? Or must make a specific?
Thanks in advance.
Said

You want see teh PO number or req number etc but you will see the stock of open order etc.
you want get exactly like MD04.........
either you have to develope the custom program
or use MD04 collectively based on MEP controller

I need a bapi for material management advance shipping notifications

i need a bapi for material management advance shipping notifications for developing powls which includes below fields and some more fields.
     Inbound delivery number
     Due date (GR date)
     Vendor delivery number
     Material
     Name of material
     Quantity
     Vendor
     Name of vendor
thanks and regards,
jameer.p

Hi Jameer,
This is a hard one, my friend. I understand what you are trying to do.. Try BAPI_DELIVERYPROCESSING_EXEC. It is tricky though.
Moreover you might want to use a FM to fill the IDOC data. something like IDOC_INPUT_**. this might be a better option.
cheers,
Hema.

BAPI or FM for Material Listing

Similar Messages

Maybe you are looking for