Mass GL Clearing from Excel

Hi All
We would like to create an Excel spreadsheet of document numbers and line items that need to be cleared on a GL account and then load it into SAP using a BAPI or Batch Input Session to process the clearing.
Does anybody know of a BAPI we can use or what transaction we can program a Batch Input for that will allow both the document number and line item to be entered for clearing?
Thank you
Gill

Hi Gill,
My suggestion is to use the transaction code F-03 (Clear GL Account). Here you give the GL Account & in the Additional Selections select the Document Number. The system will ask you for the Document Numbers. These document numbers you can give from the Excel file which you have.
For this you will not require any BAPI.
Regards,
Amit

Similar Messages

I am creating a catalog and need a way to mass import tables from excel into indesign. Any ideas?

I am creating a catalog and need a way to mass import tables from excel into indesign. Any ideas?

Third-party plugins for InDesign can automate the process. Here's a thread from InDesignSecrets.com forums:
http://indesignsecrets.com/topic/plugins-for-automating-catalog-production

Mass User Creation from Excel

Hi,
May i know is it possible to mass create user in ecc6 with details(name, password, role) from excel?
May I know the steps to do this?
thank you.

Hi Alex.
From your post, I think you are using an R/3 system. We are using the SAP-CRM 5.0 server. Do the same things apply?
Someone had suggested that i need to enter A in the user type. But i am unable to understand where to enter 'A' for the dialog users. It is not prompting me anywhere to enter an alphabet. i just have to select the user type from the drop down provided. These are the steps i am following:
1. After activating ecatt in my system, i am accessing tr. SECATT and giving the required details and am starting the recording session. In that, after giving the login details, i am selecting 'Dialog' from the dropdown menu. After the recording is done, i am saving it and exiting.
2. then reentering the test script i just created, i used the simulator and gave all the parameters. but in user type, i could not give anything different from dialog.
3. then accessing the test configurator, i extracted the .txt file, opened with the excel sheet, and gave all the details. Here too, it did not have a column for user type.
Could you just help me in this regard?

Mass creation of PO from excel sheet

Dear all
Kindly let me know the method for Mass creation of PO from excel sheet
Regards
Chandra mohan

Hi, check these links....
/people/hema.rao/blog/2006/09/14/lsmw--step-by-step
http://www.sap-img.com/sap-data-migration.htm
get more from first thread.........

Upload data from excel to Ztable with statistics

Hi,
I have a requirement to upload data from excel sheet to ztable .
Here i need tp provide the user with the execution statistics like
1.Number of records read from the Excel spread-sheet
2. Number records processed successfully
3. Number records with Error
4. Name and location of Error Log-file (text-file format)
5. Name and location of the file containing error records (Excel spread-sheet format)
I would appreciate if any of you have code written for the same

See the below example code to upload from xl file to sap
REPORT ZLWMI151_UPLOAD no standard page heading
 line-size 100 line-count 60.
*tables : zbatch_cross_ref.
data : begin of t_text occurs 0,
 werks(4) type c,
 cmatnr(15) type c,
 srlno(12) type n,
 matnr(7) type n,
 charg(10) type n,
 end of t_text.
data: begin of t_zbatch occurs 0,
 werks like zbatch_cross_ref-werks,
 cmatnr like zbatch_cross_ref-cmatnr,
 srlno like zbatch_cross_ref-srlno,
 matnr like zbatch_cross_ref-matnr,
 charg like zbatch_cross_ref-charg,
 end of t_zbatch.
data : g_repid like sy-repid,
 g_line like sy-index,
 g_line1 like sy-index,
 $v_start_col type i value '1',
 $v_start_row type i value '2',
 $v_end_col type i value '256',
 $v_end_row type i value '65536',
 gd_currentrow type i.
data: itab like alsmex_tabline occurs 0 with header line.
data : t_final like zbatch_cross_ref occurs 0 with header line.
selection-screen : begin of block blk with frame title text.
parameters : p_file like rlgrap-filename obligatory.
selection-screen : end of block blk.
initialization.
g_repid = sy-repid.
at selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 PROGRAM_NAME = g_repid
 IMPORTING
 FILE_NAME = p_file.
start-of-selection.
Uploading the data into Internal Table
perform upload_data.
perform modify_table.
top-of-page.
CALL FUNCTION 'Z_HEADER'
EXPORTING
 FLEX_TEXT1 =
 FLEX_TEXT2 =
 FLEX_TEXT3 =
*& Form upload_data
 text
FORM upload_data.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 FILENAME = p_file
 I_BEGIN_COL = $v_start_col
 I_BEGIN_ROW = $v_start_row
 I_END_COL = $v_end_col
 I_END_ROW = $v_end_row
 TABLES
 INTERN = itab
 EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
 write:/10 'File '.
ENDIF.
if sy-subrc eq 0.
 read table itab index 1.
 gd_currentrow = itab-row.
 loop at itab.
 if itab-row ne gd_currentrow.
 append t_text.
 clear t_text.
 gd_currentrow = itab-row.
 endif.
 case itab-col.
 when '0001'.
 t_text-werks = itab-value.
 when '0002'.
 t_text-cmatnr = itab-value.
 when '0003'.
 t_text-srlno = itab-value.
 when '0004'.
 t_text-matnr = itab-value.
 when '0005'.
 t_text-charg = itab-value.
 endcase.
 endloop.
endif.
append t_text.
ENDFORM. " upload_data
*& Form modify_table
 Modify the table ZBATCH_CROSS_REF
FORM modify_table.
loop at t_text.
 t_final-werks = t_text-werks.
 t_final-cmatnr = t_text-cmatnr.
 t_final-srlno = t_text-srlno.
 t_final-matnr = t_text-matnr.
 t_final-charg = t_text-charg.
 t_final-erdat = sy-datum.
 t_final-erzet = sy-uzeit.
 t_final-ernam = sy-uname.
 t_final-rstat = 'U'.
 append t_final.
 clear t_final.
