This file contains program logic for several userexits that are 
contained in different includes.

*----------------------------------------------------------------------*
*   INCLUDE ZV_OTC_MANAGER_TZZ                                         *
*----------------------------------------------------------------------*
* This include is provided so that custom data declarations can be     *
* added without modification of the TOP include.                       *
*----------------------------------------------------------------------*
data: g_prodhs                 type prodhs,
      g_prodh_sel              LIKE t179t-prodh.

* Product Hierarchy Descriptions
TYPES: BEGIN OF typ_prodh_desc,
         prodh                 LIKE t179t-prodh,
         vtext                 LIKE t179t-vtext,
       END OF typ_prodh_desc.

DATA: t_prodh_desc TYPE HASHED TABLE OF typ_prodh_desc
                   WITH HEADER LINE
                   WITH UNIQUE KEY prodh.





*----------------------------------------------------------------------*
*   INCLUDE ZV_OTC_MANAGER_FZ0                                         *
*----------------------------------------------------------------------*

*---------------------------------------------------------------------*
*       FORM userexit_initialization                                  *
*---------------------------------------------------------------------*
* This routine can be used for the following:                         *
*                                                                     *
* Changing the colors used by the standard program                    *
* Loading static data into internal tables defined by the user.       *
*---------------------------------------------------------------------*
FORM userexit_initialization.
* The column colors can be modified by setting the following variables.
* All colors are defined as constants in the TOP include.

* g_key_color                  = color_light_blue_intense.
* IF p_colcd = 'X'.
*   g_sold_to_color            = color_orange.
*   g_partner_color            = color_orange_intense.
*   g_material_color           = color_green.
*   g_inventory_color          = color_grey_intense.
* ENDIF.

* The line colors can be modified by setting the following variables.
* IF p_ltcolr = 'X'.
*   g1_line_color_1            = color_yellow.
*   g1_line_color_2            = color_yellow_intense.
*   g2_line_color_1            = color_yellow.
* ENDIF.

* Load the Product Hierarchy Descriptions to an internal table.
  SELECT        prodh
                vtext
         FROM   t179t
         INTO   TABLE t_prodh_desc
         WHERE  spras  = sy-langu.


ENDFORM.





*----------------------------------------------------------------------*
*   INCLUDE ZV_OTC_MANAGER_FZ1                                         *
*----------------------------------------------------------------------*
* This include contains all userexits related to the order grid.       *
*----------------------------------------------------------------------*

*---------------------------------------------------------------------*
*       FORM userexit_set_fieldcat_grid1                              *
*---------------------------------------------------------------------*
* This routine can be used for the following:                         *
*                                                                     *
* Adding field catelog attributes for user added fields.              *
* Changing the attributes of standard fields.                         *
* Removing standard fields from the default layout.                   *
*---------------------------------------------------------------------*
FORM userexit_set_fieldcat_grid1.
* CASE l_fieldcat-fieldname.
*   WHEN 'xxxxx'.
*     l_fieldcat-              =
* ENDCASE.
  CASE l_fieldcat-fieldname.
    WHEN 'PRODH'.
      l_fieldcat-no_out        = 'X'.
      l_fieldcat-emphasize     = g_material_color.
    WHEN 'PRODH1'.
      l_fieldcat-emphasize     = g_material_color.
    WHEN 'PRODH1_DESC'.
      l_fieldcat-reptext       = 'LOB ds'.
      l_fieldcat-scrtext_s     = 'LOB ds'.
      l_fieldcat-scrtext_m     = 'LOB desc'.
      l_fieldcat-scrtext_l     = 'LOB desc'.
      l_fieldcat-emphasize     = g_material_color.
    WHEN 'PRODH2'.
      l_fieldcat-emphasize     = g_material_color.
    WHEN 'PRODH2_DESC'.
      l_fieldcat-reptext       = 'Prod cls ds'.
      l_fieldcat-scrtext_s     = 'Prod cls ds'.
      l_fieldcat-scrtext_m     = 'Prod cls desc'.
      l_fieldcat-scrtext_l     = 'Prod cls desc'.
      l_fieldcat-emphasize     = g_material_color.
    WHEN 'PRODH3'.
      l_fieldcat-emphasize     = g_material_color.
    WHEN 'PRODH3_DESC'.
      l_fieldcat-reptext       = 'Prod type ds'.
      l_fieldcat-scrtext_s     = 'Prod type ds'.
      l_fieldcat-scrtext_m     = 'Prod type desc'.
      l_fieldcat-scrtext_l     = 'Prod type desc'.
      l_fieldcat-emphasize     = g_material_color.
  ENDCASE.
ENDFORM.
*eject
*---------------------------------------------------------------------*
*       FORM userexit_create_output_order                             *
*---------------------------------------------------------------------*
* This routine can be used for the following:                         *
*                                                                     *
* Adding custom fields to the order grid.                             *
* Changing standard fields.                                           *
* Adding colors, changing icons, etc.                                 *
*---------------------------------------------------------------------*
FORM userexit_create_output_order.
  g_prodhs                     = t_order_item_data-prodh.
  g1_l_output-prodh1           = g_prodhs-prodh1.
  g1_l_output-prodh2           = g_prodhs-prodh3.
  g1_l_output-prodh3           = g_prodhs-prodh3.
  IF NOT g_prodhs-prodh1 IS INITIAL.
    PERFORM zz_determ_prod_hier_desc  USING 'PRODH1'.
    g1_l_output-prodh1_desc    = t_prodh_desc-vtext.
  ENDIF.
  IF NOT g_prodhs-prodh2 IS INITIAL.
    PERFORM zz_determ_prod_hier_desc  USING 'PRODH2'.
    g1_l_output-prodh2_desc    = t_prodh_desc-vtext.
  ENDIF.
  IF NOT g_prodhs-prodh3 IS INITIAL.
    PERFORM zz_determ_prod_hier_desc  USING 'PRODH3'.
    g1_l_output-prodh3_desc    = t_prodh_desc-vtext.
  ENDIF.
ENDFORM.
*eject
*---------------------------------------------------------------------*
*       FORM zz_determ_prod_hier_desc                                 *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  FIELDNAME                                                     *
*---------------------------------------------------------------------*
FORM zz_determ_prod_hier_desc  USING fieldname.
  CLEAR g_prodh_sel.
  CASE fieldname.
    WHEN 'PRODH1'.
      g_prodh_sel              = g_prodhs-prodh1.
    WHEN 'PRODH2'.
      CONCATENATE g_prodhs-prodh1
                  g_prodhs-prodh2
             INTO g_prodh_sel.
    WHEN 'PRODH3'.
      CONCATENATE g_prodhs-prodh1
                  g_prodhs-prodh2
                  g_prodhs-prodh3
             INTO g_prodh_sel.
  ENDCASE.

  CLEAR t_prodh_desc-vtext.
  IF NOT g_prodh_sel IS INITIAL.
    READ TABLE t_prodh_desc WITH TABLE KEY prodh = g_prodh_sel.
  ENDIF.
  t_prodh_desc-vtext        = 'Prod Hier Desc'.
ENDFORM.