SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Price List Report - Simulate a Pricing Procedure



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> SD
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1639

PostPosted: Wed Sep 14, 2011 2:57 pm    Post subject: Price List Report - Simulate a Pricing Procedure Reply with quote

Original: http://wiki.sdn.sap.com/wiki/display/Snippets/Price+List+Report+-+Simulate+a+Pricing+Procedure
Author: Ali Crawshaw,

Custom Pricing Fields
If the local SAP pricing procedures contain custom (e.g. ZZ...) fields in the header or item field catalogues, it will be necessary to populate these custom fields in this program.

A developer will need to update subroutine "GET_PRICE_CONDITIONS" in the sections below to fill each custom field.

* If any bespoke ZZ... fields exist in the HEADER table KOMK,
* these should be filled here
* MOVE: hdrtable1-zzfielda TO fs_komk-zzfielda,
* hdrtable2-zzfieldb TO fs_komk-zzfieldb.
* If any bespoke ZZ... fields exist in the ITEM table KOMP (or append
* structure KOMPAZ), these should be filled here
* MOVE: itemtable1-zzfielda TO fs_komp-zzfielda,
* itemtable2-zzfieldb TO fs_komp-zzfieldb.

This is very similar to the way in which the custom fields are passed to the pricing communication structures in the SAP standard userexits below (in program MV45AFZZ):

USEREXIT_PRICING_PREPARE_TKOMK (Header)
USEREXIT_PRICING_PREPARE_TKOMP (Item)


Code:
REPORT  zo2c_price_list.
************************************************************************
* Report ZO2C_PRICE_LIST           Author : Ali Crawshaw               *
*                                                                      *
*                                  Date   : 22/03/2010                 *
*                                                                      *
* Description: Report to simulate the pricing procedure and show       *
*              the Gross, Net and Cost price of a material             *
*                                                                      *
************************************************************************
* Revision history :                                                   *
************************************************************************
* Date       :                  Modification Id  :                     *
* Name       :                                                         *
* Description:                                                         *
*                                                                      *
************************************************************************

*************************** DATA DECLARATIONS **************************
***** TABLES
TABLES: mara,
        mvke,
        knvv,
        komp.
***** TYPES
TYPES: BEGIN OF gty_mvke.
        INCLUDE STRUCTURE mvke.
TYPES: END OF gty_mvke.
TYPES: BEGIN OF gty_report,
         vkorg       TYPE vkorg,
         vtweg       TYPE vtweg,
         matnr       TYPE matnr,
         maktx       TYPE maktx,     "Material Description
         gross_price TYPE netpr,
         net_price   TYPE netpr,
         cost_price  TYPE netpr,
         waerk       TYPE waerk,
         prodh       TYPE prodh_d,
         kunnr       TYPE kunnr,
         kunnr_land1 TYPE land1,
         kunnr_name1 TYPE name1,
         prsdt       TYPE prsdt,
       END OF gty_report.
TYPES: BEGIN OF gty_makt,
         matnr      TYPE matnr,
         maktx      TYPE maktx,
       END OF gty_makt.
TYPES: BEGIN OF gty_vkorg_bukrs,
         vkorg    TYPE vkorg,
         bukrs    TYPE bukrs,
       END OF gty_vkorg_bukrs.
TYPES: BEGIN OF gty_marc,
         matnr    TYPE matnr,
         werks    TYPE werks_d,
         lvorm    TYPE lvorm,
       END OF gty_marc.
***** TYPE-POOLS
TYPE-POOLS: slis.
***** INTERNAL TABLES
* Standard Tables
DATA: gt_komv         TYPE STANDARD TABLE OF komv,
      gt_report       TYPE STANDARD TABLE OF gty_report,
      gt_alv_fieldcat TYPE                   slis_t_fieldcat_alv.
* Hashed Tables
DATA: gth_vkorg_bukrs TYPE HASHED TABLE OF   gty_vkorg_bukrs
                           WITH UNIQUE KEY   vkorg.
* Sorted Tables
DATA: gtsrt_makt      TYPE SORTED   TABLE OF gty_makt
                           WITH UNIQUE KEY   matnr,
      gtsrt_mvke      TYPE SORTED   TABLE OF gty_mvke
                           WITH UNIQUE KEY   matnr
                                             vkorg
                                             vtweg,
      gtsrt_marc      TYPE SORTED   TABLE OF gty_marc
                           WITH UNIQUE KEY   matnr
                                             werks,
      gtsrt_textpool  TYPE SORTED   TABLE OF textpool
                           WITH UNIQUE KEY   id key.
*****
DATA: gs_komk             TYPE komk,
      gs_komp             TYPE komp,
      gs_mara             TYPE mara,
      gs_knvv             TYPE knvv,
      gs_alv_layout       TYPE slis_layout_alv,
      gs_alv_dis_variant  TYPE disvariant,
      gs_textpool         TYPE textpool.
***** TYPE-POOLS
TYPE-POOLS: slis.
***** CONSTANTS
CONSTANTS: gc_x                TYPE c            VALUE 'X',
           gc_alv_var_save     TYPE c            VALUE 'A'.  "Save all types of variant