endloop.
delete t_final where werks = ''.
describe table t_final lines g_line.
sort t_final by werks cmatnr srlno.
Deleting the Duplicate Records
perform select_data.
describe table t_final lines g_line1.
modify zbatch_cross_ref from table t_final.
if sy-subrc ne 0.
 write:/ 'Updation failed'.
else.
 Skip 1.
 Write:/12 'Updation has been Completed Sucessfully'.
 skip 1.
 Write:/12 'Records in file ',42 g_line .
 write:/12 'Updated records in Table',42 g_line1.
endif.
delete from zbatch_cross_ref where werks = ''.
ENDFORM. " modify_table
*& Form select_data
 Deleting the duplicate records
FORM select_data.
select werks
 cmatnr
 srlno from zbatch_cross_ref
 into table t_zbatch for all entries in t_final
 where werks = t_final-werks
 and cmatnr = t_final-cmatnr
 and srlno = t_final-srlno.
sort t_zbatch by werks cmatnr srlno.
loop at t_zbatch.
 read table t_final with key werks = t_zbatch-werks
 cmatnr = t_zbatch-cmatnr
 srlno = t_zbatch-srlno.
 if sy-subrc eq 0.
 delete table t_final .
 endif.
 clear: t_zbatch,
 t_final.
endloop.
ENDFORM. " select_data
Reward Points if it is helpful
Thanks
Seshu

Upload data from excel to screen

Hi
I have created one Table Maintanence Generator with only one screen (Table control ). Here i have to upload data from excel to table control. How to upload data from excel to table control.

Hi,
Use this code to get data from excel to internal table. Later put the logic in PBO of the screen to fill the table control from internal table.
PARAMETERS: po_file TYPE rlgrap-filename DEFAULT 'E:test.xls'.
TYPES: BEGIN OF t_final,
          empno(10) TYPE c,
          name(30) TYPE c,
          state(25) TYPE c,
       END OF t_final.
PARAMETERS: po_file TYPE rlgrap-filename.
DATA: i_tab    TYPE STANDARD TABLE OF alsmex_tabline,
      i_final TYPE STANDARD TABLE OF t_final,
      wa_tab   TYPE alsmex_tabline,
      wa_final TYPE t_final.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR po_file.
PERFORM open_folder.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
     EXPORTING
          filename                = po_file
          i_begin_col             = 1
          i_begin_row             = 1
          i_end_col               = 3
          i_end_row               = 65256
     TABLES
          intern                  = i_tab
     EXCEPTIONS
          inconsistent_parameters = 1
          upload_ole              = 2
          OTHERS                  = 3.
CHECK NOT i_tab[] IS INITIAL.
LOOP AT i_tab INTO wa_tab.
CASE wa_tab-col.
    WHEN 1.
      wa_final-empno = wa_tab-value.
    WHEN 2.
      wa_final-name = wa_tab-value.
    WHEN 3.
      wa_final-state = wa_tab-value.
ENDCASE.
AT END OF row.
    APPEND wa_final TO i_final.
    CLEAR wa_final.
ENDAT.
ENDLOOP.
FORM open_folder .
DATA: li_file TYPE TABLE OF sdokpath,
        lwa_file TYPE sdokpath.
CLEAR: p_fname, lwa_file.
REFRESH li_file[].
CALL FUNCTION 'TMP_GUI_FILE_OPEN_DIALOG'
       TABLES
            file_table = li_file
       EXCEPTIONS
            cntl_error = 1
            OTHERS     = 2.
IF sy-subrc IS INITIAL.
    READ TABLE li_file INTO lwa_file INDEX 1.
    IF sy-subrc IS INITIAL.
     p_fname = lwa_file-pathname.
    ENDIF.
ENDIF.
ENDFORM.                    " open_folder
Thanks,
Vinod.
Edited by: Vinod Reddy Vemuru on Jul 28, 2008 4:50 PM

Upload data from excel into database through pl/sql

Hi All,
I have excel which contains data lets say employee details,
I have one upload button ,which is used to upload excel and then i want to map the cell of excel to the database column and through plsql code i want to upload the excel data into database.
In short ,i want to upload the data from excel into database using plsql code,
or suggest me any other way to do this.(except the data load method present in apex)
Thanks,
Jitendra

