Master Function Imports in SAP OData Part 19



Function Import:-
so_count_by_status

Importing :-
 Customer
Exporting :-
 Customer
 NotProcesed
 CompleteProcess
 NotRelvent



*******************************************************************




    CASE  iv_action_name .
      WHEN 'get_so_status'.
        TYPES:BEGIN OF ty_tab,
               vbeln TYPE vbeln,
               kunnr TYPE kunnr,
               rfstk TYPE rfstk,
              END OF ty_tab.
        DATA: it_tab TYPE TABLE OF ty_tab,
              lv_kunnr TYPE kunnr,
              ls_count TYPE zcl_zsalesorder_001_mpc=>ts_count,
              lt_count TYPE zcl_zsalesorder_001_mpc=>tt_count.

        DATA(lt_para)  =   io_tech_request_context->get_parameters( ).

        lv_kunnr = lt_para[ 1 ]-value .
        lv_kunnr = |{ lv_kunnr ALPHA = IN } |.



        SELECT so~vbeln
               so~kunnr
               sta~rfstk
          FROM vbak AS so
          LEFT OUTER JOIN vbuk AS sta
          ON so~vbeln = sta~vbeln
          INTO TABLE it_tab
          WHERE so~kunnr = lv_kunnr.
        IF sy-subrc IS INITIAL.
          ls_count-customer = lv_kunnr.
          LOOP AT it_tab ASSIGNING FIELD-SYMBOL(<ls_tab>).
            CASE <ls_tab>-rfstk.
              WHEN 'C'.
                ls_count-completeprocess = ls_count-completeprocess + 1.
              WHEN 'A'.
                ls_count-notprocesed  = ls_count-notprocesed + 1.
              WHEN ' '.
                ls_count-notrelvent =  ls_count-notrelvent  + 1.
            ENDCASE.

          ENDLOOP.
          APPEND ls_count to lt_count.

          /iwbep/if_mgw_conv_srv_runtime~copy_data_to_ref(
            EXPORTING
              is_data = lt_count
            CHANGING
              cr_data = er_data
          ).
        ENDIF.
    ENDCASE.

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