REPORT /XXXP10/SSD006 NO STANDARD PAGE HEADING.
INCLUDE /xxxp10/ssD006_top. " Data Declarations
INCLUDE /xxxp10/ssD006_scr. " Selection Screen Definition
INCLUDE /xxxp10/ssD006_forms. " Form Routines
***********************************************************************
* INITIALIZATION
***********************************************************************
INITIALIZATION.
* Include to implement LCL_EMAIL class
INCLUDE /xxxp10/ssD006_lcl_email_imp.
* PERFORM initialize.
***********************************************************************
* Validations *
***********************************************************************
AT SELECTION-SCREEN ON s_vkorg.
PERFORM validate_sales_org.
*AT SELECTION-SCREEN ON s_erdat.
* PERFORM validate_erdat.
AT SELECTION-SCREEN ON s_auart.
PERFORM validate_auart.
AT SELECTION-SCREEN ON s_faksk.
PERFORM validate_faksk.
***********************************************************************
* START-OF-SELECTION
***********************************************************************
START-OF-SELECTION.
PERFORM get_data.
***********************************************************************
* END-OF-SELECTION
***********************************************************************
END-OF-SELECTION.
PERFORM process_data.
if g_it_vbak is not INITIAL.
CALL SCREEN 9000.
else.
MESSAGE text-T13 type 'I'.
LEAVE LIST-PROCESSING.
endif.
*****************************************************************
Include Top
*****************************************************************
***********************************************************************
* TYPES DECLARATION
***********************************************************************
CONSTANTS c_wbstk type c VALUE 'C'.
TYPES:
* Strcture type to declare selection screen
BEGIN OF t_sel,
vkorg TYPE vbak-vkorg, " Sales organization
erdat TYPE vbap-erdat, " SO date
auart TYPE vbak-auart, " Order types
faksk TYPE vbak-faksk, " Billing block
* pstyv type vbak-pstyv,
mail TYPE ad_smtpadr, " Email Address
END OF t_sel,
BEGIN OF t_vbuk,
vbeln TYPE vbeln,
posnr TYPE posnr,
vgbel TYPE vgbel,
wbstk TYPE wbstk,
END OF t_vbuk.
* Structure type to declare sales order data
TYPES : BEGIN OF t_vbak,
vbeln TYPE vbak-vbeln,
erdat TYPE vbak-erdat,
auart TYPE vbak-auart,
faksk TYPE vbak-faksk,
flag TYPE c,
message TYPE char50,
END OF t_vbak,
* Structure type to declare SCHEDULE item data
BEGIN OF t_vbep,
vbeln TYPE vbep-vbeln,
posnr TYPE vbep-posnr,
ettyp TYPE vbep-ettyp,
lfrel TYPE vbep-lfrel,
wmeng TYPE vbep-wmeng,
banfn TYPE vbep-banfn,
END OF t_vbep,
*Sturcture type to declare material
BEGIN OF t_mseg,
kdauf TYPE kdauf,
kdpos TYPE kdpos,
menge TYPE mseg-menge,
END OF t_mseg,
BEGIN OF t_zzvar,
z_return TYPE zzvar-z_return,
END OF t_zzvar,
* Structure type to declare final
BEGIN OF t_final,
vbeln TYPE vbak-vbeln,
posnr TYPE vbep-posnr,
erdat TYPE vbak-erdat,
auart TYPE vbak-auart,
faksk TYPE vbak-faksk,
ettyp TYPE vbep-ettyp,
lfrel TYPE vbep-lfrel,
wmeng TYPE vbep-wmeng,
menge TYPE mseg-menge,
banfn TYPE vbep-banfn,
flag TYPE c,
END OF t_final.
***********************************************************************
* Work areas
***********************************************************************
DATA:
* Work area to declare selection screen
g_wa_sel TYPE t_sel.
DATA:
* work area for vbak
g_wa_vbak TYPE t_vbak,
* work are for mseg
g_wa_mseg TYPE t_mseg,
* work area for vbep
g_wa_vbep TYPE t_vbep,
* work area for final
g_wa_final TYPE t_final,
* internal table for auart
g_wa_auart TYPE t_zzvar,
g_wa_pstyv TYPE t_zzvar,
g_wa_faksk TYPE t_zzvar,
g_wa_vbuk type t_vbuk.
***********************************************************************
* Internal tables
***********************************************************************
DATA:
* internal table for vbak
g_it_vbak TYPE STANDARD TABLE OF t_vbak,
* internal table for mseg
g_it_mseg TYPE STANDARD TABLE OF t_mseg,
* internal table for vbep
g_it_vbep TYPE STANDARD TABLE OF t_vbep,
* internal table for auart
g_it_auart TYPE ztt_zxreturn,
g_it_pstyv TYPE STANDARD TABLE OF t_zzvar,
g_it_faksk TYPE ztt_zxreturn,
* internal table for final
g_it_final TYPE STANDARD TABLE OF t_final,
g_it_vbuk type STANDARD TABLE OF t_vbuk.
***********************************************************************
* Define local class
***********************************************************************
CLASS lcl_email DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS: send_email IMPORTING
im_name TYPE any
im_typ TYPE char1
im_title TYPE any
im_langu TYPE sylangu
im_format TYPE char1
im_attachment_type TYPE soodk-objtp
im_doc_type TYPE so_obj_tp.
ENDCLASS. "lcl_email DEFINITION
***********************************************************************
* Variables
***********************************************************************
DATA:
go_dock TYPE REF TO cl_gui_docking_container,
go_table TYPE REF TO cl_gui_alv_grid,
go_salv1 TYPE REF TO cl_salv_table,
go_email TYPE REF TO lcl_email,
go_func1 TYPE REF TO cl_salv_functions,
go_display1 TYPE REF TO cl_salv_display_settings,
go_column TYPE REF TO cl_salv_column_table,
go_columns TYPE REF TO cl_salv_columns_table,
go_layout TYPE REF TO cl_salv_layout.
**********************************************************
Selection screen
**********************************************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
SELECT-OPTIONS:
s_vkorg FOR g_wa_sel-vkorg, " Sales Organization
s_erdat FOR g_wa_sel-erdat, " SO date
s_auart FOR g_wa_sel-auart, " Order type
* s_pstyv FOR g_wa_sel-pstyv, " Order type
s_faksk FOR g_wa_sel-faksk.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.
SELECT-OPTIONS
s_mail FOR g_wa_sel-mail " Recipient Address
NO INTERVALS.
SELECTION-SCREEN END OF BLOCK b2.
*********************************************************
Forms
*********************************************************
*----------------------------------------------------------------------*
* This subroutine is for validating purchasing group *
*----------------------------------------------------------------------*
FORM validate_sales_org .
IF NOT s_vkorg IS INITIAL.
SELECT SINGLE vkorg
FROM tvko
INTO g_wa_sel-vkorg
WHERE vkorg IN s_vkorg[].
IF sy-subrc <> 0.
MESSAGE text-t04 TYPE 'E'.
ENDIF.
ENDIF.
ENDFORM. " VALIDATE_SALES_ORG
*&---------------------------------------------------------------------*
*& Form VALIDATE_AUART
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* This subroutine is for validating purchasing group
*----------------------------------------------------------------------*
FORM validate_auart .
IF NOT s_auart IS INITIAL.
SELECT SINGLE auart
FROM tvak
INTO g_wa_sel-auart
WHERE auart IN s_auart[].
IF sy-subrc <> 0.
MESSAGE text-t05 TYPE 'E'.
ENDIF.
ENDIF.
ENDFORM. " VALIDATE_AUART
*&---------------------------------------------------------------------*
*& Form VALIDATE_FAKSK
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* This subroutine is for validating purchasing group
*----------------------------------------------------------------------*
FORM validate_faksk .
IF NOT s_faksk IS INITIAL.
SELECT SINGLE faksp
FROM tvfs
INTO g_wa_sel-faksk
WHERE faksp IN s_faksk[].
IF sy-subrc <> 0.
MESSAGE text-t06 TYPE 'E'.
ENDIF.
ENDIF.
ENDFORM. " VALIDATE_FAKSK
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_9000 OUTPUT.
DATA l_key TYPE salv_s_layout_key.
SET PF-STATUS 'ST9000'.
SET TITLEBAR 'TI9000'.
IF cl_gui_alv_grid=>offline( ) IS INITIAL.
IF go_dock IS INITIAL.
CREATE OBJECT go_dock
EXPORTING
repid = sy-repid
ratio = 50
dynnr = '9000'
side = cl_gui_docking_container=>dock_at_top
extension = 100.
ENDIF.
ENDIF.
CALL METHOD cl_salv_table=>factory
EXPORTING
* list_display = IF_SALV_C_BOOL_SAP=>FALSE
r_container = go_dock
IMPORTING
r_salv_table = go_salv1
CHANGING
t_table = g_it_vbak.
* Get Object Reference to the Tool Bar Functions
CALL METHOD go_salv1->get_functions
RECEIVING
value = go_func1.
* Activate all ALV Tool Bar Functions
CALL METHOD go_func1->set_all
EXPORTING
value = if_salv_c_bool_sap=>true.
* Get the Object Reference for the ALV Layout
CALL METHOD go_salv1->get_layout
RECEIVING
value = go_layout.
* Set the Key
l_key-report = sy-repid.
go_layout->set_key( l_key ).
* Set the Save Layout Option
go_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
* Activate Option of Saving Default Setting
go_layout->set_default( abap_true ).
CALL METHOD go_salv1->get_columns
RECEIVING
value = go_columns.
* Set the Key Fixation
go_column ?= go_columns->get_column( columnname = 'MESSAGE' ).
go_column->set_long_text( text-t10 ).
go_column->set_medium_text( text-t10 ).
go_column->set_short_text( text-t10 ).
go_column->set_output_length( 15 ).
go_columns->set_key_fixation( abap_true ).
go_column ?= go_columns->get_column( columnname = 'FLAG' ).
go_column->set_long_text( text-t11 ).
go_column->set_medium_text( text-t11 ).
go_column->set_short_text( text-t11 ).
go_column->set_output_length( 12 ).
go_display1 = go_salv1->get_display_settings( ).
go_display1->set_list_header( text-t16 ).
PERFORM send_mail.
CALL METHOD go_salv1->display.
ENDMODULE. " STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_9000 INPUT
*&---------------------------------------------------------------------*
*& Form SEND_MAIL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* This subroutine is for validating purchasing group
*----------------------------------------------------------------------*
FORM send_mail .
CREATE OBJECT go_email.
IF go_email IS BOUND.
CALL METHOD go_email->send_email
EXPORTING
im_name = s_mail
im_typ = 'U'
im_title = text-t03
im_langu = sy-langu
im_format = 'E'
im_attachment_type = 'XLS'
im_doc_type = 'RAW'.
ENDIF.
ENDFORM. " SEND_MAIL
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* This subroutine is for get data
*----------------------------------------------------------------------*
FORM get_data .
SELECT vbeln
erdat
auart
faksk
FROM vbak
INTO TABLE g_it_vbak
WHERE vkorg IN s_vkorg
AND erdat IN s_erdat
AND auart IN s_auart
AND faksk IN s_faksk.
IF sy-subrc EQ 0.
SELECT vbeln posnr ettyp lfrel wmeng banfn FROM vbep
INTO TABLE g_it_vbep
FOR ALL ENTRIES IN g_it_vbak
WHERE vbeln = g_it_vbak-vbeln.
SELECT kdauf kdpos menge FROM mseg INTO TABLE g_it_mseg
FOR ALL ENTRIES IN g_it_vbak
WHERE kdauf = g_it_vbak-vbeln.
SELECT lips~vbeln lips~posnr lips~vgbel vbuk~wbstk
INTO TABLE g_it_vbuk
FROM lips INNER JOIN vbuk
ON ( lips~vbeln = vbuk~vbeln )
FOR ALL ENTRIES IN g_it_vbak
WHERE vgbel = g_it_vbak-vbeln.
SORT g_it_vbuk BY vgbel.
ENDIF.
ENDFORM. " GET_DATA
*&---------------------------------------------------------------------*
*& Form PROCESS_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* This subroutine is for process data
*----------------------------------------------------------------------*
FORM process_data .
DATA: l_header_inx TYPE bapisdh1x,
l_header_in TYPE bapisdh1,
l_po_history LIKE TABLE OF bapiekbes,
w_po_history LIKE bapiekbes,
l_lips_vbeln TYPE vbeln,
l_lips_posnr TYPE posnr.
DATA: lt_return TYPE STANDARD TABLE OF bapiret2.
DATA : g_it_ekpo TYPE STANDARD TABLE OF ekpo,
g_wa_ekpo TYPE ekpo,
l_ekkn_ebeln TYPE ebeln,
l_ekkn_ebelp TYPE ebelp,
lv_ebeln TYPE ebeln.
DATA : l_lines LIKE sy-tabix. "D10K989190
DATA : l_po_banfn TYPE TABLE OF ekpo WITH HEADER LINE. "D10K989190
SORT g_it_mseg BY kdauf kdpos.
LOOP AT g_it_vbak INTO g_wa_vbak.
CLEAR: g_wa_vbep, g_wa_mseg.
g_wa_vbak-flag = 'Y'.
MODIFY g_it_vbak FROM g_wa_vbak TRANSPORTING flag.
READ TABLE g_it_vbep INTO g_wa_vbep
WITH KEY vbeln = g_wa_vbak-vbeln BINARY SEARCH.
IF sy-subrc EQ 0.
LOOP AT g_it_vbep INTO g_wa_vbep FROM sy-tabix WHERE wmeng > 0.
IF g_wa_vbep-vbeln = g_wa_vbak-vbeln.
IF g_wa_vbep-ettyp = 'CX'."No Inventory management
CLEAR g_wa_vbep.
CONTINUE.
ENDIF.
* IF g_wa_vbep-lfrel = 'X'." Item is relevant for delivery" D- D10K988843 20-Oct-2016
*Check if PR is done for this SO item
IF g_wa_vbep-banfn IS NOT INITIAL.
*Check if PO is created
* Change for - D10K989190
* There can be more than one PO created for a PR. Need to check all the
* POs to see if any of them has been GR complete. If even one is not,
* the SO cannot have the billing block removed.
* CLEAR lv_ebeln. "D10K989190
* SELECT SINGLE ebeln FROM ekpo INTO lv_ebeln WHERE "D10K989190
* banfn = g_wa_vbep-banfn. "D10K989190
CLEAR l_lines. "D10K989190
REFRESH l_po_banfn. "D10K989190
SELECT * FROM ekpo INTO TABLE l_po_banfn "D10K989190
WHERE banfn = g_wa_vbep-banfn. "D10K989190
DESCRIBE TABLE l_po_banfn LINES l_lines. "D10K989190
* IF sy-subrc EQ 0. "D10K989190
IF l_lines > 0. "D10K989190
LOOP AT l_po_banfn. "D10K989190
REFRESH l_po_history.
CALL FUNCTION 'BAPI_PO_GETDETAIL'
EXPORTING
purchaseorder = l_po_banfn-ebeln
history = 'X'
TABLES
po_item_history_totals = l_po_history.
IF l_po_history[] IS INITIAL. "D10K989190
g_wa_vbak-flag = 'N'. "D10K989190
MODIFY g_it_vbak FROM g_wa_vbak TRANSPORTING flag. "D10K989190
CLEAR g_wa_vbak. "D10K989190
EXIT. "D10K989190
ELSE. "D10K989190
CLEAR : l_ekkn_ebeln, l_ekkn_ebelp.
SELECT SINGLE ebeln ebelp FROM ekkn INTO (l_ekkn_ebeln, l_ekkn_ebelp) WHERE vbeln = g_wa_vbep-vbeln
AND vbelp = g_wa_vbep-posnr.
* IF sy-subrc EQ 0.
CLEAR w_po_history.
READ TABLE l_po_history INTO w_po_history WITH KEY l_ekkn_ebelp.
IF w_po_history-deliv_qty NE g_wa_vbep-wmeng.
g_wa_vbak-flag = 'N'.
MODIFY g_it_vbak FROM g_wa_vbak TRANSPORTING flag.
CLEAR g_wa_vbak.
EXIT.
ELSE.
CLEAR g_wa_vbep.
CONTINUE.
ENDIF.
* ENDIF.
ENDIF. "D10K989190
ENDLOOP.
ELSE.
g_wa_vbak-flag = 'N'.
MODIFY g_it_vbak FROM g_wa_vbak TRANSPORTING flag.
CLEAR g_wa_vbak.
EXIT.
ENDIF.
ELSE.
CLEAR g_wa_vbuk.
LOOP AT g_it_vbuk INTO g_wa_vbuk WHERE vgbel = g_wa_vbep-vbeln.
* AND wbstk NE c_wbstk.
IF g_wa_vbuk-wbstk NE c_wbstk.
g_wa_vbak-flag = 'N'.
MODIFY g_it_vbak FROM g_wa_vbak TRANSPORTING flag.
CLEAR g_wa_vbak.
EXIT.
ENDIF.
ENDLOOP.
IF sy-subrc <> 0.
g_wa_vbak-flag = 'N'.
MODIFY g_it_vbak FROM g_wa_vbak TRANSPORTING flag.
CLEAR g_wa_vbak.
EXIT.
ENDIF.
*compare order qty with pgi qty
CLEAR g_wa_mseg.
READ TABLE g_it_mseg INTO g_wa_mseg
WITH KEY kdauf = g_wa_vbep-vbeln
kdpos = g_wa_vbep-posnr
BINARY SEARCH.
IF sy-subrc = 0.
* IF g_wa_vbep-wmeng NE g_wa_mseg-menge.
IF g_wa_vbep-wmeng NE g_wa_mseg-menge.
*PGI is partial, billing block cannot be removed for this SO
*Go to next SO
g_wa_vbak-flag = 'N'.
MODIFY g_it_vbak FROM g_wa_vbak TRANSPORTING flag.
CLEAR g_wa_vbak.
EXIT.
ENDIF.
ELSE.
CLEAR: l_lips_vbeln, l_lips_posnr.
SELECT SINGLE vbeln posnr FROM lips INTO (l_lips_vbeln, l_lips_posnr)
WHERE vgbel = g_wa_vbep-vbeln
AND vgpos = g_wa_vbep-posnr.
IF sy-subrc NE 0.
g_wa_vbak-flag = 'N'.
MODIFY g_it_vbak FROM g_wa_vbak TRANSPORTING flag.
CLEAR g_wa_vbak.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* ENDIF." D- D10K988843 20-Oct-2016
ELSE.
CLEAR g_wa_vbak.
EXIT.
ENDIF.
CLEAR g_wa_vbep.
ENDLOOP.
ENDIF.
CLEAR g_wa_vbak.
ENDLOOP.
LOOP AT g_it_vbak INTO g_wa_vbak WHERE flag NE 'N'.
*update the flag.
l_header_inx-updateflag = 'U'.
l_header_inx-bill_block = 'X'. " Billing
l_header_in-bill_block = ''. " Remove Billing block.
*Call the bapi.
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
EXPORTING
salesdocument = g_wa_vbak-vbeln
order_header_in = l_header_in
order_header_inx = l_header_inx
TABLES
return = lt_return.
*check for errors.
LOOP AT lt_return TRANSPORTING NO FIELDS WHERE type = 'A' OR type = 'E'.
EXIT.
ENDLOOP.
IF sy-subrc = 0.
g_wa_vbak-message = 'Error in updating'.
MODIFY g_it_vbak FROM g_wa_vbak TRANSPORTING message.
ELSE.
g_wa_vbak-message = 'Billing block removed'.
MODIFY g_it_vbak FROM g_wa_vbak TRANSPORTING message.
COMMIT WORK AND WAIT.
ENDIF.
ENDLOOP.
ENDFORM. " PROCESS_DATA
***************************************************************
Email implementation
***************************************************************
*- Initial Development Delete billing block report *
***********************************************************************
s_erdat-sign = 'I'.
s_erdat-option = 'EQ'.
s_erdat-low = ( sy-datum - 180 ).
s_erdat-high = sy-datum.
APPEND s_erdat TO s_erdat[].
/sbdp10/cl_s_sales_order=>get_order(
IMPORTING
et_return = g_it_auart " Return value
).
* SELECT z_return FROM zzvar INTO TABLE g_it_auart
* WHERE z_name = '/SBDP10/SSD006'
* AND z_key = 'VBAK-AUART'.
* IF sy-subrc EQ 0.
* SELECT z_return FROM zzvar INTO TABLE g_it_pstyv
* WHERE z_name = '/SBDP10/SSO001'
* AND z_key = 'VBAK-PSTYV'.
/sbdp10/cl_s_sales_order=>get_billingblock(
IMPORTING
et_return = g_it_faksk " Return value
).
* SELECT z_return FROM zzvar INTO TABLE g_it_faksk
* WHERE z_name = '/SBDP10/SSD006'
* AND z_key = 'VBAK-FAKSK'.
* ENDIF.
LOOP AT g_it_auart INTO g_wa_auart.
CLEAR s_auart.
s_auart-sign = 'I'.
s_auart-option = 'EQ'.
s_auart-low = g_wa_auart-z_return.
APPEND s_auart TO s_auart[].
ENDLOOP.
* LOOP AT g_it_pstyv INTO g_wa_pstyv.
* CLEAR s_pstyv.
* s_pstyv-sign = 'I'.
* s_pstyv-option = 'EQ'.
* s_pstyv-low = g_wa_auart-z_return.
* APPEND s_pstyv TO s_pstyv[].
* ENDLOOP.
LOOP AT g_it_faksk INTO g_wa_faksk.
CLEAR s_faksk.
s_faksk-sign = 'I'.
s_faksk-option = 'EQ'.
s_faksk-low = g_wa_faksk-z_return.
APPEND s_faksk TO s_faksk[].
ENDLOOP.
*----------------------------------------------------------------------*
* CLASS lcl_email IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_email IMPLEMENTATION.
METHOD send_email.
DATA:
lt_messages TYPE STANDARD TABLE OF solisti1,
lt_receivers TYPE STANDARD TABLE OF somlrec90,
lt_field_cat TYPE lvc_t_fcat,
la_message LIKE LINE OF lt_messages,
la_title TYPE sodocchgi1,
lt_choice TYPE if_salv_bs_xml=>t_type_xml_choice,
ls_choice TYPE if_salv_bs_xml=>s_type_xml_choice,
r_result_data TYPE REF TO cl_salv_ex_result_data_table,
lr_data TYPE REF TO data,
l_xml TYPE xstring,
l_version TYPE string,
l_just TYPE text6,
l_value TYPE text200,
r_columns TYPE REF TO cl_salv_columns_table,
r_aggregations TYPE REF TO cl_salv_aggregations,
r_table TYPE REF TO data,
r_filters TYPE REF TO cl_salv_filters,
lo_send_request TYPE REF TO cl_bcs,
lo_document TYPE REF TO cl_document_bcs,
lo_recipient TYPE REF TO if_recipient_bcs,
lo_bcs_exception TYPE REF TO cx_bcs,
lo_sender TYPE REF TO cl_sapuser_bcs,
lv_currency TYPE waers,
lv_unit TYPE meins,
lv_receiver TYPE so_name,
lv_email_subject TYPE so_obj_des,
lv_gentext TYPE itex132,
lv_binary_content TYPE solix_tab,
lv_binary_content2 TYPE solix_tab,
lv_size TYPE so_obj_len,
lv_size2 TYPE so_obj_len,
lv_length TYPE i,
lv_sent_to_all TYPE os_boolean,
lv_distlst TYPE so_obj_nam,
lv_mailto TYPE ad_smtpadr,
lv_email_sent TYPE os_boolean,
lv_user TYPE sy-uname,
lv_attach_name TYPE so_obj_des.
FIELD-SYMBOLS :
<field_cat> LIKE LINE OF lt_field_cat.
*Attachment for no Ack
* Convert ALV in current layout to Excel and send as attachement
IF go_salv1 IS BOUND.
CALL METHOD go_salv1->get_columns
RECEIVING
value = r_columns.
ENDIF.
lt_field_cat = cl_salv_controller_metadata=>get_lvc_fieldcatalog(
r_columns = r_columns
r_aggregations = r_aggregations ).
SORT lt_field_cat BY no_out col_pos.
LOOP AT lt_field_cat ASSIGNING <field_cat>
WHERE no_out = ' '
AND hotspot = 'X'.
CLEAR <field_cat>-hotspot.
MODIFY lt_field_cat FROM <field_cat> TRANSPORTING hotspot.
ENDLOOP.
* Use Excel .XLSX format.
lt_choice = cl_salv_export_xml_dialog=>get_gui_spreadsheet_formats( ).
READ TABLE lt_choice INTO ls_choice
WITH KEY xml_type = '10'.
GET REFERENCE OF g_it_vbak INTO lr_data.
r_result_data = cl_salv_ex_util=>factory_result_data_table(
r_data = lr_data
t_fieldcatalog = lt_field_cat ).
CASE cl_salv_bs_a_xml_base=>get_version( ).
WHEN if_salv_bs_xml=>version_25.
l_version = if_salv_bs_xml=>version_25.
WHEN if_salv_bs_xml=>version_26.
l_version = if_salv_bs_xml=>version_26.
ENDCASE.
CALL METHOD cl_salv_bs_tt_util=>if_salv_bs_tt_util~transform
EXPORTING
xml_type = ls_choice-xml_type
xml_version = l_version
r_result_data = r_result_data
xml_flavour = if_salv_bs_c_tt=>c_tt_xml_flavour_export
IMPORTING
xml = l_xml.
* convert the text string into UTF-16LE binary data including
* byte-order-mark. Mircosoft Excel prefers these settings
* all this is done by new class cl_bcs_convert (see note 1151257)
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = l_xml
IMPORTING
output_length = lv_length
TABLES
binary_tab = lv_binary_content.
lv_size = lv_length.
*Attachment for with Ack
* Convert ALV in current layout to Excel and send as attachement
* CALL private mehtod TO START email transmission USING bcs_class
lv_size2 = lv_length.
* lv_receiver = im_name.
lv_email_subject = text-t15.
* Email body
la_message-line = text-t14 .
APPEND la_message TO lt_messages.
* Send email
TRY .
* -------- create persistent send request ------------------------
lo_send_request = cl_bcs=>create_persistent( ).
* -------- create and set document with attachment ---------------
lo_document = cl_document_bcs=>create_document(
i_type = im_doc_type
i_text = lt_messages
i_subject = lv_email_subject ). "#EC NOTEXT
* IF im_attachment_name IS INITIAL.
lv_attach_name = text-t15.
* ENDIF.
* IF im_content_hex IS NOT INITIAL.
** Add the document as and attachment to email document object
lo_document->add_attachment(
i_attachment_type = im_attachment_type
i_attachment_subject = lv_attach_name
i_attachment_size = lv_size
i_att_content_hex = lv_binary_content
).
* ENDIF.
* add document object to send request
lo_send_request->set_document( lo_document ).
* --------- Set the sender to the User Running the Report ---------
lo_sender = cl_sapuser_bcs=>create( sy-uname ).
lo_send_request->set_sender( lo_sender ).
LOOP AT s_mail[] INTO s_mail.
lv_mailto = s_mail-low.
CHECK lv_mailto IS NOT INITIAL.
lo_recipient = cl_cam_address_bcs=>create_internet_address( lv_mailto ).
CLEAR lv_mailto.
* add recipient object to send request
CALL METHOD lo_send_request->add_recipient
EXPORTING
i_recipient = lo_recipient
i_express = 'X'.
FREE: lo_recipient.
ENDLOOP.
* ---------- send document ---------------------------------------
lv_email_sent = lo_send_request->send( i_with_error_screen = 'X' ).
COMMIT WORK.
IF lv_email_sent IS INITIAL.
MESSAGE i500(sbcoms) WITH s_mail-low.
ELSE.
MESSAGE s022(so).
ENDIF.
* ------------ exception handling ----------------------------------
* replace this rudimentary exception handling with your own one !!!
CATCH cx_bcs INTO lo_bcs_exception.
MESSAGE i865(so) WITH lo_bcs_exception->error_type.
ENDTRY.
ENDMETHOD. "send_email
ENDCLASS. "lcl_email IMPLEMENTATION