if you use APEX 4 you can define you own table
the code below is for APEX 3
PROCEDURE pro_carga_planilla_prosp( p_archivo VARCHAR2) IS
v_blob_data BLOB;
v_blob_len NUMBER;
v_position NUMBER;
v_raw_chunk RAW(10000);
v_char CHAR(1);
c_chunk_len number := 1;
v_line VARCHAR2 (32767) := NULL;
v_data_array wwv_flow_global.vc_arr2;
v_rows number;
v_sr_no number := 1;
v_ok boolean := true;
v_local_ok BOOLEAN := TRUE;
v_reg_ok NUMBER := 0;
v_reg_ko NUMBER := 0;
v_localidad_id NUMBER;
v_departamento_id NUMBER;
v_cargo_id NUMBER;
v_prospecto_id NUMBER;
v_asesor_id NUMBER;
V_REG prospectos%rowtype;
BEGIN
-- Read data from wwv_flow_files
select blob_content into v_blob_data
from wwv_flow_files
where name= p_archivo;
v_blob_len := dbms_lob.getlength(v_blob_data);
v_position := 1;
-- Read and convert binary to char
WHILE ( v_position <= v_blob_len ) LOOP
v_raw_chunk := dbms_lob.substr(v_blob_data,c_chunk_len,v_position);
v_char := chr(hex_to_decimal(rawtohex(v_raw_chunk)));
v_line := v_line || v_char;
-- pro_log('linea '||v_line);
v_position := v_position + c_chunk_len;
-- When a whole line is retrieved 
IF v_char = CHR(10) THEN
-- Convert comma to : to use wwv_flow_utilities 
v_line := replace(REPLACE (v_line, ',', ':'), ';',':');
v_line := replace(replace(v_line, chr(10)),chr(13));
if substr(v_line,1,1)= ':' then
v_line := '0'||v_line;
end if;
if instr(v_line,':',1,21) = 0 then
if instr(v_line,':',1,20) = 0 then
v_line:=v_line||':';
end if;
v_line:=v_line||':';
end if;
-- pro_log(v_line);
-- Convert each column separated by : into array of data 
v_data_array := wwv_flow_utilities.string_to_table (v_line);
-- Insert data into target table 
IF v_data_array(1) IS NOT NULL AND
v_sr_no <> 1 THEN
V_REG.NOMBRE:=ltrim(rtrim(v_data_array(2)));
V_REG.RAZON_SOCIAL:=v_data_array(3);
V_REG.DIRECCION := v_data_array(4)||' '||v_data_array(5);
-- PRO_LOG('PROSP 1 ' ||v_sr_no);
v_localidad_id := pack_empresas.get_localidad(v_data_array(6));
-- PRO_LOG('PROSP 1.1 '||v_sr_no);
V_REG.LOCALIDAD_ID:=v_localidad_id;
-- PRO_LOG('PROSP 1.2 '||v_sr_no);
V_REG.CODIGO_POSTAL:=LTRIM(RTRIM(v_data_array(7)) );
-- PRO_LOG('PROSP 1.3 '||v_sr_no);
-- PRO_LOG('PROSP 1.1 '||v_sr_no);
v_departamento_id := pack_empresas.get_departamento(v_data_array(8));
-- PRO_LOG('PROSP 1.4 '||v_sr_no);
V_REG.DEPARTAMENTO_ID:=v_departamento_id;
-- PRO_LOG('PROSP 1.5 '||v_sr_no);
V_REG.TELEFONO:=v_data_array(9);
--PRO_LOG('PROSP 1.6 '||v_sr_no);
V_REG.TELEFONO2:=v_data_array(10);
-- PRO_LOG('PROSP 1.7 '||v_sr_no);
V_REG.RUBRO:=v_data_array(11);
-- PRO_LOG('PROSP 1.8 '||v_sr_no);
V_REG.RUC:=ltrim(rtrim(v_data_array(12)));
-- PRO_LOG('PROSP 1.9 '||v_sr_no);
-- pro_log(v_data_array(1));
-- pro_log(v_data_array(2));
V_REG.CANTIDAD_EMPLEADOS:=RTRIM(LTRIM(v_data_array(13)));
-- PRO_LOG('PROSP 1.10 '||v_sr_no);
-- pro_log(v_data_array(14));
V_REG.CANTIDAD_BENEFICIARIOS:=RTRIM(LTRIM(v_data_array(14)));
--PRO_LOG('PROSP 1.11 '||v_sr_no);
V_REG.MAIL:=v_data_array(19);
-- pro_log(V_REG.MAIL);
-- PRO_LOG('PROSP 1.12 '||v_sr_no);
-- v_data_array(20):= replace(replace(v_data_array(20),chr(10)),chr(13));
if not v_data_array.exists(20) then
-- pro_log('existe');
-- pro_log(ltrim(rtrim(replace(replace(v_data_array(20),chr(10)),chr(13)))));
V_REG.Proveedor:= ltrim(rtrim(replace(replace(v_data_array(20),chr(10)),chr(13))));
else
v_data_array(20):=null;
end if;
-- V_REG.PROVEEDOR:=v_data_array(20);
-- PRO_LOG('PROSP 1.13 '||v_sr_no);
if not v_data_array.exists(21) then
V_REG.OBSERVACIONES:=v_data_array(21);
else
v_data_array(21):=null;
end if;
-- PRO_LOG('PROSP 1.14 '||v_sr_no);
-- PRO_LOG('PROSP 1.2 '||v_sr_no);
insert into prospectos (nombre,razon_social, direccion,localidad_id,codigo_postal,
departamento_id, telefono, telefono2, rubro,ruc,cantidad_empleados,
cantidad_beneficiarios,mail,proveedor,observaciones)
values (nvl(ltrim(rtrim(v_data_array(2))),v_data_array(3)), v_data_array(3),
v_data_array(4)||' '||v_data_array(5),
v_localidad_id, LTRIM(RTRIM(v_data_array(7))),v_departamento_id, v_data_array(9),
v_data_array(10),v_data_array(11), ltrim(rtrim(v_data_array(12))), RTRIM(LTRIM(v_data_array(13))),
RTRIM(LTRIM(v_data_array(14))),v_data_array(19),v_data_array(20), v_data_array(21))
returning prospecto_id INTO v_prospecto_id;
-- PRO_LOG('PROSP 2');
v_cargo_id := pack_empresas.get_cargo(v_data_array(17));
-- PRO_LOG('PROSP 3');
insert into prospecto_contactos (prospecto_id,nombre,apellido,cargo_id,
telefono,mail)
values (v_prospecto_id, nvl(v_data_array(15),'S/N'), nvl(v_data_array(16),'S/A'),
v_cargo_id, v_data_array(18), v_data_array(19));
-- PRO_LOG('PROSP 4');
v_asesor_id := pack_empresas.get_asesor(v_data_array(1));
-- PRO_LOG('PROSP 5');
insert into asignaciones (prospecto_id,asesor_id,fecha_asignacion)
values (v_prospecto_id, v_asesor_id, trunc(sysdate));
-- PRO_LOG('PROSP 6');
END IF;
-- Clear out
v_line := NULL;
v_sr_no := v_sr_no + 1;
END IF;
END LOOP;
delete wwv_flow_files
where name= p_archivo;
END pro_carga_planilla_prosp;
function hex_to_decimal
--this function is based on one by Connor McDonald
--http://www.jlcomp.demon.co.uk/faq/base_convert.html
( p_hex_str in varchar2 ) return number
is
v_dec number;
v_hex varchar2(16) := '0123456789ABCDEF';
begin
v_dec := 0;
for indx in 1 .. length(p_hex_str)
loop
v_dec := v_dec * 16 + instr(v_hex,upper(substr(p_hex_str,indx,1)))-1;
end loop;
return v_dec;
end hex_to_decimal;