***** VARIABLES
DATA: gd_maktx               TYPE maktx,
      gd_bukrs               TYPE bukrs,
      gd_kunnr_name1         TYPE name1,
      gd_kunnr_land1         TYPE land1,
      gd_sales_area          TYPE char8,
      gd_last_sales_area     TYPE char6,
      gd_price_found_flag    TYPE flag,
      gd_gross_price         TYPE netpr,
      gd_net_price           TYPE netpr,
      gd_cost_price          TYPE netpr,
      gd_mat_exists_in_plant TYPE flag.
***** FIELD-SYMBOLS
FIELD-SYMBOLS: <mvke>        TYPE gty_mvke,
               <report>      TYPE gty_report,
               <makt>        TYPE gty_makt,
               <vkorg_bukrs> TYPE gty_vkorg_bukrs,
               <textpool>    TYPE textpool.
*----- SELECTION-SCREEN ------------------------------------------------
***** Selections Block
SELECTION-SCREEN BEGIN OF BLOCK sels WITH  FRAME
                                     TITLE text-s01.
****** ...Sales Area
SELECTION-SCREEN BEGIN OF BLOCK area WITH  FRAME
                                     TITLE text-s03.
SELECT-OPTIONS: s_vkorg  FOR  mvke-vkorg,
                s_vtweg  FOR  mvke-vtweg.
PARAMETERS:     p_spart  LIKE mara-spart DEFAULT '01'.
SELECTION-SCREEN END OF BLOCK area.
***** ...Product
SELECTION-SCREEN BEGIN OF BLOCK prod WITH  FRAME
                                     TITLE text-s04.
SELECT-OPTIONS: s_matnr  FOR  mvke-matnr.
SELECTION-SCREEN END OF BLOCK prod.
***** ...Additional fields for price calculation
SELECTION-SCREEN BEGIN OF BLOCK addi WITH  FRAME
                                      TITLE text-s05.
PARAMETERS:     p_kunnr  LIKE knvv-kunnr                      OBLIGATORY,
                p_werks  LIKE komp-werks                      OBLIGATORY,
                p_waers  LIKE komk-waerk DEFAULT     'EUR'    OBLIGATORY.
SELECTION-SCREEN SKIP 1.
PARAMETERS:     p_kalsm  TYPE kalsmasd   DEFAULT     'RVAA01' OBLIGATORY,
                p_auart  TYPE auart      DEFAULT     'TA'     OBLIGATORY,
                p_pstyv  TYPE pstyv      DEFAULT     'TAN'    OBLIGATORY,
                p_taxm1  TYPE taxm1      DEFAULT     '1'      OBLIGATORY,
                p_taxk1  TYPE taxk1      DEFAULT     '1'      OBLIGATORY.
SELECTION-SCREEN SKIP 1.
parameters:     p_qty    TYPE kwmeng     DEFAULT     '1'      OBLIGATORY,
                p_vrkme  TYPE vrkme      DEFAULT     'KG'     OBLIGATORY.
SELECTION-SCREEN SKIP 1.
PARAMETERS:     p_prsdt  LIKE komk-prsdt DEFAULT sy-datum.
PARAMETERS:     p_hdnogr AS   CHECKBOX   DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK addi.
SELECTION-SCREEN END OF BLOCK sels.
***** Report Display Variant
SELECTION-SCREEN BEGIN OF BLOCK vari WITH  FRAME
                                     TITLE text-s02.
PARAMETERS: p_alvvar TYPE slis_vari.
SELECTION-SCREEN END OF BLOCK vari.
*************************** MAIN PROCESSING ****************************
*&---------------------------------------------------------------------*
*& Event INITIALIZATION                                                *
*&---------------------------------------------------------------------*
INITIALIZATION.
* Set the report name, as this is needed to save/retrieve ALV variants
  gs_alv_dis_variant = sy-repid.
* Build the Text Elements if this is the first time the program
* is being run on this system
  PERFORM build_program_text_elements.
*&---------------------------------------------------------------------*
*& Event AT SELECTION-SCREEN                                           *
*&---------------------------------------------------------------------*
* F4 Drop-down for ALV variant
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_alvvar.
  PERFORM f4_alv_variant CHANGING p_alvvar.
* Check that the ALV variant specified exists
AT SELECTION-SCREEN ON p_alvvar.
  IF NOT p_alvvar IS INITIAL.
    gs_alv_dis_variant-variant = p_alvvar.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        i_save        = gc_alv_var_save
      CHANGING
        cs_variant    = gs_alv_dis_variant
      EXCEPTIONS
        wrong_input   = 1
        not_found     = 2
        program_error = 3
        OTHERS        = 4.
*   If not found, display a message
    IF sy-subrc IS NOT INITIAL.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ENDIF.
*&---------------------------------------------------------------------*
*& Event START-OF-SELECTION                                            *
*&---------------------------------------------------------------------*
START-OF-SELECTION.
* Initialise everything
  PERFORM init_data.
* Get all the materials by plant
  PERFORM get_all_materials_by_plant.
* Read the materials
  PERFORM get_all_materials_by_salesarea.
* Build the report data
  PERFORM build_report_data.
