Function module for Materials based on class type

Hi ,
Can any one suggest me how to find out Materisl based on class type any standard SAP Function module or BAPI avilable for the same?
Regards,
Raghu.

hi,
Check with one of the FM in the list.
BAPI_MATERIAL_MAINTAINDATA_RT Create and change material master data (reta
BAPI_MATERIAL_DELETE                Flag Material for Deletion
BAPI_MATERIAL_DISPLAY               Display Material
BAPI_MATERIAL_EDIT                      Change Material
BAPI_RETAILMATERIAL_CREATE     Create Material
BAPI_RETAILMATERIAL_DELETE     Discontinue Material
BAPI_STANDARDMATERIAL_CREATE   Create/Extend Material
BAPI_MATERIAL_SAVEREPLICA       BAPI for Mass Maintenance of Material Data
BAPI_MATERIAL_SAVEDATA          Create and Change Material Master Data
Thanks
sharath

Similar Messages

Inbound Idoc function module for Cycle count with msg type WVINVE

Can any one tell me which is the standard function Module which processes Cycle count for message type WVINVE.
My requirement is to setup Inbound Idoc for cycle processing with message type WVINVE.

Hi Mukesh,
Inbound FM is IDOC_INPUT_STORE_INVENTORY , and Process code is WVIN.
Yoou can check this in Tcode WE42 for process code WVIN.
Regards
Srikanth M

Function module for Process order status

Hi techies,
I want to know the function module for process order status , idoc type is liopro01 and message type is liopro, my requirement is that based on the different status received in IDoc SAP should update the process order status, separate user status will be defined as "MO START" and "MO end" using status profile.also it has change the process order status to "TECO" also it should check the user status for "MO Abort".
Thanks in Advance

Hi ross,
Try this function module.
STATUS_CHECK_MULTI
May be helpful.
Lincon

Function module for wage type permissibility

There are is a function module for get the wage type permissibility in the module of HR?
Kind Regards

Hi,
Try with HRGPBS_MSA_GET_WAGE_TYPES.
Regards
Abhii..

Inbound function module for IDoc type INFRECMASS01

Hello everybody,
What is the inbound function module for IDoc type INFRECMASS01?
I tried IDOC_INPUT_INFREC (as for IDoc INFREC01), but I got the following message (B1 044): Incorrect function module IDOC_INPUT_INFREC called up
Thanks in advance
Roland

The only difference between INFRECMASS01 and INFREC01 is that repitition of the same segments. However, the standard function module is hardcoded with IDOC type INFREC01, so if you want to use the MASS IDOC copy the standard one and put in the logic to loop around and process the info records one by one.
There is no standard funtion that can process mass idoc of the info record.
Regards,
Ravi
Note: Please mark the helpful answers

Function module for assigned wage types

Hi experts,
We need wage type wise count and sum of the amount for each wage type defined in infotype '0008' for the given from and to dates. Is there any function module available for the same.
Please suggest.
Regards,
Kaustubh Kabre.

Hi,
<li>I do not look for function module for this case as i know that we can or have to read wage types and corresponding amount in the program. LDB PNP should be given in program attributes.
REPORT RPABAP06.
TABLES:PERNR.
INFOTYPES:0008.
DATA: BEGIN OF WAGETYPES,
 LGA LIKE P0008-LGA01,
 BET LIKE P0008-BET01,
 ANZ LIKE P0008-ANZ01,
 EIN LIKE P0008-EIN01,
 OPK LIKE P0008-OPK01,
END OF WAGETYPES.
DATA:total type P0008-BET01.
GET PERNR.
RP_PROVIDE_FROM_LAST P0008 SPACE PN-BEGDA PN-ENDDA.
DO 20 TIMES VARYING WAGETYPES-LGA FROM P0008-LGA01 NEXT P0008-LGA02
 VARYING WAGETYPES-BET FROM P0008-BET01 NEXT P0008-BET02.
IF WAGETYPES-LGA IS INITIAL.
EXIT.
ELSE.
TOTAL = TOTAL + WAGETYPES-BET.
WRITE: / WAGETYPES-LGA, WAGETYPES-BET.
ENDIF.
ENDDO.
WRITE TOTAL.
Thanks
Venkat.O

Out Bound Function Module For IDoc Types CODCMT01

Hi Experts,
Can you please tell me the Out Bound Function Module For IDoc Types CODCMT01,CODCAGN01,PRCDOC01.
Thanks..
Debi.

Hi Debi,
You can use FM MASTER_IDOC_DISTRIBUTE to distribute outbound IDoc CODCMT01, CODCAGN01 and PRCDOC01.
Regards,
Ferry Lianto

What is outbound function module for IDoc type INFRECMASS01

Hi,
What is outbound function module for IDoc type INFRECMASS01? This is for purchasing info record.
Thanks
Kamal

Hi Kamal,
Have you looked standard program RBDSEINF or transaction code ME18?
This program will call function module MASTERIDOC_CREATE_REQ_INFREC to generate purchasing info record IDoc.
Hope this will help.
Regards,
Ferry Lianto
Please reward points if helpful.

Equivalent Class for Function Module for VIEW_MAINTENANCE_CALL

Hi Gurus,
Can any one let me know
Equivalent Class for Function Module for VIEW_MAINTENANCE_CALL
Thanks in a

Try Class:
CL_TABLECONTROL
Or do check if this class is of any use:
CL_SALV_FULLSCREEN_ADAPTER

Function Module for RSAP001 requires Type Pool

Hi
I am not an ABAP Freak:
I want to set up a Function Module for RSAP0001.
Setting Import and / or Tables Parameters give an Activation error:
Type pool SBIWA has not been declared
Message no. FL031
Diagnosis:
You used a type from type pool & in the interface of a function module.
Procedure:
For the program to be syntactically correct, you must
declare the type pool in the global data declaration of the
function group using the 'TYPE-POOLS: &.' statement.
Where do I find the global data declaration of the
function group ?
Thank You
Best Wishes
Martin

Hi Martin,
When you click on the function group you will find many includes declared in it.
Some of them will be Include L<fgrp>UXX and there will be one include,
INCLUDE L<fgrp>TOP, this is the include in which you will have to make declarations, and here you will have to declare type pool.
Simply goto transaction SE38 and the the program name as L<functionfroupname>TOP and you can directly change this include.
Regards,
Durgesh.

How to find IDOC Function Module for Basic Type:ORDERS05

Hi,
What is the Transaction Code to locate the Function Module linked to the IDOC Basic Type & IDOC Message Type?
Appreciate Your Help.
Thanks,
Kannan.

Hi Seshu,
Thanks for your reply. While creating a Custom IDOC, How do I link the IDOC Function Module and Basic Type. Appreciate Your Help.
Thanks,
Kannan.

Bom explosion function module for bypassing phantom materials

hi,
function module "cS_BOM_EXPL_MAT_V2" is used to explode the componensts of first level only.
In my case there are components at first level are phantom assemblies so i want to drill down further to arrive at E or F part which may be at 2nd or 3rd level.
please suggest any BAPI or function module for the above requirement.
Thanks.
Kumar

Dear Kumar,
check with following input values for the Functional Module
FTREL
ALEKZ
ALTVO
AUFSW
AUMGB
AUMNG                                      0.000
AUSKZ
AMIND
BAGRP
BEIKZ
BESSL
BGIXO
BREMS
CAPID                           PP01
CHLST
COSPR
CUOBJ                           000000000000000000
CUOVS
CUOLS
DATUV                           13.05.2008
DELNL
DRLDT
EHNDL
EMENG                                      2.000
ERSKZ
ERSSL
FBSTP
KNFBA
KSBVO
MBWLS                           X
MKTLS                           X
MDMPS
MEHRS                           X
MKMAT
MMAPS
SALWW
SPLWW
MMORY                           1
MTNRV                           S7690339
NLINK
POSTP
RNDKZ
RVREL
SANFR
SANIN
SANKA
SANKO
SANVS
SCHGT
STKKZ
STLAL                           1
STLAN                           1
STPST                           0
SVWVO                           X
WERKS                         5501
NORVL
MDNOT
PANOT
QVERW
VERID
VRSVO                           X
I'm using this FM with the above input parameters and I'm getting the necessary details perfectly.
Please check & revert back.
Regards
Mangalraj.S

Function module for Delivery and billing based on sales order

Hi Friends
I am developing an object which has to create the sales order, delivery for that sales order and billing for it at the same time.
I have tried for few function modules to create the delivery and billing but I am not able to achieve.
Would you please help me by providing the correct function modules for these 2 activities?
Thanks
Praveen

Hi Nikhil
Thanks for reply,
i am creating the sales order using the BAPI "BAPI_SALESORDER_CREATEFROMDAT1" only, but the billing document bapi
"BAPI_BILLINGDOC_CREATE" is for online creation, it will call the t-code 'VF01'.
I need to create the billing document with out calling the t-code like using bapi for sales order. Please suggest me if there are function modules to achieve this.
Thanks
Praveen

Functional module for Getting Material classification data.

Please tell me Functional module for Getting Material classification data like class type , class, characteristics and characteristics values for material.

Dear,
FM:
CLAF_CLASSIFICATION_OF_OBJECTS
Table KLAH Class Header Data
- KSML Characteristics of a Class
Regards,
R.Brahmankar

Z function modules for OLE

Hi all,
Is there any Z function modules for OLE, which will download the data directly to Excel with 2 sheets.
Regards,
Shalini

Hi Shalini Reddy
there is no FM but code is there... u can see...
*& Report YOLE_FOR_EXCEL
REPORT yole_for_excel.
*REPORT ZTEST_BYW.
OLE specific include file
INCLUDE ole2incl.
INCLUDE excel__c.
data definitions of OLE objects with type ole2_object
PARAMETERS: p_filenm(80) LOWER CASE OBLIGATORY
DEFAULT 'd:\temp\report_tsl.xls'.
DATA: g_tmp_workbook TYPE ole2_object.
DATA: g_tmp_worksheets TYPE ole2_object.
DATA: g_tmp_worksheet1 TYPE ole2_object.
DATA: g_tmp_worksheet2 TYPE ole2_object.
DATA: g_pc_template LIKE rcgfiletr-ftappl
VALUE 'd:\temp\mmr_rpt_tsl_tmp.xls'.
DATA: g_excel TYPE ole2_object.
DATA: g_workbooks TYPE ole2_object.
DATA: g_workbook TYPE ole2_object.
DATA: g_worksheets TYPE ole2_object.
DATA: g_worksheet TYPE ole2_object.
DATA: g_cell TYPE ole2_object.
DATA: g_cell1 TYPE ole2_object.
DATA: g_cell2 TYPE ole2_object.
DATA: g_cellrange TYPE ole2_object.
DATA: g_font TYPE ole2_object.
DATA: g_interior TYPE ole2_object.
DATA: g_borders TYPE ole2_object.
DATA: g_first_ws VALUE 'Y'.
DATA: g_row TYPE i.
DATA: g_col TYPE i.
definition of loop counter
DATA: i TYPE i VALUE '5'.
DATA: BEGIN OF t_sheet1 OCCURS 1,
col1(10),
col2(20),
END OF t_sheet1.
DATA: BEGIN OF t_sheet2 OCCURS 1,
col1(10),
col2(20),
END OF t_sheet2.
START-OF-SELECTION.
PERFORM prepare_data.
PERFORM download_to_excel.
END-OF-SELECTION.
call method of excel 'QUIT'.
it is now possible to leave the EXCEL application
remark: you have to go to the EXCEL application and answer the
popup dialog screen
*& Form PREPARE_DATA
FORM prepare_data.
t_sheet1-col1 = 'A1'.
t_sheet1-col2 = 'A2'.
APPEND t_sheet1.
t_sheet1-col1 = 'B1'.
t_sheet1-col2 = 'B2'.
APPEND t_sheet1.
t_sheet2-col1 = 'Y1'.
t_sheet2-col2 = 'Y2'.
APPEND t_sheet2.
t_sheet2-col1 = 'Z1'.
t_sheet2-col2 = 'Z2'.
APPEND t_sheet2.
ENDFORM. " PREPARE_DATA
*& Form DOWNLOAD_TO_EXCEL
FORM download_to_excel.
PERFORM open_excel.
PERFORM add_worksheet1.
PERFORM add_worksheet2.
PERFORM open_template_file.
PERFORM close_excel.
WRITE: / 'End of program'.
ENDFORM. " DOWNLOAD_TO_EXCEL
*& Form FILL_CELL
*& FORM routine, which fills the specified cell in the EXCEL sheet
*& with the given value
FORM fill_cell USING i_row TYPE i
i_col TYPE i
i_value
i_fontbold
i_digit
i_wraptext
i_horizon_align
i_vertical_align.
DATA: l_str TYPE string.
CALL METHOD OF g_excel 'CELLS' = g_cell
 EXPORTING #1 = i_row
 #2 = i_col.
SET PROPERTY OF g_cell 'VALUE' = i_value.
IF i_fontbold = 'X'.
 GET PROPERTY OF g_cell 'Font' = g_font.
 SET PROPERTY OF g_font 'Bold' = 1.
ENDIF.
IF NOT i_wraptext IS INITIAL.
 SET PROPERTY OF g_cell 'WrapText' = 1.
ENDIF.
IF NOT i_horizon_align IS INITIAL.
 IF i_horizon_align = 'L'.
 SET PROPERTY OF g_cell 'HorizontalAlignment' = xlleft.
 ELSEIF i_horizon_align = 'R'.
 SET PROPERTY OF g_cell 'HorizontalAlignment' = xlright.
 ELSEIF i_horizon_align = 'C'.
 SET PROPERTY OF g_cell 'HorizontalAlignment' = xlcenter.
 ENDIF.
ENDIF.
IF NOT i_vertical_align IS INITIAL.
 IF i_vertical_align = 'T'.
 SET PROPERTY OF g_cell 'VerticalAlignment' = xltop.
 ELSEIF i_vertical_align = 'B'.
 SET PROPERTY OF g_cell 'VerticalAlignment' = xlbottom.
 ELSEIF i_vertical_align = 'C'.
 SET PROPERTY OF g_cell 'VerticalAlignment' = xlcenter.
 ENDIF.
ENDIF.
To set number format for cell
IF i_digit <> ''.
 IF i_value IS INITIAL AND i_digit <> '%'.
 SET PROPERTY OF g_cell 'VALUE' = ''.
 ELSE.
Set number format for cell with number
 IF i_digit = '1'.
 SET PROPERTY OF g_cell 'NumberFormat' = '#,###.0 '.
 ELSEIF i_digit = '2'.
 SET PROPERTY OF g_cell 'NumberFormat' = '#,##0.00 '.
 ELSEIF i_digit = '%'.
 SET PROPERTY OF g_cell 'NumberFormat' = '#,##0.00% '.
 ELSE.
 SET PROPERTY OF g_cell 'NumberFormat' = '#,### '.
 ENDIF.
 ENDIF.
ENDIF.
ADD 1 TO i_col.
ENDFORM. "FILL_CELL
*& Form OPEN_EXCEL
FORM open_excel.
DATA: l_cnt TYPE i.
create object excel of OLE class 'EXCEL.APPLICATION'
CREATE OBJECT g_excel 'EXCEL.APPLICATION'.
CALL METHOD OF g_excel 'WORKBOOKS' = g_workbooks.
CALL METHOD OF g_workbooks 'ADD' = g_workbook.
GET PROPERTY OF g_workbook 'Worksheets' = g_worksheets.
GET PROPERTY OF g_excel 'ACTIVESHEET' = g_worksheet.
SET PROPERTY OF g_excel 'DISPLAYALERTS' = 0.
GET PROPERTY OF g_worksheets 'Count' = l_cnt.
l_cnt = l_cnt - 1.
Delete unwanted worksheets
DO l_cnt TIMES.
 GET PROPERTY OF g_excel 'ACTIVESHEET' = g_worksheet.
 CALL METHOD OF g_worksheet 'DELETE'.
ENDDO.
ENDFORM. " OPEN_EXCEL
*& Form CLOSE_EXCEL
FORM close_excel.
SET PROPERTY OF g_excel 'VISIBLE' = 1.
CALL METHOD OF g_workbook 'SAVEAS'
 EXPORTING #1 = p_filenm.
quit Excel and free all OLE objects
call method of g_excel 'QUIT'.
FREE OBJECT g_interior.
FREE OBJECT g_borders.
FREE OBJECT g_font.
FREE OBJECT g_cell.
FREE OBJECT g_cell1.
FREE OBJECT g_cell2.
FREE OBJECT g_cellrange.
FREE OBJECT g_excel.
FREE OBJECT g_workbooks.
FREE OBJECT g_workbook.
FREE OBJECT g_worksheets.
FREE OBJECT g_worksheet.
ENDFORM. " CLOSE_EXCEL
*& Form ADD_WORKSHEET
FORM add_worksheet USING i_name.
Add new worksheet
IF g_first_ws <> 'N'.
 g_first_ws = 'N'.
 GET PROPERTY OF g_excel 'ACTIVESHEET' = g_worksheet.
ELSE.
 CALL METHOD OF g_worksheets 'Add' = g_worksheet.
ENDIF.
SET PROPERTY OF g_worksheet 'NAME' = i_name.
g_row = 1.
g_col = 1.
ENDFORM. " ADD_WORKSHEET
*& Form ADD_WORKSHEET1
FORM add_worksheet1.
PERFORM add_worksheet USING 'Test 1'.
fill line in EXCEL sheet with headerlines of table columns
g_col = 1.
PERFORM fill_cell USING g_row g_col 'My First Worksheet' 'X' ''
PERFORM merge_cell USING g_row 1 g_row 4.
PERFORM set_border USING g_row 1 g_row 4 4 ''.
ADD 1 TO g_row.
g_col = 1.
PERFORM fill_cell USING g_row g_col 'ID'(001) 'X' '' '' '' ''.
PERFORM fill_cell USING g_row g_col 'Name'(002) 'X' '' '' '' ''.
PERFORM fill_cell USING g_row g_col 'Telephon'(003) 'X' '' '' '' ''.
PERFORM fill_cell USING g_row g_col 'Rabatt'(004) 'X' '' '' '' ''.
loop at customr table and print values into EXCEL sheet
ADD 1 TO g_row.
LOOP AT t_sheet1.
 g_col = 1.
 PERFORM fill_cell USING g_row g_col t_sheet1-col1 '' '' '' '' ''.
 PERFORM fill_cell USING g_row g_col t_sheet1-col2 '' '' '' '' ''.
 ADD 1 TO g_row.
ENDLOOP.
g_col = 4.
PERFORM set_border USING 1 1 g_row g_col '' 4.
ENDFORM. " ADD_WORKSHEET1
*& Form ADD_WORKSHEET2
FORM add_worksheet2.
PERFORM add_worksheet USING 'Test 2'.
fill line in EXCEL sheet with headerlines of table columns
g_col = 1.
PERFORM fill_cell USING g_row g_col 'My Second Worksheet' 'X' ''
PERFORM merge_cell USING g_row 1 g_row 4.
PERFORM set_border USING g_row 1 g_row 4 1 'X'.
PERFORM set_color USING g_row 1 g_row 4 'LT'.
ADD 1 TO g_row.
g_col = 1.
PERFORM fill_cell USING g_row g_col 'ID'(001) 'X' '' '' '' ''.
PERFORM fill_cell USING g_row g_col 'Name'(002) 'X' '' '' '' ''.
PERFORM fill_cell USING g_row g_col 'Telephon'(003) 'X' '' '' '' ''.
PERFORM fill_cell USING g_row g_col 'Rabatt'(004) 'X' '' '' '' ''.
loop at customr table and print values into EXCEL sheet
ADD 1 TO g_row.
LOOP AT t_sheet2.
 g_col = 1.
 PERFORM fill_cell USING g_row g_col t_sheet2-col1 '' '' '' '' ''.
 PERFORM fill_cell USING g_row g_col t_sheet2-col2 '' '' '' '' ''.
 ADD 1 TO g_row.
ENDLOOP.
g_col = 4.
PERFORM set_border USING 1 1 g_row g_col 2 'X'.
ADD 4 TO g_row.
g_col = 1.
PERFORM fill_cell USING g_row g_col 'This is a wrap text' 'X' ''
'X' 'C' 'T'.
PERFORM fill_cell USING g_row g_col 'Vertical - Bottom' 'X' ''
'' 'L' 'T'.
ADD 4 TO g_row.
g_col = 1.
PERFORM fill_cell USING g_row g_col 'Amount 1' 'X' '' '' '' ''.
PERFORM fill_cell USING g_row g_col '100.04' '' 'X' '' '' ''.
ADD 1 TO g_row.
g_col = 1.
PERFORM fill_cell USING g_row g_col 'Amount 2' 'X' '' '' '' ''.
PERFORM fill_cell USING g_row g_col '200.01' '' 'X' '' '' ''.
ADD 1 TO g_row.
g_col = 1.
PERFORM fill_cell USING g_row g_col 'Total' 'X' '' '' '' ''.
PERFORM fill_cell USING g_row g_col '=SUM(B13:B14)' 'X' 'X' '' '' ''.
PERFORM fill_cell USING g_row g_col '0.00' 'X' 'X' '' '' ''.
PERFORM copy_cell USING g_row 2 17 5 25 8.
ENDFORm. " ADD_WORKSHEET2
*& Form MERGE_CELL
FORM merge_cell USING i_row1 i_col1
i_row2 i_col2.
CALL METHOD OF g_excel 'Cells' = g_cell1
 EXPORTING #1 = i_row1
 #2 = i_col1.
CALL METHOD OF g_excel 'Cells' = g_cell2
 EXPORTING #1 = i_row2
 #2 = i_col2.
CALL METHOD OF g_excel 'Range' = g_cellrange
 EXPORTING #1 = g_cell1
 #2 = g_cell2.
CALL METHOD OF g_cellrange 'Merge'.
ENDFORM. " MERGE_CELL
*& Form SET_BORDER
FORM set_border USING i_row1 i_col1
i_row2 i_col2
i_thickness
i_allborders.
CALL METHOD OF g_excel 'Cells' = g_cell1
 EXPORTING #1 = i_row1
 #2 = i_col1.
CALL METHOD OF g_excel 'Cells' = g_cell2
 EXPORTING #1 = i_row2
 #2 = i_col2.
CALL METHOD OF g_excel 'Range' = g_cellrange
 EXPORTING #1 = g_cell1
 #2 = g_cell2.
IF i_allborders IS INITIAL.
 CALL METHOD OF g_cellrange 'BorderAround'
 EXPORTING #1 = 1 "Continuous line
 #2 = i_thickness. "Thickness: 1 - Normal, 4 - Thick
ELSE.
 GET PROPERTY OF g_cellrange 'Borders' = g_borders.
 SET PROPERTY OF g_borders 'LineStyle' = '1'.
 SET PROPERTY OF g_borders 'Weight' = i_thickness.
ENDIF.
ENDFORM. " SET_BORDER
*& Form SET_COLOR
FORM set_color USING i_row1 i_col1
i_row2 i_col2
i_color.
DATA: l_colorindex TYPE i.
CASE i_color.
 WHEN 'BK'.
 l_colorindex = 1. "Black
 WHEN 'BR'.
 l_colorindex = 53. "Brown
 WHEN 'OG'.
 l_colorindex = 52. "Olive Green
 WHEN 'DG'.
 l_colorindex = 51. "Dark Green
 WHEN 'DT'.
 l_colorindex = 49. "Dark Teal
 WHEN 'DB'.
 l_colorindex = 11. "Dark Blue
 WHEN 'ID'.
 l_colorindex = 55. "Indigo
 WHEN 'G4'.
 l_colorindex = 56. "Gray 80%
 WHEN 'DR'.
 l_colorindex = 9. "Dark Red
 WHEN 'OR'.
 l_colorindex = 46. "Orange
 WHEN 'DY'.
 l_colorindex = 12. "Dark Yellow
 WHEN 'GR'.
 l_colorindex = 10. "Green
 WHEN 'TL'.
 l_colorindex = 14. "Teal
 WHEN 'BL'.
 l_colorindex = 5. "Blue
 WHEN 'BY'.
 l_colorindex = 47. "Blue Gray
 WHEN 'G3'.
 l_colorindex = 16. "Gray 50%
 WHEN 'RD'.
 l_colorindex = 3. "Red
 WHEN 'LO'.
 l_colorindex = 45. "Light Orange
 WHEN 'LI'.
 l_colorindex = 43. "Lime
 WHEN 'SG'.
 l_colorindex = 50. "Sea Green
 WHEN 'AQ'.
 l_colorindex = 42. "Aqua
 WHEN 'LB'.
 l_colorindex = 41. "Light Blue
 WHEN 'VL'.
 l_colorindex = 13. "Violet
 WHEN 'G2'.
 l_colorindex = 48. "Gray 40%
 WHEN 'PK'.
 l_colorindex = 7. "Pink
 WHEN 'GD'.
 l_colorindex = 44. "Gold
 WHEN 'YL'.
 l_colorindex = 6. "Yellow
 WHEN 'BG'.
 l_colorindex = 4. "Bright Green
 WHEN 'TQ'.
 l_colorindex = 8. "Turquoise
 WHEN 'SB'.
 l_colorindex = 33. "Sky Blue
 WHEN 'PL'.
 l_colorindex = 54. "Plum
 WHEN 'G1'.
 l_colorindex = 15. "Gray 25%
 WHEN 'RS'.
 l_colorindex = 38. "Rose
 WHEN 'TN'.
 l_colorindex = 40. "Tan
 WHEN 'LY'.
 l_colorindex = 36. "Light Yellow
 WHEN 'LG'.
 l_colorindex = 35. "Light Green
 WHEN 'LT'.
 l_colorindex = 34. "Light Turquoise
 WHEN 'PB'.
 l_colorindex = 37. "Pale Blue
 WHEN 'LV'.
 l_colorindex = 39. "Lavender
 WHEN 'WH'.
 l_colorindex = 2. "White
 WHEN OTHERS.
 l_colorindex = 2. "White
ENDCASE.
CALL METHOD OF g_excel 'Cells' = g_cell1
 EXPORTING #1 = i_row1
 #2 = i_col1.
CALL METHOD OF g_excel 'Cells' = g_cell2
 EXPORTING #1 = i_row2
 #2 = i_col2.
CALL METHOD OF g_excel 'Range' = g_cellrange
 EXPORTING #1 = g_cell1
 #2 = g_cell2.
GET PROPERTY OF g_cellrange 'Interior' = g_interior.
SET PROPERTY OF g_interior 'ColorIndex' = l_colorindex.
ENDFORM. " SET_COLOR
*& Form COPY_CELL
FORM copy_cell USING i_crow i_ccol
i_prow1 i_pcol1
i_prow2 i_pcol2.
CALL METHOD OF g_excel 'Cells' = g_cell
 EXPORTING #1 = i_crow
 #2 = i_ccol.
CALL METHOD OF g_cell 'Copy'.
CALL METHOD OF g_excel 'Cells' = g_cell1
 EXPORTING #1 = i_prow1
 #2 = i_pcol1.
CALL METHOD OF g_excel 'Cells' = g_cell2
 EXPORTING #1 = i_prow2
 #2 = i_pcol2.
CALL METHOD OF g_excel 'Range' = g_cellrange
 EXPORTING #1 = g_cell1
 #2 = g_cell2.
CALL METHOD OF g_worksheet 'Paste'
 EXPORTING #1 = g_cellrange.
ENDFORM. " COPY_CELL
*& Form OPEN_TEMPLATE_FILE
FORM open_template_file.
CALL METHOD OF g_workbooks 'Open' = g_tmp_workbook
 EXPORTING #1 = g_pc_template
 #2 = 2
 #3 = 0
 #4 = 1
 #5 = 0
 #6 = 0
 #7 = 1.
CALL FUNCTION 'FLUSH'
 EXCEPTIONS
 OTHERS = 0.
GET PROPERTY OF g_tmp_workbook 'Worksheets' = g_tmp_worksheets.
GET PROPERTY OF g_tmp_worksheets 'Item' = g_tmp_worksheet1
exporting #1 = 1.
GET PROPERTY OF g_tmp_worksheets 'Item' = g_tmp_worksheet2
exporting #1 = 2.
CALL METHOD OF g_tmp_worksheet1 'Copy'
 EXPORTING #1 = g_worksheet.
CALL METHOD OF g_tmp_worksheet2 'Copy'
 EXPORTING #1 = g_worksheet.
call method of g_tmp_workbook 'Close'.
CALL FUNCTION 'FLUSH'
 EXCEPTIONS
 OTHERS = 0.
ENDFORM. " OPEN_TEMPLATE_FILE

Function module for Materials based on class type

Similar Messages

Maybe you are looking for