Skip to content

Instantly share code, notes, and snippets.

View kgorin8's full-sized avatar

Kirill Gorin kgorin8

  • Moscow, Russia
View GitHub Profile
*&---------------------------------------------------------------------*
*& Report ZDOWNLOAD_UPLOAD_SETUP
*&---------------------------------------------------------------------*
*& original from https://github.com/Keller-Michael/synchronize-SAP-GUI-favorites/
*&---------------------------------------------------------------------*
REPORT zdownload_upload_setup.
TABLES sscrfields.
DATA gc_version TYPE text30 VALUE '2018.1-01 (19.03.2018)'.
*&---------------------------------------------------------------------*
*& Include ZMM_PDF_PARSER
*& https://sapboard.ru/forum/viewtopic.php?f=13&t=51283
*&---------------------------------------------------------------------*
* Текстовый элемент, загруженный из PDF
TYPES: BEGIN OF t_text_element,
num_element TYPE I,
num_page TYPE I,
X TYPE I,
*&---------------------------------------------------------------------*
*& Report ZSDN_WDY_OTR_EDITOR
*&
*&---------------------------------------------------------------------*
REPORT zsdn_wdy_otr_translator.
TABLES: wdy_component.
**********************************************************************
* Global Types Declaration *
REPORT zminesweeper NO STANDARD PAGE HEADING LINE-SIZE 125.
* ------------------------------------------------------------
* ABAP Minesweeper
* (c) Andrey Timofeev
* http://mrand.name/sap-abap
* license: free, "as is"
* ------------------------------------------------------------
* Installation: compile and run.
* (for SAP 4.x, use http://mrand.name/sap-abap/sweeper4.txt)
* ------------------------------------------------------------
@kgorin8
kgorin8 / zcl_abapgit_user_exit.clas.abap
Created May 7, 2019 08:23 — forked from fabianlupa/zcl_abapgit_user_exit.clas.abap
Example implementation for custom_serialize_abap_clif
CLASS zcl_abapgit_user_exit DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES:
zif_abapgit_exit.
PROTECTED SECTION.
PRIVATE SECTION.
*&---------------------------------------------------------------------*
*& Report ZUPLOADEXCEL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZUPLOADEXCEL NO STANDARD PAGE HEADING.
REPORT Z_FINDREDEF.
PARAMETERS p_clas TYPE seoclsname DEFAULT 'CL_GUI_CONTROL'.
PARAMETERS p_meth TYPE seocpdname DEFAULT 'FREE'.
CLASS lcl_main DEFINITION.
PUBLIC SECTION.
METHODS on_double_click
@kgorin8
kgorin8 / zcl_advance_shipg_notice_maint - Class Relevant Local Types.abap Example ABAP class with local classes and test cases showing the use of test doubles, etc.
*"* use this source file for any type of declarations (class
*"* definitions, interfaces or type declarations) you need for
*"* components in the private section
types:
begin of event_rec,
evt_name type string,
sort_order type i,
end of event_rec.
DATA: BEGIN OF T_FIELDS OCCURS 0, "Feldliste im SELECT-Statement
FNAME LIKE DNTAB-FIELDNAME,
END OF T_FIELDS.
DATA: BEGIN OF G_FIELDS OCCURS 0, "Group by for HDB-Select
FNAME LIKE DNTAB-FIELDNAME,
END OF G_FIELDS.
data: lr_tab type ref to data.
field-symbols <lt_tab> type table.
try.
create data lr_tab type standard table of (iv_table_name).
assign lr_tab->* to <lt_tab>.
catch cx_sy_create_data_error.
ev_exmessage = 'Error in data creation' && iv_table_name. "#EC NOTEXT
ev_rc = 4.
return.
endtry.