Material wise invoice of vendor.

Hi
I want Invoice report that shows me Invoice document no.,Vendor,Material,amount.
I tried in MIR6 but material name and number not getting.
any other t-code.

Hi,
go to ME2L and see in SELECTION PARAMETERS
hopes it is useful.

Similar Messages

Vendor wise/Invoice wise consumption for each WBS element

Any standard report from SAP, which provide details of Vendor Purchase order / Contract, details of SES with WBS no. and details of Vendor invoice in columnar form.
SAP system can not generate standard reports giving vendor wise/Invoice wise consumption for each WBS element of particular asset.
Please help me to get this report.
Thanks in Advance.

Hi
Your starting point should be CJI3 report or any PS report... Here you get the FI Doc no
If this FI Doc No is generated from MM, check the Header segment of the document.. It would have MM Doc NO + Fisc Yr populated in the ref key... This gives you the link between FI & MM
From here on, you can take it forward... You can look up this doc no in MSEG Table and find the PO no... Then go to EKBE table for other PO details....
br, Ajay M

MRNB- Revaluation with Logistics Invoice Verification Vendor wise

Dear Experts,
As per SAP standard MRNB transaction is vailable for Revaluation of Purchase Order Price changes.
My requirement as below:
We are manitaining Purchasing Info Records compulsory.
when purchasing rate changes, we are changing Info Records and not chaging purchase orders( its very tough taks to chage Individually Bcoz huge count).
so want Revaluation with Logistics Invoice Verification Vendor wise from Purchase Info Records.
is there any other alternative.??
Please Help.
..Ajay

Hi subhuram,
I want credit memo or debit memo to Vendors.
not only revalution of materials.
Ajay

Material wise Vendor List & Vendor wise material list

Hi all,
Can any body help me how to get the report for
1) Material wise vendor report: that mean list showing the list of vendors from which that material is purchased and
2) Vendor wise material list: that mean list of materials purchased from a perticular Vendor...
Will be rewarded for answers...
Shash

Hi ,
Use T. Code: SE16 and enter EINA table name.
If u want report for material / vendor, Enter material in MATNR field and execute and get the report.
If u want report for/ vendor /material, Enter Vendor l in LIFNR field and execute get the report.
Regards,
Biju K

Material wise vendor outstanding report.

Dear All,
We require to find out the outstanding amount payable for each type of Material Supplied. Is there any Standard report in SAP for it. We are using SAP 4.7.
Thanks,

Hi
Your only choice is FBl1N report...
You can see if the MATERIAL field is populated in the FBL1N..
Else, you can write a small ABAP code in exit RGGBS000 (FI Substitution) and populate the Material No in the Vendor line item in some reference field
Br, ajay M

Table for open Purchase order and pending invoices for vendors

Hi,
Are there any table to know open Purchase orders and pending invoices for vendors.
Quick response will be appreciated.
Thanks & Regards

hi,
Purchase Order:
S011:(PURCH: Purch. Group Statistics)
Statistics (SSOUR)
Version (VRSIO)
Month (SPMON)
Day (SPTAG)
Week (SPWOC)
Posting Period (SPBUP)
Purchasing Org (EKORG)
Purchasing Group (EKGRP)
Vendor No (LIFNR)
S012: (PURCHIS: Purchasing Statistics)
Statistics (SSOUR)
Version (VRSIO)
Month (SPMON)
Day (SPTAG)
Week (SPWOC)
Posting Period (SPBUP)
Purchasing Org (EKORG)
Purchasing Group (EKGRP)
Material No (MATNR)
Plant (WERKS)
Info Record Category (ESOKZ)
Material Group (MATKL)
Info Record (INFNR)
Country (LAND1)
EINE: (Purchasing Info Record: Purchasing
Organization Data)
Info Record (INFNR)
Purchasing Org (EKORG)
Info Record Type (ESOKZ)
Plant (WEKS)
EKET: (Delivery Schedules)
Purchasing Doc (EBELN)
Item (EBELP)
Delivery Schedule (ETENR)
EKPO: (Purchasing Document Item)
Purchasing Doc (EBELN)
Item (EBELP)
EKKN: (Account Assignment in Purchasing
Document)
Purchasing Doc (EBELN)
Item (EBELP)
Account Assignment (ZEKKN)
EKKO: (Purchasing Document Header)
Purchasing Doc (EBELN)
EORD: (Purchasing Source List)
Material No (MATNR)
Plant (WERKS)
Source List No (ZEORD)
thx,
Ganpat

Data is not linked to material wise