Upload data from excel with vba by calling a function module

Hello all,
i have a problem with the function module "ALSM_EXCEL_TO_INTERNAL_TABLE". I will call this function module with vba to load data from excel to sap with a Buttonclick. I have copied this function module and set it remotable. But i can´t call it from excel.
Can you give me some tips how can i
upload data from excel with vba by click a button.
The problem seems the function: call method cl_gui_frontend_services=>clipboard_import in the function module, because when i comment this function call the vba-call is true but no results.
How can I call the function module correct with vba?
Thanks a lot for your tips!!!!
Chris
Message was edited by:
 Christoph Kirschner

HI
Uploading data directly from Excel file format
* Upload data direct from excel.xls file to SAP
REPORT ZEXCELUPLOAD.
PARAMETERS: filename LIKE rlgrap-filename MEMORY ID M01,
 begcol TYPE i DEFAULT 1 NO-DISPLAY,
 begrow TYPE i DEFAULT 1 NO-DISPLAY,
 endcol TYPE i DEFAULT 100 NO-DISPLAY,
 endrow TYPE i DEFAULT 32000 NO-DISPLAY.
* Tick don't append header
PARAMETERS: kzheader AS CHECKBOX.
DATA: BEGIN OF intern OCCURS 0.
 INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF intern.
DATA: BEGIN OF intern1 OCCURS 0.
 INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF intern1.
DATA: BEGIN OF t_col OCCURS 0,
 col LIKE alsmex_tabline-col,
 size TYPE i.
DATA: END OF t_col.
DATA: zwlen TYPE i,
 zwlines TYPE i.
DATA: BEGIN OF fieldnames OCCURS 3,
 title(60),
 table(6),
 field(10),
 kz(1),
 END OF fieldnames.
* No of columns
DATA: BEGIN OF data_tab OCCURS 0,
 value_0001(50),
 value_0002(50),
 value_0003(50),
 value_0004(50),
 value_0005(50),
 value_0006(50),
 value_0007(50),
 value_0008(50),
 value_0009(50),
 value_0010(50),
 value_0011(50),
 value_0012(50),
 value_0013(50),
 value_0014(50),
 value_0015(50),
 value_0016(50),
 value_0017(50),
 value_0018(50),
 value_0019(50),
 value_0020(50),
 value_0021(50),
 value_0022(50),
 value_0023(50),
 value_0024(50),
 value_0025(50),
 value_0026(50),
 value_0027(50),
 value_0028(50),
 value_0029(50),
 value_0030(50),
 value_0031(50),
 value_0032(50),
 value_0033(50),
 value_0034(50),
 value_0035(50),
 value_0036(50),
 value_0037(50),
 value_0038(50),
 value_0039(50),
 value_0040(50),
 value_0041(50),
 value_0042(50),
 value_0043(50),
 value_0044(50),
 value_0045(50),
 value_0046(50),
 value_0047(50),
 value_0048(50),
 value_0049(50),
 value_0050(50),
 value_0051(50),
 value_0052(50),
 value_0053(50),
 value_0054(50),
 value_0055(50),
 value_0056(50),
 value_0057(50),
 value_0058(50),
 value_0059(50),
 value_0060(50),
 value_0061(50),
 value_0062(50),
 value_0063(50),
 value_0064(50),
 value_0065(50),
 value_0066(50),
 value_0067(50),
 value_0068(50),
 value_0069(50),
 value_0070(50),
 value_0071(50),
 value_0072(50),
 value_0073(50),
 value_0074(50),
 value_0075(50),
 value_0076(50),
 value_0077(50),
 value_0078(50),
 value_0079(50),
 value_0080(50),
 value_0081(50),
 value_0082(50),
 value_0083(50),
 value_0084(50),
 value_0085(50),
 value_0086(50),
 value_0087(50),
 value_0088(50),
 value_0089(50),
 value_0090(50),
 value_0091(50),
 value_0092(50),
 value_0093(50),
 value_0094(50),
 value_0095(50),
 value_0096(50),
 value_0097(50),
 value_0098(50),
 value_0099(50),
 value_0100(50).
DATA: END OF data_tab.
DATA: tind(4) TYPE n.
DATA: zwfeld(19).
FIELD-SYMBOLS: <fs1>.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 mask = '*.xls'
 static = 'X'
 CHANGING
 file_name = filename.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = filename
 i_begin_col = begcol
 i_begin_row = begrow
 i_end_col = endcol
 i_end_row = endrow
 TABLES
 intern = intern
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 WRITE:/ 'Upload Error ', SY-SUBRC.
ENDIF.
END-OF-SELECTION.
LOOP AT intern.
 intern1 = intern.
 CLEAR intern1-row.
 APPEND intern1.
ENDLOOP.
SORT intern1 BY col.
LOOP AT intern1.
 AT NEW col.
 t_col-col = intern1-col.
 APPEND t_col.
 ENDAT.
 zwlen = strlen( intern1-value ).
 READ TABLE t_col WITH KEY col = intern1-col.
 IF sy-subrc EQ 0.
 IF zwlen > t_col-size.
 t_col-size = zwlen.
* Internal Table, Current Row Index
 MODIFY t_col INDEX sy-tabix.
 ENDIF.
 ENDIF.
ENDLOOP.
DESCRIBE TABLE t_col LINES zwlines.
SORT intern BY row col.
IF kzheader = 'X'.
 LOOP AT intern.
 fieldnames-title = intern-value.
 APPEND fieldnames.
 AT END OF row.
 EXIT.
 ENDAT.
 ENDLOOP.
