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,
Manihi 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 fieldhi 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,
OlaFor 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,
VenuHi
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
SandeepHi 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 muchHi,
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