adesso orange🍊Stellenangebote:
Software Engineer Trainee · Senior
| (Senior) Cloud Software Engineer BTP
(Senior) Consultant Technologie · Consultant ABAP
Werkstudent Softwareentwicklung · Fiori / UI5 · Consulting · Application Management
ABAP2XLSX: Unterschied zwischen den Versionen
Aus SAP Wiki ツ
| Zeile 767: | Zeile 767: | ||
** Mailtext aufbereiten | ** Mailtext aufbereiten | ||
APPEND ' ' TO main_text. | APPEND ' ' TO main_text. | ||
TRY. | TRY. | ||
* Create send request | * Create send request | ||
Version vom 29. September 2021, 20:04 Uhr
Der Vorteil gegenüber den Standardmitteln OLE und DOI ist, dass es performanter und mit den neuesten MS Excel Version und Dateitypen wie .xlsx und mit Calc OpenOffice läuft.
Mehr Vorteile und Übersicht über dieses AddOn kann hier nachgelesen werden.
Installation
Der Nugget muss mit dem Programm ZABAPGIT online oder offline installiert werden.
Ggf. sind einige Anpassungen an den Klassen und Methoden notwendig.
Codeschnipsel
CREATE EXCEL
"IT_DATASETS
"EO_EXCEL TYPE REF TO
METHOD create_send_xlsx.
CHECK lines( it_datasets ) > 0.
DATA:
lo_excel TYPE REF TO zcl_excel,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_autofilter TYPE REF TO zcl_excel_autofilter,
row_dimension TYPE REF TO zcl_excel_worksheet_rowdimensi,
column_dimension TYPE REF TO zcl_excel_column,
"column_dimension TYPE REF TO zcl_excel_worksheet_columndime,
lo_border_none TYPE REF TO zcl_excel_style_border,
lo_border_blue TYPE REF TO zcl_excel_style_border,
lo_style_bckgrnd TYPE REF TO zcl_excel_style,
lo_style_bckgrnd_guid TYPE zexcel_cell_style,
lo_style_first_line TYPE REF TO zcl_excel_style,
lv_style_first_line_guid TYPE zexcel_cell_style,
lo_style_head_line_l TYPE REF TO zcl_excel_style,
lv_style_head_line_l_guid TYPE zexcel_cell_style,
lo_style_head_line_c TYPE REF TO zcl_excel_style,
lv_style_head_line_c_guid TYPE zexcel_cell_style,
lo_style_center TYPE REF TO zcl_excel_style,
lv_style_center_guid TYPE zexcel_cell_style,
lo_border_dark TYPE REF TO zcl_excel_style_border,
lo_border_left TYPE REF TO zcl_excel_style_border,
lo_border_right TYPE REF TO zcl_excel_style_border,
lo_border_down_1 TYPE REF TO zcl_excel_style_border,
lo_border_down_2 TYPE REF TO zcl_excel_style_border,
lo_style_normal_c TYPE REF TO zcl_excel_style,
lo_style_normal_c_red TYPE REF TO zcl_excel_style,
lo_style_normal_l TYPE REF TO zcl_excel_style,
lo_style_grau_c TYPE REF TO zcl_excel_style,
lo_style_grau_l TYPE REF TO zcl_excel_style,
lo_style_grey TYPE REF TO zcl_excel_style,
lo_style_blau_a TYPE REF TO zcl_excel_style,
lo_style_oran_a TYPE REF TO zcl_excel_style,
lo_style_rothell TYPE REF TO zcl_excel_style,
lo_style_blau_b TYPE REF TO zcl_excel_style,
lo_style_blau_c TYPE REF TO zcl_excel_style,
lo_style_green_b TYPE REF TO zcl_excel_style,
lo_style_green_c TYPE REF TO zcl_excel_style,
lo_style_rot_c TYPE REF TO zcl_excel_style,
lo_style_braun_1 TYPE REF TO zcl_excel_style,
lo_style_braun_2 TYPE REF TO zcl_excel_style,
lo_style_braun_3 TYPE REF TO zcl_excel_style,
lo_style_braun_4 TYPE REF TO zcl_excel_style,
lo_style_normal_c_guid TYPE zexcel_cell_style,
lo_style_normal_c_red_guid TYPE zexcel_cell_style,
lo_style_normal_l_guid TYPE zexcel_cell_style,
lo_style_grau_c_guid TYPE zexcel_cell_style,
lo_style_oran_a_guid TYPE zexcel_cell_style,
lo_style_rothell_a_guid TYPE zexcel_cell_style,
lo_style_grau_l_guid TYPE zexcel_cell_style,
lo_style_grey_guid TYPE zexcel_cell_style,
lo_style_blau_a_guid TYPE zexcel_cell_style,
lo_style_blau_b_guid TYPE zexcel_cell_style,
lo_style_blau_c_guid TYPE zexcel_cell_style,
lo_style_green_b_guid TYPE zexcel_cell_style,
lo_style_green_c_guid TYPE zexcel_cell_style,
lo_style_rot_c_guid TYPE zexcel_cell_style,
lo_style_braun_1_guid TYPE zexcel_cell_style,
lo_style_braun_2_guid TYPE zexcel_cell_style,
lo_style_braun_3_guid TYPE zexcel_cell_style,
lo_style_braun_4_guid TYPE zexcel_cell_style,
lv_borders TYPE zexcel_s_cstyle_borders,
lv_xborders TYPE zexcel_s_cstylex_borders,
lv_borders_down TYPE zexcel_s_cstyle_border,
lv_xborders_down TYPE zexcel_s_cstylex_border.
DATA:
lv_row TYPE i,
lv_row_a TYPE i,
lv_row_b TYPE i,
lv_col TYPE zexcel_cell_column VALUE 1,
lv_col_str TYPE zexcel_cell_column_alpha,
lv_zahl_char TYPE char10,
lv_time_char TYPE char5.
DATA: ls_area TYPE zexcel_s_autofilter_area.
"ls_datasets TYPE zabgleich_ldl_t.
"DATA: ls_out TYPE zoos_neu.
DATA: lv_ignore TYPE char01.
DATA: lv_tabix TYPE sytabix.
* ======================================================================
* Im Vorfeld die Ausgabestruktur erstellen
* ======================================================================
DATA: lv_struk TYPE tabname VALUE 'zabgleich_LDL'.
DATA: gt_fcat TYPE lvc_t_fcat,
gs_fcat LIKE LINE OF gt_fcat.
FIELD-SYMBOLS: <fcat> TYPE lvc_s_fcat.
FIELD-SYMBOLS: <value> TYPE any.
* Mit dem FuBa schon einmal den Grundaufbau des Feldctalogs erstellen
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = lv_struk
i_client_never_display = 'X'
i_bypassing_buffer = 'X'
CHANGING
ct_fieldcat = gt_fcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
CREATE OBJECT lo_excel.
* Für die Gitterlinien innerhalb der Tabelle
CREATE OBJECT lo_border_dark.
lo_border_dark->border_color-rgb = zcl_excel_style_color=>c_black.
lo_border_dark->border_style = zcl_excel_style_border=>c_border_thin.
CREATE OBJECT lo_border_left.
lo_border_left->border_color-rgb = zcl_excel_style_color=>c_black.
lo_border_left->border_style = zcl_excel_style_border=>c_border_thin.
CREATE OBJECT lo_border_right.
lo_border_right->border_color-rgb = zcl_excel_style_color=>c_black.
lo_border_right->border_style = zcl_excel_style_border=>c_border_thin.
CREATE OBJECT lo_border_down_1.
lo_border_down_1->border_color-rgb = zcl_excel_style_color=>c_black.
lo_border_down_1->border_style = zcl_excel_style_border=>c_border_thin.
CREATE OBJECT lo_border_down_2.
lo_border_down_2->border_color-rgb = zcl_excel_style_color=>c_black.
lo_border_down_2->border_style = zcl_excel_style_border=>c_border_thick.
* ======================================================================
* Für das gesamte Blatt --> Hintergrund auf Weiß setzen (ohne Gitterlinien)
* ======================================================================
lo_style_bckgrnd = lo_excel->add_new_style( ).
lo_style_bckgrnd->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_bckgrnd->fill->fgcolor-rgb = zcl_excel_style_color=>c_white.
lo_style_bckgrnd_guid = lo_style_bckgrnd->get_guid( ).
* ======================================================================
* Für die erste Zeile
* ======================================================================
lo_style_first_line = lo_excel->add_new_style( ).
lo_style_first_line->font->bold = abap_true.
lo_style_first_line->font->size = 18.
lo_style_first_line->font->italic = abap_false.
lo_style_first_line->font->color-rgb = zcl_excel_style_color=>c_black.
lo_style_first_line->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_first_line->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_first_line->fill->fgcolor-theme = zcl_excel_style_color=>c_theme_dark1.
lv_style_first_line_guid = lo_style_first_line->get_guid( ).
* ======================================================================
* Style für Tabellen-Überschriften generieren
* ======================================================================
* Ausrichtung - zentriert (horizontal + vertikal)
lo_style_head_line_c = lo_excel->add_new_style( ).
lo_style_head_line_c->font->bold = abap_true.
lo_style_head_line_c->font->size = 11.
lo_style_head_line_c->font->italic = abap_false.
lo_style_head_line_c->font->color-rgb = zcl_excel_style_color=>c_black.
lo_style_head_line_c->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_head_line_c->alignment->vertical = zcl_excel_style_alignment=>c_vertical_center.
lo_style_head_line_c->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_head_line_c->fill->fgcolor-theme = zcl_excel_style_color=>c_theme_dark2.
lv_style_head_line_c_guid = lo_style_head_line_c->get_guid( ).
* Ausrichtung - linksbündig
lo_style_head_line_l = lo_excel->add_new_style( ).
lo_style_head_line_l->font->bold = abap_true.
lo_style_head_line_l->font->size = 11.
lo_style_head_line_l->font->italic = abap_false.
lo_style_head_line_l->font->color-rgb = zcl_excel_style_color=>c_black.
lo_style_head_line_l->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_left.
lo_style_head_line_l->alignment->vertical = zcl_excel_style_alignment=>c_vertical_center.
lo_style_head_line_l->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_head_line_l->fill->fgcolor-theme = zcl_excel_style_color=>c_theme_dark2.
lv_style_head_line_l_guid = lo_style_head_line_l->get_guid( ).
* ======================================================================
* Style für Tabellen-Inhalte generieren
* ======================================================================
* Normal - zentriert
lo_style_normal_c = lo_excel->add_new_style( ).
lo_style_normal_c->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_normal_c->font->bold = abap_false.
lo_style_normal_c->borders->down = lo_border_down_1.
lo_style_normal_c->borders->left = lo_border_left.
lo_style_normal_c->borders->right = lo_border_right.
lo_style_normal_c_guid = lo_style_normal_c->get_guid( ).
*
* Normal - zentriert und Schrift in ROT
lo_style_normal_c_red = lo_excel->add_new_style( ).
lo_style_normal_c_red->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_normal_c_red->font->bold = abap_false.
lo_style_normal_c_red->font->color-rgb = zcl_excel_style_color=>c_red.
lo_style_normal_c_red->borders->down = lo_border_down_1.
lo_style_normal_c_red->borders->left = lo_border_left.
lo_style_normal_c_red->borders->right = lo_border_right.
lo_style_normal_c_red_guid = lo_style_normal_c_red->get_guid( ).
* Normal - linksbündig
lo_style_normal_l = lo_excel->add_new_style( ).
lo_style_normal_l->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_left.
lo_style_normal_l->font->bold = abap_false.
* lo_style_normal_l->borders->allborders = lo_border_dark.
lo_style_normal_l->borders->down = lo_border_down_1.
lo_style_normal_l->borders->left = lo_border_left.
lo_style_normal_l->borders->right = lo_border_right.
lo_style_normal_l_guid = lo_style_normal_l->get_guid( ).
* Grau hinterlegt - zentriert
lo_style_grau_c = lo_excel->add_new_style( ).
lo_style_grau_c->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_grau_c->font->bold = abap_false.
* lo_style_grau_c->borders->allborders = lo_border_dark.
lo_style_grau_c->borders->down = lo_border_down_1.
lo_style_grau_c->borders->left = lo_border_left.
lo_style_grau_c->borders->right = lo_border_right.
lo_style_grau_c->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_grau_c->fill->fgcolor-theme = zcl_excel_style_color=>c_theme_dark2.
lo_style_grau_c_guid = lo_style_grau_c->get_guid( ).
* Grau hinterlegt - linksbündig
lo_style_grau_l = lo_excel->add_new_style( ).
lo_style_grau_l->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_left.
lo_style_grau_l->font->bold = abap_false.
* lo_style_grau_l->borders->allborders = lo_border_dark.
lo_style_grau_l->borders->down = lo_border_down_1.
lo_style_grau_l->borders->left = lo_border_left.
lo_style_grau_l->borders->right = lo_border_right.
lo_style_grau_l->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_grau_l->fill->fgcolor-theme = zcl_excel_style_color=>c_theme_dark2.
lo_style_grau_l_guid = lo_style_grau_l->get_guid( ).
* Blau A hinterlegt - zentriert
lo_style_blau_a = lo_excel->add_new_style( ).
lo_style_blau_a->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_blau_a->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_blau_a->fill->fgcolor-rgb = 'FF4F81BD'.
* lo_style_blau_A->borders->allborders = lo_border_dark.
lo_style_blau_a->borders->down = lo_border_down_1.
lo_style_blau_a->borders->left = lo_border_left.
lo_style_blau_a->borders->right = lo_border_right.
lo_style_blau_a->font->color-rgb = zcl_excel_style_color=>c_white.
lo_style_blau_a_guid = lo_style_blau_a->get_guid( ).
* Blau B hinterlegt - zentriert
lo_style_blau_b = lo_excel->add_new_style( ).
lo_style_blau_b->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_blau_b->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_blau_b->fill->fgcolor-rgb = 'FF95B3D7'.
* lo_style_blau_B->borders->allborders = lo_border_dark.
lo_style_blau_b->borders->down = lo_border_down_1.
lo_style_blau_b->borders->left = lo_border_left.
lo_style_blau_b->borders->right = lo_border_right.
lo_style_blau_b->font->color-rgb = zcl_excel_style_color=>c_white.
lo_style_blau_b_guid = lo_style_blau_b->get_guid( ).
* Blau C hinterlegt - zentriert
lo_style_blau_c = lo_excel->add_new_style( ).
lo_style_blau_c->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_blau_c->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_blau_c->fill->fgcolor-rgb = 'FFDCE6F1'.
* lo_style_blau_C->borders->allborders = lo_border_dark.
lo_style_blau_c->borders->down = lo_border_down_1.
lo_style_blau_c->borders->left = lo_border_left.
lo_style_blau_c->borders->right = lo_border_right.
* lo_style_blau_C->font->color-rgb = zcl_excel_style_color=>c_white.
lo_style_blau_c->font->color-rgb = zcl_excel_style_color=>c_black.
lo_style_blau_c_guid = lo_style_blau_c->get_guid( ).
* Rot C hinterlegt - zentriert
lo_style_rot_c = lo_excel->add_new_style( ).
lo_style_rot_c->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_rot_c->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_rot_c->fill->fgcolor-rgb = 'FFCD5C5C'.
* lo_style_rot_C->borders->allborders = lo_border_dark.
lo_style_rot_c->borders->down = lo_border_down_1.
lo_style_rot_c->borders->left = lo_border_left.
lo_style_rot_c->borders->right = lo_border_right.
* lo_style_rot_C->font->color-rgb = zcl_excel_style_color=>c_white.
lo_style_rot_c->font->color-rgb = zcl_excel_style_color=>c_black.
lo_style_rot_c_guid = lo_style_rot_c->get_guid( ).
* Grün B hinterlegt - zentriert
lo_style_green_b = lo_excel->add_new_style( ).
lo_style_green_b->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_green_b->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_green_b->fill->fgcolor-rgb = 'FF3CB371'. "Dunkleresgrün
* lo_style_rot_C->borders->allborders = lo_border_dark.
lo_style_green_b->borders->down = lo_border_down_1.
lo_style_green_b->borders->left = lo_border_left.
lo_style_green_b->borders->right = lo_border_right.
* lo_style_rot_C->font->color-rgb = zcl_excel_style_color=>c_white.
lo_style_green_b->font->color-rgb = zcl_excel_style_color=>c_black.
lo_style_green_b_guid = lo_style_green_b->get_guid( ).
* Grau B hinterlegt - zentriert
lo_style_grey = lo_excel->add_new_style( ).
lo_style_grey->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_grey->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_grey->fill->fgcolor-rgb = 'FFA9A9A9'. "Dunkelgrau
* lo_style_rot_C->borders->allborders = lo_border_dark.
lo_style_grey->borders->down = lo_border_down_1.
lo_style_grey->borders->left = lo_border_left.
lo_style_grey->borders->right = lo_border_right.
* lo_style_rot_C->font->color-rgb = zcl_excel_style_color=>c_white.
lo_style_grey->font->color-rgb = zcl_excel_style_color=>c_black.
lo_style_grey_guid = lo_style_grey->get_guid( ).
* Grün C hinterlegt - zentriert
lo_style_green_c = lo_excel->add_new_style( ).
lo_style_green_c->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_green_c->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_green_c->fill->fgcolor-rgb = 'FF90EE90'. "Helleresgrün
* lo_style_rot_C->borders->allborders = lo_border_dark.
lo_style_green_c->borders->down = lo_border_down_1.
lo_style_green_c->borders->left = lo_border_left.
lo_style_green_c->borders->right = lo_border_right.
* lo_style_rot_C->font->color-rgb = zcl_excel_style_color=>c_white.
lo_style_green_c->font->color-rgb = zcl_excel_style_color=>c_black.
lo_style_green_c_guid = lo_style_green_c->get_guid( ).
* Braun 1 hinterlegt - zentriert
lo_style_braun_1 = lo_excel->add_new_style( ).
lo_style_braun_1->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_braun_1->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_braun_1->fill->fgcolor-rgb = 'FFC0504D'.
* lo_style_braun_1->borders->allborders = lo_border_dark.
lo_style_braun_1->borders->down = lo_border_down_1.
lo_style_braun_1->borders->left = lo_border_left.
lo_style_braun_1->borders->right = lo_border_right.
lo_style_braun_1->font->color-rgb = zcl_excel_style_color=>c_white.
lo_style_braun_1_guid = lo_style_braun_1->get_guid( ).
* Braun 2 hinterlegt - zentriert
lo_style_braun_2 = lo_excel->add_new_style( ).
lo_style_braun_2->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_braun_2->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_braun_2->fill->fgcolor-rgb = 'FFDA9694'.
* lo_style_braun_2->borders->allborders = lo_border_dark.
lo_style_braun_2->borders->down = lo_border_down_1.
lo_style_braun_2->borders->left = lo_border_left.
lo_style_braun_2->borders->right = lo_border_right.
lo_style_braun_2->font->color-rgb = zcl_excel_style_color=>c_white.
lo_style_braun_2_guid = lo_style_braun_2->get_guid( ).
* Orange A hinterlegt - zentriert
lo_style_oran_a = lo_excel->add_new_style( ).
lo_style_oran_a->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_oran_a->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_oran_a->fill->fgcolor-rgb = 'FFFFA500'.
* lo_style_blau_A->borders->allborders = lo_border_dark.
lo_style_oran_a->borders->down = lo_border_down_1.
lo_style_oran_a->borders->left = lo_border_left.
lo_style_oran_a->borders->right = lo_border_right.
lo_style_oran_a->font->color-rgb = zcl_excel_style_color=>c_black.
lo_style_oran_a_guid = lo_style_oran_a->get_guid( ).
* Hellrot A hinterlegt - zentriert
lo_style_rothell = lo_excel->add_new_style( ).
lo_style_rothell->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center.
lo_style_rothell->fill->filltype = zcl_excel_style_fill=>c_fill_solid.
lo_style_rothell->fill->fgcolor-rgb = 'FFF08080'.
* lo_style_blau_A->borders->allborders = lo_border_dark.
lo_style_rothell->borders->down = lo_border_down_1.
lo_style_rothell->borders->left = lo_border_left.
lo_style_rothell->borders->right = lo_border_right.
lo_style_rothell->font->color-rgb = zcl_excel_style_color=>c_black.
lo_style_rothell_a_guid = lo_style_rothell->get_guid( ).
* Get active sheet
lo_worksheet = lo_excel->get_active_worksheet( ).
lo_worksheet->zif_excel_sheet_properties~set_style( lo_style_bckgrnd_guid ). "Gitterlinien ausblenden
lo_worksheet->freeze_panes( ip_num_rows = 5 ). "die ersten Zeilen einfrieren
lo_worksheet->set_title( 'Bestandsabgleich' ). "Name des Arbeitsblattes setzen
lo_worksheet->set_default_excel_date_format( zcl_excel_style_number_format=>c_format_date_yyyymmdd ).
lo_worksheet->sheet_setup->vertical_centered = abap_true.
lo_worksheet->sheet_setup->horizontal_centered = abap_true.
lo_worksheet->sheet_setup->fit_to_page = abap_true.
lo_worksheet->sheet_setup->fit_to_height = 1.
lo_worksheet->sheet_setup->fit_to_width = 1.
lo_worksheet->sheet_setup->orientation = zcl_excel_sheet_setup=>c_orientation_landscape.
* Start der Ausgabe bei Zeile 6
lv_row = 5.
lv_row_a = 6. "Erste Zeile, die ge-merged werden soll!
LOOP AT it_datasets INTO DATA(ls_datasets).
lv_row = lv_row + 1.
lv_col = 1. "Ausgabe soll beginnen in Spalte A --> wird gleich gewandelt!
LOOP AT gt_fcat ASSIGNING <fcat>.
* Von Zahl in Buchstabe für die Spalte wandeln
lv_col_str = zcl_excel_common=>convert_column2alpha( lv_col ).
CASE <fcat>-fieldname.
WHEN 'MANDT'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-mandt
ip_style = lo_style_blau_c_guid ).
WHEN 'MATNR'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-matnr
ip_style = lo_style_blau_c_guid ).
WHEN 'WERKS'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-werks
ip_style = lo_style_blau_c_guid ).
WHEN 'LGORT'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-lgort
ip_style = lo_style_blau_c_guid ).
WHEN 'MAKTX'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-maktx
ip_style = lo_style_blau_c_guid ).
WHEN 'ERDAT'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-erdat
ip_style = lo_style_blau_c_guid ).
WHEN 'SAP_LABST'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-sap_labst
ip_style = lo_style_green_c_guid ).
WHEN 'SAP_INSME'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-sap_insme
ip_style = lo_style_green_c_guid ).
WHEN 'SAP_SPEME'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-sap_speme
ip_style = lo_style_green_c_guid ).
WHEN 'DIFF_LABST'.
IF ls_datasets-diff_labst > 0.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-diff_labst
ip_style = lo_style_rot_c_guid ).
ELSEIF ls_datasets-diff_labst < 0.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-diff_labst
ip_style = lo_style_rothell_a_guid ).
ELSE.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-diff_labst
ip_style = lo_style_grau_c_guid ).
ENDIF.
WHEN 'DIFF_INSME'.
IF ls_datasets-diff_insme > 0.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-diff_insme
ip_style = lo_style_rot_c_guid ).
ELSEIF ls_datasets-diff_insme < 0.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-diff_insme
ip_style = lo_style_rothell_a_guid ).
ELSE.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-diff_insme
ip_style = lo_style_grau_c_guid ).
ENDIF.
WHEN 'DIFF_SPEME'.
IF ls_datasets-diff_speme > 0.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-diff_speme
ip_style = lo_style_rot_c_guid ).
ELSEIF ls_datasets-diff_speme < 0.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-diff_speme
ip_style = lo_style_rothell_a_guid ).
ELSE.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-diff_speme
ip_style = lo_style_grau_c_guid ).
ENDIF.
WHEN 'LDL_LABST'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-ldl_labst
ip_style = lo_style_oran_a_guid ).
WHEN 'LDL_INSME'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-ldl_insme
ip_style = lo_style_oran_a_guid ).
WHEN 'LDL_SPEME'.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col_str
ip_value = ls_datasets-ldl_speme
ip_style = lo_style_oran_a_guid ).
ENDCASE.
lv_col = lv_col + 1.
ENDLOOP.
ENDLOOP.
** Vor der eigentlichen Ausgabe noch Autosize durchführen!
** column_dimension = lo_worksheet->get_column( 'A' ).
** column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'B' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'C' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
** column_dimension = lo_worksheet->get_column( 'D' ).
** column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'E' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
** column_dimension = lo_worksheet->get_column( 'F' ).
** column_dimension->set_auto_size( ip_auto_size = abap_true ).
** column_dimension = lo_worksheet->get_column( 'G' ).
** column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'H' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'I' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'J' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'K' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'L' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'M' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'N' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'O' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'P' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'Q' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'R' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* column_dimension = lo_worksheet->get_column( 'S' ).
* column_dimension->set_auto_size( ip_auto_size = abap_true ).
* ====================================================================
* Die Überschriftenzeile erst im Nachgang setzen, da bei der
* Zusammenfassung von Zellen, die automatische Breitenanpassung
* nicht mehr funktioniert!
* ====================================================================
* Erste Zeile zusammenfassen (mergen) und ausgeben
lo_worksheet->set_cell( ip_row = 1 ip_column = 'A' ip_value = 'Bestandsabgleich' ip_style = lv_style_first_line_guid ).
lo_worksheet->set_merge( ip_row = 1 ip_column_start = 'A' ip_column_end = 'O' ).
* Status + Datum setzen + mergen
lo_worksheet->set_cell( ip_column = 'A' ip_row = 2 ip_value = 'Stand:' ).
lo_worksheet->set_cell( ip_column = 'B' ip_row = 2 ip_value = sy-datum ip_style = lo_style_normal_c_guid ).
" lo_worksheet->set_merge( ip_row = 2 ip_column_start = 'B' ip_column_end = 'C' ).
* Systeminfos
lo_worksheet->set_cell( ip_column = 'A' ip_row = 3 ip_value = 'System:' ).
lo_worksheet->set_cell( ip_column = 'B' ip_row = 3 ip_value = sy-sysid ip_style = lo_style_normal_c_guid ).
* lo_worksheet->set_merge( ip_row = 3 ip_column_start = 'B' ip_column_end = 'C' ).
* Nachträglich den Rahmen aus der Zelle entfernen
lv_xborders-allborders-border_style = abap_true.
lv_borders-allborders-border_style = zcl_excel_style_border=>c_border_none.
lo_worksheet->change_cell_style( ip_column = 'B'
ip_row = 2
ip_xborders = lv_xborders
ip_borders = lv_borders ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'A' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'A' ip_value = 'Mandt' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'A' ).
column_dimension->set_width( ip_width = 10 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'B' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'B' ip_value = 'Material' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'B' ).
column_dimension->set_width( ip_width = 10 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'C' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'C' ip_value = 'Plant' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'C' ).
column_dimension->set_width( ip_width = 10 ).
*
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'D' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'D' ip_value = 'Storage Loction' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'D' ).
column_dimension->set_width( ip_width = 20 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'E' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'E' ip_value = 'Shortext' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'E' ).
column_dimension->set_width( ip_width = 50 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'F' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'F' ip_value = 'Submitted Date' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'F' ).
column_dimension->set_width( ip_width = 17 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'G' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'G' ip_value = 'SAP Available' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'G' ).
column_dimension->set_width( ip_width = 20 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'H' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'H' ip_value = 'Diff Available' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'H' ).
column_dimension->set_width( ip_width = 20 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'I' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'I' ip_value = 'LDL Available' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'I' ).
column_dimension->set_width( ip_width = 20 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'J' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'J' ip_value = 'SAP Q-Stock ' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'J' ).
column_dimension->set_width( ip_width = 20 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'K' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'K' ip_value = 'Diff Q-Stock' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'K' ).
column_dimension->set_width( ip_width = 20 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'L' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'L' ip_value = 'LDL Q-Stock' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'L' ).
column_dimension->set_width( ip_width = 20 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'M' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'M' ip_value = 'SAP Blocked' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'M' ).
column_dimension->set_width( ip_width = 20 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'N' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'N' ip_value = 'Diff Blocked' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'N' ).
column_dimension->set_width( ip_width = 20 ).
lo_worksheet->set_merge( ip_row = 4 ip_row_to = 5 ip_column_start = 'O' ).
lo_worksheet->set_cell( ip_row = 4 ip_column = 'O' ip_value = 'LDL Blocked' ip_style = lv_style_head_line_c_guid ).
column_dimension = lo_worksheet->get_column( ip_column = 'O' ).
column_dimension->set_width( ip_width = 20 ).
lo_autofilter = lo_excel->add_new_autofilter( io_sheet = lo_worksheet ) .
ls_area-row_start = 4.
ls_area-col_start = 1.
ls_area-row_end = lo_worksheet->get_highest_row( ).
ls_area-col_end = lo_worksheet->get_highest_column( ).
lo_autofilter->set_filter_area( is_area = ls_area ).
eo_excel = lo_excel.
"lcl_output=>output( lo_excel ).
ENDMETHOD.
LOCAL CLASSES FOR SENDING
"EXPORTING it_datasets = lt_vergleich IMPORTING eo_excel = lo_excel
CLASS lcl_output DEFINITION CREATE PRIVATE.
PUBLIC SECTION.
CLASS-METHODS: output IMPORTING cl_excel TYPE REF TO zcl_excel.
PRIVATE SECTION.
METHODS: send_email.
DATA: xdata TYPE xstring, " Will be used for sending as email
t_rawdata TYPE solix_tab, " Will be used for downloading or open directly
bytecount TYPE i. " Will be used for downloading or open directly
ENDCLASS. "lcl_output DEFINITION
CLASS lcl_output IMPLEMENTATION.
METHOD output.
DATA: cl_output TYPE REF TO lcl_output,
cl_writer TYPE REF TO zif_excel_writer.
CREATE OBJECT cl_output.
CREATE OBJECT cl_writer TYPE zcl_excel_writer_2007.
cl_output->xdata = cl_writer->write_file( cl_excel ).
cl_output->t_rawdata = cl_bcs_convert=>xstring_to_solix( iv_xstring = cl_output->xdata ).
cl_output->bytecount = xstrlen( cl_output->xdata ).
cl_output->send_email( ).
ENDMETHOD. "output
METHOD send_email.
* Needed to send emails
DATA: bcs_exception TYPE REF TO cx_bcs,
errortext TYPE string,
cl_send_request TYPE REF TO cl_bcs,
cl_document TYPE REF TO cl_document_bcs,
cl_recipient TYPE REF TO if_recipient_bcs,
cl_sender TYPE REF TO cl_cam_address_bcs,
t_attachment_header TYPE soli_tab,
wa_attachment_header LIKE LINE OF t_attachment_header,
attachment_subject TYPE sood-objdes,
sood_bytecount TYPE sood-objlen,
mail_title TYPE so_obj_des,
t_mailtext TYPE soli_tab,
wa_mailtext LIKE LINE OF t_mailtext,
send_to TYPE adr6-smtp_addr,
sent TYPE os_boolean,
main_text TYPE bcsy_text,
lv_status_attr TYPE bcs_rqst,
lv_distributionlist_name TYPE soobjinfi1-obj_name.
lv_distributionlist_name = zkl_ldl_bestandsabgleich=>distribution_list.
DATA: lt_dli_tab TYPE STANDARD TABLE OF sodlienti1,
lv_stmp_addr TYPE ad_smtpadr.
FIELD-SYMBOLS: <ls_dli_data> TYPE sodlienti1.
* DATA: lt_notify TYPE STANDARD TABLE OF zcof_notify.
* FIELD-SYMBOLS: <notify> TYPE zcof_notify.
DATA: lv_datum TYPE char10.
* Betreffzeile
WRITE sy-datum TO lv_datum DD/MM/YYYY.
CONCATENATE 'Bestandsabgleich |' lv_datum '-' sy-sysid INTO mail_title SEPARATED BY space.
** Mailtext aufbereiten
APPEND ' ' TO main_text.
TRY.
* Create send request
cl_send_request = cl_bcs=>create_persistent( ).
* No automatic reply
lv_status_attr = 'N'.
cl_send_request->set_status_attributes( i_requested_status = lv_status_attr ).
cl_document = cl_document_bcs=>create_document( i_type = 'RAW' "#EC NOTEXT
i_text = main_text
i_subject = mail_title ).
* Add attachment to document
* since the new excelfiles have an 4-character extension .xlsx but the attachment-type only holds 3 charactes .xls,
* we have to specify the real filename via attachment header
* Use attachment_type xls to have SAP display attachment with the excel-icon
CONCATENATE 'Bestandsabgleich_' sy-datum '.XLSX' INTO attachment_subject.
CONCATENATE '&SO_FILENAME=' attachment_subject INTO wa_attachment_header.
APPEND wa_attachment_header TO t_attachment_header.
* Attachment
sood_bytecount = bytecount. " next method expects sood_bytecount instead of any positive integer *sigh*
cl_document->add_attachment( i_attachment_type = 'XLS' "#EC NOTEXT
i_attachment_subject = attachment_subject
i_attachment_size = sood_bytecount
i_att_content_hex = t_rawdata
i_attachment_header = t_attachment_header ).
* add document to send request
cl_send_request->set_document( cl_document ).
* add recipient(s)
"Create recipient object
CALL FUNCTION 'SO_DLI_READ_API1'
EXPORTING
dli_name = lv_distributionlist_name
shared_dli = 'X'
TABLES
dli_entries = lt_dli_tab
EXCEPTIONS
dli_not_exist = 1
operation_no_authorization = 2
parameter_error = 3
x_error = 4
OTHERS = 5.
LOOP AT lt_dli_tab ASSIGNING <ls_dli_data>.
lv_stmp_addr = <ls_dli_data>-member_adr.
cl_recipient = cl_cam_address_bcs=>create_internet_address( lv_stmp_addr ).
"Add recipient object to send request
cl_send_request->add_recipient( cl_recipient ).
CLEAR: cl_recipient.
ENDLOOP.
* Send E-Mail
sent = cl_send_request->send( i_with_error_screen = 'X' ).
COMMIT WORK.
CATCH cx_bcs INTO bcs_exception.
errortext = bcs_exception->if_message~get_text( ).
MESSAGE errortext TYPE 'I'.
ENDTRY.
ENDMETHOD. "send_email
ENDCLASS.
OUTPUT IN GRID
METHOD create_output_stock_rec_in_alv.
DATA: lo_alv TYPE REF TO cl_salv_table,
lo_layout TYPE REF TO cl_salv_layout, " Benutzerspezifische
lv_layout_key TYPE salv_s_layout_key,
lo_functions TYPE REF TO cl_salv_functions_list,
lo_columns TYPE REF TO cl_salv_columns_table,
lo_column TYPE REF TO cl_salv_column_table,
lo_display TYPE REF TO cl_salv_display_settings,
ls_fuer_zelleinf TYPE lvc_s_scol,
ls_farbcodierung TYPE lvc_s_colo,
lt_ausgabe TYPE zabgleich_ldl_t,
lt_dd03l TYPE TABLE OF dd03l. " LAyouts aktivieren
lt_ausgabe = it_ausgabe.
SELECT fieldname FROM dd03l INTO TABLE lt_dd03l WHERE tabname = 'ZABGLEICH_LDL'.
cl_salv_table=>factory( IMPORTING r_salv_table = lo_alv
CHANGING t_table = lt_ausgabe ).
lv_layout_key-report = sy-repid.
lo_layout = lo_alv->get_layout( ).
lo_layout->set_key( lv_layout_key ).
lo_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).
lo_functions = lo_alv->get_functions( ).
lo_functions->set_all( abap_true ).
lo_columns = lo_alv->get_columns( ).
lo_columns->set_optimize( abap_true ).
LOOP AT lt_ausgabe INTO DATA(ls_ausgabe).
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'MANDT'.
ls_fuer_zelleinf-color-col = 1.
ls_fuer_zelleinf-color-int = 1.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'MATNR'.
ls_fuer_zelleinf-color-col = 1.
ls_fuer_zelleinf-color-int = 1.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'WERKS'.
ls_fuer_zelleinf-color-col = 1.
ls_fuer_zelleinf-color-int = 1.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'LGORT'.
ls_fuer_zelleinf-color-col = 1.
ls_fuer_zelleinf-color-int = 1.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'MAKTX'.
ls_fuer_zelleinf-color-col = 1.
ls_fuer_zelleinf-color-int = 1.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'ERDAT'.
ls_fuer_zelleinf-color-col = 1.
ls_fuer_zelleinf-color-int = 1.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'SAP_LABST'.
ls_fuer_zelleinf-color-col = 5. "grün
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'SAP_INSME'.
ls_fuer_zelleinf-color-col = 3.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'SAP_SPEME'.
ls_fuer_zelleinf-color-col = 7.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
IF ls_ausgabe-diff_labst > '0'.
ls_fuer_zelleinf-fname = 'DIFF_LABST'.
ls_fuer_zelleinf-color-col = 6.
ls_fuer_zelleinf-color-int = 1.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
ELSEIF ls_ausgabe-diff_labst < '0'.
ls_fuer_zelleinf-fname = 'DIFF_LABST'.
ls_fuer_zelleinf-color-col = 6.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
ELSE.
ls_fuer_zelleinf-fname = 'DIFF_LABST'.
ls_fuer_zelleinf-color-col = 5.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
ENDIF.
IF ls_ausgabe-diff_insme > '0'.
ls_fuer_zelleinf-fname = 'DIFF_INSME'.
ls_fuer_zelleinf-color-col = 6.
ls_fuer_zelleinf-color-int = 1.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
ELSEIF ls_ausgabe-diff_insme < '0'.
ls_fuer_zelleinf-fname = 'DIFF_INSME'.
ls_fuer_zelleinf-color-col = 6.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
ELSE.
ls_fuer_zelleinf-fname = 'DIFF_INSME'.
ls_fuer_zelleinf-color-col = 3.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
ENDIF.
IF ls_ausgabe-diff_speme > '0'.
ls_fuer_zelleinf-fname = 'DIFF_SPEME'.
ls_fuer_zelleinf-color-col = 6.
ls_fuer_zelleinf-color-int = 1.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
ELSEIF ls_ausgabe-diff_speme < '0'.
ls_fuer_zelleinf-fname = 'DIFF_SPEME'.
ls_fuer_zelleinf-color-col = 6.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
ELSE.
ls_fuer_zelleinf-fname = 'DIFF_SPEME'.
ls_fuer_zelleinf-color-col = 7.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
ENDIF.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'LDL_LABST'.
ls_fuer_zelleinf-color-col = 5.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'LDL_INSME'.
ls_fuer_zelleinf-color-col = 3.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
CLEAR ls_fuer_zelleinf.
ls_fuer_zelleinf-fname = 'LDL_SPEME'.
ls_fuer_zelleinf-color-col = 7.
ls_fuer_zelleinf-color-int = 0.
APPEND ls_fuer_zelleinf TO ls_ausgabe-farbe.
MODIFY lt_ausgabe FROM ls_ausgabe.
ENDLOOP.
lo_columns->set_color_column( 'FARBE' ).
lo_display = lo_alv->get_display_settings( ).
lo_display->set_horizontal_lines( abap_true ).
lo_display->set_vertical_lines( cl_salv_display_settings=>true ).
lo_display->set_list_header( value = TEXT-001 ).
lo_display->set_striped_pattern( abap_true ).
DATA: gr_events TYPE REF TO zkl_ldl_bestandsabgleich.
DATA: lr_events TYPE REF TO cl_salv_events_table.
lr_events = lo_alv->get_event( ).
CREATE OBJECT gr_events.
SET HANDLER gr_events->on_double_click FOR lr_events.
lo_alv->display( ).
ENDMETHOD.
Quellen / Credits / Copyrights
- ABAP2XLSX | https://github.com/sapmentors
- ABAP2GIT | https://docs.abapgit.org/
