Link of material number to table IBIN

Dear All,
I am looking for the link to establish relation between material number & table IBIN.
Please help in this regard...
Mimiri

You can find the the materialnumber in table IBINOWN, field OBJKEY. Note: the filed OBJKEY may hold MATNR and WERKS, this depends on where the variant configuration is set (plant level or material level).
The relation between IBIN and IBINOWN is set by the field INSTANCE.
There is a materialnumber in IBIN (field OBJNR) but that field holds the reference to the configurable materialnumber.
Edited by: Maen Anachronos on Sep 24, 2010 2:06 PM

Similar Messages

  • Adding quantity field for the same material number in Table control

    Hello Experts,
    I have an requirement, where I need to add the quantity field when the material number is repeated in a table control.
    Here I show the pop-up message "Material already exists, do you want to add the quantity". If the user clicks on Yes I need to add the quantity.
    I created the pop-up message using the FM " POPUP_TO_CONFIRM" and tried to add the quantity filed using COLLECT statement but I couldn't because my non-numeric field value will be different and it will insert new entry with same material in my internal table.
    I have a z data base table & internal table with the below fields in it.
    Best Regards,
    Mani

    hi deepthi,
    chk a sample one which will help u. <b><i>f4 hlp in table control</i></b>
    * Screen flow logic........
    PROCESS BEFORE OUTPUT.
    *MODULE PBO_MODULE.
    PROCESS AFTER INPUT.
    *MODULE PAI_MODULE.
    PROCESS ON VALUE-REQUEST. "F4
      FIELD EKPO-EBELP MODULE help_ekpo.
    * populate screen field from within PROCESS ON VALUE-REQUEST(F4) call
    *&      Module  help_responsibility  INPUT
    *       text
    MODULE help_ekpo INPUT.
    **Transport values to table dynpro/screen table control
      DATA: l_stepl LIKE  sy-stepl,
            l_indx  LIKE  sy-stepl.
      DATA: dynpfields        LIKE dynpread OCCURS 5 WITH HEADER LINE.
    * Adjust for scroling within table control
      CALL FUNCTION 'DYNP_GET_STEPL'
        IMPORTING
          povstepl        = l_stepl
        EXCEPTIONS
          stepl_not_found = 0
          OTHERS          = 0.
      l_indx = tc_ekpotable-top_line + l_stepl - 1.
              "tc_ekpotable should already have been declared
      REFRESH dynpfields.
      CLEAR   dynpfields.
      dynpfields-fieldname  = 'EKPO-EBELN'.
      dynpfields-fieldvalue = '00010'   "wa_ekpo-ebeln.
      dynpfields-stepl      = l_stepl.
      APPEND dynpfields.
      dynpfields-fieldname  = 'EKPO-EBELP'.
      dynpfields-fieldvalue = '00020'   "wa_ekpo-ebelp.
      dynpfields-stepl      = l_stepl.
      APPEND dynpfields.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname     = 'SAPLZZ_EKKO'    "Program name
          dynumb     = '0100'           "Screen number
        TABLES
          dynpfields = dynpfields
        EXCEPTIONS
          OTHERS     = 0.
    ENDMODULE.                 " help_ekpo  INPUT
    rgds
    Anver
    <b><i>if hlped kindly mark points</i></b>

  • Search help for material number in table control

    Hi
    I have a table which i have generated using table control wizard.
    I have used an interal table while creating the table control through wizard.
    In this internal table i have field matnr.Now my requirement is to have a search help for this field.
    I want a default search help for material as you get one instandard transactions.
    In my other i have ip/op field i.e matnr and i have used the field directly from ztable,it has got the search help but since i am using the internal table i am notting getting a search help .
    can anyone tell how to assign a search help to my table control material field

    hi deepthi,
    chk a sample one which will help u. <b><i>f4 hlp in table control</i></b>
    * Screen flow logic........
    PROCESS BEFORE OUTPUT.
    *MODULE PBO_MODULE.
    PROCESS AFTER INPUT.
    *MODULE PAI_MODULE.
    PROCESS ON VALUE-REQUEST. "F4
      FIELD EKPO-EBELP MODULE help_ekpo.
    * populate screen field from within PROCESS ON VALUE-REQUEST(F4) call
    *&      Module  help_responsibility  INPUT
    *       text
    MODULE help_ekpo INPUT.
    **Transport values to table dynpro/screen table control
      DATA: l_stepl LIKE  sy-stepl,
            l_indx  LIKE  sy-stepl.
      DATA: dynpfields        LIKE dynpread OCCURS 5 WITH HEADER LINE.
    * Adjust for scroling within table control
      CALL FUNCTION 'DYNP_GET_STEPL'
        IMPORTING
          povstepl        = l_stepl
        EXCEPTIONS
          stepl_not_found = 0
          OTHERS          = 0.
      l_indx = tc_ekpotable-top_line + l_stepl - 1.
              "tc_ekpotable should already have been declared
      REFRESH dynpfields.
      CLEAR   dynpfields.
      dynpfields-fieldname  = 'EKPO-EBELN'.
      dynpfields-fieldvalue = '00010'   "wa_ekpo-ebeln.
      dynpfields-stepl      = l_stepl.
      APPEND dynpfields.
      dynpfields-fieldname  = 'EKPO-EBELP'.
      dynpfields-fieldvalue = '00020'   "wa_ekpo-ebelp.
      dynpfields-stepl      = l_stepl.
      APPEND dynpfields.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname     = 'SAPLZZ_EKKO'    "Program name
          dynumb     = '0100'           "Screen number
        TABLES
          dynpfields = dynpfields
        EXCEPTIONS
          OTHERS     = 0.
    ENDMODULE.                 " help_ekpo  INPUT
    rgds
    Anver
    <b><i>if hlped kindly mark points</i></b>

  • Query for classfication for material number

    Hi,
    I would like to create a query that links the material number (MARA) with its assigned classes (in classification in material master) and characteristics for each class. So I want to be able to key in a material number and receive the class and all charateristics and values for that.
    Do you know which tables I should join?
    Thanks,
    Ola

    For query you use table AUSP only where Object field is your mateiral number and this will return the value of Char
    if you need class also than link the KLAH table
    MARA you don't need here and wont link

  • Link between AFVC and EBAN tables (material report)

    Friends, wanted to check if anyone can provide assistance on table links between AFVC and EBAN.  The requirement is to track material/service quantity, price, etc in comparison with plan version versus PR, PO, GR, etc.  tried retrieving object numbers of WBS and activities using 'get proj info'  bapi and tried passing them in tables COSP/EBAN/COKEY but the essential link between material assigned to network activity and the PR is missing..
    Thanks in anticipation,

    Hi,
    Did you try the link including EBKN. Basically you can pass the network / WBS number in EBKN and get teh PR number and use this detail in to the item table of PR.
    Regards
    Sreekanth

  • Table link for material and characterstics values

    Hi all,
    I want link between the material and characteristic values .
    please help me regarding this.
    Regards,
    T srinivas.

    Hi,
    "use this function moduel...
    *Retrieve Batch class , characteristic name and values for Material
      CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
        EXPORTING
          classtype          =  '023'
          features           = 'X'
          language           = 'E'
          object             = w_l_object      "pass material number with leading zeros..
          objecttable        = 'MCH1'   "enter table name MARA, MARC ,MCH!
        TABLES
          t_class            = t_lclass
          t_objectdata       = t_objectdata
        EXCEPTIONS
          no_classification  = 1
          no_classtypes      = 2
          invalid_class_type = 3
          OTHERS             = 4.
      IF sy-subrc = 0.
    ENDIF.
    "or fololow the below code
    AUSP,CABN , CAWN, CAWNT..
    select * from AUSP in to table t_ausp where OBJEK = matnr .  "Pass materia number with leading zeros
    SELECT SINGLE * FROM cabn
              WHERE atnam = t_ausp -atnam.    "characteristic name stores in this table
    if sy-subrc = 0.
            SELECT SINGLE * FROM cawn WHERE atinn = cabn-atinn
                                       AND adzhl  = cabn-adzhl.  " "characteristic Values stores in this table
    endif.
    Prabhudas

  • Production Order without Material Number and linked to a PM Order...

    Hi All,
    Is it possible to create a Production Order without Material Number (because it is a "just one time" production), and link it to a PM Order (enterred by a sister Plant) in order to finally report the cost to that PM Order?
    And if YES, how to do it???
    Explanation of the problem (business scenario):
    We have 2 Plants. Let say Plant "A" and Plant "B".
    Plant B is producing spare parts for Plant A.
    There are usual spare parts, which have a Material Number.
    But there are also spare parts which will be produced only once, and which don't have a Material Number. (= because it is a very punctual production).
    Plant A needs a punctual spare part.
    It creates a PM Order for Plant B.
    Plant B needs to create a Production Order for that spare part (without Material Number).
    Then, when confirmed and delivered, the cost of that production needs to be reported (assigned) to the PM Order.
    Thanks in advance for your help on the subject.
    Regards,
    Rudy.

    Thank you for the information.
    After some modifications on the Prod.Order Type and the creation of a Reference Operation Set, it seems to work.
    Still have a cost problem, but on the way to be solved.
    Thanks a lot,
    Rudy.

  • Link beetween Tables IBIN and COMM_PRODUCT

    Hi experts.
    Can anybody explain me how i can retrieve a product in the table COMM_PRODUCT from a component in table IBIN ?
    In transaction IB53, i see the component and products together but i need to define how the data is linked in database.
    Or if somebody knows a FM to get the product with the component guid, it will be very helpful. Thanks for the help.

    Hi,
    Here is the link betweent the product and instance.
    Pass IBIB-INSTANCE into the IBINOWN-INSTANCE.
    IBINOWN-INSTANCE=IBIN-INSTANCE
    you will get the details about objkey.
    Pass this objkey into the COMM_PRODUCT-PRODUCT_GUID.
    Regards
    Srinu

  • Material Number is not in table PLPO

    Gurus,
    I need to pull Material Production standard Time (Setup, Labor and Machine time) data from table PLPO into BW, however i do not see the field MATNR(Material) in this table. There is material group and BOM though. In this scenario, what are my options to identify/map these fields to MATNR in the DSO or Cube. Btw, theDSO/Cube has MATNR infoobject ZMATERIAL. Thanks in advance.

    Hi,
    Check out the thread -
    Re: Activity Value in PLPO table
    Regards,
    Geeta

  • 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...

  • Getting Batch from Packaging material Number (Batch characteristics)

    Hi Gurus,
    I've a requirement.
    i want to know the batches where the packaging material is used.
    Packaging material is one of the batch characteristics, if i assign the same packaging material number in one batch, that should not be assigned to another batch.
    I want to know in which batches the same packaging material is assigned.
    Please guide me?? which table has the links for batch, packaging material number and main material number???
    How can i find this???
    Thanks in advance.
    Adi.

    we can use the MMCL transaction/BMBC to see this.
    In MMCL we have a FM to get the Data.

  • Linking a field in internal table

    Hi  Friends,
    I have fields in i_mseg table
    BEGIN OF t_mseg,
            mblnr TYPE mseg-mblnr, 
            matnr TYPE mseg-matnr,          "Material Number
            werks TYPE mseg-werks,          "Plant
            lgort TYPE mseg-lgort,          "Storage Location
            shkzg TYPE mseg-shkzg,          "Debit/Credit
            dmbtr TYPE mseg-dmbtr,          "Amount in local
            menge TYPE mseg-menge,          "Quantity
            budat TYPE mkpf-budat,          "Posting Date
    end of i_mseg.
    I want to link this table can you pls help me out
    Get the material description from MAKT-MATNR-MAKTX through MSEG-MATNR, WERKS-MSEG
    Thanx in advance,
    Venu

    Hi
    If posting start date is 1.02.2006 then opening stock would be calculate up to 31.01.2006
    Pick up the Actual receipt qty & issue qty within the posting period (1.02.2006-28.02.2006)
    Closing stock = Closing Receipt qty – Closing issue qty
    Closing receipt & issue qty means up to last date of posting date
    If posting start date is 1.02.2006 & End date 28.02.2006 then Closing stock would be calculate up to 28.02.2006 by applying same logic as earlier mentioned for opening stock
    Get the material description from MAKT-MATNR- MAKTX through MSEG-MATNR, WERKS-MSEG
    Get the following data from MARA-MATNR by linking MSEG-MATNR, WERKS-MSEG
    MEINS- Basic unit of measure
    MAKTL- Material group
    Get the following data from MBEW-MATNR by linking MSEG-MATNR, WERKS-MSEG
    This Fields I have to get into final table,
    Pls guide me,
    Ragards,
    Parvez.

  • How to link manufacturer serial number with Internal serial number

    Hi
    I just want suggestion on my below requirement.
    I have supplier serial number (Manufacturing serial number). We also have internal serial number.Normally we create internal serial number automatically at the time of MIGO. We have not facility to put external serial number in MIGO and that can be link with Internal serial number.
    We normally to put external serial number in IQ02 manually in the field of SERGE.
    How i Can activate supplier serial number in migo  and link with material document.
    Regards
    Sandeep

    Hi Ravindran
    Please see below answers of your questions
    During MIGO we put internal serial number during MIGO. Which we create by pressing automatically while MIGO post. There is no option of maintaining manufacturing serial number in MIGO.
    Activate serial number profile as Z001 with below details
    Prodc
    procedure description
    Ser usage
    equip req
    HUSL
    Maintain handling unit
    2
    2
    MMSL
    Maintain goods receipt and issue doc.
    3
    2
    PPAU
    Serial numbers in PP order
    2
    2
    PPRL
    PP order release
    3
    2
    QMSL
    Maintain inspection lot
    3
    2
    SDAU
    Serial numbers in SD order
    4
    2
    SDCC
    Completness check for delivery
    3
    2
    SDCR
    Completion check IR delivery
    2
    2
    SDLS
    Maintain delivery
    2
    2
    SDRE
    Maintain returns delivery
    2
    2
    Manufacturer produce material with their own serial number and its own series. We produce our own serial number and Maintain the manufacturing serial number in serial number master data for traceability purpose. In  IQ01 there is one filed available to maintain  manufacturing serial number(SERGE- FIELD NAME, TABLE-ITOB). In case any enquiry come from customer like your particular serial number is damage or quality issue. In that case if that component procure from supplier . we  inform supplier about there defective plant and claim on same.
    4    we use serial number in MIGO as internal serial number.

  • Long Material Number ( 18 symbols) within ECM

    Good Day colleagues,
    We have faced the problem after extension of material number length to 40 symbols. Please see detailed description below.
    Preconditions:
    1) Long Material Numbers (>18 symbols) are used in the system
    2) Note 998183 was installed in the frames of support package SAPKA70017(link: [https://websmp130.sap-ag.de/sap(bD1ydSZjPTAwMQ==)/bc/bsp/spn/sapnotes/index2.htm?numm=998183] )
    3) Engineering Change Management component is used.
    Problem description:
    In transactions cc01/cc02/cc31/cc32 when processing long material numbers (>18 symbols) system works correctly only when material exists in the system. When trying to enter non-existent material number (with length>18 symbols) in the change master record, system checks that there is no such material exists in the system and truncates the material number to the length of 18 symbols u2013 in other words it puts truncated to 18 symbols material number in the RC29A-MATNR field of the change master record and that is incorrect. Due to this error system transfers the truncated version of material number to AEOI table (field OBJKT) though this field dimension is 40.
    The same problem appears when trying to process such material (non-existent material with long number>18 symbols) in the BOM tab of the change master record. In this case AEOI-OBJKT field has dimension 40 symbols, but positions 19-22 of this dimension are reserved for WERKS value and 23-40 positions are reserved for alternatives numbers. It looks like this internal structure (AEOI-OBJKT) for BOMs was not extended for long material numbers.
    The goal:
    To have an ability to process correctly non-existent long material numbers (>18 symbols) in the change master record (both in the tabs of Material and BOM).
    Thank you in advance for any proposals.

    up

  • Obtaining Material number from the CRM Document number

    Hi Gurus
    From which table can I get the material number if I know the CRM document number. Which are the tables that need to be linked to get this information?
    thank you very much

    Hi,
    Using doc number you can access CRMD_ORDERADM_H-OBJECT_ID = DOCNUM.
    CRMD_ORDERADM_I-HEADER = CRMD_ORDERADM_H--GUID.
    The material is in CRMD_ORDERADM_I.
    Hope this helps.
    Best regards,
    Caíque Escaler

Maybe you are looking for

  • Apps Adapter API is called before Db Adapter inserting data

    Hi All, I am using a bpel process which calls db adapter to insert/update data in staging table, after this activity i am calling a Apps Adapter PLSQL API where it takes the data from staging table and performs some functionality. But the problem her

  • How do I access camera raw in PSE 11?

    I can't figure out how to access the Camera Raw plug-in for Photoshop Elements 11, on a Macbook Pro OSX.  In PSE, when I select "about plug-in" it brings up a box that shows version 7.1.0.354.  Does that mean it's already installed?  If so, how do I

  • Library won't open in updated iPhoto

    I have updated to iPhoto 6.0.4 but it presents me with a library that is completely empty. There are folders for "Early Photos," "2004," "2005," etc. but nothing in them. I have all my earlier library on a backup disk, but when I move them over to my

  • How do I stop iTunes from losing my spot in the Library?

    Everytime I use the search bar to enter an artists name to get to them quickly and then leave the "my music" tab, say to go to the iTunes store, and then click back to "my music", it returns me to the beginning of the alphabet by artist. Is there a w

  • Can the iPad truly replace a "normal" computer yet?

    My wife and I are looking to replace two computers. One is her Sony Vaio laptop, the other is my iMac G5. I mentioned to her that we could both get iPads, one for me and one for her and that it would really do everything we would need them to do. I k