ZFAKE_OO

gistfile1.txt

*&---------------------------------------------------------------------*
*& Report  ZFAKE_OO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zfake_oo LINE-SIZE 90.

TYPES: BEGIN OF lty_product,
         product_id  TYPE c LENGTH 5,
         description TYPE c LENGTH 30,
         quantity    TYPE n LENGTH 3,
         unit_price  TYPE p LENGTH 5 DECIMALS 2,
       END OF lty_product.

*----------------------------------------------------------------------*
*       CLASS lcl_product DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_product DEFINITION.

  PUBLIC SECTION.
    METHODS: constructor
               IMPORTING imc_product  TYPE lty_product.

    METHODS: set
               IMPORTING im_product  TYPE lty_product,

             get
               RETURNING value(re_product) TYPE lty_product.

  PRIVATE SECTION.
    DATA: product TYPE lty_product.

ENDCLASS.                    "lcl_product DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_product IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_product IMPLEMENTATION.

  METHOD constructor.
    me->set( imc_product ).
  ENDMETHOD.                    "constructor

  METHOD set.
    me->product = im_product.
  ENDMETHOD.                    "set

  METHOD get.
    re_product = me->product.
  ENDMETHOD.                    "get

ENDCLASS.                    "lcl_product IMPLEMENTATION

DATA: r_product  TYPE REF TO lcl_product,
      it_prods   TYPE TABLE OF REF TO lcl_product,
      wa_product TYPE lty_product,
      vg_total   TYPE lty_product-unit_price,
      vg_total_p TYPE lty_product-unit_price,
      vg_perc    TYPE lty_product-unit_price.

START-OF-SELECTION.

  wa_product-product_id = '025'.
  wa_product-description = 'Cellphone 3000'.
  wa_product-quantity = 3.
  wa_product-unit_price = 1400.

  CREATE OBJECT r_product
    EXPORTING
      imc_product = wa_product.
  APPEND r_product TO it_prods.

  wa_product-product_id = '984'.
  wa_product-description = 'TV 40pol'.
  wa_product-quantity = 6.
  wa_product-unit_price = 3400.

  CREATE OBJECT r_product
    EXPORTING
      imc_product = wa_product.
  APPEND r_product TO it_prods.

  wa_product-product_id = '758'.
  wa_product-description = 'Audio System 439'.
  wa_product-quantity = 2.
  wa_product-unit_price = 7800.

  CREATE OBJECT r_product
    EXPORTING
      imc_product = wa_product.
  APPEND r_product TO it_prods.

  LOOP AT it_prods INTO r_product.
    wa_product = r_product->get( ).
    vg_total = wa_product-unit_price * wa_product-quantity.
    ADD vg_total TO vg_total_p.
  ENDLOOP.

  LOOP AT it_prods INTO r_product.
    AT FIRST.
      FORMAT COLOR COL_HEADING.
      WRITE:  /1 'ID',
              5 'Description',
              30 'Quant.',
              50 'Unit Price',
              70 'Total',
              83 'Perc.'.
      FORMAT COLOR OFF.
      ULINE.
    ENDAT.

    wa_product = r_product->get( ).
    vg_total = wa_product-unit_price * wa_product-quantity.
    vg_perc = vg_total / vg_total_p * 100.

    WRITE: /1  wa_product-product_id,
            5  wa_product-description,
            30 wa_product-quantity,
            50 wa_product-unit_price,
            70 vg_total,
            83 vg_perc.

    AT LAST.
      ULINE.
      FORMAT COLOR 7.
      WRITE: / 'Total of Purchase Order --> ', vg_total_p.
    ENDAT.

  ENDLOOP.