How to send the ALV GRID output to spool by using the print button in std t

How to send the ALV GRID output to spool by using the print button in standard tool bar.
We have created a button in the va02 transaction. If user click on the button the new screen will be display on that screen we are populating the alv grid output using the oops concept. But i am unable to send the output to spool using the print button in the standard tool bar.
I am able to display the Print parameter dialog box but i am not able to send it to spool.
Kindly help.
Thanks In Advance.
G.V.Ramana

Hi Shaik,
There is not properties button in my print screen.
MODULE user_command_0900 INPUT.
 WHEN 'EXCEL'.
 PERFORM excel_download.
 WHEN 'PRI'.
 PERFORM print_output.
form Print_output.
CALL FUNCTION 'RSPO_LIST_LAYOUT_FITS'
 EXPORTING
 columns = 80
 device = 'ANY '
 lines = 65
 maxpenality = 1999
 TABLES
 layouts = lt_layouts1
 EXCEPTIONS
 unknown_device = 1
 OTHERS = 2.
 IF sy-subrc = 0.
 LOOP AT lt_layouts1.
 IF lt_layouts1-penality < 1000 AND
 lt_layouts1-penality < l_min_penality.
 l_layout = lt_layouts1-layout.
 l_min_penality = lt_layouts1-penality.
 ENDIF.
 ENDLOOP.
 IF NOT l_layout IS INITIAL.
 CALL FUNCTION 'GET_PRINT_PARAMETERS'
 EXPORTING
 mode = 'CURRENT'
 line_size = 80 "#EC *
 new_list_id = l_new_list_id
 no_dialog = l_no_dialog
 layout = l_layout
 IMPORTING
 out_archive_parameters = rs_arc_params
 out_parameters = rs_pri_params
 valid = l_valid
 EXCEPTIONS
 archive_info_not_found = 1
 invalid_print_params = 2
 invalid_archive_params = 3
 OTHERS = 4.
 IF sy-subrc NE 0. " INS SLIN
 ENDIF. " INS SLIN
 IF rs_pri_params-linsz LT 80 OR
 rs_pri_params-linsz LT gt_stack-s_lprint-width.
 gt_stack-print_line_break = 'X'.
 ELSE.
 CLEAR gt_stack-print_line_break.
 ENDIF.
 IF l_valid NE 'X'.
 rs_pri_params = ls_pri_params_sav.
 rs_arc_params = ls_arc_params_sav.
 ENDIF.
 ENDIF.
 ENDIF.
endform. " Print_output
 CALL METHOD gv_cost_tot_alv_grand->set_table_for_first_display
 EXPORTING
 is_layout = gs_layout_cost_tot_grand
 CHANGING
 it_fieldcatalog = gt_fcat_cost_tot_grand[]
 it_outtab = gt_cost_tot_grand[].
Please check my code

Similar Messages