*&---------------------------------------------------------------------*
*& Event END-OF-SELECTION                                            *
*&---------------------------------------------------------------------*
END-OF-SELECTION.
* Buld the ALV field catalog
  PERFORM alv_build_field_catalog.
* And display the report
  PERFORM alv_display_report.
******************************** FORMS *********************************
*&---------------------------------------------------------------------*
*&      Form  GET_ALL_MATERIALS_BY_SALESAREA
*&---------------------------------------------------------------------*
*       Get the list of materials
*----------------------------------------------------------------------*
FORM get_all_materials_by_salesarea .
  REFRESH gtsrt_mvke.
* Check that we found some materials for the plant entered on the selection
* screen
  CHECK gtsrt_marc[] IS NOT INITIAL.
* Get all the materials for this Sales Area
  SELECT * INTO TABLE gtsrt_mvke
         FROM mvke
         FOR ALL ENTRIES IN gtsrt_marc
         WHERE matnr EQ gtsrt_marc-matnr
         AND   vkorg IN s_vkorg
         AND   vtweg IN s_vtweg
         AND   lvorm =  space.   "No deletion indicator set

* No SUBRC check required
ENDFORM.                    " GET_ALL_MATERIALS_BY_SALESAREA
*&---------------------------------------------------------------------*
*&      Form  ALV_BUILD_FIELD_CATALOG
*&---------------------------------------------------------------------*
*       Build the ALV field catalog
*----------------------------------------------------------------------*
FORM alv_build_field_catalog .
* Build the field catalog
  DATA:  ls_fieldcat       TYPE slis_fieldcat_alv,
         ld_col_pos        TYPE i.
  CLEAR:  ls_fieldcat,
          ld_col_pos.
  REFRESH gt_alv_fieldcat.
*----- Macro to add a field to the catalog -------------------------------
  DEFINE add_field_to_catalog.
    add 1 to ld_col_pos.
*   &1 Field Name
*   &2 Key field - i.e. highlight
*   &3 Text Headomg
*   &4 Output Length
*   &5 Remove leading zeros
*   &6 Show field
    ls_fieldcat-col_pos       = ld_col_pos.
    ls_fieldcat-tabname       = 'GT_REPORT'.
    ls_fieldcat-fieldname     = &1.
*   Field specific handling
    case &1.
      when others.
*       Do nothing
    endcase.
*   Highlight this field in BLUE?
    if &2 is not initial.
      ls_fieldcat-key           = 'X'.
      ls_fieldcat-emphasize     = 'C333'.
    endif.
    ls_fieldcat-seltext_l     = &3.
    ls_fieldcat-outputlen     = &4.
    ls_fieldcat-no_zero       = &5.
*   Do we hide this field?
    if &6 is initial.
      ls_fieldcat-no_out        = 'X'.
    endif.
    append ls_fieldcat to gt_alv_fieldcat.
    clear: ls_fieldcat.
  END-OF-DEFINITION.
*----- Get the Column Titles ---------------------------------------------
  add_field_to_catalog:
*   Field Name                Key     Text            Len   NoZero Show field
    'VKORG'                   space   text-a01        4     space  gc_x,
    'VTWEG'                   space   text-a02        2     space  gc_x,
    'MATNR'                   gc_x    text-a03        18    space  gc_x,
    'MAKTX'                   space   text-a04        35    space  gc_x,
    'GROSS_PRICE'             space   text-a05        12    space  gc_x,
    'NET_PRICE'               gc_x    text-a06        12    space  gc_x,
    'COST_PRICE'              space   text-a07        12    space  gc_x,
    'WAERK'                   space   text-a08        3     space  gc_x,
    'PRODH'                   space   text-a09        12    space  gc_x,
    'KUNNR'                   space   text-a10        10    gc_x   gc_x,
    'KUNNR_NAME1'             space   text-a11        12    space  gc_x,
    'KUNNR_LAND1'             space   text-a12        12    space  gc_x,
    'PRSDT'                   space   text-a13        10    space  gc_x.
ENDFORM.                    " ALV_BUILD_FIELD_CATALOG
*&---------------------------------------------------------------------*
*&      Form  ALV_DISPLAY_REPORT
*&---------------------------------------------------------------------*
*       Display the report
*----------------------------------------------------------------------*
FORM alv_display_report .
* Set the ALV display options
  CLEAR gs_alv_layout.
  gs_alv_layout-colwidth_optimize = 'X'.
  gs_alv_layout-min_linesize      = 255.
* And display the report
* Call the ALV
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
*     I_INTERFACE_CHECK                 = ' '
*     I_BYPASSING_BUFFER                = ' '
*     I_BUFFER_ACTIVE                   = ' '
      i_callback_program                = sy-repid
*     i_callback_pf_status_set          = 'SET_CUSTOM_ALV_PF_STATUS'
*     i_callback_user_command           = 'HANDLE_ALV_EVENTS'
*     I_CALLBACK_TOP_OF_PAGE            = ' '
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME                  =
*     I_BACKGROUND_ID                   = ' '
*     I_GRID_TITLE                      =
*     I_GRID_SETTINGS                   =
      is_layout                         = gs_alv_layout
      it_fieldcat                       = gt_alv_fieldcat[]
