Print parameters in Excel sheet

Hi,
I have a question regarding print parameters of an excelsheet.
we have a report program which downloads the data into Excelsheet. The users run the program online, and once the excel is downloaded, they will take a print out.
This excel has different tabs. The users need to change the print parameters like changing from lanscape to potrait, setting the margins etc.... and then take a print output. can we avoid this manual process programatically.
our developer has used classes to download the excel.
any help would be greatly appreciated.
Thanks.

So it is downloaded, then the user opens the document manually and prints it. Have you looked into OLE.
/people/rich.heilman2/blog/2005/09/12/manipulate-excel-with-ole-abap
Using OLE, you can automatically print out the excel documents. I would also assume that you can change the parameter as needed.
Here is a sample code showing the OLE code that will print the excel sheet.
report zrich_0003.
include ole2incl.
data: e_sheet type ole2_object.
data: e_appl type ole2_object.
data: e_work type ole2_object.
data: e_col1 type ole2_object.
data: e_col2 type ole2_object.
data: e_cols type ole2_object.
data: e_cell type ole2_object.
data: e_wind type ole2_object.
data: field_value(30) type c.
parameters: p_file type localfile default 'C:RichTest.xls'.
start-of-selection.
* Start the application
create object e_appl 'EXCEL.APPLICATION'.
set property of e_appl 'VISIBLE' = 1.
* Open the file
call method of e_appl 'WORKBOOKS' = e_work.
call method of e_work 'OPEN'
exporting
#1 = p_file.
 get property of e_appl 'ACTIVEWORKBOOK' = e_work.
call method of e_work 'PRINTOUT'.
* Close the file
call method of e_work 'close'.
* Quit the file
call method of e_appl 'QUIT'.
free object e_appl.
Regards,
Rich Heilman

Similar Messages

Want ONE copy printed of an Excel sheet - printer wants to print 72 pages.

I'm trying to print ONE copy of an Excel worksheet (HP 4500, all in one printer) I've tried numerous times and different ideas, but it STILL wants to print 72 copies (and I keep having to cancel printing, but can't get the problem solved.)

I hope you are doing well other than this issue, Judye
What excel version are you using?
Perhaps you can try this;
Open the Spreadsheet with the data you need and hold down the Ctrl key while highlighting the area of the document you want to print out.
GO to Page Layout go to Print Area button andSet Print Area… .
go to Print Titles… I think is the last option on the ribbon but I can be wrong,
click on Print Preview. Now you should be able to preview the area that you are trying to printout.
You can actually add by selecting the area and using add to print area option.
Let me know if this helps if it does not please let me know and be more specific i will do my best to assist you.
Best of luck
RobertoR.
You can say THANKS by clicking the KUDOS STAR. If my suggestion resolves your issue Mark as a "SOLUTION" this way others can benefit Thanks in Advance!

Excel sheets with defined print areas to pdf

Hello
I am trying to convert an Excel file with multiple sheets and defined print areas to pdf using Automator. The problem is that the action "Convert Format of Excel Files" prints everything on all sheets (even information outside the defined print areas).
Does anyone have a solution to this?
Thanks!

Post what you would like to do in Excel here
http://www.microsoft.com/mac/support

Print my input which i accept in my procedure in Excel Sheet through pl/sql

Respected Sir,
If i want to print my input in excel sheet which i took as a input parameter for my procedure
for example my procedure:
create or replace procedure create_csv('hello this is wonder world').
I want to print hello this is wonder world in excel sheet.
How can i acheive this through pl/sql procedure. with out utl_file predefined package.
Please help me regarding this.
Sincerely,
Chandrasekhar B.S.

maybe this link accessing oracle via access and excel might be of some help.

Web printing with Excel - multiple excel sheets

Hi @ all,
I have implemented a web report with several tabpages. Now I would like to export them all with web printing solution from tobias kaufmann "HowToWebPrintingWithExcel".
The Problem is, I would like to get for each tabpages an excel sheet.
Does anyone know, how to solve the problem?
Thanks in advance.
Claudia

Any new ideas?

Printer does not print all grid lines of EXCEL sheet

Running Micrsoft Vista. When printing an EXCEL sheet that has gride lines, the ENVY 5530 printer only prints some of the lines.

Hello , and welcome to the HP Forums! I see you're having issues printing from Excel. I would like to help! Do you have any issues making a copy? I'd recommend starting with a power reset. Disconnect the power cord from the printer and the power outlet, then wait 60 seconds. After 60 seconds, plug the printer back in. Ensure you plug the printer directly to a wall outlet. Make sure to bypass any sort of surge protector or power bar.
I would also recommend downloading and running the HP Print and Scan Doctor. Good luck and please let me know the results of your troubleshooting steps. Thank you for posting on the HP Forums!

How to Print the Excel Sheet From Labview??

Hii Every body,,
Actually i am logging my data to Excel Template..... Now in my front panel i will select that excel file and give print... Now automatically the datas in the excel sheet have to get printed with out opening the excel sheel... how to do?? can any 1 suggest me??

I think you can get many/most of your answers here in the Excel Board thread in Breakpoint forum.
- Partha
LabVIEW - Wires that catch bugs!

Problem when printing Excel sheets when downloaded from Portal

Hey,
I am using the desformat=spreadsheet option to generate Excel files for my reports downloaded from Portal and this works fine. The trouble is that when users go to print the downloaded Excel reports it seems that the scale of the report changes and everything is made smaller to try and fit on the one page. The font size decreases, and the scale of the report decreases to the point where the report is nearly unreadable when printed. But when just viewing the reports in Excel everything looks fine.
Any suggestions on why this is happening and how it can be fixed?
Thanks

Hello hermannedem,
If you cannot see any content on pages you printed or in print preview, the cause might be margins which are set too high.
#In order to check the margins, we need to go to ''File'' > ''Page Setup''.
#Once this is done, switch to the ''Margins & Header/Footer'' tab.
#Check what's set there under ''Margins''.
The following are the default values for ''Margins'':
'''Right''': 12.7
'''Top''': 12.7
'''Left''': 12.7
'''Bottom''': 12.7
Check these values accordingly and change them if necessary.
Please let us know, if this resolves the issue.
Thanks!

Print all excel sheet in the folder

hello,
i want to create an autoprint function if my vi.
how do i print all the excel files in a directory?
thank you in advance
p.s---i am using labview 7.0
Message Edited by krispiekream on 04-01-2008 03:41 PM
Best regards,
Krispiekream

i got it to print all files...
but i am wondering if we can use a function like...."fit to 1 page" as we can do it with windows...
does labview allow us to automatically shrink the contents to 1 page?
thanks
Best regards,
Krispiekream
Attachments:
PrintXL2000.ZIP ‏26 KB

A temporary solution for issue of excel sheet for SO_NEW_DOCUMENT_ATT_SEND_

Hi,
we all sometime or the other have faced the problem with SO_NEW_DOCUMENT_ATT_SEND_API1, it passes all the data into a single excel sheet. the following is the code i have written using the same standard FM to resolve the issue.
Problem's Facing : To send the output of a report as mail attachment (Excel sheet) from SAP, to the User's outlook or TCP/IP
What is happening : All the data which is being passed to the excel is being put in a single cell of the excel sheet.
Cause : the difficulty lies in getting the internal table from SAP report, passing it to email Function Module If the structure of the internal Table is unknown .
Solution:
if the user while sending data to the Function module ( created using the following code) puts a '#' between field values, all the fields gets separated into individual cells and the data gets printed as required.
advantages of the following code are:
1) User just need to type userid or multiple userid's separated by comma.
2) Performs multiple tasks with one function module.
3) It can be used to send file with subject only
4) It can be used to send file with subject and body
5) It can be used to send file with subject, body, and attachment
6) Attachment can be of 'TXT' format or 'XLS' format depending upon the choice of the user.
7) User specific parameters for EMAILID, subject, body and attachment type avoiding the dump error of "Type conflict"
8) If the user requires to send output of a report as an excel file, then a single internal table will store the total output separating the field values by ' # ' and the data gets printed evenly. the ' # ' symbol is used as Tab delimiter.
FUNCTION zemail_attachment.
""Local Interface:
*" IMPORTING
*" REFERENCE(EMAILID)
*" REFERENCE(SUBJECT)
*" REFERENCE(ATYPE)
*" TABLES
*" ATTACH_FILE STRUCTURE SOLISTI1
*" BODY OPTIONAL
*" EXCEPTIONS
*" INCORRECT_PARAMETERS
This table requires information about how the data in the
tables OBJECT_HEADER, CONTENTS_BIN and CONTENTS_TXT are
to be distributed to the documents and its attachments.
DATA it_objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
This table must contain the summarized data dependent on each object type.
SAPscript objects store information here about forms and styles,
for example. Excel list viewer objects store the number of rows and columns
amongst other things and PC objects store their original file name.
DATA it_objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE.
This table must contain the summarized content of the objects identified as binary objects.
DATA it_objbin TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0
 WITH HEADER LINE.