Hi experts,
In this Report data is not linked to material wise.
it comming merge the all the materials in one material.
TYPE-POOLS: SLIS.
TABLES: MKPF,LFA1,MSEG,EKET,T001L,MAKT,S031,S032,MARA,LIPS,LIKP,T001W.
DATA FLAG TYPE I.
DATA : MENGE_RE LIKE MSEG-MENGE,
       MENGE_IS LIKE MSEG-MENGE,
       MENGE_O LIKE MSEG-MENGE,
       MENGE_BAL LIKE MSEG-MENGE.
DATA MAGBB LIKE S031-MAGBB.
DATA : F_LNO LIKE SY-LINNO,
       S_LNO LIKE SY-LINNO,
       V_LNO LIKE SY-LINNO.
DATA MZUBB LIKE S031-MZUBB.
DATA V_MONTH LIKE S031-SPMON.
DATA XBLNR LIKE MKPF-XBLNR.
DATA : BEGIN OF ITAB1 OCCURS 100,
       MATNR LIKE MAKT-MATNR,
       END OF ITAB1.
DATA : BEGIN OF ITAB2 OCCURS 100,
MATNR LIKE MAKT-MATNR,
WERKS LIKE MARD-WERKS,
LGORT LIKE MARD-LGORT,
BUSTW LIKE MSEG-BUSTW,
BWART LIKE MSEG-BWART,
SHKZG LIKE MSEG-SHKZG,
MENGE LIKE MSEG-MENGE,
END OF ITAB2.
DATA: PAGNO(5) TYPE C.
DATA : PAGENO LIKE SY-PAGNO.
DATA: STR1 TYPE DATS,
      STR2(14) TYPE C,
      STR3(10) TYPE C.
DATA : V_MONUM LIKE T015M-MONUM,
       V_MONAM LIKE T015M-MONAM.
DATA : V_PAGENO LIKE SY-PAGNO.
TYPES: FARBE TYPE SLIS_T_SPECIALCOL_ALV.
DATA V_STOCK LIKE MSEG-MENGE.
DATA V_STOCK1 LIKE MSEG-MENGE.
DATA: V_MONTH1 LIKE S031-SPMON.
DATA: OSTOCK LIKE MSEG-MENGE.
DATA : FLAG6 TYPE C,
V_PAGENO1 LIKE SY-PAGNO,
V_PAGENO2 LIKE SY-PAGNO.
DATA: FLD(15).
DATA: TXT(50).
DATA: FLAG5.
I N I T I A L I Z A T I O N
*GT_REPID = SY-REPID.
PAGNO = SY-PAGNO.
A T S E L E C T I O N S C R E E N
AT SELECTION-SCREEN.
*AT SELECTION-SCREEN ON BUDAT.
PERFORM VALIDATION.
S T A R T O F S E L E C T I O N
START-OF-SELECTION.
SET MARGIN 5.
PERFORM FETCH_DATA.
PERFORM WRITE_REPORT.
PERFORM STOCK.
E N D O F S E L E C T I O N
END-OF-SELECTION.
Report Selections
DATA: BEGIN OF IT_HEADER OCCURS 10,
WERKS LIKE MSEG-WERKS,
NAME1 LIKE T001W-NAME1,
MAKTX LIKE MAKT-MAKTX,
MATNR LIKE MSEG-MATNR,
MENGE_O LIKE MSEG-MENGE,
END OF IT_HEADER.
DATA: BEGIN OF ITAB OCCURS 50,
        WERKS LIKE MSEG-WERKS,
        MATNR LIKE MSEG-MATNR,
        BWART LIKE MSEG-BWART,
        LGORT LIKE MSEG-LGORT,
        EBELN LIKE MSEG-EBELN,
        XBLNR LIKE MKPF-XBLNR,
        BUDAT LIKE MKPF-BUDAT,
        MBLNR LIKE MSEG-MBLNR,
        MENGE LIKE MSEG-MENGE,
        MAKTX LIKE MAKT-MAKTX,
        XAUTO LIKE MSEG-XAUTO,
        NAME1 LIKE T001W-NAME1,
        MENGE_O LIKE MSEG-MENGE,
        SHKZG LIKE MSEG-SHKZG,
        MENGE_IS LIKE MSEG-MENGE,
        MENGE_RE LIKE MSEG-MENGE,
