Transport for material-classes

Hi.
Does anybody knows a way to transport classes which are created on a development- or test-system (transaction cl01) into the production system?
We are working on a SAP ERP 4.7 and use a development, test and production system. To create a class and the concerning characteristics (characteristics stored in a database table) with the necessary tables and transport them into the production system I need some help.
Thanks

Hi Alexander.
I´m sorry for my unclear wording. I mean classes (cl01) and characteristics (ct04) for the classification of materials. I think that it is not easy to transport them into a productive system out of a development system because you can create the classes even on the productive system. Because of that the keys of the transported classes maybe is already in use ;-(
But maybe there is another way to transport (IDOC, ...) such classes.
Thanks for your replies.
Michael

Similar Messages

Change Documents for Material Class

Hi,
I activated the change logging for a specific Material Class. However, when I check the change log, there is a material class which will show the characteristic change in the following format. For example I modified characteristic ABCDEF from 1 to 2. The log will show the following:
Document Number 099999
ABCDEF - 1       Deleted
ABCDEF - 2       Created
There are other class types/characterisitcs whose change logging is also activated but the change log will only show the "Created" part. The old value (before change) is not shown.
Document Number 088888
ABCDEF - 2       Created
How do I turn on the logging in such a way that the deleted value (old value) will always be shown in the log ?
Thanks

We have the same issue just come up last night.   A test on one class last week yielded the 2 record change history model (old value deleted, new value created). Applying the same change to a different material class, we get only the single record model - no help or oss notes seem to mention that there are two different change history models in SAP.
CHECK THIS -- check your single record change log in table CDPOS ... you may have values in both value_old and value_new fields there. The 2 record model stores value_old on the "deleted" record and value_new field value on the "created" record.
That still does not answer why there are two models and how one controls which model is implemented for change history on a class/characteristic ... but it sheds just a little more light on it.

Tables for material class...

hi,
i have material number and i want to find class of this material number. which table(s) can i use?

Hi,
You can find out in an indirect way...
Go MM03 for your material...
IN Classification tab...the system will ask you to choose the material class..go on for each class..which ever is the class defined that matrial is the real one..
Regards,
Priyanka.P
AWARD IF HELPFULL

Stock Transport for Non Valuated Account Assigned Material

Hi Experts,
I have to satisfy some unique requirement from my demanding FICO team to make certain process work our way.
Following is the scenario...
1. Plant A and plant B belongs to the same company.
2. Plant A makes material X (non valuated, ind/coll indicator = 1).
3. X calls for sub-assembly Y (non valuated, ind/coll indicator = 1) which is a make item in plant B. X and Y belongs to different Profit Centers
4. Sales order placed at plant A for material X.
5. MRP runs and creates a stock transport order in plant A to buy the non valuated material Y from plant B. STO is account assigned to the sales order.
6. Plant B makes the material Y by creating a production order that is account assigned to the same sales order and does PGI to ships it out to plant A.
7. Plant A GRs the material Y and this puts it in sales order stock. No value move, just qty move. Also no FI document created.
8. Plant A issues component Y to the production order created for material X. Cost of Y doesn't show up in the production order as it is non valuated.
9. Upon settlement of the production order in Plant B, the ACTUAL cost gets settled to the sales order in plant A. So at the time of settlement the profit center switch happens for Y (i.e. the profit center for Y changes to match X's profit center)
This is a beautiful process from logistics point of view. BUT, my FICO has unique requirement for inter company sales for our organization. For them to consider a process as inter company sales, the following constraints has to be met...
1. Ownership of material remains with producing profit center until consumption by the receiving object. (with the above mentioned process the profit center switch happens during prod. order settlement)
2. Cost for the consuming profit center will be moving average, standard cost or planned cost. (we are dealing with non-valuated materials and the settlement happens at actual cost)
I need your expertise to help me define a work aroud. I am thinking about a lot of options to somehow make it work but can't seem to get solutions. Following are my thoughts...
1. Is it possible to possible to make the settlement with planned cost instead of actual cost?
2. Is it possible to make a profit center switch during consumption rather during settlement?
3. Is it somehow possible to create an underlying FI document during GR at plant A? (I know SAP does not create a FI doc. for non valuated materials).
4. Or can plant B send an invoice to plant A for the STO? (I believe this can be done for cross-company STO) I am thinking doing an Invoice Receipt at plant A instead of doing a settlement might show up the cost for Y in the production order for X.
An IR with the planned cost would be an awesome solution to get the buy-in from FICO. Can this be done?
I hope you don't mind my lengthy message... Waiting for some positive response.
Thanks.

Anyone??? This is kinda urgent?

Class and characteristics for material

Hi Gurus,
In which table i can see Assignment of Classes to Materials?
Thank you
ANil
Edited by: anil maguluri on Jul 31, 2008 4:46 PM

Hi,
Table AUSP will have the values for material. Enter material number for field OBJEK and display the data.
Other Fields:
Class Type - KLART
Characteristic Value - ATWRT
Regards,
Srilatha.

Activation of History Log for Material Classification CLASS TYPE 001

Hi All.
I've a question about this object.
We need to launch RCCLUKA2 to activate multiple objects registration and to generate history log for changes in classification of materials (AUSP table).
Reference are sap notes 942691 and 943559.
I FOUND OUT THERE'S a big problem. RCCLUKA2 change AUSP objek key, using internal number range from INOB objects.
There're hundreds of custom reports and other stuff that read AUSP directly with Matnr Code as objek key.
I think that's a serious problem, isn't it? Or is there any solution about ?
Thanks for Help!
_______> old message
This report RCCLUKA2 does 5 steps.
1 step: activation flag for multiple objects in table TCLA and TCLAO only for input class type (in this case 001 -> MATERIAL);
2 step: download of KSSK data and AUSP data in two text files (name defined in input parameters);
3 step: delete all KSSK data and AUSP data for class type 001, 10.000 records every loop;
4 step: create reference object in table INOB for all records inserted in KSSKFILE, inserting all records in KSSK table at END of INOB upgrade;
5 step: inserting record in AUSP table from all records inserted in AUSPFILE, using INOB objectid created in step 4.
DEQUEUE ALL
We think that this process is a little bit dangerous in production system, due to procedures that always run, in background or foreground.
I've found a work around that creates an implicit enhancement for LCLVFF10 form FILL_REDUN.
I think that it's not suggested to create this enhancement because of the missing flags in TCLA/TCLAO and missing reference in INOB and KSSK database.
This enhancement would create records only in CDHDR and CDPOS with a general key object reference (such concatanate matnr(without-letters) mafid and atinn code).
This enhancement couldn't also activate the standard function of reading document changes from standard menu in MM03/MM02/MM01, etc..
Do you have any suggestion about this?
RCCLUKA2 is a very old report. SAP didn't give any advice or upgrades for this need?
Thanks for your help
Message was edited by: Roberto Vacca

Dear ,
changes in values for a characteristic can be monitored in CL20N but as for MM02/MM03 transaction only for class type 023.
For class type 001 or 300 the change document isnu2019t available.
Thanks.

Object Class and Object Id for material Determination tables.

I want to know what is the Object Class and Object Id for material Determination records to verify tables CDHDR and CDPOS.
The purpose is to know the changes done by the different users for material determination records.
Can any one help.

Hi ZZZSUNNY,
Similar question is answered recently.Please find the below link which will helps you
Material determination: how to see the creater of a record?
Thanks
Dasaradha

Characteristics shown wrongly for all classes in material master

I have material classes A,B & C with class type 001. I have maintained characteristics for class 'A' only and B and C classes doesn't have any characteristics. All these classes are assigned to a material. Interestingly, the characteristics contained in A are shown against B and C as well in the material master.
I am not sure what's happening. Please throw a light on the issue. Thanks

Hi Sravan
Since the class type is same, hence system is grouping all the characteristics defined in the classes A, B, & C
Regards

Multiple class types for material master classification display default.

Hello,
We are running on R/3 4.7. We use several different class types for our material masters (001 and Z01). The problem this creates is the end user having to constantly tell the system which class type to use when going to the classification screen for different materials with different class types. If a user views one material's classification page with a particular class type (001) then looks at another material with a different class type (Z01) the system tries to pull in information from the last materials class type (001). The system tells the user there are no assignments for the class (001) in the material their viewing but there is one for class type (Z01). The user then has to select the class type that applies to the material master their trying to view. Is there a way for the system to automatically see when a material has only one class type assigned to it for it to automatically default it in without the user having to specify the class type?
Thanks,
JRW

Hi,
Check the configuration, have you maintained default class type for material type.
Logistic General> Material Master> Basic Setting> Material Type> Define attributes of Material Types>Select the material type> Double click on material type--> Class type
Edited by: P. Dhamane on Jun 4, 2010 3:21 PM

Multiple Class Type for Material Master

Hello Everyone,
I would like to ask where in configuration can I setup Classification so that for each Material Master it can have Multiple Class Type. (such as 001 - Material Class, 023 - Batch, 300 - Variants). Because currently I can only see 023 - Batch whenever I create a new Material Master.
Thanks.

Hi,
Check the configuration, have you maintained default class type for material type.
Logistic General> Material Master> Basic Setting> Material Type> Define attributes of Material Types>Select the material type> Double click on material type--> Class type
Edited by: P. Dhamane on Jun 4, 2010 3:21 PM

How enable material class for Material Advance Search in MMnn transaction?

Hello,
Isn't possible to include material characteristics in Advance Search (via TREX) for every material fields in ECC? So I can enter material characteristics value in 'Full Text Search' field of material 'Advance Search for Material Using Search Engine' searchelp in order to find material that I want.
I tried to include BUS1088 in SES_ADMIN transaction and succesfully indexed it. But I still can't search with characteristic.
Would you all help me, please.... Thanks.
Regards,
Zam

Hi Colleague,
No. This function is not provided in the R/3 System. Only one record is taken into account during the free goods determination with the existence of several valid condition records. This record is the one with the largest minimum quantity. For this record the system only generates one free goods subitem.
Free goods can only be supported on a 1:1 ratio. This means that an order item can lead to a free goods item. Agreements in the following form are not supported: #eWith material 1, material 2 and material 3 are free of charge#e or #eIf material 1 and material 2 are ordered at the same time, then material 3 is free of charge#e.
You can refer FAQ note 549963 which clarifies this point.
I hope it can be helpful.
Regards
Ruy Castro

Change Documents for Material Classification data Changes

Dear Friends,
We have configured custom classification objects for material master and also we are able to maintain the material characteristics using MM01, MM02 and also using ALE interface. But I am not able to find the Change Documents in any of the table CDHDR & CDPOS. Please let me know what needs to be done to capture the change documents for a material classification changes in this case.
Many thanks for you inadvance.
Beast regards,
Mallikarjun.

Change logging of all Classification (including Material Classification) is controlled in the Class type configuration.
SPRO -> Cross Application Components -> Classification System -> Classes -> Maintain Object types and Class types -> Select Object Table = MARA -> Double Click Class Types under MARA -> Select Class Type 001 and Display -> Check whether "Change Docs" check box is checked on.
Also check that another flag "Chg. docs for Class" is set on all Objects under the Class type too (by double clicking the Objects folder for a Class type).
If the Change docs flag is checked on for the relevant Class type and Object then change docs are logged in CDHDR and CDPOS tables for object "CLASSIFY"
Also the "Change docs" flag cannot be set unless the "Multiple objects allowed" flag is also set in the Class type configuration.
Please refer [SAP Note 65124 - Classification Change Documents|https://service.sap.com/sap/support/notes/65124]
Also the above note says and I quote: If "Multiple objects allowed" indicator is not set, start the RCCLUKA2 program. The classification data are converted and the indicator 'Multiple object types allowed' is set. Now you can set the indicator 'Change documents' in Customizing of the class type. However, it only says that change documents are generally possible for this class type. Therefore you have to select objects under 'OBJECTS' for which the change documents are to be written.
So if the Class type doesn't have "Multiple objects allowed" set (along with Change docs flag not set), there is also a conversion that needs to be run using program RCCLUKA2.
Also when you transport the configuration to a target system, the program RCCLUKA2 should be run again, refer [Note 379180 - Classification data disappeared|https://service.sap.com/sap/support/notes/379180 ]

Report for material list

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

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

GR/IR Clearing Account for Material & Asset

Hi,
We want to maintain different GR/IR Clearing Account for Materials & Assets.
Pls. guide.
Regards,

Hi
In case of asset - we define account determination in asset master which is like stock account for material. But if you use purchase order then for asset you use account assignment category as A - it means it is like account assigned purchase order. So all goods reciept credit on these POs will go to GR/IR account created without valuation class. Same time if you donot maintain service masters then goods receipt will go to same account (no valuation class). So either you need to define service materials or use same account for both.
Thanks

How to prevent error message for material description in MDG material detail screen, when user click on check action

Dear Experts,
I have a requirement for making material description as non mandetory in change request view of mdg material screen.
I have done that using field usage in get data method of feeder classes, but still message is displaying.
This message 'Material description is mandatory is displaying with check action only, but not with save or submit after i anhance field property as not mandetory.
How to prevent error message for material description in MDG material detail screen, when user click on check action.
Thanks
Sukumar

Hello Sukumar
In IMG activity "Configure Properties of Change Request Step", you can completely deactivate the reuse area checks (but will then loose all other checks of the backend business logic as well).
You can also set the error severity of the checks from Error to Warning (per CR type, not per check).
Or you provide a default value for the material description, e.g. by implementing the BAdI USMD_RULE_SERVICE.
Regards, Ingo Bruß

Transport for material-classes

Similar Messages

Maybe you are looking for