Dynamic Creation of list box on excel sheet and handling events

hi all ,
i m working on excel to sap integration application and for that i need to create dynmicaly list boxes in excel and also needs to handler events of each boxes..
please suggest me somehting asap/
thanks in advance,
jigs
helpful ans will be rewarded.

Similar Messages

BAPI for automatic Pr creation witth multiple files from excel sheet

I have written a programm for automatic PR creation with the help of bapi , where its picks data from excel sheet and makes PR .It is picking excel files from one folder(Files) for PR creation and moving to another folder(Files sucess).
now the problem is if Folder (Files) contains one excel sheet ,PR is created fine , but if the Folder(Files) have multiple excel sheet ,its is creating 1st PR right, but next PR's contains all the line item of 1st PR , 2nd PR and so on .can anyone suggest me where is the problem in codes.
types : begin of x_file ,
 key1(10),
 pur_grp(4),
 maktx(40),
 plant(4) ,
 req(10),
 s_qty(13),
 wbs(24),
 gl(10),
 trackno(10),
 supl(4),
 deladd(255).
types : end of x_file .
data : str5 type char10.
data : mm type char2.
data : yyyy type char4.
data : dd type char2.
data : str9 type char10.
data : str6 type char10.
data : month type char2.
data : year type char4.
year = sy-datum+0(4).
month = sy-datum+4(2).
dd = sy-datum+6(2).
yyyy = sy-datum+0(4).
mm = sy-datum+4(2).
dd = sy-datum+6(2).
clear str6 .
clear str5.
concatenate dd'.' month '.' year into str5 .
concatenate yyyy mm dd into str6 .
DATA : file type rlgrap-filename .
data : it_file type table of x_file .
data : wa_file type x_file .
data : it_header type table of x_file .
data : wa_header type x_file .
*& Internal Table For Define Row and Coloum Postion
data: col_start type i value 1 ,
 row_start type i value 2,
 col_end type i value 256 ,
 row_end type i value 65000 .
*& Internal Table For Retrieve Data From Excel
*data: excel_bdcdata like kcde_cells occurs 0 with header line.
*data: excel_bdcdata1 like kcde_cells occurs 0 with header line.
data: excel_bdcdata like ALSMEX_TABLINE occurs 0 with header line.
data: excel_bdcdata1 like ALSMEX_TABLINE occurs 0 with header line.
data: it_index type i.
DATA : IT_INDEX1 TYPE I.
*& Define Field Symbol
field-symbols: <fs> .
data : bdcdata like bdcdata occurs 0 with header line.
data : messtab like bdcmsgcoll occurs 0 with header line.
data : req_items type table of bapiebanc .
data : wa_req_items type bapiebanc .
data : req_acc_asg type table of bapiebkn.
data : wa_req_acc_asg type bapiebkn.
DATA : RETURN LIKE BAPIRETURN OCCURS 0 WITH HEADER LINE .
*data : return type table of bapireturn.
*data : wa_return type bapireturn .
data : number type ebeln .
*****************************MOVE FILES******************************
data : xsource type string .
data : xdestin type string .
data : destin1 type string .
data : destin2 type string .
DATA : DEST1 TYPE STRING.
DATA : DEST11 TYPE STRING.
DATA : DEST2 TYPE STRING.
DATA : DEST22 TYPE STRING.
data : sou_dir_name like SALFILE-LONGNAME.
data : tar_dir_name like SALFILE-LONGNAME.
data : tar_dir_name1 like SALFILE-LONGNAME.
data : sou_filename like EDI_PATH-PTHNAM .
data : tar_filename like EDI_PATH-PTHNAM .
data : filename1 type string .
data : tar_filename1 like EDI_PATH-PTHNAM .
data : file_itab like SALFLDIR occurs 0 with header line.
data : wa_file_itab like SALFLDIR.
data : file_count type i .
data : dir_count type i.
data : dir_table like sdokpath occurs 0 with header line.
data : file_table like SDOKPATH occurs 0 with header line.
data : wa_file_table like sdokpath.
data : strr type string ,
 str1 type string ,
 str2 type string ,
 str3 type string .
DATA : PA_VAL TYPE CHAR1.
sou_dir_name = 'D:\barcodes\files\'.
tar_dir_name = 'D:\barcodes\files-success\'.
 "success folder.
CALL FUNCTION 'TMP_GUI_DIRECTORY_LIST_FILES'
EXPORTING
 DIRECTORY = sou_dir_name
 FILTER = '.'
IMPORTING
 FILE_COUNT = file_count
 DIR_COUNT = dir_count
TABLES
 FILE_TABLE = file_table
 DIR_TABLE = dir_table
EXCEPTIONS
 CNTL_ERROR = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