ELSE.
 DO zwlines TIMES.
 WRITE sy-index TO fieldnames-title.
 APPEND fieldnames.
 ENDDO.
ENDIF.
SORT intern BY row col.
LOOP AT intern.
 IF kzheader = 'X'
 AND intern-row = 1.
 CONTINUE.
 ENDIF.
 tind = intern-col.
 CONCATENATE 'DATA_TAB-VALUE_' tind INTO zwfeld.
 ASSIGN (zwfeld) TO <fs1>.
 <fs1> = intern-value.
 AT END OF row.
 APPEND data_tab.
 CLEAR data_tab.
 ENDAT.
ENDLOOP.
CALL FUNCTION 'DISPLAY_BASIC_LIST'
 EXPORTING
 file_name = filename
 TABLES
 data_tab = data_tab
 fieldname_tab = fieldnames.
*-- End of Program
Excel Upload Alternative - KCD_EXCEL_OLE_TO_INT_CONVERT
*Title : Excel Uploading
TYPES: BEGIN OF t_datatab,
 col1(25) TYPE c,
 col2(30) TYPE c,
 col3(30) TYPE c,
 col4(30) TYPE c,
 col5(30) TYPE c,
 col6(30) TYPE c,
 col7(30) TYPE c,
 col8(30) TYPE c,
 col9(30) TYPE c,
 col10(30) TYPE c,
 col11(30) TYPE c,
 END OF t_datatab.
DATA: it_datatab TYPE STANDARD TABLE OF t_datatab INITIAL SIZE 0,
 wa_datatab TYPE t_datatab.
Data : p_table type t_datatab occurs 0 with header line.
DATA : gd_scol TYPE i VALUE '1',
 gd_srow TYPE i VALUE '1',
 gd_ecol TYPE i VALUE '256',
 gd_erow TYPE i VALUE '65536'.
DATA: it_tab TYPE filetable,
 gd_subrc TYPE i.
field-symbols : <fs>.
*Selection screen definition
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file LIKE rlgrap-filename
 DEFAULT 'c:test.xls' OBLIGATORY. " File Name
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
REFRESH: it_tab.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
 EXPORTING
 window_title = 'Select File'
 default_filename = '*.xls'
 multiselection = ' '
 CHANGING
 file_table = it_tab
 rc = gd_subrc.
LOOP AT it_tab INTO p_file.
* so_fpath-sign = 'I'.
* so_fpath-option = 'EQ'.
* append so_fpath.
ENDLOOP.
START-OF-SELECTION.
PERFORM upload_excel_file TABLES it_datatab
 USING p_file
 gd_scol
 gd_srow
 gd_ecol
 gd_erow.
* END-OF-SELECTION.
END-OF-SELECTION.
LOOP AT it_datatab INTO wa_datatab.
 WRITE:/ wa_datatab-col1,
 wa_datatab-col2,
 wa_datatab-col3,
 wa_datatab-col4,
 wa_datatab-col5,
 wa_datatab-col6,
 wa_datatab-col7,
 wa_datatab-col8,
 wa_datatab-col9,
 wa_datatab-col10,
 wa_datatab-col11.
ENDLOOP.
*& Form UPLOAD_EXCEL_FILE
* upload excel spreadsheet into internal table
* -->P_TABLE Table to return excel data into
* -->P_FILE file name and path
* -->P_SCOL start column
* -->P_SROW start row
* -->P_ECOL end column
* -->P_EROW end row
FORM upload_excel_file TABLES p_table
 USING p_file
 p_scol
 p_srow
 p_ecol
 p_erow.
DATA : lt_intern TYPE kcde_cells OCCURS 0 WITH HEADER LINE.
* Has the following format:
* Row number | Colum Number | Value
* i.e. 1 1 Name1
* 2 1 Joe
DATA : ld_index TYPE i.
* Note: Alternative function module - 'ALSM_EXCEL_TO_INTERNAL_TABLE'
CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
 EXPORTING
 filename = p_file
 i_begin_col = p_scol
 i_begin_row = p_srow
 i_end_col = p_ecol
 i_end_row = p_erow
 TABLES
 intern = LT_INTERN
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 FORMAT COLOR COL_BACKGROUND INTENSIFIED.
 WRITE:/ 'Error Uploading file'.
 EXIT.
ENDIF.
IF lt_intern[] IS INITIAL.
 FORMAT COLOR COL_BACKGROUND INTENSIFIED.
 WRITE:/ 'No Data Uploaded'.
 EXIT.
ELSE.
 SORT lt_intern BY row col.
 LOOP AT lt_intern.
 MOVE lt_intern-col TO ld_index.
 assign component ld_index of structure
 p_table to <fs>.
move : lt_intern-value to <fs>.
* MOVE lt_intern-value TO p_table.
 AT END OF row.
 APPEND p_table.
 CLEAR p_table.
 ENDAT.
 ENDLOOP.
ENDIF.
ENDFORM. "UPLOAD_EXCEL_FILE
Regards
Pavan

Upload data from excel (not the excle file) into SAP

Guys,
how can we upload data from excel sheet into SAP? I mean just the data not the entire file,
I have a requirement where user press a button in excel sheet and the data in the sheet will get uploaded into SAP.
I am sure we have to use BAPI and some VB programming for macros, I will really appriciate if anyone can help how to achive this.
some sample code exampe will help.
Cheers!

I think u r writing BDC for Uploading the data from excel flile to sap. for this is the code I am sending u can use then for Uploading data from excel to sap.
DATA: lv_filename TYPE rlgrap-filename.
FIELD-SYMBOLS : <fs>.
DATA : l_intern TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE.
DATA : l_index TYPE i.
PARAMETERS : startcol TYPE i ,
 startrow TYPE i ,
 endcol TYPE i ,
 endrow TYPE i .
PARAMETERS: p_flnam LIKE rlgrap-filename.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flnam.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
 program_name = sy-repid
FIELD_NAME = ' '
 IMPORTING
 file_name = p_flnam .