END OF ITAB.
DATA: BEGIN OF INT_DATA OCCURS 50,
        WERKS LIKE MSEG-WERKS,
        MATNR LIKE MSEG-MATNR,
        BWART LIKE MSEG-BWART,
        XBLNR LIKE MKPF-XBLNR,
        MBLNR LIKE MSEG-MBLNR,
        BUDAT LIKE MKPF-BUDAT,
        MAKTX LIKE MAKT-MAKTX,
        MENGE_O LIKE MSEG-MENGE,
        MENGE_R LIKE MSEG-MENGE,
        MENGE_TO LIKE MSEG-MENGE,
        MENGE_TI LIKE MSEG-MENGE,
        MENGE_S LIKE MSEG-MENGE,
        MENGE_ST LIKE MSEG-MENGE,
        MENGE_AD LIKE MSEG-MENGE,
        MENGE_RT LIKE MSEG-MENGE,
        MENGE_C LIKE MSEG-MENGE,
        MENGE_CL LIKE MSEG-MENGE,
        MENGE_BAL LIKE MSEG-MENGE,
        MENGE_CR LIKE MSEG-MENGE,
        NAME1 LIKE T001W-NAME1,
        MENGE_RE LIKE MSEG-MENGE,
        MENGE_IS LIKE MSEG-MENGE,
        MENGE_BAL1 LIKE MSEG-MENGE,
        SHKZG LIKE MSEG-SHKZG,
         MENGE LIKE MSEG-MENGE,
         LGORT LIKE MSEG-LGORT,
        END OF INT_DATA.
DATA: BEGIN OF INT_DATA1 OCCURS 50,
         WERKS LIKE MSEG-WERKS,
         MATNR LIKE MSEG-MATNR,
         BWART LIKE MSEG-BWART,
         MENGE_ST LIKE MSEG-MENGE,
         MENGE_O LIKE MSEG-MENGE,
         WAMNG LIKE EKET-WAMNG,
         WEMNG LIKE EKET-WEMNG,
         MENGE LIKE MSEG-MENGE,
         RETPO LIKE EKPO-RETPO,
         UMREN LIKE EKPO-UMREN,
         UMREZ LIKE EKPO-UMREZ,
         BSTMG LIKE EKPO-MENGE,
         XBLNR LIKE MKPF-XBLNR,
   END OF INT_DATA1.
DATA: BEGIN OF INT_DATA2 OCCURS 50,
         WERKS LIKE MSEG-WERKS,
         LGORT LIKE S031-LGORT,
         MATNR LIKE MSEG-MATNR,
         BWART LIKE MSEG-BWART,
         MENGE_IS LIKE MSEG-MENGE,
         MBWBEST LIKE S032-MBWBEST,
         MAKTX LIKE MAKT-MAKTX,
   END OF INT_DATA2.
DATA:V_GJAHR LIKE MKPF-BUDAT.
SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE TEXT-064.
SELECT-OPTIONS:
MATNR FOR MSEG-MATNR,
MATKL FOR MARA-MATKL OBLIGATORY,
WERKS FOR MSEG-WERKS OBLIGATORY,
LGORT FOR MSEG-LGORT,
*CHARG FOR MSEG-CHARG,
BWART FOR MSEG-BWART,
*LIFNR FOR LFA1-LIFNR,
*WADAT FOR LIKP-WADAT_IST,
S_DATE FOR MKPF-BUDAT.
SELECTION-SCREEN END OF BLOCK 0.
TOP-OF-PAGE.
PERFORM HEADER_WRITE.
FORM FETCH_DATA .
SELECT
     MATNR            " Material Number
     WERKS            " Plant
INTO TABLE IT_HEADER
FROM MSEG
WHERE MATNR = IT_HEADER-MATNR AND
WERKS = IT_HEADER-WERKS.
STR3 = S_DATE-LOW+0(4).
SELECT * FROM MARA INTO CORRESPONDING FIELDS OF TABLE ITAB1
                     WHERE MATNR IN MATNR AND
                     MATKL IN MATKL.
SELECT MATNR WERKS LGORT
                     INTO TABLE ITAB2
                     FROM MARD FOR ALL ENTRIES IN ITAB1
                     WHERE WERKS IN WERKS AND
                           LGORT IN LGORT AND
                           MATNR = ITAB1-MATNR.
SELECT SINGLE NAME1 FROM T001W INTO INT_DATA-NAME1
       WHERE WERKS = INT_DATA-WERKS.
