Instanztmethode mit ITAB anreichern

Code: Alles auswählen.

TABLES: mard.

TYPES: BEGIN OF linetype,
         sign   TYPE c LENGTH 1,
         option TYPE c LENGTH 2,
         low    TYPE string,
         high   TYPE string,
       END OF linetype.

DATA: lt_mard           TYPE TABLE OF mard,
      lt_sell_out_stock TYPE TABLE OF zb2b_sell_out_stock,
      lv_string         TYPE string,
      lt_werks          TYPE RANGE OF s_werks,
      lt_matnr          TYPE RANGE OF s_matnr,
      lv_date_new       TYPE sy-datum, "Datum - operator
      lv_date_input     TYPE sy-datum, "Datum aus Selectionscreen
      lv_year           TYPE string,
      lv_mon            TYPE string,
      rt_lfmon          TYPE TABLE OF linetype,
      rt_lfgja          TYPE TABLE OF linetype,
      ld_date           TYPE d,
      ld_mon            TYPE string,
      ld_date_high      TYPE d,
      ld_date_low       TYPE d.

DATA(lo_main) = NEW zcl_b2b_sell_out(
  iv_log    = 'ZB2B'
  iv_sublog = 'SO_MBGMCR_RETAIL'
  iv_desc   = TEXT-003 ).

Code: Alles auswählen.

ELSE.
  p_lfmon = p_lfmon - 4. "hier muss Suchstring eingegeben werden
  SELECT matnr, werks, lgort, labst, lfgja, lfmon  FROM mard
INTO TABLE @lt_sell_out_stock WHERE
werks IN @lt_werks
AND matnr IN @s_matnr
AND lfmon IN @rt_lfmon
AND lfgja IN @rt_lfgja
AND lgort EQ @p_lgort
AND lfgja EQ @p_lfgja
AND lfmon EQ @p_lfmon
AND labst GT @p_labst.
ENDIF.


  TRY.
      lo_main->create_edidd_mbgmcr_rs( EXPORTING it_sell_out_stock  = lt_sell_out_stock                              ).
ENDTRY.

Code: Alles auswählen.

"TYPES tabellentyp TYPE STANDARD TABLE OF zeilentyp WITH EMPTY KEY.