MOVE p_flnam TO lv_filename.
Uploading the flat file from the desktop
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = lv_filename
 i_begin_col = startcol
 i_begin_row = startrow
 i_end_col = endcol
 i_end_row = endrow
 TABLES
 intern = l_intern
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
SORT l_intern BY row col.
LOOP AT l_intern.
 MOVE l_intern-col TO l_index.
 ASSIGN COMPONENT l_index OF STRUCTURE itab TO <fs>.
 MOVE l_intern-value TO <fs>.
 AT END OF row.
 APPEND itab.
 CLEAR itab.
 ENDAT.
ENDLOOP.
I hope it will help u.
Regards
Nayan

UPLOAD DATA FROM EXCEL FILE

hi guru,
I want to upload data from excel file for mm02.. first of all help on the matter of how to upload data from excel...
i hv used the FM ALSM_EXCEL_TO_INTERNAL_TABLE.. but its not working it uploading garbage value ... so tell me how to used it...
help me on this matter.

Check below example.
parameters : p_file LIKE rlgrap-filename OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
PERFORM get_file_name.
PERFORM get_file_to_excel.
*& Form get_file_name
FORM get_file_name.
DATA: lv_name LIKE sy-repid.
lv_name = sy-repid..
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 program_name = lv_name
 dynpro_number = syst-dynnr
 static = 'X'
 CHANGING
 file_name = p_file.
ENDFORM. " get_file_name
*& Form get_file_to_excel
FORM get_file_to_excel.
DATA: idata LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = p_file
 i_begin_col = '1'
 i_begin_row = '2' "Do not require headings
 i_end_col = '2'
 i_end_row = '60000'
 TABLES
 intern = idata
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 STOP.
ENDIF.
* Get first row retrieved
READ TABLE idata INDEX 1.
* Set first row retrieved to current row
DATA: gd_currentrow TYPE i.
gd_currentrow = idata-row.
LOOP AT idata.
* Reset values for next row
 IF idata-row NE gd_currentrow.
 APPEND f. CLEAR f.
 gd_currentrow = idata-row.
 ENDIF.
 CASE idata-col.
 WHEN '0001'.
 f-belnr = idata-value.
 ENDCASE.
ENDLOOP.
APPEND f. CLEAR f.

HOW TO UPLOAD DATA FROM EXCEL TO INTERNALTABLE

HI,
HOW TO UPLOAD DATA FROM EXCEL TO INTERNALTABLE? & WITH EXAMPLE.

hi,
chk this, put the data into an excel file.
fields inside it are name and age.
sample excel sheet.
coloumn 1 is name and column 2 is age
name age
A 8
C 13
D 55
DATA : int_excel LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.
data : record like db_name_age occurs 0 with header line.
DATA : v_start_col TYPE i VALUE '1', "starting col
 v_start_row TYPE i VALUE '1', " starting row
 v_end_col TYPE i VALUE '2', " total columns
 v_end_row TYPE i VALUE '10'. "total no of record
FORM f_upload .
CLEAR : int_excel, int_excel[].
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = wf_filename
 i_begin_col = v_start_col
 i_begin_row = v_start_row
 i_end_col = v_end_col
 i_end_row = v_end_row
 TABLES
 intern = int_excel
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
IF sy-subrc <> 0.
*Message is 'Unable to upload data from ' wf_filename.
 MESSAGE e169(zm050) WITH wf_filename.
ELSE.
 SORT int_excel BY row col.
 REFRESH : record.
 CLEAR : record.
 LOOP AT int_excel.
 CASE int_excel-col. "go thru each column.
 WHEN 1.
 record-name = int_excel-value.
 WHEN 2.
 record-age = int_excel-value.
 ENDCASE.
 AT END OF row.
 APPEND record.
 CLEAR record.
 ENDAT.
 ENDLOOP.
*inserting into table
modfiy db_name_age from table record.
ENDIF.
ANOTHER EXAMPLE
TYPE-POOLS truxs.
types: begin of t_tab,
col1(5) type c,
col2(5) type c,
col3(5) type c,
end of t_tab.
data : itab type standard table of t_tab,
 wa type t_tab.
data it_type type truxs_t_text_data.
parameter p_file type rlgrap-filename.
data ttab type tabname.
at selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = 'P_FILE'
IMPORTING
FILE_NAME = p_file
start-of-selection.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
I_FIELD_SEPERATOR =
I_LINE_HEADER = 'X'
i_tab_raw_data = it_type
i_filename = p_file
tables
i_tab_converted_data = itab[]
EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
end-of-selection.
loop at itab into wa.
write : wa-col1,
 wa-col2,
 wa-col3.
endloop.
rgds,
anver
if hlped pls mark points

How to import data into a Z table from excel file?

hi,
i have a custom created Z table into which i want to import some data from an excel file. which function can i use to do so because SE16 allows me to insert data only one by one via a data entry screen. this is time consuming. i want to import data from excel file so that its faster.

HI,
this program uploads data from excel and modifies ztable,(inserts records into ztable), check this and modify according to ur requirement)
This program uploads material number from excel sheet and does
******modifications to material number if required by the user
******and updates the table zmatnr with new material against the old material number
REPORT zmat_no message-id zebg.
TYPE-POOLS truxs.
TABLES:zmatnr.
DATA : itab LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE.
DATA row LIKE alsmex_tabline-row.
data : g_matnr like mara-matnr.
data : count type i.
data : itab_count type i.
data : gi_final like zmatnr occurs 0 with header line.
*data : begin of gi_final occurs 0,
 mat_old like mara-matnr,
 mat_new like mara-matnr,
 end of gi_final.
***********************Selection Screen*************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETER : pfname LIKE rlgrap-filename OBLIGATORY.
select-options : records for count.
SELECTION-SCREEN END OF BLOCK b1.
*********************At Selection Screen*************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pfname.
PERFORM search.
START-OF-SELECTION.
perform process.
form process.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 filename = pfname
 i_begin_col = 1
 i_begin_row = 2
 i_end_col = 12
 i_end_row = 65000
 TABLES
 intern = itab
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
describe table itab lines itab_count.
 row = 1.