ENDIF.
loop at file_table into wa_file_table.
clear : strr , str1 , str2 , str3 .
strr = wa_file_table-PATHNAME .
concatenate sou_dir_name strr into str1 .
concatenate tar_dir_name strr into str2 . " success
concatenate tar_dir_name1 strr into str3 . " failed
FILE = STR1 .
*start-of-selection.
*& Function For Retrieve Data From Excel
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
 filename = FILE
 i_begin_col = col_start
 i_begin_row = row_start
 i_end_col = col_end
 i_end_row = row_end
tables
 intern = excel_bdcdata
EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3.
IF sy-subrc NE 0.
WRITE : / 'File Error'.
EXIT.
ENDIF.
loop at excel_bdcdata.
 translate excel_bdcdata to upper case .
 move excel_bdcdata-col to it_index.
 assign component it_index of structure wa_file to <fs> .
 move excel_bdcdata-value to <fs>.
 at end of row.
 append wa_file to it_file .
 clear wa_file.
 endat.
endloop.
sort it_file by key1. "pur_grp maktx plant .
it_header[] = it_file[].
delete adjacent duplicates from it_header comparing key1 pur_grp maktx
plant .
data : h_item(5) type n .
data : h_pack(10) type n .
data : line_no(5) type n .
data : ln_no(5) type n .
loop at it_header into wa_header .
ln_no = 1.
h_item = h_item + 10.
h_pack = h_pack + 1.
wa_req_items-preq_item = h_item .
wa_req_items-doc_type = 'BOM'.
wa_req_items-pur_group = wa_header-pur_grp .
wa_req_items-MATERIAL = wa_header-maktx .
wa_req_items-plant = wa_header-plant .
wa_req_items-pckg_no = h_pack .
wa_req_items-deliv_date = str6 .
wa_req_items-item_cat = '0'.
wa_req_items-acctasscat = 'P'.
*wa_req_items-distrib = '2' .
**wa_req_items-gr_ind = 'X'.
wa_req_items-ir_ind = '2'.
wa_req_items-purch_org = 'TISL' .
wa_req_items-QUANTITY = wa_header-s_qty.
wa_req_items-PREQ_NAME = wa_header-req.
wa_req_items-SUPPL_PLNT = wa_header-supl.
wa_req_items-trackingno = wa_header-trackno.
append wa_req_items to req_items .
clear wa_req_items.
wa_req_acc_asg-preq_item = h_item .
wa_req_acc_asg-g_l_acct = wa_file-gl .
WA_req_acc_asg-wbs_elem = wa_header-wbs .
append wa_req_acc_asg to req_acc_asg .
clear wa_req_acc_asg.
h_pack = h_pack + 1 .
endloop.
clear ln_no .
***BREAK-POINT.
*& BAPI FUNCTION
call function 'BAPI_REQUISITION_CREATE'
importing
 number = number
tables
 requisition_items = req_items
 requisition_account_assignment = req_acc_asg
 return = return .

Can someone please give me sol........

Dynamic retrieval in list boxes using JSP

Dear All,
I have a list box in a form which is created by extracting data from oracle database. There are approximately 26000 records which are added dynamically in the list box. There are five rows in the form and each row has to have a list box with all records. Now if i retrieve all records for all list boxes, the page takes high time to load. I also tried using String array to read once and write them using loops in list box. But even then the loading time is quiet high. Is there some better way so that the page loads fast enough. I am using Oracle Database and the table is indexed.
Thanks & Regards,
Gagan Arora

Well, it's big enough to make any page slow... but you can try to load all the list boxes in the client side with javascript.
i make that usually, create a javascript strings array and on the "onLoad" event fill all the list boxes with the values in that array.
but anyway is too much data.

How to connect to excel sheet and create a universe on top of that

hi,
can any tell me how to connect to excel sheet and create a universe on top of that.what connection should i keep.

Hi Vishal,
Here is how you can create a universe from an excel file:
Here are the steps to follow:
1. Launch Designer, select the Quick Design Wizard if not already open, and click "Begin".
2. Type in a universe name then click "New".
3. Select the Network layer "ODBC Drivers" and then click OK.
4. In the ODBC Drivers window, select the "Login" tab and then type in a name for this connection.
5. Select "Generic ODBC data source" from the drop-down list for database engine.
6. Click the "ODBC Admin" button to define data source name.
7. In the ODBC Data Source Administrator window, click Add.
8. Select "Microsoft Excel Drivers" and click Finish.
9. Enter a data source name.
10. Click "Workbook", select the file you want to access, and click OK.
11. Locate and select the data source name from the drop-down list.
12. Click "Test" to make sure that the server is responding.
You will be back at the Quick Design Wizard "Step 1 of 4". Click the "Next" button and follow through the rest of the steps in order to complete the universe.
-Shreyash

Create a visual web part which get data from excel sheet and import it into sql server database in sharepoint 2010 (development)