LOOP AT ITAB2.
    SELECT M~MATNR M~WERKS M~LGORT M~MENGE M~MBLNR M~MJAHR M~XAUTO M~SHKZG
                   M~BWART M~EBELN N~BUDAT N~XBLNR S~NAME1
                   INTO CORRESPONDING FIELDS OF ITAB
                   FROM   MSEG AS M INNER JOIN MKPF AS N ON
                          M~MBLNR = N~MBLNR
                          AND M~MJAHR = N~MJAHR
                        INNER JOIN T001W AS S ON
                          M~WERKS = S~WERKS
                      WHERE N~BUDAT IN S_DATE AND
                         M~WERKS = ITAB2-WERKS AND
                         M~LGORT = ITAB2-LGORT AND
                         M~MATNR = ITAB2-MATNR AND
                M~BWART IN BWART.
      APPEND ITAB.
      CLEAR ITAB.
    ENDSELECT.
    IF SY-SUBRC NE 0.
      ITAB-MATNR = ITAB2-MATNR.
      ITAB-WERKS = ITAB2-WERKS.
      ITAB-LGORT = ITAB2-LGORT.
      ITAB-BWART = ITAB2-BWART.
      APPEND ITAB.
    ENDIF.
    CLEAR: ITAB2,ITAB.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM ITAB2 COMPARING MATNR WERKS .
V_MONTH = S_DATE-LOW+0(6).
SELECT * INTO CORRESPONDING FIELDS OF TABLE INT_DATA2
           FROM S032 FOR ALL ENTRIES IN ITAB2
           WHERE MATNR = ITAB2-MATNR
                 AND WERKS   = ITAB2-WERKS
                 AND LGORT   = SPACE
                 AND   MBWBEST <> SPACE.
LOOP AT INT_DATA2 .
    SELECT SINGLE * FROM S031
                     WHERE MATNR = INT_DATA2-MATNR AND
                           WERKS = INT_DATA2-WERKS AND
                           LGORT = SPACE AND
                           SPMON GT V_MONTH.
    MODIFY INT_DATA2.
    CLEAR: INT_DATA2, S031.
ENDLOOP.
DELETE INT_DATA WHERE MENGE_O IS INITIAL .
DELETE ADJACENT DUPLICATES FROM INT_DATA COMPARING XBLNR MATNR MAKTX.
V_MONTH1 = S_DATE-LOW+0(6).
SORT ITAB BY MATNR WERKS XBLNR .
LOOP AT ITAB.
    XBLNR = ITAB-XBLNR.
    INT_DATA-MENGE = ITAB-MENGE.
    INT_DATA-BWART = ITAB-BWART.
    INT_DATA-XBLNR = ITAB-XBLNR.
    INT_DATA-BUDAT = ITAB-BUDAT.
    INT_DATA-MATNR = ITAB-MATNR.
    INT_DATA-MBLNR = ITAB-MBLNR.
    INT_DATA-MENGE = ITAB-MENGE.
    INT_DATA-SHKZG = ITAB-SHKZG.
    INT_DATA-MENGE_IS = ITAB-MENGE_IS.
    INT_DATA-MENGE_RE = ITAB-MENGE_RE.
    INT_DATA-MENGE_O = ITAB-MENGE_O.
    INT_DATA-NAME1 = ITAB-NAME1.
    IF FLAG = 1.
      PERFORM GET_OPENING_STOCK.
    ENDIF.
    INT_DATA-MENGE_O = OSTOCK.
    CASE ITAB-BWART.
      WHEN '101'.
        IF INT_DATA-SHKZG = 'S'.
          INT_DATA-MENGE_R = INT_DATA-MENGE_R + ITAB-MENGE.
        ENDIF.
      WHEN '453'.
        IF INT_DATA-SHKZG = 'S'.
          IF ITAB-XAUTO = 'X'.
            INT_DATA-MENGE_RT = INT_DATA-MENGE_RT + ITAB-MENGE.
          ENDIF.
        ENDIF.
      WHEN '351' OR '641'.
       IF ITAB-LGORT = 0.
         INT_DATA-MENGE_R = INT_DATA-MENGE_R + ITAB-MENGE.
       ELSE.
         INT_DATA-MENGE_TO = INT_DATA-MENGE_TO + ITAB-MENGE.
       ENDIF.
      WHEN '602' OR '642'.
        IF INT_DATA-SHKZG = 'S'.
          IF ITAB-LGORT = 0.
            INT_DATA-MENGE_CL = INT_DATA-MENGE_CL + ITAB-MENGE.
          ENDIF.
        ENDIF.
      WHEN '552' OR '310'.
        IF INT_DATA-SHKZG = 'S'.
          INT_DATA-MENGE_AD = INT_DATA-MENGE_AD - ITAB-MENGE.
        ENDIF.
      WHEN '601'.
        IF INT_DATA-SHKZG = 'H'.
          INT_DATA-MENGE_S = INT_DATA-MENGE_S + ITAB-MENGE.
        ENDIF.
      WHEN '641' .
        IF INT_DATA-SHKZG = 'H'.
          IF ITAB-LGORT = 0.
            INT_DATA-MENGE_TO = INT_DATA-MENGE_TO + ITAB-MENGE.
          ENDIF.
        ENDIF.
      WHEN '454' OR '102'.
        IF INT_DATA-SHKZG = 'H'.
          IF ITAB-XAUTO = 'X'.
            INT_DATA-MENGE_CR = INT_DATA-MENGE_CR - ITAB-MENGE.
          ENDIF.
        ENDIF.
      WHEN '551' OR '309'.
        IF INT_DATA-SHKZG = 'H'.
          INT_DATA-MENGE_AD = INT_DATA-MENGE_AD + ITAB-MENGE.
        ENDIF.
