Call AMDP inside another AMDP Part 4



Code Info:-

CLASS zcl_amdp_select_option DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.
    INTERFACES if_amdp_marker_hdb.

    TYPES:BEGIN OF ty_out,
            mandt TYPE mandt,
            vbeln TYPE vbeln,
            posnr TYPE posnr,
            matnr TYPE matnr,
*            maktx TYPE maktx,
            kunnr TYPE kunnr,
            name1 TYPE name1,
          END OF ty_out,
          tt_out TYPE TABLE OF ty_out.

    CLASS-METHODS handle_select_option
      IMPORTING
        VALUE(iv_mandt) TYPE sy-mandt
        VALUE(iv_where) TYPE string
      EXPORTING
        VALUE(et_out)   TYPE tt_out.

  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.
CLASS zcl_amdp_select_option IMPLEMENTATION.

  METHOD handle_select_option BY DATABASE PROCEDURE FOR HDB
                              LANGUAGE SQLSCRIPT
                              USING vbak vbap kna1 .

    et_out  =  select so.mandt,
                      so.vbeln,
                      item.posnr,
                      item.matnr,
                      so.kunnr,
                      kna1.name1
                from vbak as so
                 INNER JOIN vbap as item
                  on so.mandt =  item.mandt
                  and so.vbeln = item.vbeln
                 LEFT OUTER JOIN  kna1
                   on so.mandt =  kna1.mandt
                   and so.kunnr = kna1.kunnr
                WHERE  so.mandt = :iv_mandt   ;

   et_out = apply_filter( :et_out, :iv_where );



  ENDMETHOD.

ENDCLASS.
******************************************************************
REPORT z_amdp_cunsumtion.

DATA: lv_vbaln TYPE vbak-vbeln,
      lv_posnr TYPE vbap-posnr,
      lv_kunnr TYPE vbak-kunnr,
      lv_matnr TYPE vbap-matnr.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS: s_vbeln FOR lv_vbaln,
                  s_posnr FOR lv_posnr,
                  s_kunnr FOR lv_kunnr,
                  s_matnr FOR lv_matnr.
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.

  cl_shdb_seltab=>combine_seltabs(
    EXPORTING
      it_named_seltabs = VALUE #(
                          ( name = 'VBELN' dref = REF #( s_vbeln[] ) )
                          ( name = 'POSNR' dref = REF #( s_posnr[] ) )
                          ( name = 'KUNNR' dref = REF #( s_kunnr[] ) )
                          ( name = 'MATNR' dref = REF #( s_matnr[] ) )
                       )
     iv_client_field  =  'MANDT'
    RECEIVING
      rv_where         =  DATA(lv_where)
  ).
* CATCH cx_shdb_exception.

  zcl_amdp_select_option=>handle_select_option(
    EXPORTING
      iv_mandt = sy-mandt
      iv_where = lv_where
    IMPORTING
      et_out   =  DATA(it_out)
  ).
  cl_demo_output=>display( it_out ).

Comments

Post a Comment

Popular posts from this blog

AMDP ( ABAP Managed Database Procedure ) Part - 1

Image
CLASS zcl_amdp_class DEFINITION PUBLIC FINAL CREATE PUBLIC . PUBLIC SECTION. INTERFACES if_amdp_marker_hdb . TYPES: BEGIN OF ty_cust , cust_name TYPE kna1 - name1 , netwr TYPE vbak - netwr , END OF ty_cust , tt_cust TYPE TABLE OF ty_cust . TYPES: BEGIN OF session_variables , client TYPE sy - mandt , cds_client TYPE sy - mandt , uname TYPE sy - uname , langu TYPE sy - langu , datum TYPE sy - datum , END OF session_variables . CLASS-METHODS get_session_variables_amdp AMDP OPTIONS READ-ONLY CDS SESSION CLIENT iv_clnt IMPORTING VALUE( iv_clnt ) TYPE sy - mandt EXPORTING VALUE( clnt ) TYPE session_variables - client VALUE( cds_clnt ) TYPE session_variables - cds_client VALUE( unam ) TYPE session_variables - uname VALUE( lang ) TYPE session_variables - langu ...
Read more

Backup all ADT Objects & Other queries RAP Part 10.1

CLASS zcl_DATA_GENERATOR DEFINITION PUBLIC FINAL CREATE PUBLIC . PUBLIC SECTION. INTERFACES: if_oo_adt_classrun . PROTECTED SECTION. PRIVATE SECTION. ENDCLASS . CLASS zcl_DATA_GENERATOR IMPLEMENTATION. METHOD if_oo_adt_classrun ~ main . " delete existing entries in the database table DELETE FROM ztravel_tech_m . DELETE FROM zBOOKING_tech_m . DELETE FROM zbooksupp_tech_m . COMMIT WORK. " insert travel demo data INSERT ztravel_tech_m FROM ( SELECT * FROM /dmo/travel_m ). COMMIT WORK. " insert booking demo data INSERT zbooking_tech_m FROM ( SELECT * FROM /dmo/booking_m * JOIN ztravel_tech_m AS z * ON booking~travel_id = z~travel_id ). COMMIT WORK. INSERT zbooksupp_tech_m FROM ( SELECT * FROM /dmo/booksuppl_m * JOIN ztravel_tech_m AS z * ON booking~travel_id = z~travel_id ). ...
Read more

SAP CDS Introduction Part 2 - ABAP on HANA Course

Image
Code :- @AbapCatalog.sqlViewName: 'ZVSQL_SAMPLE_01' @EndUserText.label: 'This is my fist DDIC based CDS' @AbapCatalog.preserveKey: true @AbapCatalog: {     buffering: {         status:#SWITCHED_OFF,         type: #NONE,         numberOfKeyFields: 000     },     viewEnhancementCategory: [#PROJECTION_LIST,#UNION],     compiler: {         compareFilter: true     },     dataMaintenance: #RESTRICTED } @AccessControl.authorizationCheck: #CHECK @ClientHandling: {     type: #INHERITED,     algorithm:#SESSION_VARIABLE } define view zcds_sample_01 --( SO, Kunnr, curr,netwr,clnt,sydate,syslang)   as select from vbak   association [1..*] to vbap as _item on vbak.vbeln = _item.vbeln {   key   vbeln                    as so,         kunnr  ...
Read more