SELECTION-SCREEN BEGIN OF BLOCK B22 WITH FRAME TITLE T22 .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT22 FOR FIELD PSTSMA .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT23 FOR FIELD PESTAT .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B22 .
SELECTION-SCREEN BEGIN OF BLOCK B24 WITH FRAME TITLE T24 .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT24 FOR FIELD POPEN .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT25 FOR FIELD PINC .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT26 FOR FIELD PDELBL .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT27 FOR FIELD PBILLBL .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT28 FOR FIELD PCREDBL .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT29 FOR FIELD PREJEC .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B24 .

*&---------------------------------------------------------------------*
*& Report  /APB/POWLFEEDERSEL
*&
*&---------------------------------------------------------------------*
*& report generated for powl selection screen - POWL internal !!!
*& DO NOT CHANGE!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!
*&---------------------------------------------------------------------*

REPORT  powl_gen_skel.
TABLES: sscrfields.
DATA: l_type_id TYPE powl_type_ty,
      l_feeder TYPE string, l_query_id TYPE powl_query.
DATA: gt_result TYPE rsparams_tt.
DATA: param TYPE vrm_id,
       lt_param_values     TYPE vrm_values,
       ls_param_value LIKE LINE OF lt_param_values.
SELECTION-SCREEN FUNCTION KEY 1.

L_TYPE_ID = ' O2C_SLS_ALL ' .
L_FEEDER = ' CL_O2C_POWL_SLS_ALL ' .
L_QUERY_ID = ' YB_CNSLT_QUOTATIONS ' .
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE T1 .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT1 FOR FIELD SVBELN .
data: P1 TYPE
TDS_SALESDOC-VBELN .
SELECT-OPTIONS SVBELN FOR P1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT2 FOR FIELD STRVOG .
data: P2 TYPE
TDS_SALESDOC-TRVOG .
SELECT-OPTIONS STRVOG FOR P2 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT3 FOR FIELD SVBTYP .
data: P3 TYPE
TDS_SALESDOC-VBTYP .
SELECT-OPTIONS SVBTYP FOR P3 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT4 FOR FIELD SAUART .
data: P4 TYPE
TDS_SALESDOC-AUART .
SELECT-OPTIONS SAUART FOR P4 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT5 FOR FIELD SKUNNR .
data: P5 TYPE
TDS_SALESDOC-KUNAG .
SELECT-OPTIONS SKUNNR FOR P5 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT6 FOR FIELD SBSTKD .
data: P6 TYPE
TDS_SALESDOC-BSTKD .
SELECT-OPTIONS SBSTKD FOR P6 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT7 FOR FIELD SERDAT .
data: P7 TYPE
TDS_SALESDOC-ERDAT .
SELECT-OPTIONS SERDAT FOR P7 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT8 FOR FIELD SAUDAT .
data: P8 TYPE
TDS_SALESDOC-AUDAT .
SELECT-OPTIONS SAUDAT FOR P8 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT9 FOR FIELD PDATAB .
PARAMETERS: PDATAB TYPE
VAKGU-DATAB .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT10 FOR FIELD PDATBI .
PARAMETERS: PDATBI TYPE
VAKGU-DATBI .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT11 FOR FIELD SMATNR .
data: P11 TYPE
TDS_SALESDOC-MATNR .
SELECT-OPTIONS SMATNR FOR P11 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1 .
SELECTION-SCREEN BEGIN OF BLOCK B12 WITH FRAME TITLE T12 .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT12 FOR FIELD PZPAVW .
PARAMETERS: PZPAVW TYPE
TDS_SALESDOC-ZPAVW .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT13 FOR FIELD SZPERS .
data: P13 TYPE
TDS_SALESDOC-ZPERS .
SELECT-OPTIONS SZPERS FOR P13 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT14 FOR FIELD PCUSER .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT15 FOR FIELD SERNAM .
data: P15 TYPE
TDS_SALESDOC-ERNAM .
SELECT-OPTIONS SERNAM FOR P15 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT16 FOR FIELD PCERNAM .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B12 .
SELECTION-SCREEN BEGIN OF BLOCK B17 WITH FRAME TITLE T17 .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT17 FOR FIELD SVKORG .
data: P17 TYPE
TDS_SALESDOC-VKORG .
SELECT-OPTIONS SVKORG FOR P17 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT18 FOR FIELD SVTWEG .
data: P18 TYPE
TDS_SALESDOC-VTWEG .
SELECT-OPTIONS SVTWEG FOR P18 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT19 FOR FIELD SSPART .
data: P19 TYPE
TDS_SALESDOC-SPART .
SELECT-OPTIONS SSPART FOR P19 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT20 FOR FIELD SVKBUR .
data: P20 TYPE
TDS_SALESDOC-VKBUR .
SELECT-OPTIONS SVKBUR FOR P20 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT21 FOR FIELD SVKGRP .
data: P21 TYPE
TDS_SALESDOC-VKGRP .
SELECT-OPTIONS SVKGRP FOR P21 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B17 .
SELECTION-SCREEN BEGIN OF BLOCK B22 WITH FRAME TITLE T22 .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT22 FOR FIELD PSTSMA .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT23 FOR FIELD PESTAT .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B22 .
SELECTION-SCREEN BEGIN OF BLOCK B24 WITH FRAME TITLE T24 .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT24 FOR FIELD POPEN .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT25 FOR FIELD PINC .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT26 FOR FIELD PDELBL .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT27 FOR FIELD PBILLBL .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT28 FOR FIELD PCREDBL .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (20) PT29 FOR FIELD PREJEC .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B24 .