This table must contain the summarized content of the objects identified as ASCII objects.
DATA it_objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE.
This table must contain the document recipients.
DATA it_reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE .
This structure must contain the attributes of the document to be sent.
DATA: doc_ching LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.
Create the internal table for body , subject
DATA: it_body LIKE solisti1 OCCURS 10 WITH HEADER LINE.
*creation of internal table for Email-id.
DATA: BEGIN OF it_mailid OCCURS 0,
 email LIKE kna1-name1 ,
 END OF it_mailid.
*VARIABLES
DATA : v_hash(1) TYPE c VALUE '#'.
DATA: v_string1 LIKE kna1-name1,
 v_string2 LIKE kna1-name1,
 v_string3(12) TYPE c VALUE '@GMAIL.COM'.
*CONSATNTS
CONSTANTS: c_con_cret TYPE c VALUE cl_abap_char_utilities=>horizontal_tab,
 c_con_tab TYPE c VALUE cl_abap_char_utilities=>cr_lf,
 c_raw(3) TYPE c VALUE 'RAW',
 c_comma(1) TYPE c VALUE ',',
 c_rec_type(1) TYPE c VALUE 'U',
 c_space(1) TYPE c VALUE ''.
Move Body to Internal Table (body into it_body)
LOOP AT body .
 MOVE body TO it_body .
 APPEND it_body .
ENDLOOP.
doc_ching-obj_descr = subject. "Subject of the Email
Move the Subject and Body to OBJTXT
it_objtxt[] = it_body[].
DESCRIBE TABLE it_objtxt LINES tab_lines.
READ TABLE it_objtxt INDEX tab_lines.
doc_ching-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( it_objtxt ).
CLEAR it_objpack-transf_bin.
it_objpack-head_start = 1.
it_objpack-head_num = 0.
it_objpack-body_start = 1.
it_objpack-body_num = tab_lines.
it_objpack-doc_type = c_raw.
APPEND it_objpack.
Convert to Excel format
IF NOT attach_file[] IS INITIAL.
IF atype IS INITIAL.
RAISE INCORRECT_PARAMETERS.
ELSEIF atype = 'XLS' .
 LOOP AT attach_file .
 CONCATENATE attach_file v_hash INTO attach_file.
 REPLACE ALL OCCURRENCES OF v_hash IN attach_file WITH c_con_cret.
 IF sy-tabix = 1.
 MOVE attach_file TO it_objbin.
 ELSE.
 CONCATENATE c_con_tab attach_file INTO it_objbin.
 ENDIF.
 APPEND it_objbin.
 ENDLOOP.
ELSEIF atype = 'TXT' .
Convert to Text format
 LOOP AT attach_file .
 REPLACE ALL OCCURRENCES OF v_hash IN attach_file WITH c_con_cret.
 CONCATENATE attach_file c_con_tab INTO it_objbin .
 APPEND it_objbin .
 ENDLOOP.
ENDIF.
DESCRIBE TABLE it_objbin LINES tab_lines.
it_objhead = subject. APPEND it_objhead.
Creating the entry for the compressed attachment
it_objpack-transf_bin = 'X'.
it_objpack-head_start = 1.
it_objpack-head_num = 1.
it_objpack-body_start = 1.
it_objpack-body_num = tab_lines.
*check for XLS ,TXT files
IF atype = 'XLS'.
 it_objpack-doc_type = atype.
ELSEIF atype = 'TXT'.
 it_objpack-doc_type = c_raw.
ENDIF.
it_objpack-obj_name = 'ATTACHMENT'.
it_objpack-obj_descr = 'ATTACHMENT'. "Attachment File Name
it_objpack-doc_size = tab_lines * 255.
APPEND it_objpack..
ENDIF.
Entering names in the distribution list
Concatenating the email with '@GMAIL.COM if the user doesnot specify any mail extension
recipent type as U - for internet usage
SPLIT emailid AT c_comma INTO TABLE it_mailid.
APPEND it_mailid.
LOOP AT it_mailid.
 SHIFT it_mailid-email LEFT DELETING LEADING c_space.
 SPLIT it_mailid-email AT '@' INTO: v_string1 v_string2.
 IF v_string2 IS INITIAL AND NOT it_mailid-email IS INITIAL.
 CONCATENATE v_string1 v_string3 INTO it_reclist-receiver.
 it_reclist-rec_type = c_rec_type.
 APPEND it_reclist.
 CLEAR: v_string1,v_string2.
 ELSE.
 it_reclist-receiver = it_mailid-email.
 it_reclist-rec_type = c_rec_type.
 APPEND it_reclist.
 ENDIF.
