furlan

REPORT z_rich_model.

CLASS order_item DEFINITION DEFERRED.
TYPES: order_item_table TYPE TABLE OF REF TO order_item WITH NON-UNIQUE DEFAULT KEY.

CLASS order_item DEFINITION.

  PUBLIC SECTION.
    METHODS get_price RETURNING VALUE(item_price) TYPE i.
    METHODS set_price IMPORTING item_price TYPE i.

furlan

REPORT z_anemic_model.

CLASS order_item DEFINITION DEFERRED.
TYPES: order_item_table TYPE TABLE OF REF TO order_item WITH NON-UNIQUE DEFAULT KEY.

CLASS order DEFINITION.

  PUBLIC SECTION.
    METHODS get_total RETURNING VALUE(order_total) TYPE i.
    METHODS set_total IMPORTING order_total TYPE i.

furlan

*&---------------------------------------------------------------------*
*& Report  ZPOC_HTTP_CLIENT
*&
*&---------------------------------------------------------------------*
*& Based on this SCN post:
*& http://scn.sap.com/thread/3437990
*&---------------------------------------------------------------------*
Report  ZPOC_HTTP_CLIENT.

*PARAMETERS p_url type string LOWER CASE DEFAULT 'https://github.com/furlan/reploy.git'.

furlan

*&---------------------------------------------------------------------*
*&      Module  FILL_SECTION_1  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE fill_section_1 OUTPUT.

  SELECT * FROM scarr INTO TABLE it_scarr.

  TRY.

furlan

* Create main Container.
  CREATE OBJECT container
    EXPORTING
      container_name = 'CONTAINER1'.

* Horizontal split
  CREATE OBJECT splitter
    EXPORTING
      parent      = container
      orientation = cl_gui_easy_splitter_container=>orientation_horizontal

furlan

*&---------------------------------------------------------------------*
*& Report  ZABAP101_RECURSION
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zabap101_recursion.

furlan

*&---------------------------------------------------------------------*
*& Report  ZABAP101_RECURSION
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zabap101_recursion.

furlan

*&---------------------------------------------------------------------*
*& Report  ZABAP101_FACTORY_PATTERN
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zabap101_factory_pattern.

furlan

*----------------------------------------------------------------------*
*       INTERFACE ZIF_BIF_BDC
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
INTERFACE zif_bif_bdc.
*@ jack:task
*  Create methods signatures, for example:
*  set_transaction
*     IMPORTING

furlan

*&---------------------------------------------------------------------*
*& Report  ZABAP101_REPORT_CONNECTIONS
*&
*&---------------------------------------------------------------------*
*& This code was published originally on ABAP101.com
*& http://abap101.com/2012/05/30/  >
*&               importanto-exportanto-uma-tabela-interna-modulo-funcao
*& Author: Flávio Furlan
*& E-mail: furlan@abap101.com
*&---------------------------------------------------------------------*