ENDCASE.
PERFORM BALANCE.
COLLECT INT_DATA.
    CLEAR: INT_DATA,XBLNR, FLAG, OSTOCK.
IF INT_DATA-SHKZG = 'S'.
      MENGE_RE = INT_DATA-MENGE_R + INT_DATA-MENGE_RT + INT_DATA-MENGE_CL
      + INT_DATA-MENGE_AD.
    ENDIF.
    IF INT_DATA-SHKZG = 'H'.
      MENGE_IS = INT_DATA-MENGE_S + INT_DATA-MENGE_TO +
                    INT_DATA-MENGE_CR + INT_DATA-MENGE_AD.
    ENDIF.
ENDLOOP.
SORT INT_DATA BY XBLNR BUDAT WERKS MATNR.
LOOP AT INT_DATA.
AT NEW MATNR.
     FLAG = 1.
      IT_HEADER-MATNR = INT_DATA-MATNR.
      SELECT SINGLE MAKTX FROM MAKT INTO IT_HEADER-MAKTX WHERE
      MATNR = IT_HEADER-MATNR and spras = 'E'.
      APPEND IT_HEADER.
      CLEAR IT_HEADER.
endat.
ENDLOOP.
LOOP AT INT_DATA.
   READ TABLE INT_DATA2 WITH KEY MATNR = INT_DATA-MATNR
                                 WERKS = INT_DATA-WERKS.
   SELECT SINGLE * FROM MAKT WHERE MATNR = INT_DATA-MATNR.
   INT_DATA-MAKTX = MAKT-MAKTX.
   MODIFY INT_DATA.
   CLEAR: INT_DATA, INT_DATA2.
ENDLOOP.
LOOP AT INT_DATA WHERE MENGE_O = 0 AND MENGE_RT = 0 AND
                        MENGE_CL = 0 AND MENGE_AD = 0 AND
                        MENGE_S = 0 AND MENGE_TO = 0 AND
                        MENGE_CR = 0 AND MENGE_R = 0 AND MENGE_BAL = 0.
    DELETE IT_HEADER WHERE MATNR = INT_DATA-MATNR.
ENDLOOP.
DELETE INT_DATA WHERE MENGE_O = 0 AND MENGE_RT = 0 AND
                        MENGE_CL = 0 AND MENGE_AD = 0 AND
                        MENGE_S = 0 AND MENGE_TO = 0 AND
                        MENGE_CR = 0 AND MENGE_R = 0 AND MENGE_BAL = 0.
PERFORM WRITE_REPORT.
INT_DATA-MENGE_O = OSTOCK.
PERFORM GET_OPENING_STOCK.
FORMAT COLOR 4 INTENSIFIED OFF.
       WRITE:/1 SY-VLINE,
             106 'Opening Balance' CENTERED,
             130 SY-VLINE,
             156 SY-VLINE.
WRITE: 130(8) OSTOCK.
WRITE:/1(156) SY-ULINE.
FORMAT RESET.
LOOP AT INT_DATA.
FORMAT COLOR 2 INTENSIFIED OFF.
WRITE:/1 SY-VLINE,
             2 INT_DATA-XBLNR,
             14 SY-VLINE,
             15 INT_DATA-BUDAT,
             27 SY-VLINE,
             28 INT_DATA-BWART,
             40 SY-VLINE,
             43(9) INT_DATA-MENGE_R,
             51 SY-VLINE,
             52(9) INT_DATA-MENGE_RT,
             65 SY-VLINE,
             66(9) INT_DATA-MENGE_CL,
             82 SY-VLINE,
             83(7) INT_DATA-MENGE_AD,
             89 SY-VLINE,
             90(9) INT_DATA-MENGE_S,
             97 SY-VLINE,
             98(9) INT_DATA-MENGE_TO,
             106 SY-VLINE,
             107(9) INT_DATA-MENGE_CR,
             120 SY-VLINE,
             121(9) INT_DATA-MENGE_AD,
             130 SY-VLINE,
             131(9) INT_DATA-MENGE_BAL,
             144 SY-VLINE,
             145 INT_DATA-MBLNR,
             156 SY-VLINE.
