Bluesky
- SAP Managed Tags
Hiii,
Yes definitely dump will occur , as you told me you have separate button for sending alv as PDF ok , so on click event of that button
ex. -
if sy-ucomm = 'PDF'.
w_print-print = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' " Call this function again
EXPORTING
i_callback_program = g_program
i_structure_name = 'T001'
is_print = w_print " but this time with print
TABLES
t_outtab = i_t001.
" rest of process i have already mentioned
perform send_email.
endif.
" Hope now you got it
- SAP Managed Tags
Hiiii Rithika ,
Ok i have done with cl_gui_alv_grid now please check my code in separate report and then change in your actual code -
Note : please remove unnecessary variable and do changes as per your requirement .
Help - Custom container name - CUSTOM
PF STATUS - ZOF with one button PDF
You can see my output with PDF button-
Hope now you got it
TYPE-POOLS:slis.
DATA : fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE. " For Field Catalog
DATA : c_alv TYPE REF TO cl_gui_alv_grid,
c_cont TYPE REF TO cl_gui_custom_container.
DATA: gt_layout TYPE lvc_s_layo,
gt_fieldcat TYPE lvc_t_fcat ,
gw_fieldcat TYPE lvc_s_fcat.
DATA: lv_buffer TYPE string,
lt_mess_att TYPE TABLE OF solisti1 ,
ls_mess_att TYPE solisti1.
CONSTANTS c_container TYPE c LENGTH 30 VALUE 'CC'.
CONSTANTS c_col1 TYPE c LENGTH 2 VALUE ' ~'.
CONSTANTS c_col2 TYPE c LENGTH 2 VALUE '~ '.
CONSTANTS c_255 TYPE i VALUE 255.
data p_recpnt TYPE sy-uname .
p_recpnt = sy-uname.
DATA : l_ref_bcs TYPE REF TO cl_bcs,
l_ref_document TYPE REF TO cl_document_bcs,
l_ref_recipient TYPE REF TO if_recipient_bcs,
l_ref_bcs_exception TYPE REF TO cx_bcs,
lv_sent_to_all TYPE os_boolean,
lv_filesize TYPE so_obj_len,
lv_doclines TYPE i,
lv_last_line TYPE i,
lv_text TYPE so_obj_des,
lv_data TYPE bcsy_text,
lv_size TYPE i,
gt_fcat TYPE lvc_t_fcat.
TYPES: ty_t_pdf TYPE STANDARD TABLE OF tline.
DATA: lt_pdf_output TYPE ty_t_pdf,
ls_pdf_output TYPE tline.
TYPES : BEGIN OF ty_t001,
BUKRS type t001-BUKRS ,
BUTXT type t001-BUTXT ,
ORT01 type t001-ORT01 ,
LAND1 type t001-LAND1 ,
WAERS type t001-WAERS ,
SPRAS type t001-SPRAS ,
END OF ty_t001.
DATA:i_t001 TYPE ty_t001 OCCURS 0,
g_spool TYPE tsp01-rqident,
g_program TYPE sy-repid VALUE sy-repid.
DATA: w_print TYPE slis_print_alv,
w_print_ctrl TYPE alv_s_pctl.
START-OF-SELECTION.
SELECT * FROM t001 INTO CORRESPONDING FIELDS OF TABLE i_t001 UP TO 100 ROWS.
call SCREEN 9000.
*&---------------------------------------------------------------------*
*& Form FILD_CAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FILD_CAT .
fieldcatalog-fieldname = 'BUKRS'.
fieldcatalog-tabname = 'I_T001'.
fieldcatalog-REF_TABNAME = 'T001'.
fieldcatalog-just = 'L'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'BUTXT'.
fieldcatalog-tabname = 'I_T001'.
fieldcatalog-REF_TABNAME = 'T001'.
fieldcatalog-just = 'L'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'ORT01'.
fieldcatalog-tabname = 'I_T001'.
fieldcatalog-REF_TABNAME = 'T001'.
fieldcatalog-just = 'L'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'LAND1'.
fieldcatalog-tabname = 'I_T001'.
fieldcatalog-REF_TABNAME = 'T001'.
fieldcatalog-just = 'L'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'SPRAS'.
fieldcatalog-tabname = 'I_T001'.
fieldcatalog-REF_TABNAME = 'T001'.
fieldcatalog-just = 'L'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
ENDFORM. " FILD_CAT
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'ZOF'.
IF c_cont IS INITIAL.
CREATE OBJECT c_cont
EXPORTING
container_name = 'CUSTOM'.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
CREATE OBJECT c_alv
EXPORTING
i_parent = c_cont.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
gt_layout-grid_title = 'BankDetail'.
gt_layout-zebra = 'X'.
gt_layout-cwidth_opt = 'X'.
PERFORM get_fcat USING 'BUKRS' .
PERFORM get_fcat USING 'BUTXT' .
PERFORM get_fcat USING 'ORT01' .
PERFORM get_fcat USING 'LAND1' .
PERFORM get_fcat USING 'SPRAS' .
CALL METHOD c_alv->set_table_for_first_display
EXPORTING
* is_variant = g_var
i_save = 'X'
i_default = 'X'
is_layout = gt_layout
CHANGING
it_outtab = i_t001[]
it_fieldcatalog = gt_fieldcat.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDMODULE. " STATUS_9000 OUTPUT
FORM get_fcat USING fname.
gw_fieldcat-fieldname = fname.
gw_fieldcat-REF_TABLE = 'T001'.
gw_fieldcat-tabname = 'I_T001'.
APPEND gw_fieldcat TO gt_fieldcat.
CLEAR gw_fieldcat.
ENDFORM. " GET_FCAT102
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_9000 INPUT.
CASE sy-ucomm.
BREAK-POINT.
WHEN 'PDF'. "<--to handle user actions
w_print-PRINT = 'X'.
CALL FUNCTION 'SET_PRINT_PARAMETERS'
EXPORTING
destination = 'LOCL' " Printer
layout = 'X_65_512/2' "Format
line_count = '65' "Line Count
line_size = '1024'. "Line Size
w_print-print = 'X'.
PERFORM fild_cat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_program
* i_structure_name = 'T001'
* i_callback_user_command = 'USER_COMMAND' " for User-Command
is_print = w_print
it_fieldcat = fieldcatalog[]
TABLES
t_outtab = i_t001.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
data: GET_SIZE_FROM_FORMAT VALUE 'X'.
g_spool = sy-spono.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = g_spool "Spool Number
no_dialog = space
dst_device = 'LOCL' "Printer Name
GET_SIZE_FROM_FORMAT = GET_SIZE_FROM_FORMAT
IMPORTING
pdf_bytecount = lv_size "Output Size
TABLES
pdf = lt_pdf_output "Spool data in PDF Format
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.
IF sy-subrc EQ 0.
LOOP AT lt_pdf_output INTO ls_pdf_output.
TRANSLATE ls_pdf_output USING c_col1.
CONCATENATE lv_buffer ls_pdf_output INTO lv_buffer.
CLEAR ls_pdf_output.
ENDLOOP.
TRANSLATE lv_buffer USING c_col2.
DO.
ls_mess_att = lv_buffer.
APPEND ls_mess_att TO lt_mess_att.
SHIFT lv_buffer LEFT BY c_255 PLACES.
IF lv_buffer IS INITIAL.
EXIT.
ENDIF.
CLEAR ls_mess_att.
ENDDO.
ENDIF.
*--create reference object
TRY.
l_ref_bcs = cl_bcs=>create_persistent( ).
lv_text = 'Mail Subject' .
APPEND 'Mail Content' TO lv_data.
l_ref_document = cl_document_bcs=>create_document(
i_type = 'RAW'
i_text = lv_data
i_subject = lv_text ).
* *--create document reference
lv_filesize = lv_size.
CALL METHOD l_ref_document->add_attachment
EXPORTING
i_attachment_type = 'PDF'
i_attachment_size = lv_filesize
i_attachment_subject = lv_text
i_att_content_text = lt_mess_att[].
* * set the document
l_ref_bcs->set_document( l_ref_document ).
* * create recipient
* * p_recpnt = sap INBOX user ID to WHICH the ATTACHMENT is SENT.
l_ref_recipient = cl_sapuser_bcs=>create( p_recpnt ).
* *adding recipient in to section
l_ref_bcs->add_recipient( l_ref_recipient ).
* * send mail
CALL METHOD l_ref_bcs->send(
EXPORTING
i_with_error_screen = 'X'
RECEIVING
result = lv_sent_to_all ).
IF lv_sent_to_all = 'X'.
ENDIF.
CATCH cx_bcs INTO l_ref_bcs_exception.
IF l_ref_bcs_exception IS NOT INITIAL.
CLEAR l_ref_bcs_exception.
ENDIF.
ENDTRY.
COMMIT WORK.
endif.
ENDCASE.
ENDMODULE. " USER_COMMAND_9000 INPUT
- SAP Managed Tags
Dear Rithika ,
You are most welcome , yes i know that print dialog will come because , in user profile -> output immediate check box will be selected , thats why , see my below screen shot
Here i am unselect that checkbox , now if you run report that print dialog box will not come but question is how can you tell to user to unselect that check box .
same problem i have also faced so i would suggest you one solution that i had used for avoiding it ,
I have used BAPI_USER_CHANGE to unselect that output immediate check box and my problem has solved
one more thing i would suggest you please delete spool after PDF conversion otherwise your can see long list in SP02 for this use fm - RSPO_R_RDELETE_SPOOLREQ
hope this idea will help you
| User | Count |
|---|---|
| 3 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |
