*&---------------------------------------------------------------------*
*& 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