Hi,
I want to create a visual webpart which will read data from excel sheet and import it in to sql server database.(using sharepoint development)
I want to do it using visual webpart.
Please help to solve the issue.
Thanks in advance!
Regards
Rajni

Hi Rajni,
Microsoft.Office.Interop.Excel assembly provides class to read excel file data, in your web part solution, reference the assembly, and following blog contains samples about how to read the excel file data,
and import it to SQL database.
1.Create a Visual Web Part Project:Create
Visual Web Parts in SharePoint 2010
2.Read the excel workbook by using SPFile class:
http://alancejacob.blogspot.in/2012/06/read-data-from-excel-file-and-insert-in.html
http://stackoverflow.com/questions/14496608/read-excel-file-stored-in-sharepoint-document-library
3.Export the excel workbook to SQL Server:
http://www.c-sharpcorner.com/UploadFile/99bb20/import-excel-data-to-sql-server-in-Asp-Net/
Best Regards,
Eric
Eric Tao
TechNet Community Support

TS1702 In the numbers app 1 spreadsheet keeps trying to update. It is an excel sheet and I can not delete the sheet as it keeps trying to update? Any help would be appreciated.

In the numbers app 1 spreadsheet keeps trying to update. It is an excel sheet and I can not delete the sheet as it keeps trying to update? Any help would be appreciated.

Contact iTunes Customer Service and request assistance
Use this Link > Apple Support iTunes Store Contact

Regarding Downloading of Report[List] output into Excel Sheet

Hi All,
Hi i have written one Classical report. I got the output Correctly.
Now i want to download that data into Excel Sheet in excatly the way it displayed in List[Report] output.
I had followed the path System->List->Save->LocalFile->Spread Sheet and tried to download the same.
Though it is downloaded it has not come in exact format.
Now what i want is to add a button above that report & write a program in that to download that data into Excel Sheet.
Can anybody tell me how can solve this issue. If i follow above procedure will the data[List Output] be downloaded into exact format into excel.
If anybody knows other way please sujjest.
Thanks in advance.
Thanks & Regards,
Prasad.

Hi Prasad,
I have done a program which downloads the output in the excel sheet in the correct format.
Just check the program. The code given in bold is what you have to use.
REPORT zexp MESSAGE-ID f4 LINE-SIZE 195.
 Tables Used ***********************************
TABLES : bseg, bkpf, bsak, lfa1, payr .
Declaring Internal Tables **************************
DATA :
Internal table to hold header data *************
BEGIN OF header OCCURS 0,
 ext_date(10) TYPE c,
 delimit(1) TYPE c,
 ext_time(8) TYPE c,
END OF header,
Internal table to hold detail info **************
BEGIN OF i_data OCCURS 0,
 belnr LIKE bsak-belnr,
 gjahr LIKE bsak-gjahr,
 bukrs LIKE bsak-bukrs,
 bldat LIKE bsak-bldat,
 xblnr LIKE bsak-xblnr,
 blart LIKE bsak-blart,
 augdt LIKE bsak-augdt,
 augbl LIKE bsak-augbl,
 wrbtr LIKE bsak-wrbtr,
 shkzg LIKE bsak-shkzg,
 lifnr LIKE bsak-lifnr,
 name1 LIKE lfa1-name1,
 chect LIKE payr-chect,
 status(1) TYPE c,
END OF i_data,
Internal table to to collect *****************
BEGIN OF i_data1 OCCURS 0,
 belnr LIKE bsak-belnr,
 gjahr LIKE bsak-gjahr,
 bukrs LIKE bsak-bukrs,
 bldat LIKE bsak-bldat,
 xblnr LIKE bsak-xblnr,
 blart LIKE bsak-blart,
 augdt LIKE bsak-augdt,
 augbl LIKE bsak-augbl,
 wrbtr LIKE bsak-wrbtr,
 shkzg LIKE bsak-shkzg,
 lifnr LIKE bsak-lifnr,
 name1 LIKE lfa1-name1,
 sortl LIKE lfa1-sortl,
 chect LIKE payr-chect,
 status(1) TYPE c,
END OF i_data1,
String variables for formatting file data *************
 fidoc_year TYPE string,
 comp_code TYPE string,
 check_numbr TYPE string,
 vendor TYPE string,
 inv_date TYPE string,
 inv_nbr TYPE string,
 paid_dat TYPE string,
 inv_amt TYPE string,
 status TYPE string,
 ref_doc TYPE string,
************Internal table to store the file contents **************
BEGIN OF i_final_file OCCURS 0,
 record(300) TYPE c,
END OF i_final_file,
Internal table to store the list of allowed document types ****
BEGIN OF i_doctype OCCURS 0,
 blart LIKE bsak-blart,