FORMAT RESET.
ENDLOOP.
WRITE:/1(156) SY-ULINE.
ENDFORM.
FORM WRITE_REPORT.
SORT IT_HEADER BY MATNR.
LOOP AT IT_HEADER.
    SKIP .
    AT NEW MATNR.
     WRITE:/1(60) SY-ULINE.
     READ TABLE IT_HEADER INDEX SY-TABIX.
      WRITE:/1 SY-VLINE,
         2 'Material :'(006),14(7) IT_HEADER-MATNR NO-GAP,'-',
               IT_HEADER-MAKTX,
                 60 SY-VLINE.
      WRITE:/1(60) SY-ULINE.
      SKIP.
      SET LEFT SCROLL-BOUNDARY COLUMN 50.
      WRITE:/1(156) SY-ULINE.
       FORMAT COLOR 1 INTENSIFIED OFF.
       WRITE:/1 SY-VLINE,
                2 'Doc. No' CENTERED,
               14 SY-VLINE,
               15(14) 'Doc.Date' CENTERED,
               27 SY-VLINE,
              28(10) 'MVT' CENTERED,
               40 SY-VLINE,
             41(57) 'Receipts' CENTERED,
             89 SY-VLINE, 90(47) 'Issues' CENTERED,130 SY-VLINE,131(12) 'Balance' CENTERED,144 SY-VLINE,
             145 'MAT.DOC NO' CENTERED,156 SY-VLINE,
            /41 SY-VLINE,1 SY-VLINE,14 SY-VLINE,27 SY-VLINE,40 SY-VLINE,89 SY-VLINE,130 SY-VLINE,144 SY-VLINE,156 SY-VLINE,
             40 SY-ULINE,
             /40 SY-VLINE,
             43 'STO-In' CENTERED , 51 SY-VLINE,
             52 'Sales Returns' CENTERED , 65 SY-VLINE,
             66 'Canc of Invoice' CENTERED, 82 SY-VLINE,
             83 'Adj' CENTERED, 89 SY-VLINE,
             90 'Sales' CENTERED, 97 SY-VLINE,
             98 'STO-Out' CENTERED, 106 SY-VLINE,
             107 'Canc of Sales' CENTERED, 120 SY-VLINE,
             121 'Adj' CENTERED, 130 SY-VLINE,144 SY-VLINE,156 SY-VLINE,
             1 SY-VLINE,14 SY-VLINE,27 SY-VLINE,40 SY-VLINE.
WRITE:/1(156) SY-ULINE.
*LOOP AT INT_DATA.
*PERFORM GET_OPENING_STOCK.
*APPEND INT_DATA.
*ENDLOOP.
FORMAT RESET.
    ENDAT.
ENDLOOP.
ENDFORM.
*&      Form BALANCE
      text
--> p1        text
<-- p2        text
FORM BALANCE.
IF INT_DATA-SHKZG = 'S'.
    MENGE_RE = INT_DATA-MENGE_O + INT_DATA-MENGE.
    INT_DATA-MENGE_BAL = MENGE_RE.
    INT_DATA-MENGE_RE = INT_DATA-MENGE.
ELSEIF INT_DATA-SHKZG = 'H'.
    MENGE_RE = MENGE_RE - INT_DATA-MENGE.
    INT_DATA-MENGE_BAL = MENGE_RE.
    INT_DATA-MENGE_IS = INT_DATA-MENGE.
ENDIF.
ENDFORM.                    " BALANCE
FORM HEADER_WRITE.
SKIP.
WRITE: /1(156) SY-ULINE.
WRITE: /1 SY-VLINE,
          2(144) 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxx'
              INTENSIFIED CENTERED," INVERSE ON
          156 SY-VLINE.
WRITE: /1(156) SY-ULINE.
WRITE: /1 SY-VLINE,
          2(156) 'STOCK LEDGER' INTENSIFIED CENTERED,
           "INVERSE ON,
          156 SY-VLINE.
WRITE: /1(156) SY-ULINE.
SELECT SINGLE * FROM T001W WHERE
                  WERKS IN WERKS.