INITIALIZATION.
  MOVE text-010 TO sscrfields-functxt_01.

AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN .
    IF screen-group1 = 'RO'.
      screen-input = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

  LOOP AT SCREEN .
    IF screen-group1 = 'HD'.
      screen-active = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

  DATA itab TYPE TABLE OF sy-ucomm.
  APPEND: 'PRIN' TO itab,
          'SPOS' TO itab,
          'ONLI' TO itab,
          'GET'  TO itab,
          'CRET'  TO itab.
  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
    EXPORTING
      p_status  = sy-pfkey
    TABLES
      p_exclude = itab.

T1 = ' Doc. Data ' .
T12 = ' Persons Responsible ' .
T17 = ' Organizational Data ' .
T22 = ' Object Status ' .
T24 = ' Selection Criteria ' .
PT1 = ' Sales Document ' .
PT2 = ' Transaction Group ' .
PT3 = ' SD document categ. ' .
PT4 = ' Sales Document Type ' .
PT5 = ' Sold-to party ' .
PT6 = ' PO number ' .
PT7 = ' Created on ' .
PT8 = ' Document Date ' .
PT9 = ' Valid from ' .
PT10 = ' Valid to ' .
PT11 = ' Material ' .
PT12 = ' Partner Function ' .
PT13 = ' Employee Responsible ' .
PT15 = ' Created by ' .
PT17 = ' Sales Organization ' .
PT18 = ' Distribution Channel ' .
PT19 = ' Division ' .
PT20 = ' Sales Office ' .
PT21 = ' Sales Group ' .



START-OF-SELECTION.
  CALL SELECTION-SCREEN 1000 STARTING AT 10 10.

AT SELECTION-SCREEN.
  DATA: lr_feeder TYPE REF TO if_powl_feeder,
      l_check_flag TYPE boolean VALUE space,
      lv_id TYPE sy-msgid,
      lv_type TYPE sy-msgty,
      lv_no TYPE sy-msgno,
      ok_code TYPE sy-ucomm, value TYPE REF TO cl_abap_typedescr,
      lt_messages TYPE  powl_msg_tty,
      lr_feeder_ext TYPE REF TO if_powl_feeder_ext,
      lv_feeder_7x2_compatible TYPE boolean.
  FIELD-SYMBOLS: <fs_message> TYPE LINE OF powl_msg_tty,
                 <fs_result> LIKE LINE OF gt_result.

  ok_code = sy-ucomm.
  IF  ok_code = 'FC01' OR  ok_code = 'NONE'.

    CONDENSE l_feeder NO-GAPS.
    CONDENSE l_type_id NO-GAPS.
    CREATE OBJECT lr_feeder TYPE (l_feeder).
**Get from values from select options
    CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
      EXPORTING
        curr_report     = '/APB/POWLFEEDERSEL'
      TABLES
        selection_table = gt_result.
**Normalize the values
    LOOP AT gt_result ASSIGNING <fs_result>.
      cl_powl_util=>get_sel_type_kind( EXPORTING ir_feeder = lr_feeder iv_query = l_query_id iv_type = l_type_id iv_selname = <fs_result>-selname RECEIVING value = value ).
      cl_powl_util=>normalize_param( EXPORTING i_datatype = value CHANGING c_param = <fs_result> ).
      IF <fs_result> IS INITIAL.
*       parameter could not be normalized
        DELETE gt_result.
      ENDIF.
    ENDLOOP.
**if compatible to Ehp2 then validate the input values
    CALL METHOD cl_powl_util=>is_feeder_7x2_compatible
      EXPORTING
        feeder     = lr_feeder
      RECEIVING
        compatible = lv_feeder_7x2_compatible.

    IF lv_feeder_7x2_compatible = 'X'.
      TRY .
          lr_feeder_ext ?= lr_feeder.
          CALL METHOD lr_feeder_ext->check_selcrit_values
            EXPORTING
              i_crit_para  = gt_result
              i_username   = sy-uname
              i_applid     = ''
              i_type       = l_type_id
              i_langu      = sy-langu
            IMPORTING
              e_is_invalid = l_check_flag
              e_messages   = lt_messages.
        CATCH cx_root. " casting exception
      ENDTRY.
**Display messages if any
      READ TABLE lt_messages ASSIGNING <fs_message> INDEX 1.
      IF sy-subrc = 0.
        IF <fs_message>-message IS NOT INITIAL.
          MESSAGE <fs_message>-message TYPE <fs_message>-msgtype.
        ELSE.
          MESSAGE ID lv_id TYPE lv_type NUMBER lv_no WITH <fs_message>-message_v1
          <fs_message>-message_v2  <fs_message>-message_v3  <fs_message>-message_v4.
        ENDIF.
      ENDIF.
    ENDIF.
    CHECK  ok_code <> 'NONE'. "It is Check so dont export to memory
    IF l_check_flag = space.
      EXPORT result = gt_result TO MEMORY ID '/APB/RESULT'.
      LEAVE PROGRAM.
    ENDIF.
  ENDIF.