END OF i_doctype,
Internal table to hold vendor information ************
BEGIN OF i_lfa1 OCCURS 0,
 lifnr LIKE lfa1-lifnr,
 name1 LIKE lfa1-name1,
 sortl LIKE lfa1-sortl,
END OF i_lfa1,
Internal table to hold check information *************
BEGIN OF i_payr OCCURS 0,
 chect LIKE payr-chect,
 vblnr LIKE payr-vblnr,
 gjahr LIKE payr-gjahr,
 zbukr LIKE payr-zbukr,
END OF i_payr.
Data declarations **************************
DATA : ws_stblg TYPE bkpf-stblg,
 todate TYPE bsak-augdt,
 fromdate TYPE bsak-augdt,
 w_day LIKE dtresr-weekday,
 day LIKE scal-indicator,
 d TYPE n,
 e_date LIKE sy-datum,
 e_time LIKE sy-uzeit,
 dd(2) TYPE c,
 mm(2) TYPE c,
 yy(4) TYPE c,
 hh(2) TYPE c,
 min(2) TYPE c,
 sec(2) TYPE c.
DATA : wa_filepath(50) TYPE c,
 wa_filename(50) TYPE c,
 wa_c_filename(100) TYPE c,
 arch_path(50) TYPE c.
* Data for downloading to list
DATA : list LIKE TABLE OF abaplist WITH HEADER LINE.
DATA : BEGIN OF list_asc OCCURS 0,
msg(300) TYPE c,
END OF list_asc.
DATA: BEGIN OF i_invoiceheader OCCURS 0,
name(30) TYPE c,
END OF i_invoiceheader.
RANGES dates FOR bkpf-budat.
Selection Screen ************************
SELECTION-SCREEN SKIP 2.
SELECT-OPTIONS:
 s_bukrs FOR bkpf-bukrs ,
 s_blart FOR bkpf-blart ,
 s_augdt FOR bsak-augdt. " memory id todat TO fromdat.
PARAMETERS :submit AS CHECKBOX DEFAULT ' ' .
* Download list to file.
AT USER-COMMAND.
CASE sy-ucomm.
 WHEN 'LIST'.
 PERFORM download.
 WHEN 'BACK'.
 EXIT.
ENDCASE.
----
 FORM download *