IF WERKS-HIGH EQ SPACE.
    CONCATENATE 'Plant : ' WERKS-LOW INTO TXT.
ELSE.
    CONCATENATE 'FROM PLANT : ' WERKS-LOW 'TO PLANT : ' WERKS-HIGH INTO TXT SEPARATED BY SPACE.
ENDIF.
WRITE:/ 'Plant :', WERKS-LOW,SPACE ,'-', T001W-NAME1,
82 'As Of Date :', 95 sy-datum.
IF NOT S_DATE IS INITIAL.
    WRITE: / 'From:'(004), S_DATE-LOW, SPACE, 'To:'(006), S_DATE-HIGH,82 'PAGE No:', 91 SY-PAGNO..
ENDIF.
*IF FLAG5 = 'E'.
   PERFORM WRITE_REPORT.
*ENDIF.
FORMAT RESET.
endform.
*&      Form GET_OPENING_STOCK
      text
FORM GET_OPENING_STOCK.
SELECT SUM( MZUBB ) SUM( MAGBB ) INTO (V_STOCK, V_STOCK1)
                FROM S031 WHERE MATNR = ITAB-MATNR AND
                                WERKS = ITAB-WERKS AND
                                SPMON LT V_MONTH1 AND LGORT = ITAB-LGORT.
OSTOCK = V_STOCK1 - V_STOCK.
IF OSTOCK < 0.
    OSTOCK = OSTOCK * -1.
ENDIF.
ENDFORM.                               " GET_OPENING_STOCK
Thanks & Regards,
Sreedhar.

Hi,
Check if the data is there in the data target on which your report is based.
Check to see if this data is available for reporting.
Check to see if you have auth to view this data.
Check if there are any filters or restrictions in the query that would prevent the data from being displayed.
Check the data through LISTCUBE transaction.
Hope this helps...

Evaluation Comparision - Material wise Price,Quality and Delivery Scores

Hi All
I am new to QM and i am developing a custom report for vendor evaluation. For that report i need material wise scores of price,quality and delivery and based on this we need to perform some calculation.
In ME64 transaction i can able to see the General evaluation and Material wise evaluation for a pur.org,vendor and material combination.
From which table can i select this material wise scores.From table ELBP i can able to see only genral score and table ELBM has no entries.
Currently i can able to get the correct data by submitting ZRM06LBEW (Copy of ME64) in my report for pur.org,vendor and material combination.But i assume it may lead to performance issue.
So kindly suggest me any table,function module or BAPI to get the reuired data.
Thanks & Regards
P.Thangaraj

hii..
Explore Exit MM06L001.
Description for the same is for your reference which is copied as it is on the source:.
User Exits - Vendor Evaluation
Enhancement MM06L001 comprises four function exits, which are invoked during the calculation of the scores for the subcriteria. The enhancement makes it possible to replace the standard scoring method by customers' own methods.
Implementation Guide (IMG)
To allow a customer's own scoring methods to be used, an indicator must be set for the relevant subcriteria in the IMG in the step Define criteria.
Function modules
The function modules for enhancement MM06L001 are as follows:
    EXIT_SAPLMEL0_001
for the general criteria
    EXIT_RM06LBAT_001
for the quality criteria if the vendor evaluation is carried out in the background
    EXIT_SAPMM06L_001
for the quality criteria if the vendor evaluation is carried out online
    EXIT_RM06LBEW_001
for the quality criteria when the scores for the semi-automatic and automatic subcriteria are determined
The following data is passed on to the function modules:
    XLIFNR (Vendor number)
    XEKORG (Purchasing organization)
    XHKRIT (Main criterion)
    XTKRIT (Subcriterion)
    XKRTYP (Scoring method)
The function modules then supply the scores in the parameter XBEURT.
Coding example
The following example shows how a customer's own scoring method can be stored for the subcriterion "On-time delivery performance". The following coding can be added to program ZXM6LU01 for this purpose:
CASE XKRTYP.
WHEN '3'. "Ermittlungsmethode f・ die Termintreue"
(Scoring method for on-time delivery performance)
XBEURT = 50. "kundeneigene Logik"
(Customer's own logic)
ENDCASE.
In this case, 50 points are always awarded for a vendor's on-time delivery performance.
Function/Program:
    EXIT_RM06LBAT_001: User Exits for Vendor Evaluation
    EXIT_RM06LBEW_001: User Exits for Vendor Evaluation
    EXIT_SAPLMEL0_001: User Exits for Vendor Evaluation
    EXIT_SAPMM06L_001: User Exits for Vendor Evaluation
Regards,
Amol

Materials from Vendor A and Excise invoice from Vendor B???

Hi experts
Can amybody tel me HOW TO DO???
i have created PO for exciseable material to vendor A
I have to do GR for the same from Vendor B (Vendor A 'll inform to Vendor B send materials and excise invoice to customer)
How i can capture excise duty from other vendor.
So how system will take othere vendor for excise duty capture ...??
Thanks
SAP-MM

hi umakanth
Thanks for ur response,
I have maintained invoicing party as differeent vendor in partners tab at header level in PO.
Even though if i maintaind invoicing party is different m buut while capturing excise duty its takeing the PO vendor only, not invoicing party vendor coed in Partners tab at header level in PO.
So can u tel me , how we can capture excise invoice from a vendor differ from PO vendor .
Thanks
SAP-MM

How to open and close posting period for both material , n invoicing

HI
how to open and close posting period for both material , n invoicing , AM NEW TO SD , SO ALL DOUBTS I DO POST IN HERE PLEASE DONT MIND

Hi Sunaina
Period Open T.code: MMP1
Period Close T-Code: MMPV
Automate the opening of MM periods
How can you automate the monthly opening of MM periods (transaction MMPV - program RMMMPERI) with
SM36?
RMMMPERI accepts a period/year or a date.
If you enter a date the period is derived by it.
1. create a variant and check the attribute 'selection variable' for the parameter date. Then click the button 'Selection variables' and set the current date. Every time this variant is used the parameter DATE is filled with the current date.
2. create a job for RMMMPERI with the variant created in the preceding step. Set it as periodic.
If you're not using a fiscal year variant simply schedule it as monthly (to be executed the first day of the month).
If you are using a fiscal year variant you'd have to define a calendar with only the first day of each period defined as working
day and use it in the periodicity restrictions.
Another possibility:
Write a very simple ABAP which run daily to check if the period has changed and submit RMMMPERI.
Reward if useful to u

Report for Number of invoice per vendor with amount

Hi All,
is there any standard SAP report we have which provide us number of invoices and amounts invoiced per vendor for a given time period.
Amit.

Hi amit
I have the same requirement
"The requirement is to view POs related to invoices per vendor""
Can you suggest me a solution
Please help
Regards
Shanker

Material wise reciept and Issue report with Opening and Closing Stock

Hi
I need a report,Material wise Receipt and issue with Opening and Closing stock.Is there any standard report available in SAP ?
Or we have to go for Customised Report.
Please reply

Hi,
MB5B gives total receipts - if i click on the receipts i can view the multiple material documents - BUT is there any way to drill down the reciepts or view the breakup of the receipts on the same screen OR is there any other report for this.
Regards,
Laxmi

A/R extractor - Material and Invoice Amount

Hi Gurus,
I just wanted to extract Material and Invoice amounts for Accounts Receivables from R/3 to BW?
Is there any standard extractor for the same.
I found 0FI_AR_4 but it doesnt have material field.
How can I link the BSID table with material.
Is it via Sales Document (VBELN)?
Regards,
Srini

Hi Srinivas ,
Invoice is part of AR but material (0material ) is not part of AR .It is part of SD .If you are looking for this field you may not find it .
You can check standart key figure and Characteristics available under it in this link :
http://help.sap.com/saphelp_nw70/helpdata/en/3b/eac53976b78867e10000000a11402f/frameset.htm
If you want material you need to use SD material .If you want these fields for a report then you can make a multiprovider with AR and SD cubes Having both material and Invoice .
Regards,
Jaya

How to print total stock in smartform by material wise

Dear Experts,
I am trying to print total material stock which is issued and receipt during entered date in a smartform ,Here I want to print totatl stock issued n receipt by material wise in seperate line .For that I fetch alldata and put into one internal table .In smartform I am using table for printing data.
Edited by: BharatRathod on Mar 8, 2010 11:43 AM
Edited by: BharatRathod on Mar 8, 2010 11:46 AM

Hi,
Try using the CALCULATIONS tab in the tables for printing the total stock in smartforms.
Regards,
Sharin.

Sending material from one subcontracting vendor to another vendor

Hi Experts
we have a scenario we have more than one subcontracting vendors.so the unused raw material should be send to one vendor to another.so how can we configure it.please give me feedback.
Thanks in advance...

Hi Madhu ,
What do u mean sending unused material from one vendor to another ?
In subcontracting u can send material to only one vendor at a time.
Regards
Ramesh Ch

Material wise invoice of vendor.

Similar Messages

Maybe you are looking for