模板代码,不能直接编译运行
SEND ALV GRID AS PDF ATTACHMENT TO SAP INBOX USING CLASSESWith This Code you will be able to Schedule ALV Grid That has Width more than 255 in the Background Then convert it into Spool and then Send the Spool as PDF Attachment using classes. 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. CONSTANTS p_recpnt TYPE syuname VALUE 'GEORGE'. DATA gt_final TYPE TABLE OF t000. DATA: lv_buffer TYPE string, lv_spool_nr TYPE tsp01-rqident, lt_mess_att TYPE TABLE OF solisti1 , ls_mess_att TYPE solisti1. TYPES: ty_t_pdf TYPE STANDARD TABLE OF tline. DATA: lt_pdf_output TYPE ty_t_pdf, ls_pdf_output TYPE tline, 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. DATA:g_ref_container TYPE REF TO cl_gui_custom_container, g_ref_grid TYPE REF TO cl_gui_alv_grid, gv_off TYPE int4, gs_print TYPE lvc_s_prnt, * g_ref_rec TYPE REF TO lcl_event_receiver, gs_variant TYPE disvariant, gs_layo TYPE lvc_s_layo. * Create alv grid along WITH printer settings for background execution purpose. ** custom container IF g_ref_container IS NOT BOUND. ** offline method check required for background execution CALL METHOD cl_gui_alv_grid=>offline RECEIVING e_offline = gv_off. IF gv_off IS INITIAL. CREATE OBJECT g_ref_container EXPORTING container_name = c_container. ENDIF. ** instance of alv grid. IF g_ref_grid IS NOT BOUND. CREATE OBJECT g_ref_grid EXPORTING i_parent = g_ref_container. ENDIF. ** build field catalog PERFORM build_fieldcat1 CHANGING gt_fcat. ** layout gs_layo-cwidth_opt = 'X'. "OPTIMUM WIDTH OF THE COLUMN gs_layo-zebra = 'X'. "Alternate line coloring ** Set Print Parameters (Required If The ALV Output has Length more than 255) 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 gs_print-print = 'X'. CALL METHOD g_ref_grid->set_table_for_first_display EXPORTING i_save = 'A' is_layout = gs_layo "Layout is_print = gs_print "For Creating Spool CHANGING it_outtab = gt_final "Final Internal Table Containing Data to Display it_fieldcatalog = gt_fcat "Fieldcatalog EXCEPTIONS invalid_parameter_combination = 1 program_error = 2 too_many_lines = 3 OTHERS = 4. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. *convert spool to pdf and send as attachment to sap inbox. MOVE sy-spono TO lv_spool_nr. CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF' EXPORTING src_spoolid = lv_spool_nr "Spool Number no_dialog = space dst_device = 'LOCL' "Printer Name importingpdf_bytecount = lv_size "Output Size tablespdf = lt_pdf_output "Spool data in PDF Format exceptionserr_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.