FORM download.
if s_augdt is initial.
dates-sign = 'I'.
dates-option = 'BT'.
dates-low = '20050901'.
dates-high = '20050920'.
APPEND dates.
else.
dates = s_augdt.
append dates.
endif.
/* Submit the same program .
SUBMIT zexp WITH s_augdt IN dates
 EXPORTING LIST TO MEMORY
 AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
 TABLES
 listobject = list
 EXCEPTIONS
 not_found = 1.
CALL FUNCTION 'LIST_TO_ASCI'
EXPORTING
LIST_INDEX = -1 "LIST_INDEX SY-LSIND.
TABLES
listasci = list_asc
listobject = list.
PERFORM download_file.
ENDFORM.
 FORM download_file *
FORM download_file.
DATA fname TYPE rlgrap-filename VALUE 'c:\audit_report.xls'.
DATA ftype TYPE rlgrap-filetype VALUE 'DAT'.
DATA numeric_data(10) TYPE c VALUE '0123456789'.
*Table structure should match with list output.
DATA : BEGIN OF i_data1 OCCURS 0,
 belnr(12) TYPE c,
 gjahr(6) TYPE c,
 bukrs(8) TYPE c,
 chect(13) TYPE c,
 lifnr(12) TYPE c,
 name1(37) TYPE c,
 bldat(14) TYPE c,
 xblnr(18) TYPE c,
 augdt(14) TYPE c,
 wrbtr(17) TYPE c,
 status(4) TYPE c,
 augbl(18) TYPE c,
 sortl(17) TYPE c,
 END OF i_data1.
Header record of the excel sheet.
PERFORM fill_header.
LOOP AT list_asc.
Reads lines starting from the first record in the report. All informatory statements in the report are not read.
 IF list_asc+1(10) CO numeric_data.
 i_data1 = list_asc .
 APPEND i_data1.
 ENDIF.
ENDLOOP.
Call the download function.
CALL FUNCTION 'DOWNLOAD'
 EXPORTING
 filename = fname
 filetype = ftype
 TABLES
 data_tab = i_data1
 FIELDNAMES = i_invoiceheader.
ENDFORM.
 FORM fill_header *
FORM fill_header.
i_invoiceheader-name = 'Doc Number'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Fsc Year'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Cmp Code'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Check No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Vendor No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Entered by'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Doc Date'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Ref Doc No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Clearing Date'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Amount'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Status'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Clearing Doc No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Sort field'.
APPEND i_invoiceheader.
ENDFORM. " fill_header
 Initialization *************************
INITIALIZATION.
To initialize the date parameter on the selection screen.
The date by default ranges from previous Monday to Sunday.
todate = sy-datum.
CALL FUNCTION 'DATE_COMPUTE_DAY'
 EXPORTING
 date = todate
 IMPORTING
 day = day.
d = day.
if d < 4.
 todate = sy-datum - d - 4 .
else.
 todate = sy-datum - d + 3 .
endif.
fromdate = todate - 6.
MOVE: 'BT' TO s_augdt-option,
 fromdate TO s_augdt-low,
 todate TO s_augdt-high.
APPEND s_augdt.
Start of Selection **************************
START-OF-SELECTION.
Checking the validity of the inputted dates ****************
IF s_augdt-low > sy-datum OR s_augdt-high > sy-datum.
 MESSAGE i999 WITH 'You cannot input future date'.
 EXIT.
ENDIF.
IF NOT s_bukrs IS INITIAL.
MESSAGE i999 WITH 'Program will run with input parameters in screen!!'.
ENDIF.
Initialize the header data ***********************
e_time = sy-uzeit.
MOVE e_time+0(2) TO hh.
MOVE e_time+2(2) TO min.
MOVE e_time+4(2) TO sec.
CONCATENATE hh min sec INTO header-ext_time SEPARATED BY ':'.
e_date = sy-datum.
MOVE e_date+0(4) TO yy.
MOVE e_date+4(2) TO mm.
MOVE e_date+6(2) TO dd.
CONCATENATE mm dd yy INTO header-ext_date SEPARATED BY '/'.
header-delimit = '~'.
APPEND header.
List allowed document types **********************
PERFORM fill_doc_types.
**To select the documents within the range of week or as inputted **
IF s_augdt IS INITIAL.
 MOVE: 'I' TO s_augdt-sign,
 'BT' TO s_augdt-option,
 fromdate TO s_augdt-low,
 todate TO s_augdt-high.
 APPEND s_augdt.
ENDIF.
Selecting the records from the database ****************
IF s_bukrs IS INITIAL AND s_blart IS INITIAL.
Select all documents of company code 1000, *********
4200 and 8000, and allowed document types *********
 SELECT belnr gjahr augdt augbl bukrs
 blart bldat xblnr lifnr wrbtr shkzg
 FROM bsak INTO CORRESPONDING FIELDS OF TABLE i_data
 FOR ALL ENTRIES IN i_doctype
 WHERE blart EQ i_doctype-blart
 AND augdt IN s_augdt
 AND ( bukrs = '1000' OR bukrs ='4200' OR
 ( bukrs = '8000' AND blart NE 'ZP' ) ).
 loop at i_data.
Exclude reversed documents
 select single stblg into ws_stblg
 from bkpf
 where bukrs = i_data-bukrs
 and gjahr = i_data-gjahr
 and belnr = i_data-belnr.
 if not ws_stblg is initial.
 delete i_data.
 endif.
 endloop.
ELSEIF s_blart IS INITIAL.
Select all documents of allowed document types ******
 and inputted company code ************
 SELECT belnr gjahr augdt augbl bukrs
 blart bldat xblnr lifnr wrbtr shkzg
 FROM bsak INTO CORRESPONDING FIELDS OF TABLE i_data
 FOR ALL ENTRIES IN i_doctype
 WHERE blart EQ i_doctype-blart
 AND augdt IN s_augdt
 AND bukrs IN s_bukrs .
 LOOP AT i_data.
Exclude documents of type ZP
for company code 8000.
 IF i_data-bukrs = '8000' AND i_data-blart = 'ZP'.
 DELETE i_data.
 continue.
 ENDIF.
Exclude reversed documents
 select single stblg into ws_stblg
 from bkpf
 where bukrs = i_data-bukrs
 and gjahr = i_data-gjahr
 and belnr = i_data-belnr.
 if not ws_stblg is initial.
 delete i_data.
 continue.
 endif.
 ENDLOOP.
 READ TABLE i_data INDEX 1.
 IF sy-subrc NE 0.
 MESSAGE i999 WITH 'No records have been selected'.
 EXIT.
 ENDIF.
ELSE.
Select the documents matching the company codes *****
and document types inputted in the selection screen ****
 SELECT belnr gjahr augdt augbl bukrs bldat xblnr
 blart lifnr wrbtr shkzg
 FROM bsak INTO CORRESPONDING FIELDS OF TABLE i_data
 WHERE bukrs IN s_bukrs AND blart IN s_blart
 AND augdt IN s_augdt.
 SORT i_data BY blart.
 LOOP AT i_data.
Filtering the records selected
based on the document type
 READ TABLE i_doctype WITH KEY blart = i_data-blart.
 IF sy-subrc NE 0.
 DELETE i_data.
 continue.
 ENDIF.
Exclude documents of type ZP
for company code 8000.
 IF i_data-bukrs = '8000' AND i_data-blart = 'ZP'.
 DELETE i_data.
 continue.
 ENDIF.
Exclude reversed documents.
 select single stblg into ws_stblg
 from bkpf
 where bukrs = i_data-bukrs
 and gjahr = i_data-gjahr
 and belnr = i_data-belnr.
 if not ws_stblg is initial.
 delete i_data.
 continue.
 endif.
 ENDLOOP.
 READ TABLE i_data INDEX 1.
 IF sy-subrc NE 0.
 MESSAGE i999 WITH 'No records have been selected'.
 EXIT.
 ENDIF.
ENDIF.
IF sy-subrc NE 0.
 MESSAGE i999 WITH 'No records have been selected'.
 EXIT.
ENDIF.
credit/debit identification ***********************
LOOP AT i_data.
 IF i_data-shkzg EQ 'H'.
 i_data-wrbtr = i_data-wrbtr * 1.
 ELSEIF i_data-shkzg EQ 'S'.
 i_data-wrbtr = i_data-wrbtr * -1.
 ENDIF.
 MODIFY i_data.
ENDLOOP.
for summarizing ******************************
LOOP AT i_data.
 MOVE-CORRESPONDING i_data TO i_data1.
 COLLECT i_data1.
ENDLOOP.
Vendor informations and Check Informations *****************
SELECT lifnr name1 sortl
 FROM lfa1
 APPENDING CORRESPONDING FIELDS OF TABLE i_lfa1
 FOR ALL ENTRIES IN i_data1
 WHERE lifnr = i_data1-lifnr.
SELECT chect vblnr gjahr zbukr FROM payr APPENDING CORRESPONDING
 FIELDS OF TABLE i_payr FOR ALL ENTRIES
 IN i_data1 WHERE vblnr = i_data1-augbl
 AND gjahr = i_data1-augdt(4)
 AND zbukr = i_data1-bukrs.
SORT i_data1 BY augbl gjahr bukrs lifnr.
SORT i_payr BY vblnr gjahr zbukr.
SORT i_lfa1 BY lifnr.
LOOP AT i_data1.
 READ TABLE i_payr WITH KEY vblnr = i_data1-augbl
 gjahr = i_data1-gjahr
 zbukr = i_data1-bukrs.
 IF sy-subrc EQ 0.
 i_data1-chect = i_payr-chect.
 ENDIF.
 READ TABLE i_lfa1 WITH KEY lifnr = i_data1-lifnr.
 IF sy-subrc EQ 0.
 i_data1-name1 = i_lfa1-name1.
 i_data1-sortl = i_lfa1-sortl.
 ENDIF.
 i_data1-status = 'X'.
 MODIFY i_data1.
ENDLOOP.
**The records are sorted by clearing date, check number and doc type**
SORT i_data1 BY augdt chect blart.
**********The header record is outputted on the screen****************
PERFORM write_header.
********Data is moved to internal table in the file format *************
PERFORM move_data.
Line items are outputted on the screen *********************
PERFORM write_output.
*& Form write_header &*
*& This outputs the header information to screen &*
FORM write_header.
SKIP.
 SET PF-STATUS 'LIST'.
Outputting the header information *********************
WRITE : / 'Extraction Date : ' , header-ext_date.
WRITE : / 'Extraction Time : ' , header-ext_time.
FORMAT COLOR 1." INTENSIFIED.
SKIP.
ULINE AT 0(190) NO-GAP.
Outputting line level information **********************
WRITE:/ sy-vline NO-GAP,
 (10) 'DOC NUMBER',
 sy-vline NO-GAP,
 (4) 'F-YR',
 sy-vline NO-GAP,
 (6) 'C-CODE',
 sy-vline NO-GAP,
 (10) 'CHECK NUM',
 sy-vline NO-GAP,
 (10) 'VENDOR NUM',
 sy-vline NO-GAP,
 (35) 'VENDOR NAME',
 sy-vline NO-GAP,
 (12) 'INVOICE DATE',
 sy-vline NO-GAP,
 (16) 'INVOICE NUMBER',
 sy-vline NO-GAP,
 (12) 'PAID DATE',
 sy-vline NO-GAP,
 (15) 'INVOICE AMOUNT',
 sy-vline NO-GAP,
 (2) 'SC',
 sy-vline NO-GAP,
 (16) 'REFERENCE FI DOC',
 sy-vline NO-GAP,
 (15) 'SORT FIELD',
 sy-vline NO-GAP.
ULINE AT 0(190) NO-GAP.
ENDFORM. " write_header
*& FORM MOVE_DATA &*
*& Formats data in internal table as is required in the file &*
FORM move_data.
LOOP AT i_data1.
Document number and fiscal year should be separted by '|' *****
 CONCATENATE i_data1-belnr i_data1-gjahr INTO fidoc_year
 SEPARATED BY '|'.
 MOVE i_data1-bukrs TO comp_code.
 MOVE i_data1-chect TO check_numbr.
Vendor number and vendor name should be separted by '|' *****
 CONCATENATE i_data1-lifnr i_data1-name1 INTO vendor
 SEPARATED BY '|'.
 SHIFT vendor LEFT DELETING LEADING '0'.
 SHIFT vendor RIGHT DELETING TRAILING space.
Date fields converted to MM/DD/YYYY format ****************
 MOVE i_data1-bldat+0(4) TO yy.
 MOVE i_data1-bldat+4(2) TO mm.
 MOVE i_data1-bldat+6(2) TO dd.
 CONCATENATE mm dd yy INTO inv_date SEPARATED BY '/'.
 MOVE i_data1-xblnr TO inv_nbr.
 SHIFT inv_nbr RIGHT DELETING TRAILING space.
 MOVE i_data1-augdt+0(4) TO yy.
 MOVE i_data1-augdt+4(2) TO mm.
 MOVE i_data1-augdt+6(2) TO dd.
 CONCATENATE mm dd yy INTO paid_dat SEPARATED BY '/'.
 MOVE i_data1-wrbtr TO inv_amt.
 CONDENSE inv_amt.
 SHIFT inv_amt RIGHT DELETING TRAILING space.
 MOVE i_data1-status TO status.
 MOVE i_data1-augbl TO ref_doc.
 CONCATENATE fidoc_year
 comp_code
 check_numbr
 vendor
 inv_date
 inv_nbr
 paid_dat
 inv_amt
 status
 ref_doc
 INTO i_final_file-record SEPARATED BY '~'.
 APPEND i_final_file.
ENDLOOP.
ENDFORM. " MOVE_DATA
*& Form write_output &*
*& Outputs all data to screen &*
FORM write_output.
LOOP AT i_data1.
 FORMAT COLOR 2 INTENSIFIED.
Outputting line level information *******************
 WRITE : / sy-vline NO-GAP,
 (10) i_data1-belnr,
 sy-vline NO-GAP,
 (4) i_data1-gjahr,
 sy-vline NO-GAP,
 (6) i_data1-bukrs,
 sy-vline NO-GAP,
 (10) i_data1-chect,
 sy-vline NO-GAP,
 (10) i_data1-lifnr,
 sy-vline NO-GAP,
 (35) i_data1-name1,
 sy-vline NO-GAP,
 (12) i_data1-bldat MM/DD/YYYY,
 sy-vline NO-GAP,
 (16) i_data1-xblnr,
 sy-vline NO-GAP,
 (12) i_data1-augdt MM/DD/YYYY,
 sy-vline NO-GAP,
 (15) i_data1-wrbtr,
 sy-vline NO-GAP,
 (2) i_data1-status,
 sy-vline NO-GAP,
 (16) i_data1-augbl,
 sy-vline NO-GAP,
 (15) i_data1-sortl,
 sy-vline NO-GAP.
ENDLOOP.
ULINE AT 0(190) NO-GAP.
ENDFORM. " write_output
In the program, I am downloading only the list.. The description of report outputted in the beginning of the report is not downloaded to excel.
What has to be taken into consideration is that, the structure of the table i_data1 which contains the data to be downloaded to the table.
I hope that this will help you.
Regards,
Susmitha

Export Simple list output to Excel sheet.

Hi gurus,
I have a list output as follows.
A main header
Sub header 1
table entries.
sub header 2.
table entries ,......etc.
now i want to export the same format to an excel sheet which need to sent as a mail attachment.
Is there any FM for this ? i dont want the format to be disturbed.
can headers and other entries defferentiated with colors ?
kindly help on this.
Edited by: deepan adhi on Oct 4, 2009 9:52 AM

write the list to memory,
and the read this memory into an internal table. this will be exactly the same way as its printed on your screen. download it.
or
create an internal table of type string, add pass data from your final internal table in the exact way you are putting it in the output.
and download this string internal table.

Extracting records/ transactions list in to excel sheet

Hi Experties,
I am facing problem while extracting data from CRM - Service Process Monitor.
I tried to extract data(records) from executed service process monitor through
System -> List ->Save->Local file->Spreadsheet
I am not getting actual records list in excel sheet
For example: Actual record - 244, But after extracting to excel sheet its showing only- 199
why its not extracting remaining 45 records/ transactions.
is there any setting or is there any other process of extracting ?
How to count total records without extracting to excek sheet ?
I will definitely assign points
Please help me..
Regards
Praveen Khot

Praveen,
There are no setting for downloading the no of records...
Probably there me be some problem with html code if it is a web templete...
cheer's
HVR.

VF05 report(Billing doc list) exporting to excel sheet

Hi
I would like to export the VF05 report( Billing doc list) into the predefined layout of Excel sheet. How can we do this.
Can anyone of you explain me this. It is the business requirement and they do not want to go for SAP scripts or zprogram.
IT IS URGENT. PLEASE HELP ON...

List -> Save -> File -> Spreadsheet (from the output screen)
Give the location where you want to save the file and the file name and press "Generate".
BTW, Welcome to SDN.

Yellow boxes within excel sheet on iPad

When I send an email with an excel sheet attached and I open it on my iPad (others have the same issue) it has yellow boxes in it. How can we get rid of them? It is blocking some data. I have checked formatting, comments and nothing seems to remove them.

You can try converting the top row to a Header Row and the leftmost column to a Header Column.
SG

Dynamically refresh a list box in a web report

Dear All,
I am having a serious issue with one of my web reports. I am using Oracle 9i PL/SQL Cartridges for developing my web reports. The problem is :
I have a drop down box for department and also a list box for locations.
I want to dynamically refresh the locations list box whenever the user selects a department.
I know I have to refresh the page somehow to get the list box requery from the database.
Can anyone please send me a sample code or suggest how to do it. I am new to PL/SQL cartridges.
Thank You

hello,
althought his is not a PL/SQL cartridge forum i'll give it a shot.
the basic behind the solution would be that your procedure need input values that would be used to create this cascading effect. so you would have e.g. input values for region and country for a form that should provide selection fro region country and city.
when the procedure is called for the first time without any parameters, it would generate a drop down list for the first (region) parameter. when the user selects a value javascript would kick in that would submit the form that basically calls itself, but this time passing the value for the region parameter.
now the procedure would create two drop down lists (region and country) because it had a value passed for region. both drop down lists would have a javaScript event that would submit the form. the only difference would be that the region list would need to clear the value of the country value before submitting so changing the region would produce a new country list.
i hope that was clear enough. as for the code example. that is simple javaScript and you can find tons of examples on the Web. just look for "JavaScript" and "OnChange".
regards,
philipp

To download a list output to excel sheet

Hi All,
I am running the transaction MD47 for Product Group Planning.
I get a list output with as many as 90 columns.
When I try to download the output into an excel (System > List > Save > Local File ) only the columns which appear on the screen are being downloaded. Does any one have pointers on how can I download the whole list into an excel?
Regards,
Karthik

Hey Gabriel,
I am doing good. How are you today?
How do I do that?
This is a list output not an ALV. I dint find any option to choose an ALV layout.
Regards,
Karthik

Read an excel sheet and selected two columns like A and C will plot as a XY Graph (X as a A column and Y as a C column)

hi sir i am read excel sheet using labview ,but unable to plot the selected colomns,so its needfull ,please find any body to sollution to the problem .i i already did some part ,it is take too much delay
Attachments:
CSV File to XY GRAPH 13.lvproj ‏9 KB

shambhulinga a écrit :
hi sir i am read excel sheet using labview ,but unable to plot the selected colomns,so its needfull ,please find any body to sollution to the problem .i i already did some part ,it is take too much delay
First, you are not reading an Excel sheet but a text file (a csv file is a text file). From the listing of the function used (from the lvproj file) you are using the Read From Spreadsheet function, this function will return a 2D array. Use the Index Array function to extract the x and y value columns. Bundle them (using the Bundle function) and wire the output to your XY-Graph.
Ben64

Read data from excel sheet and then perform the required operations.

Hi all
I need to write a procedure which can read data from excel sheet.I have excel sheet in which i have to options one is modification and other is addition.so if it reads modification then i need to read the concerned table name then check its availability in pl-sql datbase.If table exists then reading the realated column in that row to fire the querry. The excel sheet is saved in local disk c.
can anybody help me with this.How i need to start specialy to read the data from excel sheet saved in local disk c.
Edited by: user13334062 on Jun 30, 2010 3:45 AM

Hi
If you can convert the excel to a csv format, then it can be simply query from DB Creating Oracle External Tables. Best part is that you may still change the CSV using EXCEL.
Following action Points can be adopt;
*1. Convert Excel File to a csv. File Save as CSV*
*2. Create Oracle Directory* ( This has to be the location of your excel file )
SQL> Create directory mydir as 'C:\testdb'; --- "testdb" is the location folder in win for your excel sheet.
*3. Create the External Table*
SQL> create table my_ext_tab (
Field1 Datatype,
Field2 Datatype,
Field3 Datatype,
Field4 Datatype,
Field5 Datatype
Organization external
(type oracle_loader default directory mydir
access parameters (records delimited by newline fields terminated by ',')
location ('my_ext_tab.csv'))
reject limit 100;
*4. Now you can query the table "my_ext_tab"*
Select * from "my_ext_tab";
Please avoid the reformat the data column inside the spreadsheet (CSV).

Dynamic Creation of list box on excel sheet and handling events

Similar Messages

Maybe you are looking for