*     IT_EXCLUDING                      =
*     IT_SPECIAL_GROUPS                 =
*     IT_SORT                           =
*     IT_FILTER                         =
*     IS_SEL_HIDE                       =
*     I_DEFAULT                         = 'X'
      i_save                            = gc_alv_var_save
      is_variant                        = gs_alv_dis_variant
*     IT_EVENTS                         =
*     IT_EVENT_EXIT                     =
*     IS_PRINT                          =
*     IS_REPREP_ID                      =
*     I_SCREEN_START_COLUMN             = 0
*     I_SCREEN_START_LINE               = 0
*     I_SCREEN_END_COLUMN               = 0
*     I_SCREEN_END_LINE                 = 0
*     I_HTML_HEIGHT_TOP                 = 0
*     I_HTML_HEIGHT_END                 = 0
*     IT_ALV_GRAPHICS                   =
*     IT_HYPERLINK                      =
*     IT_ADD_FIELDCAT                   =
*     IT_EXCEPT_QINFO                   =
*     IR_SALV_FULLSCREEN_ADAPTER        =
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = gt_report
    EXCEPTIONS
      OTHERS                            = 0.
* No SUBRC check required
ENDFORM.                    " ALV_DISPLAY_REPORT
*&---------------------------------------------------------------------*
*&      Form  GET_MAKTX
*&---------------------------------------------------------------------*
*       Get the material description
*----------------------------------------------------------------------*
FORM get_maktx  USING    fd_matnr  TYPE matnr
                CHANGING fd_maktx  TYPE maktx.
  CLEAR fd_maktx.
* If we haven't already done so, read in all the material descriptions
  IF gtsrt_makt[] IS INITIAL.
    SELECT matnr
           maktx
           INTO TABLE gtsrt_makt
           FROM makt
           WHERE spras = sy-langu.
  ENDIF.
* Now get the material description
  READ TABLE gtsrt_makt ASSIGNING <makt>
             WITH TABLE KEY matnr = fd_matnr.
  IF sy-subrc IS INITIAL.
    fd_maktx = <makt>-maktx.
  ENDIF.
ENDFORM.                    " GET_MAKTX
*&---------------------------------------------------------------------*
*&      Form  F4_ALV_VARIANT
*&---------------------------------------------------------------------*
*       Search help for variant
*----------------------------------------------------------------------*
FORM f4_alv_variant CHANGING fd_var LIKE disvariant-variant.
* Fill the structure needed by the report
  gs_alv_dis_variant-variant = fd_var.
* Look for any existing variants
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = gs_alv_dis_variant
      i_save     = gc_alv_var_save
    IMPORTING
      es_variant = gs_alv_dis_variant
    EXCEPTIONS
      OTHERS     = 1.
* Display error if not found
  IF sy-subrc IS NOT INITIAL.
    MESSAGE ID     sy-msgid
            TYPE   'S'
            NUMBER sy-msgno
            WITH   sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
* Otherwise, update the display variant structure
  ELSE.
    fd_var = gs_alv_dis_variant-variant.
  ENDIF.
ENDFORM.                    " F4_ALV_VARIANT
*&---------------------------------------------------------------------*
*&      Form  READ_CUSTOMER
*&---------------------------------------------------------------------*
*       Get the Customer details from KNA1 + KNVV
*----------------------------------------------------------------------*
FORM read_customer USING    fd_kunnr       TYPE kunnr
                           fd_vkorg       TYPE vkorg
                           fd_vtweg       TYPE vtweg
                  CHANGING fs_knvv        TYPE knvv
                           fd_kunnr_name1 TYPE name1
                           fd_kunnr_land1 TYPE land1.
  CLEAR: fs_knvv,
         fd_kunnr_name1,
         fd_kunnr_land1.
  CHECK fd_kunnr IS NOT INITIAL.
* Get the Customer Name
  SELECT SINGLE name1
                land1
                INTO (fd_kunnr_name1,
                      fd_kunnr_land1)
                FROM kna1
                WHERE kunnr = fd_kunnr.
  CHECK sy-subrc IS INITIAL.
* Look to see if we have a customer
  SELECT SINGLE * INTO fs_knvv
                FROM knvv
                WHERE kunnr = fd_kunnr
                AND   vkorg = fd_vkorg
                AND   vtweg = fd_vtweg
                AND   spart = p_spart.
* NO SUBRC check required
ENDFORM.                    " READ_CUSTOMER
*&---------------------------------------------------------------------*
*&      Form  BUILD_REPORT_DATA
*&---------------------------------------------------------------------*
*       Build the Report data
*----------------------------------------------------------------------*
FORM build_report_data.
  CLEAR: gd_sales_area,
         gd_last_sales_area.
* Loop around the materials found
  LOOP AT gtsrt_mvke ASSIGNING <mvke>.
*   Build the Sales area that we can use for checking later
    CONCATENATE <mvke>-vkorg
                <mvke>-vtweg
                INTO gd_sales_area.  "No space separation required
*   Change of Sales Org, redetermine the company code of the Sales Org
    ON CHANGE OF <mvke>-vkorg.
      PERFORM get_bukrs USING    <mvke>-vkorg
                        CHANGING gd_bukrs.
    ENDON.