How to do the ALV report output in groups and caluculate the tOTALS(URGENT

Hi
In my ALV report output .I have to group the output based on the DAYS field
0-10 days in one group
10-30 days in one group
above 30 days one group
There is also a field by name "AMOUNT" in my output.
I have to calculate SUBTOTALs at the end of every group and at the end of the report i should caluculate GRAND TOTAL.
Please remember that i should not use any any BLOCKED ALVs and for Totals i should not use the SYMBOLS provided in the application toolbar of the report
Thanks in Advance

Please don't repost your questions...
Check out my answer in your other post.
How to make the ALV report in groups and caluculate the TOTALS
Regards,
Naimesh Patel

How to send job postings to multiple third party sites using the XML output

Dear Friends,
We are Implementing Irecruitment for our client, Client requirement is how can we send job postings to multiple third party sites using the XML output from i-Recruitment
With regards
Surya
.

Can you be more specific about your Requirement. In General, Please navigate to iRecruitment Recruiter Responisbility.
Then Select, Setup > Recruiting Sites. Here, you can configure your Third Party Websites information and attach stylesheets. The default mode oracle sends the vacancy information is HR-XML Format.
If you would like to select more sites information select "Add Another Row".
Then, you can see this information while "New Vacancy Creation Process".
iRecruiter.
Edited by: iRecruiter on Oct 18, 2009 7:43 AM

How to add icon field in the alv grid output

Hi Experts,
i need to add one icom column in the alvgrid.That icon if the contract is inacitve then it should shows inactive symbol.if the contract is account assignment lock then it should show that lock symbol.Please send me the any code or approach.
Thanks,
Venkat.

Hello Venkat
Set ls_fcat-icon = 'X' in the fieldcatalog for the column where you want to display icons. In addition, add the following statement to your report:
TYPE-POOLS: icon. " replaces INCLUDE <icon>.
Do not use the coded values (e.g. '@01@') but the "normal" icon names, e.g. ICON_DETAIL.. In order to see the icon names call transaction SE38/SA38 and run report RSTXICON.
Regards
Uwe

Can we display only sub totals on the alv grid output

hi,
can we display only the subtotals calculated on the grid display.it should display all the data it shpuld display only the subtotals of it.
if yes can any one please give me the code for
will be awarded with points.

Hi Raju
You can do that
When you are doing fieldcatalog,comment ws_fieldcat-do_sum = 'x'.
if you comment that it wont display totals.
use sort
i_sort type slis_alv...
clear ws_sort.
ws_sort1-spos = '1'<position of field>
ws_sort-fieldname = 'matnr'.
ws_sort-up = 'x'.
append ws_sort to i_sort.
pass this i_sort to FM

How to display the alv report blocks wise with out using the blocked alv

Hi
How to display the alv report with out using the blocked alv function module.
Thanks
Chinnu

see this Standard Program
RPR_ABAP_SOURCE_SCAN

How to supress dialog while ALV Grid output is send to Spool

Hi,
I need to get the ALV grid output in spool.But when i am executing my program using ALV grid function module with print parameter passed,first its giving a popup with default printer and number of copies and when i press ok for the popup ,spool request is created.But i dont want this popup to come while executing my program.It should create the spool request directly. How to solve this issue.
Regards
Shibin

Hi Shibin,
Try the below parameter in IS_PRINT Structure:
is_print-print = 'N'.
This will Supress the Dialog and create a Spool with no Immeadiate Output.
Hope This Helps you..
Thanks & Regards,
Suresh Karri

In ME2N report for PO- How to get or add Vendor name in ALV grid output

Hl Everyone
How to get or add Vendor Name and payment terms in the ALV grid output for the follwing reports like ME2N and ME2V.
cuurently i am in 4.7 E version.
Kindly suggest..........
thanks in advance
Regards
Prashanth

Hi Pankaj
I knew that vendor name field is avaiable in ECC versions, but how to get the same field(vendor name) in 4.7 E vesion.
Kindly suggest
Regards
Prashanth

Displaying the selected rows in ALV Grid output

Hi Experts,
I am developing one interactive ALV Grid report where user can process the selected records/rows from the ALV Grid output.
for displaying the ALV Grid, I have used the class CL_GUI_ALV_GRID class. I am working on ECC 6.0 system.
when I select any records/rows from output and then press any Application Toolbar button, PAI and then PBO modules of the screen gets executed as per the normal flow.
however After PBO, when same ALV output comes, all the selected/highlighted rows appear as unselected, that means I want to retain the ALV
rows selection during the round trip.
please advise.
Regards,
Jagesh

Hi,
Feiyun Wu is correct.
Get_selected_rows and set_selected_rows are the methods to be used .
Some code:
Note the sequence of code:
FORM set_gui_alv_grid_1 .
DATA: wa_layout TYPE lvc_s_layo ,
 wa_print TYPE lvc_s_prnt .
DATA: it_sort TYPE lvc_t_sort ,
 wa_sort TYPE LINE OF lvc_t_sort .
DATA: it_fieldcatalog TYPE lvc_t_fcat.
IF gui_custom_container_1 IS INITIAL .
 CREATE OBJECT gui_custom_container_1
 EXPORTING
 container_name = 'GUI_CUSTOM_CONTAINER_1'
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 lifetime_dynpro_dynpro_link = 5
 OTHERS = 6 .
 IF sy-subrc <> 0.
 ENDIF.
 PERFORM get_field_catalog
 USING gc_log_group_1
 CHANGING it_fieldcatalog .
 CREATE OBJECT gui_alv_grid_1
 EXPORTING i_parent = gui_custom_container_1.
 CREATE OBJECT ob_event_receiver_1
 EXPORTING log_group = gc_log_group_1 .
* registers the event handlers
 SET HANDLER ob_event_receiver_1->handle_toolbar FOR gui_alv_grid_1 .
 SET HANDLER ob_event_receiver_1->handle_user_command FOR gui_alv_grid_1 .
 SET HANDLER ob_event_receiver_1->print_top_of_page FOR gui_alv_grid_1 .
 SET HANDLER ob_event_receiver_1->hotspot_click FOR gui_alv_grid_1 .
 wa_layout-cwidth_opt = abap_true .
* wa_layout-excp_fname = gc_excp_fname .
* wa_layout-ctab_fname = gc_ctab_fname.
* wa_layout-excp_led = abap_true .
 CALL METHOD gui_alv_grid_1->set_table_for_first_display
 EXPORTING
 is_layout = wa_layout
 is_print = wa_print
 i_save = 'A'
 is_variant = gs_disvariant_1
 CHANGING
 it_sort = it_sort
 it_fieldcatalog = it_fieldcatalog
 it_outtab = it_alv_grid_1.
ELSE .
 CALL METHOD gui_alv_grid_1->refresh_table_display.
* Restore selections
 CALL METHOD gui_alv_grid_1->set_selected_rows
 EXPORTING
 it_index_rows = ob_event_receiver_1->it_rows.
* Restore position
 CALL METHOD gui_alv_grid_1->set_scroll_info_via_id
 EXPORTING
 is_col_info = ob_event_receiver_1->wa_col
 is_row_no = ob_event_receiver_1->wa_roid.
ENDIF.
ENDFORM . "set_gui_alv_grid_1
Regards.

How do I save ALV Grid O/P to spool

Hi All,
           I have a requirement of saving alv grid output to spool. How can this be done?
could I get any help on this?
Thanks & Regards,
Deepak Raj

DATA: BEGIN OF i_mara OCCURS 0,
matnr LIKE mara-matnr.
DATA: END OF i_mara.
DATA: v_dest LIKE tsp01-rqdest,
v_handle LIKE sy-tabix,
v_spool_id LIKE tsp01-rqident,
v_rc TYPE c,
v_errmessage(100) TYPE c,
v_text(70) TYPE c.
START-OF-SELECTION.
SELECT matnr FROM mara INTO TABLE i_mara.
CALL FUNCTION 'RSPO_OPEN_SPOOLREQUEST'
       EXPORTING
            dest            = 'LOCL'
           layout          =
           name            =
           suffix1         =
           suffix2         =
           copies          =
           prio            =
           immediate_print =
           auto_delete     =
           titleline       =
           receiver        =
           division        =
           authority       =
           posname         =
           acttime         =
            lifetime        = '8'
           append          =
           coverpage       =
           codepage        =
           doctype         =
       importing
            handle          = v_handle
            spoolid         = gd_spool_nr
            rc              = v_rc
            errmessage      = v_errmessage.
LOOP AT i_mara.
    v_text = i_mara-matnr.
    CALL FUNCTION 'RSPO_WRITE_SPOOLREQUEST'
         EXPORTING
              handle           = v_handle
              text             = v_text
              length           =
              codepage         =
              truncate         =
         importing
              rc               = v_rc
              errmessage       = v_errmessage
         EXCEPTIONS
              handle_not_valid = 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.
ENDLOOP.
CALL FUNCTION 'RSPO_CLOSE_SPOOLREQUEST'
       EXPORTING
            handle           = v_handle
       IMPORTING
            rc               = v_rc
            errmessage       = v_errmessage
       EXCEPTIONS
            handle_not_valid = 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.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
       EXPORTING
            src_spoolid              = gd_spool_nr
            no_dialog                = c_no
            dst_device               = c_device
       IMPORTING
            pdf_bytecount            = gd_bytecount
       TABLES
            pdf                      = it_pdf_output
       EXCEPTIONS
            err_no_abap_spooljob     = 1
            err_no_spooljob          = 2
            err_no_permission        = 3
            err_conv_not_possible    = 4
            err_bad_destdevice       = 5
            user_cancelled           = 6
            err_spoolerror           = 7
            err_temseerror           = 8
            err_btcjob_open_failed   = 9
            err_btcjob_submit_failed = 10
            err_btcjob_close_failed = 11
            OTHERS                   = 12.
CHECK sy-subrc = 0.
get the spool number
Declaration of local variables.
DATA:
lv_rq2name LIKE tsp01-rq2name.
CONCATENATE sy-repid+0(8)
sy-uname+0(3)
INTO lv_rq2name SEPARATED BY '_'.
Get the spool number.
SELECT * FROM tsp01 WHERE rq2name = lv_rq2name
ORDER BY rqcretime DESCENDING.
    v_rqident = tsp01-rqident.
    EXIT.
ENDSELECT.
IF sy-subrc NE 0.
    CLEAR v_rqident.
ENDIF

Set cursor in ALV grid output

Hi guys,
I generated a report which gives out put in ALV grid.
In the ALV grid output, I have some editable fields.
Lets suppose, there are some editable fields with no data in it.
I have userdefined pushbutton in Application toolbar, when I press the pushbutton the cursor should go to the empty field in the ALV grid output.
Can this be possible through SET CURSOR statement?
Thanks,
Shivaa......

Hi,
You can set the cursor field on the output list that too for the output fields which are vissible on the screen only.
syntax
SET CURSOR 11 3. ---> 11Coloumn and 3 line
for dynamically setting cursor, first you have to search for the empty fields then set the cursor dynamically.
look at this help document it might be helpful
http://help.sap.com/saphelp_nw70/helpdata/EN/9f/dba47e35c111d1829f0000e829fbfe/content.htm
Regards
Bala KRishna

ALV GRID output -Ging to dump

Hi all ,
It's is an uregtn issue . Recently we have a upgradation to ECC 6.0 .
After this upgardtion , one reprot going to dump . whch erlier was workin gperfectly in 4.6 c.
Problem : When we double click on the Alv grid output , it should give detail list . But this time going to dump.
Please advise What I am missing ?
In Debugging ,when we press F5 at following statement goes to staement .
Program name :LSLVC_FULLSCREENF01
perform (gt_grid-i_callback_user_command)
 in program (i_callback_program)
 using r_ucomm
 ls_selfield.
Error ANlysis :
Runtime Errors PERFORM_NOT_FOUND
Exception CX_SY_DYN_CALL_ILLEGAL_FORM
 An exception occurred that is explained in detail below.
 The exception, which is assigned to class 'CX_SY_DYN_CALL_ILLEGAL_FORM', was
 not caught in
procedure "USER_COMMAND" "(FORM)", nor was it propagated by a RAISING clause.
 Since the caller of the procedure could not have anticipated that the
 exception would occur, the current program is terminated.
 The reason for the exception is:
 The program "SAPLSLVC_FULLSCREEN" is meant to execute an external PERFORM,
 namely the routine "USER_COMMAND " of the program "ZMPXR028 ", but
 this routine does not exist.

HI Dharma,
 Follow this code:
REPORT zxxxxxxxxxxxxxx LINE-SIZE 220
 LINE-COUNT 50(5).
*& DATA DECLARATION *
TABLES: MARA, "GENERAL MASTER DATA
 MARC, "PLANT DATA FOR MATERIAL
 MARD, "STORAGE LOCATION DATA FOR MATERIAL
 MBEW, "MATERIAL VALUATION
 MVKE, "SALES DATA FOR MATERIAL
 MAKT, "MATERIAL DESCRIPTION
 EKKO, "PURCHASING DOCUMENT HEADER
 EKPO, "PURCHASING DOCUMENT ITEM
 VBAK, "SALES DOCUMENT HEADER DATA
 VBAP. "SALES DOCUMENT ITEM DATA
TYPE-POOLS : SLIS.
DATA: VT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
 V_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
 V_LAYOUT TYPE SLIS_LAYOUT_ALV,
 BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
 BEGIN OF I_MARA OCCURS 0,
 MATNR LIKE MARA-MATNR, "MATERIAL NUMBER
 MBRSH LIKE MARA-MBRSH, "INDUSTRY SECTOR
 MEINS LIKE MARA-MEINS, "BASE UNIT OF MEASURE
 MATKL LIKE MARA-MATKL, "MATERIAL GROUP
 END OF I_MARA,
 BEGIN OF I_MARC OCCURS 0,
 MATNR LIKE MARC-MATNR, "MATERIAL NUMBER
 WERKS LIKE MARC-WERKS, "PLANT
 LVORM LIKE MARC-LVORM, "FLAG MATERIAL FOR DELETION AT PLANT
 "LEVEL
 DISPO LIKE MARC-DISPO, "MRP CONTROLLER
 END OF I_MARC,
 BEGIN OF I_MAKT OCCURS 0,
 MATNR LIKE MAKT-MATNR, "MATERIAL NUMBER
 MAKTX LIKE MAKT-MAKTX, "MATERIAL DESCRIPTION
 SPRAS LIKE MAKT-SPRAS, "LANGUAGE KEY
 END OF I_MAKT,
 BEGIN OF I_MVKE OCCURS 0,
 MATNR LIKE MVKE-MATNR, "MATERIAL NUMBER
 VKORG LIKE MVKE-VKORG, "SALES ORGANIZATION
 VTWEG LIKE MVKE-VTWEG, "DISTRIBUTION CHANNEL
 END OF I_MVKE,
 BEGIN OF I_MARD OCCURS 0,
 MATNR LIKE MARD-MATNR, "MATERIAL NUMBER
 LGORT LIKE MARD-LGORT, "STORAGE LOCATION
 LABST LIKE MARD-LABST, "VALUATED STOCK WITH UNRESTRICTED USE
 END OF I_MARD,
 BEGIN OF I_EKPO OCCURS 0,
 EBELN LIKE EKPO-EBELN, "PURCHASING DOCUMENT NUMBER
 EBELP LIKE EKPO-EBELP, "ITEM NUMBER OF PURCHASING DOCUMENT
 MATNR LIKE EKPO-MATNR, "MATERIAL NUMBER
 END OF I_EKPO,
 BEGIN OF I_VBAP OCCURS 0,
 VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
 POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
 MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
 END OF I_VBAP,
 BEGIN OF I_OUT OCCURS 0,
 MATNR LIKE MARC-MATNR,
 WERKS LIKE MARC-WERKS,
 LVORM LIKE MARC-LVORM,
 DISPO LIKE MARC-DISPO,
 MBRSH LIKE MARA-MBRSH,
 MEINS LIKE MARA-MEINS,
 MATKL LIKE MARA-MATKL,
 VKORG LIKE MVKE-VKORG,
 VTWEG LIKE MVKE-VTWEG,
 SPRAS LIKE MAKT-SPRAS,
 MAKTX LIKE MAKT-MAKTX,
 LGORT LIKE MARD-LGORT,
 LABST LIKE MARD-LABST,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 VBELN LIKE VBAP-VBELN,
 POSNR LIKE VBAP-POSNR,
 END OF I_OUT,
 BEGIN OF I_HEADING OCCURS 0,
 TEXT1(20),
 TEXT2(20),
 TEXT3(20),
 TEXT4(20),
 TEXT5(20),
 TEXT6(20),
 TEXT7(20),
 TEXT8(20),
 TEXT9(20),
 TEXT10(20),
 TEXT11(40),
 TEXT12(20),
 TEXT13(20),
 TEXT14(20),
 TEXT15(20),
 TEXT16(20),
 TEXT17(20),
 END OF I_HEADING.
*& S E L E C T I O N - S C R E E N *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-100.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR. "OBLIGATORY.
PARAMETERS: P_WERKS LIKE MARC-WERKS. "OBLIGATORY.
SELECT-OPTIONS: S_LGORT FOR MARD-LGORT,
 S_DISPO FOR MARC-DISPO,
 S_EBELN FOR EKPO-EBELN .
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-101.
PARAMETERS : RB1 RADIOBUTTON GROUP G1,
 RB2 RADIOBUTTON GROUP G1,
 RB3 RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK B2.
*& S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
SELECT MATNR WERKS LVORM DISPO FROM MARC
INTO CORRESPONDING FIELDS OF TABLE I_MARC
 WHERE MATNR IN S_MATNR
 AND DISPO IN S_DISPO
 AND WERKS = P_WERKS.
IF I_MARC[] IS INITIAL.
 WRITE:/ 'NO MATCHING DATA AVAILABLE FROM MARC'.
 EXIT.
ENDIF.
PERFORM PURCHASEDATA_VALIDATION.
PERFORM SALESDATA_VALIDATION.
SELECT MATNR LGORT LABST FROM MARD INTO TABLE I_MARD
 FOR ALL ENTRIES IN I_MARC
 WHERE MATNR = I_MARC-MATNR
 AND WERKS EQ P_WERKS
 AND LGORT IN S_LGORT.
IF I_MARD[] IS INITIAL.
 WRITE:/ 'NO MATCHING DATA AVAILABLE FROM MARD'.
 EXIT.
ENDIF.
SELECT MATNR VKORG VTWEG FROM MVKE INTO TABLE I_MVKE
 FOR ALL ENTRIES IN I_MARC
 WHERE MATNR = I_MARC-MATNR.
IF I_MVKE[] IS INITIAL.
 WRITE:/ 'NO MATCHING DATA AVAILABLE FROM MVKE'.
 EXIT.
ENDIF.
LOOP AT I_MARC.
 MOVE-CORRESPONDING I_MARC TO I_OUT.
 CLEAR MARC.
 SELECT SINGLE MATNR MBRSH MEINS MATKL FROM MARA
 INTO CORRESPONDING FIELDS OF MARA
 WHERE MATNR = I_OUT-MATNR.
 IF SY-SUBRC = 0.
 MOVE: MARA-MBRSH TO I_OUT-MBRSH,
 MARA-MEINS TO I_OUT-MEINS,
 MARA-MATKL TO I_OUT-MATKL.
 ELSE.
 CONTINUE.
 ENDIF.
 SELECT SINGLE MATNR MAKTX SPRAS FROM MAKT
 INTO CORRESPONDING FIELDS OF MAKT
 WHERE MATNR = I_OUT-MATNR.
 IF SY-SUBRC = 0.
 MOVE: MAKT-MAKTX TO I_OUT-MAKTX,
 MAKT-SPRAS TO I_OUT-SPRAS.
 ELSE.
 CONTINUE.
 ENDIF.
 LOOP AT I_EKPO WHERE MATNR = I_MARC-MATNR.
 MOVE: I_EKPO-EBELN TO I_OUT-EBELN,
 I_EKPO-EBELP TO I_OUT-EBELP.
 ENDLOOP.
 LOOP AT I_VBAP WHERE MATNR = I_MARC-MATNR.
 MOVE: I_VBAP-VBELN TO I_OUT-VBELN,
 I_VBAP-POSNR TO I_OUT-POSNR.
 ENDLOOP.
 LOOP AT I_MARD WHERE MATNR = I_MARC-MATNR.
 MOVE: I_MARD-LABST TO I_OUT-LABST,
 I_MARD-LGORT TO I_OUT-LGORT.
 ENDLOOP.
 LOOP AT I_MVKE WHERE MATNR = I_MARC-MATNR.
 MOVE: I_MVKE-VKORG TO I_OUT-VKORG,
 I_MVKE-VTWEG TO I_OUT-VTWEG.
 APPEND I_OUT.
 ENDLOOP.
 CLEAR I_OUT.
ENDLOOP.
PERFORM OPTIONS.
 FORM OPTIONS *
FORM OPTIONS.
IF RB2 = 'X'.
 PERFORM FIELDCAT.
 PERFORM OUTPUT.
ELSE.
 IF RB1 = 'X'.
 PERFORM HEADINGS.
 PERFORM DLOAD.
 ELSE.
 IF RB3 = 'X'.
 PERFORM HEADINGS.
 PERFORM DLOAD.
 PERFORM FIELDCAT.
 PERFORM OUTPUT.
 ENDIF.
 ENDIF.
ENDIF.
ENDFORM. "OPTIONS
 FORM HEADINGS *
FORM HEADINGS.
I_HEADING-TEXT1 = 'MATNR'.
I_HEADING-TEXT2 = 'WERKS'.
I_HEADING-TEXT3 = 'LVORM'.
I_HEADING-TEXT4 = 'DISPO'.
I_HEADING-TEXT5 = 'MBRSH'.
I_HEADING-TEXT6 = 'MEINS'.
I_HEADING-TEXT7 = 'MATKL'.
I_HEADING-TEXT8 = 'VKORG'.
I_HEADING-TEXT9 = 'VTWEG'.
I_HEADING-TEXT10 = 'SPRAS'.
I_HEADING-TEXT11 = 'MAKTX'.
I_HEADING-TEXT12 = 'LGORT'.
I_HEADING-TEXT13 = 'LABST'.
I_HEADING-TEXT14 = 'EBELN'.
I_HEADING-TEXT15 = 'EBELP'.
I_HEADING-TEXT16 = 'VBELN'.
I_HEADING-TEXT17 = 'POSNR'.
APPEND I_HEADING.
ENDFORM. "HEADINGS
 FORM DLOAD *
FORM DLOAD.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 FILENAME = 'C:\MATSTK.XLS'
 FILETYPE = 'DAT'
 WRITE_FIELD_SEPARATOR = 'X'
 TABLES
 DATA_TAB = I_HEADING
 EXCEPTIONS
 FILE_WRITE_ERROR = 1.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 FILENAME = 'C:\MATSTK.XLS'
 FILETYPE = 'DAT'
 APPEND = 'X'
 WRITE_FIELD_SEPARATOR = 'X'
 TABLES
 DATA_TAB = I_OUT.
ENDFORM. "DLOAD
 FORM FIELDCAT *
FORM FIELDCAT.
V_FIELDCAT-COL_POS = '1'.
V_FIELDCAT-FIELDNAME = 'MATNR'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-HOTSPOT = 'X'.
V_FIELDCAT-REF_FIELDNAME = 'MATNR'.
V_FIELDCAT-REF_TABNAME = 'MARC'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '2'.
V_FIELDCAT-FIELDNAME = 'WERKS'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'WERKS'.
V_FIELDCAT-REF_TABNAME = 'MARC'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '3'.
V_FIELDCAT-FIELDNAME = 'LVORM'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'LVORM'.
V_FIELDCAT-REF_TABNAME = 'MARC'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '4'.
V_FIELDCAT-FIELDNAME = 'DISPO'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'DISPO'.
V_FIELDCAT-REF_TABNAME = 'MARC'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '5'.
V_FIELDCAT-FIELDNAME = 'MBRSH'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'MBRSH'.
V_FIELDCAT-REF_TABNAME = 'MARA'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '6'.
V_FIELDCAT-FIELDNAME = 'MEINS'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'MEINS'.
V_FIELDCAT-REF_TABNAME = 'MARA'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '7'.
V_FIELDCAT-FIELDNAME = 'MATKL'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'MATKL'.
V_FIELDCAT-REF_TABNAME = 'MARA'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '8'.
V_FIELDCAT-FIELDNAME = 'VKORG'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'VKORG'.
V_FIELDCAT-REF_TABNAME = 'MVKE'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '9'.
V_FIELDCAT-FIELDNAME = 'VTWEG'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'VTWEG'.
V_FIELDCAT-REF_TABNAME = 'MVKE'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '10'.
V_FIELDCAT-FIELDNAME = 'SPRAS'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'SPRAS'.
V_FIELDCAT-REF_TABNAME = 'MAKT'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '11'.
V_FIELDCAT-FIELDNAME = 'MAKTX'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'MAKTX'.
V_FIELDCAT-REF_TABNAME = 'MAKT'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '12'.
V_FIELDCAT-FIELDNAME = 'LGORT'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'LGORT'.
V_FIELDCAT-REF_TABNAME = 'MARD'.
V_FIELDCAT-SELTEXT_L = 'STRG LOCT'.
V_FIELDCAT-OUTPUTLEN = 10.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '13'.
V_FIELDCAT-FIELDNAME = 'LABST'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-SELTEXT_M = 'STOCK'.
V_FIELDCAT-OUTPUTLEN = 15.
V_FIELDCAT-REF_FIELDNAME = 'LABST'.
V_FIELDCAT-REF_TABNAME = 'MARD'.
V_FIELDCAT-DO_SUM = 'X'.
V_LAYOUT-TOTALS_TEXT = 'TOTAL STOCK:'.
V_FIELDCAT-HOTSPOT = 'X'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '14'.
V_FIELDCAT-FIELDNAME = 'EBELN'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-HOTSPOT = 'X'.
V_FIELDCAT-REF_FIELDNAME = 'EBELN'.
V_FIELDCAT-REF_TABNAME = 'EKPO'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '15'.
V_FIELDCAT-FIELDNAME = 'EBELP'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'EBELP'.
V_FIELDCAT-REF_TABNAME = 'EKPO'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '16'.
V_FIELDCAT-FIELDNAME = 'VBELN'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-HOTSPOT = 'X'.
V_FIELDCAT-REF_FIELDNAME = 'VBELN'.
V_FIELDCAT-REF_TABNAME = 'VBAP'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '17'.
V_FIELDCAT-FIELDNAME = 'POSNR'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'POSNR'.
V_FIELDCAT-REF_TABNAME = 'VBAP'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
ENDFORM. "FIELDCAT
 FORM OUTPUT *
FORM OUTPUT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
 I_GRID_TITLE = 'CLICK ON MATERIAL/PURDOC/SALESDOC FOR DETAILS'
 I_CALLBACK_USER_COMMAND = 'DISPLAYDETAILS'
 IS_LAYOUT = V_LAYOUT
 IT_FIELDCAT = VT_FIELDCAT1
 TABLES
 T_OUTTAB = I_OUT.
IF SY-SUBRC <> 0.
ENDIF.
ENDFORM. "OUTPUT
 FORM TOP-OF-PAGE *
FORM TOP-OF-PAGE.
DATA: T_HEADER TYPE SLIS_T_LISTHEADER,
 WA_HEADER TYPE SLIS_LISTHEADER.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = 'REPORT FOR : '.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'S'.
WA_HEADER-INFO = 'MATERIAL DETAILS'.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'S'.
WA_HEADER-INFO = 'PURCHASE ORDER DETAILS'.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'S'.
WA_HEADER-INFO = 'SALES ORDER DETAILS'.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 I_LOGO = 'GEAR'
 IT_LIST_COMMENTARY = T_HEADER.
ENDFORM. "TOP-OF-PAGE
*& FORM DISPLAYDETAILS *
FORM DISPLAYDETAILS USING UCOMM LIKE SY-UCOMM
 SELFIELD TYPE SLIS_SELFIELD.
IF SELFIELD-FIELDNAME = 'EBELN'.
 IF UCOMM = '&IC1'.
 READ TABLE I_OUT INDEX SELFIELD-TABINDEX.
 PERFORM PORECDNG.
 CLEAR BDCDATA[].
 ENDIF.
ELSE.
 IF SELFIELD-FIELDNAME = 'MATNR'.
 IF UCOMM = '&IC1'.
 READ TABLE I_OUT INDEX SELFIELD-TABINDEX.
 PERFORM MMRECDNG.
 CLEAR BDCDATA[].
 ENDIF.
 ELSE.
 IF SELFIELD-FIELDNAME = 'VBELN'.
 IF UCOMM = '&IC1'.
 READ TABLE I_OUT INDEX SELFIELD-TABINDEX.
 PERFORM SALESRECDNG.
 CLEAR BDCDATA[].
 ENDIF.
 ENDIF.
 ENDIF.
ENDIF.
ENDFORM. "DISPLAYDETAILS
 FORM PORECDNG *
FORM PORECDNG.
perform bdc_dynpro using 'SAPMM06E' '0105'.
perform bdc_field using 'BDC_CURSOR'
 'RM06E-BSTNR'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'RM06E-BSTNR'
 I_OUT-EBELN.
perform bdc_dynpro using 'SAPMM06E' '0120'.
perform bdc_field using 'BDC_CURSOR'
 'RM06E-BSTPO(01)'.
perform bdc_field using 'BDC_OKCODE'
 '=AH'.
perform bdc_field using 'RM06E-EBELP'
 I_OUT-EBELP.
perform bdc_field using 'RM06E-TCSELFLAG(01)'
 'X'.
perform bdc_transaction using 'ME23'.
ENDFORM. "PORECDNG
 FORM MMRECDNG *
FORM MMRECDNG.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0060'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'RMMG1-MATNR'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '/00'.
PERFORM BDC_FIELD USING 'RMMG1-MATNR'
 I_OUT-MATNR.
PERFORM BDC_DYNPRO USING 'SAPLMGMM' '0070'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'MSICHTAUSW-DYTXT(01)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=ENTR'.
PERFORM BDC_FIELD USING 'MSICHTAUSW-KZSEL(01)'
 'X'.
PERFORM BDC_TRANSACTION USING 'MM03'.
ENDFORM. "MMRECDNG
 FORM SALESRECDNG *
FORM SALESRECDNG.
PERFORM BDC_DYNPRO USING 'SAPMV45A' '0102'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'VBAK-VBELN'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '/00'.
PERFORM BDC_FIELD USING 'VBAK-VBELN'
 I_OUT-VBELN.
PERFORM BDC_TRANSACTION USING 'VA03'.
ENDFORM. "SALESRECDNG
 FORM BDC_TRANSACTION *
FORM BDC_TRANSACTION USING TCODE.
CALL TRANSACTION TCODE USING BDCDATA MODE 'E'.
ENDFORM. "BDC_TRANSACTION
 FORM BDC_DYNPRO *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM. "BDC_DYNPRO
 INSERT FIELD *
FORM BDC_FIELD USING FNAM FVAL.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
ENDFORM. "BDC_FIELD
*& FORM PURCHASEDATA_VALIDATION *
FORM PURCHASEDATA_VALIDATION.
SELECT EBELN EBELP MATNR
 FROM EKPO
 INTO TABLE I_EKPO
 FOR ALL ENTRIES IN I_MARC
 WHERE MATNR = I_MARC-MATNR
 AND EBELN IN S_EBELN
 AND WERKS EQ P_WERKS.
IF I_EKPO[] IS INITIAL.
 WRITE:/ 'NO MATCHING DATA IS SELECTED FROM TABLE EKPO'.
 EXIT.
ENDIF.
DATA: T_EKPO LIKE I_EKPO OCCURS 0 WITH HEADER LINE.
T_EKPO[] = I_EKPO[].
REFRESH I_EKPO.
FREE I_EKPO.
LOOP AT T_EKPO.
 SELECT SINGLE EBELN FROM EKKO INTO EKPO-EBELN
 WHERE EBELN = T_EKPO-EBELN.
 IF SY-SUBRC = 0.
 MOVE-CORRESPONDING T_EKPO TO I_EKPO.
 APPEND I_EKPO.
 CLEAR I_EKPO.
 ELSE.
 CONTINUE.
 ENDIF.
ENDLOOP.
SORT I_EKPO.
ENDFORM. "PURCHASEDATA_VALIDATION
*& FORM SALESDATA_VALIDATION *
FORM SALESDATA_VALIDATION.
SELECT VBELN POSNR MATNR
 FROM VBAP
 INTO CORRESPONDING FIELDS OF TABLE
 I_VBAP FOR ALL ENTRIES IN I_MARC
 WHERE MATNR = I_MARC-MATNR.
DATA: T_VBAP LIKE I_VBAP OCCURS 0 WITH HEADER LINE.
T_VBAP[] = I_VBAP[].
REFRESH I_VBAP.
FREE I_VBAP.
LOOP AT T_VBAP.
 SELECT SINGLE VBELN FROM VBAK INTO VBAK-VBELN
 WHERE VBELN = T_VBAP-VBELN.
 IF SY-SUBRC = 0.
 MOVE-CORRESPONDING T_VBAP TO I_VBAP.
 APPEND I_VBAP.
 CLEAR I_VBAP.
 ELSE.
 CONTINUE.
 ENDIF.
ENDLOOP.
SORT I_VBAP.
ENDFORM. "SALESDATA_VALIDATION

How to send doc files from one system to another using XI

Hi All,
I have a requirement to pick the word doc files from one file system and send these word document files to ECC system place in ECC application server.Can we achieve this requirement using XI. If so how we can do this. also let me know can we convert these doc files into proxy and send to ECC?. Please let me know. Thanks.
Regards,
Rajesh

Yes You Can
XI Converts Unstructured data(That is non -XML)Type- in your case word doc and maps it to Target structure.
You can either use content conversion
/people/venkat.donela/blog/2005/03/02/introduction-to-simplefile-xi-filescenario-and-complete-walk-through-for-starterspart1
/people/venkat.donela/blog/2005/03/03/introduction-to-simple-file-xi-filescenario-and-complete-walk-through-for-starterspart2
/people/venkat.donela/blog/2005/06/08/how-to-send-a-flat-file-with-various-field-lengths-and-variable-substructures-to-xi-30
/people/anish.abraham2/blog/2005/06/08/content-conversion-patternrandom-content-in-input-file
/people/shabarish.vijayakumar/blog/2005/08/17/nab-the-tab-file-adapter
/people/jeyakumar.muthu2/blog/2005/11/29/file-content-conversion-for-unequal-number-of-columns
/people/shabarish.vijayakumar/blog/2006/02/27/content-conversion-the-key-field-problem
/people/michal.krawczyk2/blog/2004/12/15/how-to-send-a-flat-file-with-fixed-lengths-to-xi-30-using-a-central-file-adapter
You can either built a adaptermodule for the same(U nedd to have Some Java knowledge)
You can also convert without creating any objects in integration directory link for the same is
/people/william.li/blog/2006/09/08/how-to-send-any-data-even-binary-through-xi-without-using-the-integration-repository
***********Please Reward Points If find Helpful*********

Hi friends, How to send any data (even binary) through XI, without using

1) How to send any data (even binary) through XI, without using the Integration Repository .?

hi ganga,
Yes;
1. we can test adapters very easily and quickly without any IR development.
2. we can send any formatted data without having to convert it to XML and back again, e.g. file->XI->file.
3. we can send any document from 1 sender to multiple receivers using XI to guarantee delivery.
/people/william.li/blog/2006/09/08/how-to-send-any-data-even-binary-through-xi-without-using-the-integration-repository
the process integration layer of the NetWeaver define/reuse interface objects for the SAP Integration Repository. These objects include Business Scenarios, Business Processes, Message Interfaces, Message Types, Data Types, Message Mappings, and Interface Mappings. The application developer refers to these objects in defining the interactive flow between applications for the SAP Integration Directory.
regards,
nikhil

Need to choose fields from alv grid output and send mail

Hi,
I need to choose few orders from alv grid output and send mail as PDF for chosen orders.
Suggest if possible and how.

Moderator message - Please do not post your requirements and ask the forum to do your work for you - post locked
Rob

How to send the ALV GRID output to spool by using the print button in std t

Similar Messages

Maybe you are looking for