ENDLOOP.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
 EXPORTING
 document_data = doc_ching
 put_in_outbox = 'X'
 commit_work = 'X'
 TABLES
 packing_list = it_objpack
 object_header = it_objhead
 contents_bin = it_objbin
 contents_txt = it_objtxt
 receivers = it_reclist
 EXCEPTIONS
 too_many_receivers = 1
 document_not_sent = 2
 operation_no_authorization = 4
 OTHERS = 99.
ENDFUNCTION.
If anyone, has a better solution, please share
Cheers
Ajay

issue resolved

How can i bring the column heading downloaded in excel sheet?

hi all,
I am using FM SAP_CONVERT_TO_XLS_FORMAT to downloading populated internal table data into excel sheet by using filename type rlgrap-filename.
Now I need the column heading(field name) for downloaded data in excel sheet.
pls tell me how can i merge the col heading with data perfectly. Is there any FM fulfills this requirement.
pls give me a suitable approch.
Thanks
PRR

HI,
Go thru this code.
REPORT ZRMM0056 NO STANDARD PAGE HEADING
 MESSAGE-ID ZZ
 LINE-SIZE 300
 LINE-COUNT 65.
Program : ZRMM0056
Title : Non Inventory PO's
Description : Non Inventory Purchase Orders details with
 Vendor and Invoice Receipts and Goods Receipts.
Input :
 Select-options : 1. G/L Account No
 Parameters : 1.File Paths for the Excel sheet
 Others (Specify):
Output : Extract Files in the application server
 Report :
Hear Ticket # : 113392
Created by : Srinivas Rao.M
Created on : 12/15/2005
Version : 1
Request : D10K944304
Transaction Code : Z420
Change History *
Date Programmer Search String Description *
12/19/2005 Srinivas D10K944316 Removed Purchasing document
 Company code and Plant from
 Select-Options and Inculded
 G/L Account No and changed
 code accordingly.
T A B L E S *
TABLES: EKBE, " History of Purchasing Document
 EKPO, " Purchasing Document Item
 EKKO, " Purchasing Document Header
 LFA1, " Vendor master (general section)
 EKKN. " Account Assignment in Purchasing Doc
 INTERNAL TABLES
*--Internal table to store Purchasing document header data
DATA : BEGIN OF IT_POHEADER OCCURS 0,
 EBELN LIKE EKKO-EBELN, "Purchasing document
 AEDAT LIKE EKKO-AEDAT, "Created on
 ERNAM LIKE EKKO-ERNAM, "Created by
 LIFNR LIKE EKKO-LIFNR, "Vendor
 END OF IT_POHEADER.
*--Internal table to store Purchasing document Item data
DATA : BEGIN OF IT_POITEM OCCURS 0,
 EBELN LIKE EKPO-EBELN, "Purchasing document
 EBELP LIKE EKPO-EBELP, "Item Number
 MATNR LIKE EKPO-MATNR, "Material number
 BUKRS LIKE EKPO-BUKRS, "Company code
 WERKS LIKE EKPO-WERKS, "Plant
 MATKL LIKE EKPO-MATKL, "Material Group
 MENGE LIKE EKPO-MENGE, "Order Quantity
 NETPR LIKE EKPO-NETPR, "Net Price
 PEINH LIKE EKPO-PEINH, "Price unit
 NETWR LIKE EKPO-NETWR, "Net Value
 END OF IT_POITEM.
*--Internal table to hold final display data.
DATA : BEGIN OF IT_FINAL OCCURS 0,
 EBELN LIKE EKKO-EBELN, "Purchasing document
 EBELP LIKE EKPO-EBELP, "Item Number
 AEDAT LIKE EKKO-AEDAT, "Created on
 ERNAM LIKE EKKO-ERNAM, "Created by
 MATNR LIKE EKPO-MATNR, "Material number
 BUKRS LIKE EKPO-BUKRS, "Company code
 WERKS LIKE EKPO-WERKS, "Plant
 MATKL LIKE EKPO-MATKL, "Material Group
 MENGE LIKE EKPO-MENGE, "Order Quantity
 NETPR LIKE EKPO-NETPR, "Net Price
 PEINH LIKE EKPO-PEINH, "Price unit
 NETWR LIKE EKPO-NETWR, "Net Value
 LIFNR LIKE EKKO-LIFNR, "Vendor
 NAME1 LIKE LFA1-NAME1, "Vendor Name
 GSBER LIKE EKKN-GSBER, "Business area
*--IR details
 IR_BELNR LIKE EKBE-BELNR, "IR-Number of Material Document
 IR_BUZEI LIKE EKBE-BUZEI, "IR-Item in material Document
 IR_BUDAT LIKE EKBE-BUDAT, "IR-Posting date
 IR_MENGE LIKE EKBE-MENGE, "IR-Quantity
*--GR details
 GR_BELNR LIKE EKBE-BELNR, "GR-Number of Material Document
 GR_BUZEI LIKE EKBE-BUZEI, "GR-Item in material Document
 GR_BUDAT LIKE EKBE-BUDAT, "GR-Posting date
 GR_MENGE LIKE EKBE-MENGE, "GR-Quantity
 END OF IT_FINAL.
*--Internal table to store History per Purchasing Document data
DATA : BEGIN OF IT_HISTORY OCCURS 0,
 EBELN LIKE EKBE-EBELN, "Purchasing document
 EBELP LIKE EKBE-EBELP, "Item
 VGABE LIKE EKBE-VGABE, "Trans/Event type
 BELNR LIKE EKBE-BELNR, "Number of Material Document
 BUZEI LIKE EKBE-BUZEI, "Item in material Document
 BUDAT LIKE EKBE-BUDAT, "Posting date
 MENGE LIKE EKBE-MENGE, "Quantity
 BEWTP LIKE EKBE-BEWTP, "Posting history category
 END OF IT_HISTORY.
*--Internal table to store vendor name.
DATA : BEGIN OF IT_VENDOR OCCURS 0,
 LIFNR LIKE LFA1-LIFNR, "Vendor Number
 NAME1 LIKE LFA1-NAME1, "Vendor Name
 END OF IT_VENDOR.
*--Internal table to store Business area for Purchasing document
DATA : BEGIN OF IT_BUSINESS OCCURS 0,
 EBELN LIKE EKKN-EBELN, "Purchasing document
 EBELP LIKE EKKN-EBELP, "Purchasing Item
 SAKTO LIKE EKKN-SAKTO, "G/L Account No
 GSBER LIKE EKKN-GSBER, "Business area
 END OF IT_BUSINESS.
DATA : BEGIN OF FIELDNAMES OCCURS 0,
 TEXT(40),
 END OF FIELDNAMES.
 VARIABLES DECLARATION *
DATA: V_FILE LIKE IBIPPARMS-PATH, "File path
 V_FLD LIKE DYNPREAD-FIELDNAME, "Dynpread fieldname
 V_FLAG(1) VALUE SPACE. "FLAG VARIABLE
 SELECTION-SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK S1 WITH FRAME TITLE TEXT-001.