*   Every time there is a change of Sales Area, re-read the customer's
*   Sales Area data
    IF gd_sales_area <> gd_last_sales_area.
      PERFORM read_customer USING    p_kunnr
                                     <mvke>-vkorg
                                     <mvke>-vtweg
                            CHANGING gs_knvv
                                     gd_kunnr_name1
                                     gd_kunnr_land1.
    ENDIF.
*   Take note of the Sales Area we've just processed
    gd_last_sales_area = gd_sales_area.
*   Every time the material changes, get the material general view
*   details
    ON CHANGE OF <mvke>-matnr.
      PERFORM read_material USING    <mvke>-matnr
                            CHANGING gs_mara
                                     gd_maktx
                                     gd_mat_exists_in_plant.
    ENDON.
*   Check that the current material exists in the plant entered
*   on the selection-screen
    CHECK gd_mat_exists_in_plant = gc_x.
*   Get the Price condition data
    PERFORM get_price_conditions TABLES   gt_komv
                                 USING    <mvke>
                                          gs_mara
                                          gs_knvv
                                          gd_bukrs
                                 CHANGING gs_komk
                                          gs_komp
                                          gd_gross_price
                                          gd_net_price
                                          gd_cost_price
                                          gd_price_found_flag.
*   Add the price information to the report
    IF gd_price_found_flag = gc_x.
      PERFORM add_line_to_report   TABLES   gt_komv
                                   USING    <mvke>
                                            gs_mara
                                            gs_komk
                                            gs_komp
                                            gd_gross_price
                                            gd_net_price
                                            gd_cost_price
                                            gd_maktx
                                            p_kunnr
                                            gd_kunnr_name1
                                            gd_kunnr_land1.
    ENDIF.
  ENDLOOP.  "GT_MVKE
* Sort the report
  SORT gt_report BY vkorg
                    vtweg
                    matnr.
ENDFORM.                    " BUILD_REPORT_DATA
*&---------------------------------------------------------------------*
*&      Form  GET_PRICE_CONDITIONS
*&---------------------------------------------------------------------*
*       Read the price conditions and determine the Gross, Net +
*       Cost price
*----------------------------------------------------------------------*
FORM get_price_conditions    TABLES   ft_komv             STRUCTURE komv
                             USING    fs_mvke             TYPE      mvke
                                      fs_mara             TYPE      mara
                                      fs_knvv             TYPE      knvv
                                      fd_bukrs            TYPE      bukrs
                             CHANGING fs_komk             TYPE      komk
                                      fs_komp             TYPE      komp
                                      fd_gross_price      TYPE      netpr
                                      fd_net_price        TYPE      netpr
                                      fd_cost_price       TYPE      netpr
                                      fd_price_found_flag TYPE      flag.
* Init
  CLEAR: fs_komk,
         fs_komp,
         fd_price_found_flag,
         fd_gross_price,
         fd_net_price,
         fd_cost_price.
  REFRESH ft_komv.
* MARA and MVKE below may not be too relevant for the header level, but
* they are still moved to FS_KOMK here just in case any relevant fields
* are found at the header level
  MOVE-CORRESPONDING: fs_mvke        TO fs_komk,            "#EC ENHOK
                      fs_mara        TO fs_komk,            "#EC ENHOK
                      fs_knvv        TO fs_komk.            "#EC ENHOK
  MOVE:               p_prsdt        TO fs_komk-kurrf_dat,
                      p_prsdt        TO fs_komk-fkdat,
                      p_prsdt        TO fs_komk-prsdt,
                      p_prsdt        TO fs_komk-erdat,
                      p_prsdt        TO fs_komk-fbuda,
                      p_prsdt        TO fs_komk-audat,
                      p_taxk1        TO fs_komk-taxk1,      "Customer Tax Code
                      p_auart        TO fs_komk-auart,
                      p_auart        TO fs_komk-auart_sd,
                      p_kalsm        TO fs_komk-kalsm,
                      'V'            TO fs_komk-kappl,
                      p_spart        TO fs_komk-spart,
                      '$000000001'   TO fs_komk-belnr,
                      '$000000001'   TO fs_komk-knumv,
                      p_waers        TO fs_komk-waerk,
                      p_waers        TO fs_komk-hwaer,
                      fd_bukrs       TO fs_komk-bukrs,
                      fs_mvke-vkorg  TO fs_komk-vkorgau,
                      p_werks        TO fs_komk-werks,
                      fs_knvv-kunnr  TO fs_komk-knrze,
                      fs_knvv-kunnr  TO fs_komk-kunre,
                      fs_knvv-kunnr  TO fs_komk-kunwe,
                      fs_knvv-konda  TO fs_komk-konda,
                      'C'            TO fs_komk-vbtyp,
                      'H'            TO fs_komk-trtyp,
                      '01'           TO fs_komk-vsbed,
                      '1'            TO fs_komp-ix_komk.
