Registration

Dear SAP Community Member,
In order to fully benefit from what the SAP Community has to offer, please register at:
http://scn.sap.com
Thank you,
The SAP Community team.
Skip to end of metadata
Go to start of metadata

*&---------------------------------------------------------------------*
*& Report  ZSTOCKPARTS
*&
*&---------------------------------------------------------------------*
*&* AUTHOR........ Aveek Ghose
*&* DATE WRITTEN.. 15/09/2006
*&* R/3 RELEASE... 4.6C
*&*&
*&---------------------------------------------------------------------*
REPORT  ZSTOCKPARTS
        NO STANDARD PAGE HEADING
        MESSAGE-ID zdmfi
        LINE-COUNT 2558
        LINE-SIZE  260.

************************************************************************
* INCLUDES
************************************************************************

*Include for Global Data Declaration
include zdmfitop.
*Include for Selection Screen
include zdmfit01.
*Include for Sub Routines
include zdmfif01.

************************************************************************
* INITIALIZATION
************************************************************************
INITIALIZATION.

*Initialization of all the Global Variables
  PERFORM sub_refresh_variables.

************************************************************************
* AT SELECTION SCREEN
************************************************************************

AT SELECTION-SCREEN.

*Validate if at least one of Matrial, Plant or Location is input
  PERFORM validate_input.

*Validate material
  PERFORM sub_validate_material.

*Validate Plant
  PERFORM sub_validate_plant.

*Validate Storage Location
  PERFORM sub_validate_location.

*Validate FT/FS Class
  PERFORM sub_validate_class.

*Fetch values from Scalability Table
  PERFORM sub_scalability.

*Validate Period
  PERFORM sub_validate_period.

*Validate Fiscal Year and Period
  PERFORM sub_validate_fiyear_period.

*Validate Layout
  PERFORM sub_validate_layout.

************************************************************************
* AT SELECTION SCREEN ON VALUE REQUEST
************************************************************************
* Anuradha - Begin
*Search Help for FT/FS Class
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_class.
*
*  PERFORM sub_class_f4_help.
* Anuradha - End

*Search Help for Layout
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_layout.

  PERFORM sub_layout_f4_help.

************************************************************************
* TOP OF PAGE                                                    *
************************************************************************
*TOP-OF-PAGE.
*
*  PERFORM sub_heading.

************************************************************************
* START-OF-SELECTION
************************************************************************

START-OF-SELECTION.

*Subroutines for start of selection event
  PERFORM sub_start_selection.

************************************************************************
* END OF SELECTION
************************************************************************

END-OF-SELECTION.

  REFRESH i_final[].

*Subroutines for end of selection event
  PERFORM sub_end_selection.

*&---------------------------------------------------------------------*
*&      Form  sub_start_selection
*&---------------------------------------------------------------------*
*  Subroutines for start of selection event
*----------------------------------------------------------------------*

FORM sub_start_selection .

*Fetch Standatrd Order Quantity
  PERFORM sub_std_order_qty.

*Fetch Detail storage location
  PERFORM sub_storage_location.

*Fetch Class and Rate
  PERFORM sub_class_rate.

*Fetch Material, Plant and location
  PERFORM sub_mat_plnt_loc.

*Fetch Material Type
  PERFORM sub_material_type.

*Fetch Average Price from table MBEW or MBEWH
  PERFORM sub_average_price.

*Fetch Plant and Valuation Key
  PERFORM sub_currency_key.

*Fetch Net Price
  PERFORM sub_net_price.

ENDFORM.                    " sub_start_selection

*&---------------------------------------------------------------------*
*&      Form  sub_end_selection
*&---------------------------------------------------------------------*
*   Subroutines for end of selection event
*----------------------------------------------------------------------*
FORM sub_end_selection .

*Population of Final Table
  PERFORM sub_populate_final_table.

*Population of Error Log
  IF i_errormsg[] IS NOT INITIAL.
    PERFORM sub_populate_syslog TABLES i_errormsg.
  ENDIF.

*Preparation of ALV Report
  PERFORM sub_alv_report.

ENDFORM.                    " sub_end_selection

  • No labels