*--Begin of change D10K944316
SELECT-OPTIONS : S_SAKTO FOR EKKN-SAKTO. "G/L Accoun no.
*--End of change D10K944316
SELECTION-SCREEN END OF BLOCK S1.
SELECTION-SCREEN BEGIN OF BLOCK S2 WITH FRAME TITLE TEXT-002.
PARAMETERS : P_EXCEL AS CHECKBOX DEFAULT ' ' . " download to excel
PARAMETERS : C_FILE(128) DEFAULT : 'C:\ZRMM0056.xls'.
SELECTION-SCREEN END OF BLOCK S2.
A T S E L E C T I O N - S C R E E N *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR C_FILE.
*-Form to get file path for download of data
PERFORM GET_FILE_PATH.
AT SELECTION-SCREEN.
PERFORM SCREEN_VALIDATIONS.
START-OF-SELECTION
START-OF-SELECTION.
*--Extract Purchasing document header data.
 PERFORM GET_PO_HEADER_DATA.
*--Extract Purchasing document Item data.
 IF NOT IT_BUSINESS[] IS INITIAL.
 PERFORM GET_PO_ITEM_DATA.
*--Get complete required data in final internal table
 PERFORM GET_FINAL_DATA.
 ENDIF.
END-OF-SELECTION
END-OF-SELECTION.
IF V_FLAG IS INITIAL.
*--Display Purchasing document details
 IF NOT IT_FINAL[] IS INITIAL.
 PERFORM DISPLAY_PODATA.
 IF P_EXCEL = 'X'.
*--To down load data to excel sheet
 PERFORM DOWN_LOAD_TO_EXCEL.
 ENDIF.
 ENDIF.
ELSE.
 MESSAGE I001(ZZ) WITH 'No data found'(003).
ENDIF.
TOP-OF-PAGE
TOP-OF-PAGE.
*--To display page header
PERFORM PAGE_HEADER.
*& Form GET_PO_HEADER_DATA
 To Get Purchasing header data
FORM GET_PO_HEADER_DATA .
*--To extract Business Area details
 CLEAR IT_BUSINESS.
 REFRESH IT_BUSINESS.
 SELECT EBELN "Purchasing document
 EBELP "Purchasing document item
 SAKTO "G/L Account no
 GSBER "Business area
 FROM EKKN
 INTO TABLE IT_BUSINESS
 WHERE SAKTO IN S_SAKTO.
IF SY-SUBRC <> 0.
 V_FLAG = 'X'.
 MESSAGE I001(ZZ) WITH
 'No data selected for the given selection criteria'(004).
 STOP.
ELSE.
*--To extract Purchasing document details with respect
to G/L Account no
 CLEAR IT_POHEADER.
 REFRESH IT_POHEADER.
 SELECT EBELN "Purchasing document
 AEDAT "Created on
 ERNAM "Created by
 LIFNR "Vendor
 FROM EKKO
 INTO TABLE IT_POHEADER
 FOR ALL ENTRIES IN IT_BUSINESS
 WHERE EBELN = IT_BUSINESS-EBELN.
 IF NOT IT_POHEADER[] IS INITIAL.
 CLEAR IT_VENDOR.
 REFRESH IT_VENDOR.
*--Extracting Vendor details
 SELECT LIFNR "Vendor #
 NAME1 "Name
 FROM LFA1
 INTO TABLE IT_VENDOR
 FOR ALL ENTRIES IN IT_POHEADER
 WHERE LIFNR = IT_POHEADER-LIFNR.
 ENDIF.
ENDIF.
ENDFORM. " GET_PO_HEADER_DATA
*& Form GET_PO_ITEM_DATA
 To extract Purchasing document item data
FORM GET_PO_ITEM_DATA .
CLEAR IT_POITEM.
REFRESH IT_POITEM.
 SELECT EBELN "Purchasing document
 EBELP "Item Number
 MATNR "Material number
 BUKRS "Company code
 WERKS "Plant
 MATKL "Material Group
 MENGE "Order Quantity
 NETPR "Net Price
 PEINH "Price unit
 NETWR "Net Value
 FROM EKPO
 INTO TABLE IT_POITEM
 FOR ALL ENTRIES IN IT_BUSINESS
 WHERE EBELN = IT_BUSINESS-EBELN
 AND EBELP = IT_BUSINESS-EBELP.
IF NOT IT_POITEM[] IS INITIAL.
 CLEAR IT_HISTORY.
 REFRESH IT_HISTORY.
 SELECT EBELN "Purchasing document
 EBELP "Item
 VGABE "Trans/Event type
 BELNR "Number of Material Document
 BUZEI "Item in material Document
 BUDAT "Posting date
 MENGE "Quantity
 BEWTP "Posting history category
 FROM EKBE
 INTO TABLE IT_HISTORY
 FOR ALL ENTRIES IN IT_POITEM
 WHERE EBELN = IT_POITEM-EBELN
 AND EBELP = IT_POITEM-EBELP
 AND ( VGABE = '1' OR VGABE = '2' ) "1 = GR , 2 = IR
 AND ( BEWTP = 'Q' OR BEWTP = 'E' ). "Q = GR , R = IR
 IF SY-SUBRC = 0.
 SORT IT_HISTORY BY EBELN EBELP.
 ENDIF.
ENDIF.
ENDFORM. " GET_PO_ITEM_DATA
*& Form GET_FILE_PATH
 Select file path
FORM GET_FILE_PATH .
CLEAR V_FILE.
MOVE 'p_flname' TO V_FLD.
MOVE C_FILE TO V_FILE.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 PROGRAM_NAME = SYST-CPROG
 DYNPRO_NUMBER = SYST-DYNNR
 FIELD_NAME = V_FLD
 IMPORTING
 FILE_NAME = V_FILE
 EXCEPTIONS
 OTHERS = 1.
MOVE V_FILE TO C_FILE.
ENDFORM. " GET_FILE_PATH
*& Form PAGE_HEADER
 To Print page header and other details
FORM PAGE_HEADER .
*--Page Header
ULINE AT /1(300).
FORMAT COLOR 1.
WRITE:/ 'Run Date:'(005), SY-DATUM, 45 'Stanley Works'(006),
 100 'Page No:'(007), SY-PAGNO LEFT-JUSTIFIED, 298 ''.
WRITE:/ 'Run Time:'(008), SY-UZEIT, 43 SY-TITLE, 100 SY-UNAME, 298 ''.
WRITE:/ 'Source :'(009), SY-SYSID, 100 SY-CPROG, 298 ''.
FORMAT COLOR OFF.
ULINE AT /1(300).
FORMAT COLOR 4.
WRITE : / SY-VLINE , (10) 'Purchasing Doc'(010),
 SY-VLINE, (5) 'Item'(011),
 SY-VLINE, (10) 'Created On'(012),
 SY-VLINE, (7) 'Crea By'(013),
 SY-VLINE, (10) 'Material'(014),
 SY-VLINE, (6) 'Com cd'(015),
 SY-VLINE, (5) 'Plant'(016),
 SY-VLINE, (10) 'Mat Group'(017),
 SY-VLINE, (13) 'Order Qty'(018),
 SY-VLINE, (11) 'Net Price'(019),
 SY-VLINE, (10) 'Price Unit'(020),
 SY-VLINE, (13) 'Net Value'(021),
 SY-VLINE, (8) 'Bus Area'(022),
 SY-VLINE, (10) 'Vendor'(023),
 SY-VLINE, (28) 'Vendor Name'(024),