loop at itab.
 if itab-row <> row.
 append gi_final.
 clear gi_final.
 endif.
 case itab-col.
 when '1'.
 CLEAR G_MATNR.
 gi_final-OLD_MATNR = itab-value.
 CONCATENATE 'NEW' gi_final-old_matnr INTO itab-value.
 gi_final-new_MATNR = itab-value.
 endcase.
 row = itab-row.
append gi_final.
clear gi_final.
endloop.
CALL FUNCTION 'PROGRESS_INDICATOR'
EXPORTING
 I_TEXT = 'File Has Been Successfully Uploaded from Workstation ' .
if not gi_final[] is initial.
 if not records-low is initial .
 if not records-high is initial.
 records-high = records-high + 1.
 DESCRIBE TABLE gi_final LINES count.
 IF records-high < count.
 DELETE gi_final FROM records-high TO count.
 ENDIF.
 IF records-low <> 1.
 IF records-low <> 0.
 DELETE gi_final FROM 1 TO records-low.
 ENDIF.
 ENDIF.
 endif.
 endif.
endif.
IF NOT GI_FINAL[] IS INITIAL.
 CALL FUNCTION 'PROGRESS_INDICATOR'
 EXPORTING
 I_TEXT = 'Processing zmatnr table'
 I_OUTPUT_IMMEDIATELY = 'X'.
 if itab_count <> count.
 message i000 with 'records are not matching'.
 exit.
 else.
 modify zmatnr from table gi_final.
 message i000 with 'data base table modified successfully'.
 endif.
endif.
endform.
*& Form search
 text
--> p1 text
<-- p2 text
FORM search .
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 static = 'X'
 CHANGING
 file_name = pfname.
ENDFORM. " search
regards
siva

Reading the data from excel file which is in application server.

Hi,
Iam trying to read the data from excel file which is in application server.
I tried using the function module ALSM_EXCEL_TO_INTERNAL_TABLE. But it didn't work.
I tried just reading using open data set and read data set it is giving junk characters.
Please suggest me if you have any solution.
Best Regards,
Brahma Reddy

Hi Narendra,
Please see the below code I have written
OPEN DATASET pa_sfile for INPUT in text mode ENCODING DEFAULT MESSAGE wf_mess.
CHECK sy-subrc = 0.
DO.
READ DATASET pa_sfile INTO wf_string.
IF sy-subrc <> 0.
EXIT.
else.
split wf_string at wl_# into wf_field1 wf_field2 wa_upload-field3
wa_upload-field4 wa_upload-field5 wa_upload-field6 wa_upload-field7 wa_upload-field8
wa_upload-field9 wa_upload-field10 wa_upload-field11 wa_upload-field12 wa_upload-field13
wa_upload-field14 wa_upload-field15 wa_upload-field16 wa_upload-field17 wa_upload-field18
wa_upload-field19 wa_upload-field20 wa_upload-field21 wa_upload-field22 wa_upload-field23
wa_upload-field24 wa_upload-field25 wa_upload-field26 wa_upload-field27 wa_upload-field28
wa_upload-field29 wa_upload-field30 wa_upload-field31 wa_upload-field32 wa_upload-field33
wa_upload-field34 wa_upload-field35 wa_upload-field36 .
wa_upload-field1 = wf_field1.
wa_upload-field2 = wf_field2.
append wa_upload to int_upload.
clear wa_upload.
ENDIF.
ENDDO.
CLOSE DATASET pa_sfile.
Please note Iam using ECC5.0 and it is not allowing me to declare wl_# as x as in your code.
Also if Iam using text mode I should use extension encoding etc.( Where as not in your case).
Please suggest me any other way.
Thanks for your help,
Brahma Reddy

Copying data from excel(more than one row) and pasting into table control

I have a requirement to copy data from excel and have it pasted it into the corresponding fields table control when the user clicks on an icon.For the first part I used a class to copy it from the clip board.By the previous process,I get the data inside an internal table, but even after trying to split the data using 'split at cl_abap_char_utilities=>horizontal_tab into table itab.' it's not working.The table and the excel file are of the same structure.
Does anyone know any cause as to why it might not work?Is there any other way to achieve my objective?
Bon

Hi,
try to get data into internal table as below
TYPES : BEGIN OF ty_data ,
 zbukr TYPE payr-zbukr ,
 hbkid TYPE payr-hbkid ,
 hktid TYPE payr-hktid ,
 rzawe TYPE payr-rzawe ,
 chect TYPE payr-chect ,
 laufd TYPE reguh-laufd ,
 laufi TYPE reguh-laufi ,
 lifnr TYPE reguh-lifnr ,
 vblnr TYPE reguh-vblnr ,
 rwbtr TYPE reguh-rwbtr , "uncommented
 unique_no TYPE char13 , " Added SAP Doc. No. and current year concate in NEFT,RTGS and Fund Transfer cases
 END OF ty_data .
DATA : wa_file LIKE LINE OF it_file ,
 wa_data TYPE ty_data .
DATA: it_data1 TYPE kcde_intern WITH HEADER LINE,
 wa_data1 LIKE LINE OF it_data1.
start-of-selection.
CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
 EXPORTING
 filename = lv_file1
 i_begin_col = '1'
 i_begin_row = '4'
 i_end_col = '11'
 i_end_row = '60000'
 TABLES
 intern = it_data1
 EXCEPTIONS
 inconsistent_parameters = 1
 upload_ole = 2
 OTHERS = 3.
 IF sy-subrc = 0.
 PERFORM format_data.
 ENDIF.