* If any bespoke ZZ... fields exist in the HEADER table KOMK,
* these should be filled here
* MOVE:              hdrtable1-zzfielda     TO fs_komk-zzfielda,
*                    hdrtable2-zzfieldb     TO fs_komk-zzfieldb.
  MOVE-CORRESPONDING: fs_mara               TO fs_komp,     "#EC ENHOK
                      fs_mvke               TO fs_komp.     "#EC ENHOK
  MOVE:               p_qty                 TO fs_komp-mgame,
                      p_qty                 TO fs_komp-mglme,
                      p_qty                 TO fs_komp-lmeng,
                      'X'                   TO fs_komp-prsfd,
                      'X'                   TO fs_komp-prsok,
                      'X'                   TO fs_komp-evrwr,
                      '1'                   TO fs_komp-kursk,
                      p_vrkme               TO fs_komp-meins,
                      p_vrkme               TO fs_komp-lagme,
                      p_vrkme               TO fs_komp-vrkme,
                      p_taxm1               TO fs_komp-taxm1,    "Material Tax Code
                      p_pstyv               TO fs_komp-pstyv,
                      fs_mara-matnr         TO fs_komp-pmatn,
                      '000010'              TO fs_komp-kposn,
                      '000010'              TO fs_komp-taxps,
                      '000010'              TO fs_komp-aupos,
                      p_spart               TO fs_komp-spart,
                      '1'                   TO fs_komp-ix_komk,
                      '1'                   TO fs_komp-umvkz,
                      '1'                   TO fs_komp-umvkn,
                      '1'                   TO fs_komp-anz_tage,
                      '1'                   TO fs_komp-anz_monate,
                      '1'                   TO fs_komp-anz_wochen,
                      '1'                   TO fs_komp-anz_jahre,
                      '1'                   TO fs_komp-stf_tage,
                      '1'                   TO fs_komp-stf_monate,
                      '1'                   TO fs_komp-stf_wochen,
                      '1'                   TO fs_komp-stf_jahre,
                      '$TEMP'               TO fs_komp-aubel,
                      p_werks               TO fs_komp-werks.
* If any bespoke ZZ... fields exist in the ITEM table KOMP (or append
* structure KOMPAZ), these should be filled here
* MOVE:              itemtable1-zzfielda    TO fs_komp-zzfielda,
*                    itemtable2-zzfieldb    TO fs_komp-zzfieldb.
* Call the Pricing module
  CALL FUNCTION 'PRICING'
    EXPORTING
      calculation_type        = 'B'        "Carry out new Pricing
      comm_head_i             = fs_komk
      comm_item_i             = fs_komp
*     PRELIMINARY             = ' '
*     NO_CALCULATION          = ' '
    IMPORTING
      comm_head_e             = fs_komk
      comm_item_e             = fs_komp
    TABLES
      tkomv                   = ft_komv
*     SVBAP                   =
*   CHANGING
*     REBATE_DETERMINED       = ' '
    EXCEPTIONS
      OTHERS                  = 0.  "No SUBRC check required, as we handle this below
* Remove any statistical or inactive conditions
  DELETE ft_komv
         WHERE kinak =  gc_x
         OR    kstat =  gc_x.
*----- GROSS Price ------------------------------------------------------
* This is normally stored in subtotal 1 in some of the SAP standard pricing
* procedures (this may need to be changed for some SPA installations)
  IF fs_komp-kzwi1 IS NOT INITIAL.
    fd_gross_price = fs_komp-kzwi1.
* If not found in subtotal 1
  ELSE.
*   We could look for the first PRICE (KOAID=B)
*   price condition (inactive + statistical records would already have been
*   removed above)
*   For performance reasons, this has been deactivated here, but could be
*   reinstated later if need be
*   loop at ft_komv ASSIGNING <komv>
*        where koaid = gc_koaid_price.
*     gd_gross_price = <komv>-kwert.
*     exit.
*   endloop.
*   If the gross price is still initial, check if the "hide records with
*   no gross price" flag was set on the selection-screen.  If so, clear the
*   price found flag (done again for program clarity), and exit the form
*   As the flag is not set, it means that the record will not appear on the
*   report
    IF     fd_gross_price IS INITIAL
       AND p_hdnogr       =  gc_x.
      CLEAR fd_price_found_flag.
      EXIT.
    ENDIF.
  ENDIF.
* If we have found a gross price, set the price found flag
  fd_price_found_flag = gc_x.
*----- NET Price -------------------------------------------------------
* Use the NETWR field instead of NETPR, in case the user enters a
* quantity greater than 1 on the selection-screen.  NETPR would only
* have the unit price, whereas NETWR has the price for the entire
* quantity
  IF fs_komp-netwr IS NOT INITIAL.
    fd_net_price = fs_komp-netwr.
* If not found in subtotal 2
  ELSE.
*   Otherwise, try one of the subtotal fields (this could differ
*   according to each pricing procedure, SAP standard puts it in
*   subtotal 2).
    fd_net_price = fs_komp-kzwi2.
  ENDIF.
*----- COST Price ------------------------------------------------------
* The cost price should be returned in the field FS_KOMP-WAVWR
* Inside function PRICING, the cost is derived from condition type
* VPRS.  SAP Standard normally brings this price in from MBEW-STPRS
* but this will not be found if no plant (i.e. valuation area) is
* passed to the PRICING function - hence why this is mandatory on the
* selection-screen
  IF fs_komp-wavwr IS NOT INITIAL.
    fd_cost_price = fs_komp-wavwr.
  ENDIF.