*--IR details
 SY-VLINE, (10) 'IR-Mat Doc'(025),
 SY-VLINE, (5) 'IR-It'(026),
 SY-VLINE, (9) 'IR-Post dt'(027),
 SY-VLINE, (13) 'IR-Quantity'(028),
*--GR details
 SY-VLINE, (10) 'GR-Mat Doc'(029),
 SY-VLINE, (5) 'GR-It'(030),
 SY-VLINE, (9) 'GR-Post dt'(031),
 SY-VLINE, (13) 'GR-Quantity'(032), SY-VLINE.
FORMAT COLOR OFF.
ULINE AT /1(300).
ENDFORM. " PAGE_HEADER
*& Form SCREEN_VALIDATIONS
 Selection screen validations
FORM SCREEN_VALIDATIONS .
*--Validation for G/L Account No
IF NOT S_SAKTO IS INITIAL.
 SELECT SAKNR UP TO 1 ROWS
 INTO EKKN-SAKTO
 FROM SKA1 WHERE
 SAKNR IN S_SAKTO.
 ENDSELECT.
 IF SY-SUBRC <> 0.
 MESSAGE E001(ZZ) with 'Please enter a valid G/L Account no'(048).
 ENDIF.
ENDIF.
*--Validation for Excel file path
IF P_EXCEL = 'X'.
 IF C_FILE = ' '.
 MESSAGE E001(ZZ) with 'Please enter a valid Excle Path'(035).
 ENDIF.
ENDIF.
ENDFORM. " SCREEN_VALIDATIONS
*& Form DISPLAY_PODATA
 To Display Purchasing Document details
FORM DISPLAY_PODATA .
FORMAT COLOR 2.
SORT IT_FINAL BY EBELN EBELP AEDAT BUKRS WERKS.
LOOP AT IT_FINAL.
 WRITE : / SY-VLINE ,(10) IT_FINAL-EBELN, "Purchasing Doc
 SY-VLINE, (5) IT_FINAL-EBELP, "Item
 SY-VLINE, (10) IT_FINAL-AEDAT, "Created On
 SY-VLINE, (7) IT_FINAL-ERNAM, "Created By
 SY-VLINE, (10) IT_FINAL-MATNR, "Material
 SY-VLINE, (6) IT_FINAL-BUKRS, "Company code
 SY-VLINE, (5) IT_FINAL-WERKS, "Plant
 SY-VLINE, (10) IT_FINAL-MATKL, "Material Group
 SY-VLINE, (13) IT_FINAL-MENGE, "#EC UOM_IN_MES
 "Order Qty
 SY-VLINE, (11) IT_FINAL-NETPR, "#EC UOM_IN_MES
 "Net Price
 SY-VLINE, (10) IT_FINAL-PEINH, "#EC UOM_IN_MES
 "Price Unit
 SY-VLINE, (13) IT_FINAL-NETWR, "#EC UOM_IN_MES
 "Net Value
 SY-VLINE, (8) IT_FINAL-GSBER, "Bus Area
 SY-VLINE, (10) IT_FINAL-LIFNR, "Vendor
 SY-VLINE, (28) IT_FINAL-NAME1, "Vendor name
*--IR details
 SY-VLINE, (10) IT_FINAL-IR_BELNR, "IR-Mat Doc
 SY-VLINE, (5) IT_FINAL-IR_BUZEI, "IR-It
 SY-VLINE, (9) IT_FINAL-IR_BUDAT, "IR-Post dt
 SY-VLINE, (13) IT_FINAL-IR_MENGE, "#EC UOM_IN_MES
 "IR-Quantity
*--GR details
 SY-VLINE, (10) IT_FINAL-GR_BELNR, "GR-Mat Doc
 SY-VLINE, (5) IT_FINAL-GR_BUZEI, "GR-It
 SY-VLINE, (9) IT_FINAL-GR_BUDAT, "GR-Post dt
 SY-VLINE, (13) IT_FINAL-GR_MENGE, SY-VLINE.
 "#EC UOM_IN_MES
 "GR-Quantity
ENDLOOP.
FORMAT COLOR OFF.
ENDFORM. " DISPLAY_PODATA
*& Form DOWN_LOAD_TO_EXCEL
 text
FORM DOWN_LOAD_TO_EXCEL .
REFRESH FIELDNAMES.
FIELDNAMES-TEXT = TEXT-010.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-011.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-012.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Created By'(036).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-014.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Company Code'(037).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-016.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Material Group'(038).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Order Quantity'(039).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-019.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-020.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-021.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'Business Area'(040).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-023.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-024.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Material Doc'(041).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Item'(042).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'IR Posting Date'(043).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-028.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Material Doc'(044).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Item'(045).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = 'GR Posting Date'(046).
APPEND FIELDNAMES.CLEAR FIELDNAMES.
FIELDNAMES-TEXT = TEXT-032.
APPEND FIELDNAMES.CLEAR FIELDNAMES.
*--FM to download data to Excel sheet
CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 FILENAME = C_FILE
 FILETYPE = 'DAT'
 TABLES
 DATA_TAB = IT_FINAL
 FIELDNAMES = FIELDNAMES
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_WRITE_ERROR = 2
 INVALID_FILESIZE = 3
 INVALID_TABLE_WIDTH = 4
 INVALID_TYPE = 5
 NO_BATCH = 6
 UNKNOWN_ERROR = 7
 GUI_REFUSE_FILETRANSFER = 8
 OTHERS = 9.
IF SY-SUBRC <> 0.
 MESSAGE E001(ZZ) WITH 'Data could not downloaded'(047).
ENDIF.ENDFORM. " DOWN_LOAD_TO_EXCEL
*& Form GET_FINAL_DATA
 To Populate required data in final internal table