FORM format_data.
DATA : ld_index TYPE i.
FIELD-SYMBOLS : <fs>.
DATA it_tab LIKE wa_data OCCURS 0 WITH HEADER LINE.
 LOOP AT it_data1.
 MOVE it_data1-col TO ld_index.
 ASSIGN COMPONENT ld_index OF STRUCTURE
 it_tab TO <fs>.
 MOVE : it_data1-value TO <fs>.
 MOVE it_data1-value TO p_table.
 AT END OF row.
 APPEND it_tab.
 CLEAR it_tab.
 ENDAT.
 ENDLOOP.
 it_data[] = it_tab[] .
 ENDIF.
endform. "format_data

Reg transfer of data from excel to internal table

hi
i need to upload datas from Excel sheet to Internal Table.For this i use d FM
ALSM_EXCEL_TO_INTERNAL_TABLE.but the problem is if a particular field has no value in excel sheet,then its not uploaded into internal table.then next field value has come to that blank place in d internal table. what i need is if the excel sheet has a blank value for a field then a blank value is added in d inetrnal table also.

Use below program logic
Program : ZLWMI151_UPLOAD(Data load to ZBATCH_CROSS_REF Table)
Type : Upload program
Author : Seshu Maramreddy
Date : 05/16/2005
Transport : DV3K919574
Transaction: None
Description: This program will get the data from XLS File
 and it upload to ZBATCH_CROSS_REF Table
REPORT ZLWMI151_UPLOAD no standard page heading
 line-size 100 line-count 60.
*tables : zbatch_cross_ref.
data : begin of t_text occurs 0,
 werks(4) type c,
 cmatnr(15) type c,
 srlno(12) type n,
 matnr(7) type n,
 charg(10) type n,
 end of t_text.
data: begin of t_zbatch occurs 0,
 werks like zbatch_cross_ref-werks,
 cmatnr like zbatch_cross_ref-cmatnr,
 srlno like zbatch_cross_ref-srlno,
 matnr like zbatch_cross_ref-matnr,
 charg like zbatch_cross_ref-charg,
 end of t_zbatch.
data : g_repid like sy-repid,
 g_line like sy-index,
 g_line1 like sy-index,
 $v_start_col type i value '1',
 $v_start_row type i value '2',
 $v_end_col type i value '256',
 $v_end_row type i value '65536',
 gd_currentrow type i.
data: itab like alsmex_tabline occurs 0 with header line.
data : t_final like zbatch_cross_ref occurs 0 with header line.
selection-screen : begin of block blk with frame title text.
parameters : p_file like rlgrap-filename obligatory.
selection-screen : end of block blk.
initialization.
g_repid = sy-repid.
at selection-screen on value-request for p_file.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 PROGRAM_NAME = g_repid
 IMPORTING
 FILE_NAME = p_file.
start-of-selection.
Uploading the data into Internal Table
perform upload_data.
perform modify_table.
top-of-page.
CALL FUNCTION 'Z_HEADER'
EXPORTING
 FLEX_TEXT1 =
 FLEX_TEXT2 =
 FLEX_TEXT3 =
*& Form upload_data
 text
FORM upload_data.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 FILENAME = p_file
 I_BEGIN_COL = $v_start_col
 I_BEGIN_ROW = $v_start_row
 I_END_COL = $v_end_col
 I_END_ROW = $v_end_row
 TABLES
 INTERN = itab
 EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
 write:/10 'File '.
ENDIF.
if sy-subrc eq 0.
 read table itab index 1.
 gd_currentrow = itab-row.
 loop at itab.
 if itab-row ne gd_currentrow.
 append t_text.
 clear t_text.
 gd_currentrow = itab-row.
 endif.
 case itab-col.
 when '0001'.
 t_text-werks = itab-value.
 when '0002'.
 t_text-cmatnr = itab-value.
 when '0003'.
 t_text-srlno = itab-value.
 when '0004'.
 t_text-matnr = itab-value.
 when '0005'.
 t_text-charg = itab-value.
 endcase.
 endloop.
endif.
append t_text.
ENDFORM. " upload_data
*& Form modify_table
 Modify the table ZBATCH_CROSS_REF
FORM modify_table.
loop at t_text.
 t_final-werks = t_text-werks.
 t_final-cmatnr = t_text-cmatnr.
 t_final-srlno = t_text-srlno.
 t_final-matnr = t_text-matnr.
 t_final-charg = t_text-charg.
 t_final-erdat = sy-datum.
 t_final-erzet = sy-uzeit.
 t_final-ernam = sy-uname.
 t_final-rstat = 'U'.
 append t_final.
 clear t_final.
endloop.
delete t_final where werks = ''.
describe table t_final lines g_line.
sort t_final by werks cmatnr srlno.
Deleting the Duplicate Records
perform select_data.
describe table t_final lines g_line1.
modify zbatch_cross_ref from table t_final.
if sy-subrc ne 0.
 write:/ 'Updation failed'.
else.
 Skip 1.
 Write:/12 'Updation has been Completed Sucessfully'.
 skip 1.
 Write:/12 'Records in file ',42 g_line .
 write:/12 'Updated records in Table',42 g_line1.
endif.
delete from zbatch_cross_ref where werks = ''.
ENDFORM. " modify_table
*& Form select_data
 Deleting the duplicate records
FORM select_data.
select werks
 cmatnr
 srlno from zbatch_cross_ref
 into table t_zbatch for all entries in t_final
 where werks = t_final-werks
 and cmatnr = t_final-cmatnr
 and srlno = t_final-srlno.
sort t_zbatch by werks cmatnr srlno.
loop at t_zbatch.
 read table t_final with key werks = t_zbatch-werks
 cmatnr = t_zbatch-cmatnr
 srlno = t_zbatch-srlno.
 if sy-subrc eq 0.
 delete table t_final .
 endif.
 clear: t_zbatch,
 t_final.
endloop.
ENDFORM. " select_data
Reward points if it is helpful
Thanks
Seshu

Mass GL Clearing from Excel

Similar Messages

Maybe you are looking for