ENDFORM.                    " GET_PRICE_CONDITIONS
*&---------------------------------------------------------------------*
*&      Form  GET_BUKRS
*&---------------------------------------------------------------------*
*       Get the company code
*----------------------------------------------------------------------*
FORM get_bukrs  USING    fd_vkorg   TYPE vkorg
                CHANGING fd_bukrs   TYPE bukrs.
* Read in all the Sales Orgs
  IF gth_vkorg_bukrs[] IS INITIAL.
    SELECT vkorg
           bukrs
           INTO TABLE gth_vkorg_bukrs
           FROM tvko.
  ENDIF.
* Now read the table
  READ TABLE gth_vkorg_bukrs ASSIGNING <vkorg_bukrs>
             WITH TABLE KEY vkorg = fd_vkorg.
  IF sy-subrc IS INITIAL.
    fd_bukrs = <vkorg_bukrs>-bukrs.
  ENDIF.
ENDFORM.                    " GET_BUKRS
*&---------------------------------------------------------------------*
*&      Form  ADD_LINE_TO_REPORT
*&---------------------------------------------------------------------*
*       Add a line to the report
*----------------------------------------------------------------------*
FORM add_line_to_report TABLES    ft_komv        STRUCTURE komv "#EC NEEDED
                        USING     fs_mvke        TYPE      mvke
                                  fs_mara        TYPE      mara
                                  fs_komk        TYPE      komk
                                  fs_komp        TYPE      komp
                                  fd_gross_price TYPE      netpr
                                  fd_net_price   TYPE      netpr
                                  fd_cost_price  TYPE      netpr
                                  fd_maktx       TYPE      maktx
                                  fd_kunnr       TYPE      kunnr
                                  fd_kunnr_name1 TYPE      name1
                                  fd_kunnr_land1 TYPE      land1.
* Add a blank line to the report
  APPEND INITIAL LINE TO gt_report ASSIGNING <report>.
* Then fill the relevant data
  MOVE-CORRESPONDING: fs_komk        TO <report>,           "#EC ENHOK
                      fs_komp        TO <report>,           "#EC ENHOK
                      fs_mara        TO <report>,           "#EC ENHOK
                      fs_mvke        TO <report>.           "#EC ENHOK
  MOVE:               fd_maktx       TO <report>-maktx,
                      fd_gross_price TO <report>-gross_price,
                      fd_net_price   TO <report>-net_price,
                      fd_cost_price  TO <report>-cost_price,
                      fd_kunnr       TO <report>-kunnr,
                      fd_kunnr_name1 TO <report>-kunnr_name1,
                      fd_kunnr_land1 TO <report>-kunnr_land1.
ENDFORM.                    " ADD_LINE_TO_REPORT
*&---------------------------------------------------------------------*
*&      Form  READ_MATERIAL
*&---------------------------------------------------------------------*
*       Read the material details (from MARA/MAKT)
*----------------------------------------------------------------------*
FORM read_material  USING    fd_matnr               TYPE matnr
                    CHANGING fs_mara                TYPE mara
                             fd_maktx               TYPE maktx
                             fd_mat_exists_in_plant TYPE flag.
  CLEAR: fs_mara,
         fd_maktx,
         fd_mat_exists_in_plant.
* Read the material GENERAL VIEW details
  SELECT SINGLE * INTO fs_mara
                FROM mara
                WHERE matnr = fd_matnr.
* Get the material description
  PERFORM get_maktx USING    fd_matnr
                    CHANGING fd_maktx.
* Check that the material exists in the plant entered on the selection
* screen
  READ TABLE gtsrt_marc TRANSPORTING NO FIELDS
             WITH TABLE KEY matnr = fd_matnr
                            werks = p_werks.         "#EC *
*            Table is sorted, so no BINARY SEARCH necessary
* If found, set the Mat exists in plant
  IF sy-subrc IS INITIAL.
    fd_mat_exists_in_plant = gc_x.
  ENDIF.
ENDFORM.                    " READ_MATERIAL
*&---------------------------------------------------------------------*
*&      Form  INIT_DATA
*&---------------------------------------------------------------------*
*       Initialise everything
*----------------------------------------------------------------------*
FORM init_data .
* Empty the internal tables
  REFRESH: gt_komv,
           gtsrt_mvke,
           gt_report,
           gt_alv_fieldcat,
           gtsrt_makt,
           gth_vkorg_bukrs.
* Clear the variables
  CLEAR: gd_maktx,
         gd_bukrs,
         gd_kunnr_name1,
         gd_kunnr_land1,
         gd_sales_area,
         gd_last_sales_area,
         gd_price_found_flag,
         gd_gross_price,
         gd_net_price,
         gd_cost_price.
ENDFORM.                    " INIT_DATA
*&---------------------------------------------------------------------*
*&      Form  BUILD_PROGRAM_TEXT_ELEMENTS
*&---------------------------------------------------------------------*
*       Build the program text elements if necesssary
*----------------------------------------------------------------------*
FORM build_program_text_elements .
*----- Method to add an entry to the Textpool --------------------------
  DEFINE m_add_to_textpool.