FORM GET_FINAL_DATA .
CLEAR IT_FINAL.
REFRESH IT_FINAL.
LOOP AT IT_POITEM.
 CLEAR IT_POHEADER.
 READ TABLE IT_POHEADER WITH KEY EBELN = IT_POITEM-EBELN.
 IF SY-SUBRC = 0.
 MOVE : IT_POHEADER-EBELN TO IT_FINAL-EBELN, "Purchasing Doc
 IT_POITEM-EBELP TO IT_FINAL-EBELP, "Item
 IT_POHEADER-AEDAT TO IT_FINAL-AEDAT, "Created On
 IT_POHEADER-ERNAM TO IT_FINAL-ERNAM, "Created By
 IT_POITEM-MATNR TO IT_FINAL-MATNR, "Material
 IT_POITEM-BUKRS TO IT_FINAL-BUKRS, "Company code
 IT_POITEM-WERKS TO IT_FINAL-WERKS, "Plant
 IT_POITEM-MATKL TO IT_FINAL-MATKL, "Material Group
 IT_POITEM-MENGE TO IT_FINAL-MENGE, "Order Qty
 IT_POITEM-NETPR TO IT_FINAL-NETPR, "Net Price
 IT_POITEM-PEINH TO IT_FINAL-PEINH, "Price Unit
 IT_POITEM-NETWR TO IT_FINAL-NETWR, "Net Value
 IT_POHEADER-LIFNR TO IT_FINAL-LIFNR. "Vendor
*--To Insert IR details
 CLEAR IT_HISTORY.
 READ TABLE IT_HISTORY WITH KEY EBELN = IT_POITEM-EBELN
 EBELP = IT_POITEM-EBELP
 VGABE = '2'
 BEWTP = 'Q'.
 IF SY-SUBRC = 0.
 MOVE :
 IT_HISTORY-BELNR TO IT_FINAL-IR_BELNR, "IR-Number of Mat Doc
 IT_HISTORY-BUZEI TO IT_FINAL-IR_BUZEI, "IR-Item in mat Doc
 IT_HISTORY-BUDAT TO IT_FINAL-IR_BUDAT, "IR-Posting date
 IT_HISTORY-BUDAT TO IT_FINAL-IR_MENGE. "IR-Quantity
 ENDIF.
*--To insert GR details
 CLEAR IT_HISTORY.
 READ TABLE IT_HISTORY WITH KEY EBELN = IT_POITEM-EBELN
 EBELP = IT_POITEM-EBELP
 VGABE = '1'
 BEWTP = 'E'.
 IF SY-SUBRC = 0.
 MOVE :
 IT_HISTORY-BELNR TO IT_FINAL-GR_BELNR, "IR-Number of Mat Doc
 IT_HISTORY-BUZEI TO IT_FINAL-GR_BUZEI, "IR-Item in mat Doc
 IT_HISTORY-BUDAT TO IT_FINAL-GR_BUDAT, "IR-Posting date
 IT_HISTORY-BUDAT TO IT_FINAL-GR_MENGE. "IR-Quantity
 ENDIF.
*--To insert Vendor details
 CLEAR IT_VENDOR.
 READ TABLE IT_VENDOR WITH KEY LIFNR = IT_POHEADER-LIFNR.
 IF SY-SUBRC = 0.
 MOVE : IT_VENDOR-NAME1 TO IT_FINAL-NAME1.
 ENDIF.
*--To insert Business area
 CLEAR IT_BUSINESS.
 READ TABLE IT_BUSINESS WITH KEY EBELN = IT_POITEM-EBELN
 EBELP = IT_POITEM-EBELP.
 IF SY-SUBRC = 0.
 MOVE : IT_BUSINESS-GSBER TO IT_FINAL-GSBER.
 ENDIF.
 APPEND IT_FINAL.
 CLEAR IT_FINAL.
 ENDIF.
ENDLOOP.
ENDFORM. " GET_FINAL_DATA
thanks
Sunil

Time stamp to excel sheet

I want to print time stamp every second to an excel sheet, tried 1000 of times to add row to the sheet but failed, any clue how to?
Attachments:
time stamp in a row.vi ‏67 KB

That's because you're wiring the N value of the for-loop to the "column" element of the cell cluster, and you are wiring a constant of 1 to the "row" element of the cluster. You also have several issues with the code:
Do NOT hard-code a path the way you are doing. What will happen if someone else tries to run this code? What will happen if it runs on another computer that has Windows XP? Use a control and set it to a default value if you want.
No error handling whatsoever.
Do not use integer constants in lieu of enumerations. The VIs you are calling have parameters for which enumerations are provided. Use them. Right-click on the inputs and select Create->Constant. This will create the enumerations for you. They are self-documenting.
Do not have a time delay that cannot be bypassed if there is an error. You are running the loop 500 times. What will happen if there's an error on iteration 20? The loop still has to run 480 times, forcing you to wait 480 seconds before you can stop.
Be aware that timestamps between LabVIEW and Excel are different, since they use different epochs. This has been discussed ad nauseam in these forums, so do a search and you will find out how to deal with this.
See attached modification as a starting point. You should also review the LabVIEW training materials. To learn more about LabVIEW it is recommended that you go through the introduction material, tutorial(s), and other material in the NI Developer Zone's Learning Center which provides links to other materials and other tutorials. There are also several Technical Resources. You can also take the online courses for free.
Attachments:
time stamp in a row MOD.vi ‏79 KB

How can i know about the page breaks that occur in excel sheet during report gen

Hello,
I am trying to generate an Excel report with a large number of columns. and i am facing the problem of some of the columns not fitting into the page due to the page break. as a result, these columns are being printed at the end of the report. I would like to add the Row and Column headers to the remaining of the columns so that it is easy to recognise as to which table they belong to. i would like to know if there is any method to find out when the page break occurs in the excel sheet, along with the last printed column number, so that it would be easy for me to add the Row and Column headers before the next row/column is printed.
Thank You
Regards
Tweetz.

Hi Tweetz,
I have tried to find a way to do what you are asking, but have been unsuccessful. However, you can control where the page breaks occur by using the "New Report Page.vi". You can call this VI after appending the table to the report, and specify the cell where you wish to insert a new page break (using the "position" or "name" elements of the "MS office parameters" input). If you know the page size and you specify the column widths, you should be able to pick reasonable places to start a new page.
I hope that helps!
Devin K
Systems Engineering - RTT & HIL

Batch job print parameters missing

I have 4 BATCH jobs that output to a pdf via MAIL. The data is shrunk so small that it cannot be read. If I am in SP01, and I try to reprint with changed parameters, only a select few formats are available. (All the ABAP/4 lists).
I went to SPAD -> Full Administration -> Device Types -> Choose the device type -> Formats
I see the the output DEVICE associated with MAIL is PDF1. I checked the formats that are already listed. It seems that some of these will suit my needs - however, most of them are not available to choose when I edit the batch job.
How can I add a different format? I need to test several to find a size that will accommodate a very wide table.
All suggestions welcome.
Thanks!

It's pretty huge. Columns A-W. The length varies, but this week's was 195 rows. I tried to create a new format, but I supposed it will never fit on a normal sheet of paper.
Is it possible to "print" to an Excel file from a batch job?
Right now, I am going back into SP01 and downloading to excel and emailing it out.
Think this can be automated?
Thanks for your input

Uploading from excel sheet

can anyone tel me how 2 upload data from a excel sheet ??
can it be done using gui_upload or os there any other funtion module ??

Hi Vignesh,
Steps to create a BDC program.
1. Create an internal table with fields same as Excel sheet fields.
2. Declare an internal table with BDCDATA table to store the BDC recording.
3. Declare an internal table with BDCMSGCOL to store the error messages after
the execution of the BDC.
4. Write the code using the fun. module ALSM_EXCEL_TO_INTERNAL_TABLE
to upload the data from the excel sheet.
5. loop that internal table and write the Subroutines to fill the internal table
BDCDATA with the recording of a specified Transaction Code.
6. Using Call Transaction execute the BDC recording.
7. Check Sy-subrc = 0 and store the error messages in the internal table.
8. If you want you can pass those error records to a session using the SESSION method.
Here is an example of a BDC program, but this program is from a text file. Change the function module WS_UPLOAD with ALSM_EXCEL_TO_INTERNAL_TABLE
to upload an excel and write the program with your BDC recording. You can do recording using t-code SHDB.
Sample Program:
REPORT ZRAJ_DATASET_XD01 NO STANDARD PAGE HEADING LINE-SIZE 132
LINE-COUNT 60
MESSAGE-ID Z00.
Table/Structure declarations. *
TABLES : KNA1. "Customer master
Constants declarations. *
CONSTANTS : C_MODE VALUE 'N',
C_UPDATE VALUE 'S',
C_X VALUE 'X',
C_SESS TYPE APQI-GROUPID VALUE 'ZCUSTOMER', "Session Name
C_XD01 LIKE TSTC-TCODE VALUE 'XD01'.
Variable declarations. *
DATA : V_FNAME(15) VALUE SPACE, " Name of file to be created
V_FAILREC TYPE I, " No of failed records
V_MSG(255), " Message Text
V_ERRREC TYPE I, " No of failed records
V_LINES TYPE I. " No of records
*-- FLAG DECLARATIONS
DATA : FG_DATA_EXIST VALUE 'X', " Check for data
FG_SESSION_OPEN VALUE ' '. " Check for Session Open
Structures / Internal table declarations *
*-- Structure to hold BDC data
TYPES : BEGIN OF T_BDCTABLE.
INCLUDE STRUCTURE BDCDATA.
TYPES END OF T_BDCTABLE.
*-- Structure to trap BDC messages
TYPES : BEGIN OF T_MSG.
INCLUDE STRUCTURE BDCMSGCOLL.
TYPES : END OF T_MSG.
*-- Structure to trap ERROR messages
TYPES : BEGIN OF T_ERR_MSG,
MESSAGE(255),
END OF T_ERR_MSG.
*--Internal table to store flat file data
DATA:BEGIN OF IT_KNA1 OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
KTOKD LIKE T077D-KTOKD,
NAME1 LIKE KNA1-NAME1,
SORTL LIKE KNA1-SORTL,
ORT01 LIKE KNA1-ORT01,
PSTLZ LIKE KNA1-PSTLZ,
LAND1 LIKE KNA1-LAND1,
SPRAS LIKE KNA1-SPRAS,
LZONE LIKE KNA1-LZONE,
END OF IT_KNA1.
*-- Internal table to hold BDC data
DATA: IT_BDCDATA TYPE STANDARD TABLE OF T_BDCTABLE WITH HEADER LINE,
*-- Internal Table to store ALL messages
IT_MSG TYPE STANDARD TABLE OF T_MSG WITH HEADER LINE,
*-- Internal Table to store error messages
IT_ERR_MSG TYPE STANDARD TABLE OF T_ERR_MSG WITH HEADER LINE.
Selection Screen. *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_FLNAME(15) OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : R_LIST RADIOBUTTON GROUP GRP1.
SELECTION-SCREEN COMMENT 5(20) TEXT-003.
PARAMETERS : R_SESS RADIOBUTTON GROUP GRP1.
SELECTION-SCREEN COMMENT 30(20) TEXT-004.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
Event:Initialization *
INITIALIZATION.
AT Selection Screen. *
AT SELECTION-SCREEN.
Event: Start-of-Selection *
START-OF-SELECTION.
V_FNAME = P_FLNAME.
PERFORM GET_DATA.
PERFORM GENERATE_DATASET.
Event: End-of-Selection *
END-OF-SELECTION.
IF FG_DATA_EXIST = ' '.
MESSAGE I010 WITH TEXT-009.
EXIT.
ENDIF.
PERFORM GENERATE_BDCDATA.
PERFORM DISPLAY_ERR_RECS.
Event: top-of-page
TOP-OF-PAGE.
FORM DEFINITIONS *
*& Form get_data
Subroutine to get the data from mard
--> p1 text
<-- p2 text
FORM GET_DATA.
CALL FUNCTION 'UPLOAD'
EXPORTING
CODEPAGE = ' '
FILENAME = 'C:\XD01.TXT'
FILETYPE = 'DAT'
ITEM = ' '
FILEMASK_MASK = ' '
FILEMASK_TEXT = ' '
FILETYPE_NO_CHANGE = ' '
FILEMASK_ALL = ' '
FILETYPE_NO_SHOW = ' '
LINE_EXIT = ' '
USER_FORM = ' '
USER_PROG = ' '
SILENT = 'S'
IMPORTING
FILESIZE =
CANCEL =
ACT_FILENAME =
ACT_FILETYPE =
TABLES
DATA_TAB = IT_KNA1
EXCEPTIONS
CONVERSION_ERROR = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
OTHERS = 7
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IF IT_KNA1[] IS INITIAL.
FG_DATA_EXIST = ' '.
ENDIF.
ENDFORM. " get_data
*& Form GENERATE_DATASET
text
--> p1 text
<-- p2 text
FORM GENERATE_DATASET.
MESSAGE I010 WITH 'OPENING FILE IN APPLICATION SERVER'.
**--Creating a data set in application server
OPEN DATASET V_FNAME FOR OUTPUT IN TEXT MODE.
**---Transfering data from internal table to dataset
MESSAGE I010 WITH 'TRANSFERING DATA FROM INETERAL TABLE TO THE FILE'.
LOOP AT IT_KNA1.
TRANSFER IT_KNA1 TO V_FNAME.
ENDLOOP.
**--Closing the dataset
MESSAGE I010 WITH 'CLOSING THE FILE'.
CLOSE DATASET V_FNAME.
ENDFORM. " GENERATE_DATASET
*& Form BDC_DYNPRO
text
-->P_0467 text
-->P_0468 text
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR IT_BDCDATA.
IT_BDCDATA-PROGRAM = PROGRAM.
IT_BDCDATA-DYNPRO = DYNPRO.
IT_BDCDATA-DYNBEGIN = 'X'.
APPEND IT_BDCDATA.
ENDFORM.
*& Form BDC_FIELD
text
-->P_0472 text
-->P_0473 text
FORM BDC_FIELD USING FNAM FVAL.
IF NOT FVAL IS INITIAL.
CLEAR IT_BDCDATA.
IT_BDCDATA-FNAM = FNAM.
IT_BDCDATA-FVAL = FVAL.
APPEND IT_BDCDATA.
ENDIF.
ENDFORM.
*& Form GENERATE_BDCDATA
text
--> p1 text
<-- p2 text
FORM GENERATE_BDCDATA.
REFRESH IT_KNA1.
Opening dataset for reading
OPEN DATASET V_FNAME FOR INPUT IN TEXT MODE.
Reading the file from application server
DO.
CLEAR: IT_KNA1,IT_BDCDATA.
REFRESH IT_BDCDATA.
READ DATASET V_FNAME INTO IT_KNA1.
IF SY-SUBRC <> 0.
EXIT.
ELSE.
Populate BDC Data for Initial Screen
PERFORM : BDC_DYNPRO USING 'SAPMF02D' '0100',
BDC_FIELD USING 'BDC_CURSOR' 'RF02D-KUNNR',
BDC_FIELD USING 'BDC_OKCODE' '/00',
BDC_FIELD USING 'RF02D-KUNNR' IT_KNA1-KUNNR,
BDC_FIELD USING 'RF02D-KTOKD' IT_KNA1-KTOKD.
Populate BDC Data for Second Screen
PERFORM : BDC_DYNPRO USING 'SAPMF02D' '0110',
BDC_FIELD USING 'BDC_CURSOR' 'KNA1-NAME1',
BDC_FIELD USING 'BDC_OKCODE' '/00',
BDC_FIELD USING 'KNA1-NAME1' IT_KNA1-NAME1,
BDC_FIELD USING 'KNA1-SORTL' IT_KNA1-SORTL,
BDC_FIELD USING 'KNA1-ORT01' IT_KNA1-ORT01,
BDC_FIELD USING 'KNA1-PSTLZ' IT_KNA1-PSTLZ,
BDC_FIELD USING 'KNA1-LAND1' IT_KNA1-LAND1,
BDC_FIELD USING 'KNA1-SPRAS' IT_KNA1-SPRAS.
Populate BDC Data for Third Screen
PERFORM : BDC_DYNPRO USING 'SAPMF02D' '0120',
BDC_FIELD USING 'BDC_CURSOR' 'KNA1-LZONE',
BDC_FIELD USING 'BDC_OKCODE' '=UPDA',
BDC_FIELD USING 'KNA1-LZONE' IT_KNA1-LZONE.
CALL TRANSACTION C_XD01 USING IT_BDCDATA
MODE C_MODE
UPDATE C_UPDATE
MESSAGES INTO IT_MSG.
IF SY-SUBRC <> 0.
*--In case of error list display
IF R_LIST = C_X.
V_ERRREC = V_ERRREC + 1.
PERFORM FORMAT_MESSAGE.
IT_ERR_MSG-MESSAGE = V_MSG.
APPEND IT_ERR_MSG.
CLEAR : V_MSG,IT_ERR_MSG.
ENDIF.
*--In case of session log
IF R_SESS = C_X.
*-- In case of transaction fails.
IF FG_SESSION_OPEN = ' '.
FG_SESSION_OPEN = C_X.
PERFORM BDC_OPEN_GROUP.
ENDIF. " IF FG_SESSION_OPEN = ' '.
*-- Insert BDC Data..
PERFORM BDC_INSERT_DATA.
ENDIF. " IF R_SESS = C_X.
ENDIF. " IF SY-SUBRC <> 0.
ENDIF. " IF SY-SUBRC <> 0.
ENDDO.
Closing the dataset
CLOSE DATASET V_FNAME.
*-- Close the session if opened
IF FG_SESSION_OPEN = C_X.
PERFORM BDC_CLOSE_GROUP.
CALL TRANSACTION 'SM35'.
ENDIF.
ENDFORM. " GENERATE_BDCDATA
*& Form BDC_OPEN_GROUP
text
--> p1 text
<-- p2 text
FORM BDC_OPEN_GROUP.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
CLIENT = SY-MANDT
DEST = FILLER8
GROUP = C_SESS
HOLDDATE = FILLER8
KEEP = C_X
USER = SY-UNAME
RECORD = FILLER1
IMPORTING
QID =
EXCEPTIONS
CLIENT_INVALID = 1
DESTINATION_INVALID = 2
GROUP_INVALID = 3
GROUP_IS_LOCKED = 4
HOLDDATE_INVALID = 5
INTERNAL_ERROR = 6
QUEUE_ERROR = 7
RUNNING = 8
SYSTEM_LOCK_ERROR = 9
USER_INVALID = 10
OTHERS = 11
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " BDC_OPEN_GROUP
*& Form BDC_INSERT_DATA
text
--> p1 text
<-- p2 text
FORM BDC_INSERT_DATA.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
TCODE = C_XD01
POST_LOCAL = NOVBLOCAL
PRINTING = NOPRINT
TABLES
DYNPROTAB = IT_BDCDATA
EXCEPTIONS
INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
PRINTING_INVALID = 5
POSTING_INVALID = 6
OTHERS = 7
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " BDC_INSERT_DATA
*& Form BDC_CLOSE_GROUP
text
--> p1 text
<-- p2 text
FORM BDC_CLOSE_GROUP.
CALL FUNCTION 'BDC_CLOSE_GROUP'
EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 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.
ENDFORM. " BDC_CLOSE_GROUP
*& Form FORMAT_MESSAGE
text
--> p1 text
<-- p2 text
FORM FORMAT_MESSAGE.
CLEAR V_LINES.
DESCRIBE TABLE IT_MSG LINES V_LINES.
READ TABLE IT_MSG INDEX V_LINES.
CLEAR V_MSG.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
ID = IT_MSG-MSGID
LANG = IT_MSG-MSGSPRA
NO = IT_MSG-MSGNR
V1 = IT_MSG-MSGV1
V2 = IT_MSG-MSGV2
V3 = IT_MSG-MSGV3
V4 = IT_MSG-MSGV4
IMPORTING
MSG = V_MSG
EXCEPTIONS
NOT_FOUND = 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.
ENDFORM. " FORMAT_MESSAGE
*& Form DISPLAY_ERR_RECS
text
--> p1 text
<-- p2 text
FORM DISPLAY_ERR_RECS.
LOOP AT IT_ERR_MSG.
WRITE: / IT_ERR_MSG-MESSAGE.
ENDLOOP.
ENDFORM. " DISPLAY_ERR_RECS
And
To simply load Excel to Internal table follow this :
First of all , before you move your data from excel sheet to the internal table, you need to specify a location for uploading the excel sheet into your internal table.
for this u need to use two specific FM's .
the first one for file selection : WS_FILENAME_GET.
The second one for data upload : TEXT_CONVERT_XLS_TO_SAP.
After doing this the regular part of mapping comes and then we can run the session and then execute and release it.
Hope this resolves your query.
Reward all the helpful answers.
Regards

Print parameters in Excel sheet

Similar Messages

Maybe you are looking for