*   &1 = Text Element Type
*        S = Selection-Screen
*        I = Text Symbol
*   &2 = Text Key (Selection-screen field name or text-symbol xxx id)
*   &3 = Text Description
*   Initialise
    clear gs_textpool.
*   Textpool Type
    gs_textpool-id     = &1.
*   Textpool Key/Name
    gs_textpool-key    = &2.
*   Text Description
*   Note: for some reason, 8 blank spaces must be added to the
*   start of any Selection-screen Select-options or Parameters
    if &1 = 'S'.  "Select-option or Parameter
      move: '        ' to gs_textpool-entry+0(8),
            &3         to gs_textpool-entry+8.
    else.         "All others, e.g. Text Elements, Report Heading
      gs_textpool-entry  = &3.
    endif.
*   Also get the length of the text element
    gs_textpool-length = strlen( gs_textpool-entry ).
    insert gs_textpool into table gtsrt_textpool.
  END-OF-DEFINITION.
*----- End of Method ---------------------------------------------------
* Read the textpool for this program to see if the text elements have
* already been loaded
  REFRESH gtsrt_textpool.
  READ TEXTPOOL sy-repid INTO     gtsrt_textpool
                         LANGUAGE sy-langu.
* Now look for an arbitrary text element (e.g. A01) to see if we have already
* built the text elements on a previous run of the program
  READ TABLE gtsrt_textpool ASSIGNING <textpool>
             WITH TABLE KEY id  = 'I'
                            key = 'A01'.
*            Table is SORTED type, so no BINARY SEARCH necessary
* If not found, start to build the text elements
  IF sy-subrc IS NOT INITIAL.
*   Start by removing whichever texts are already existing
    UNASSIGN <textpool>.
    REFRESH gtsrt_textpool.
*   Text-Symbols
    m_add_to_textpool:
      'I' 'A01' 'SOrg',
      'I' 'A02' 'DCh',
      'I' 'A03' 'Material',
      'I' 'A04' 'Description',
      'I' 'A05' 'Gross Price',
      'I' 'A06' 'Net Price',
      'I' 'A07' 'Cost Price',
      'I' 'A08' 'Curr',
      'I' 'A09' 'Prod Hierarchy',
      'I' 'A10' 'Customer',
      'I' 'A11' 'Name',
      'I' 'A12' 'Cust Country',
      'I' 'A13' 'Pricing Date',
      'I' 'S01' 'Selections',
      'I' 'S02' 'Report',
      'I' 'S03' 'Sales Area',
      'I' 'S04' 'Product',
      'I' 'S05' 'Additional Information for Price Calculation'.
*   Selection-screen texts
*   Note: for some reason, 8 blank spaces must be added to the
*   start of any Select-options or Parameters texts.  This is
*   done inside the macro
    m_add_to_textpool:
      'S' 'P_ALVVAR' 'Report Display Variant',
      'S' 'P_AUART'  'Order Type',
      'S' 'P_HDNOGR' 'Hide lines with no gross price',
      'S' 'P_KALSM'  'Pricing Procedure',
      'S' 'P_KUNNR'  'Customer',
      'S' 'P_PRSDT'  'Pricing date',
      'S' 'P_PSTYV'  'Item Category',
      'S' 'P_QTY'    'Quantity for Calculation',
      'S' 'P_SPART'  'Division',
      'S' 'P_TAXK1'  'Customer Tax Code',
      'S' 'P_TAXM1'  'Material Tax Code',
      'S' 'P_VRKME'  'Sales UoM',
      'S' 'P_WAERS'  'Currency',
      'S' 'P_WERKS'  'Plant',
      'S' 'S_MATNR'  'Material',
      'S' 'S_VKORG'  'Sales Organization',
      'S' 'S_VTWEG'  'Distribution Channel'.
*   Report Title
    m_add_to_textpool:
      'R' space      'Price List Report'.
*   Now delete the old textpool (regardless of how much was there)
    DELETE TEXTPOOL sy-repid LANGUAGE sy-langu.
*   And insert the new textpool + commit
    INSERT textpool sy-repid FROM gtsrt_textpool LANGUAGE sy-langu.
    COMMIT WORK AND WAIT.
*   Now we need to resubmit the program
    SUBMIT (sy-repid)
           VIA SELECTION-SCREEN.
  ENDIF.
ENDFORM.                    " BUILD_PROGRAM_TEXT_ELEMENTS
*&---------------------------------------------------------------------*
*&      Form  GET_ALL_MATERIALS_BY_PLANT
*&---------------------------------------------------------------------*
*       Get all the materials for the plant entered on the selection
*       screen
*----------------------------------------------------------------------*
FORM get_all_materials_by_plant .
* Init
  REFRESH gtsrt_marc.
* Get all the materials found for the plant
  SELECT matnr
         werks
         lvorm
         INTO TABLE gtsrt_marc
         FROM marc
         WHERE matnr IN s_matnr
         AND   werks =  p_werks
         AND   lvorm =  space.   "No deletion indicator set
* No SUBRC check required
ENDFORM.                    " GET_ALL_MATERIALS_BY_PLANT
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> SD All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You cannot download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.