ZPPR017A: VMI Forecast Report BOM MRP

*&---------------------------------------------------------------------*
*& Progarm      :  ZPPR017A                        Author : Jimmy Wong
*& Created      :  14 Mar 2013                     App    : PP
*& Title        :  VMI Forecast Report
*& Description  :  VMI Forecast Report
*&       T457T    AR    OrdRes OrderRes    (per month request qty) production order
*&                BB    SubReq SubcReqmt                           production order 外发
*&                PP    IndReq IndReqmt                            plan order
*&                SB    DepReq DependReq                           plan order\
*& MD05
*&---------------------------------------------------------------------*
*&  Version       Author      Date        description
*&                Jimmy       14 Mar 2013 the first version
*&  the last update time  2013.03.14 18:00
*&---------------------------------------------------------------------*

report  zppr017a no standard page heading.
*&---------------------------------------------------------------------*
* database table
*&---------------------------------------------------------------------*
tables : mara,marc.
data: begin of it_fg occurs 0,
      werks like marc-werks,
      matnr like marc-matnr,
      end of it_fg.
data: it_sub_matnr like it_fg occurs 0 with header line.
data:lv_first type sy-datum,
     lv_last type sy-datum,
     lv_week_f type kweek,
     lv_week_t type kweek.
data: begin of it_field occurs 0,
      index  type i,
      fieldname(10) type c,
      fielddesc(40) type c,
      end of it_field.
data: begin of itab occurs 0,
      fg_mat type c length 40,
      matnr like marc-matnr,
      fg_matnr like marc-matnr,
      werks like marc-werks,
      clabs   like mchb-clabs,  "On Hand qty
      menge_p   like ekpo-menge,  "Production order Qty
      menge   like ekpo-menge,  "On Order Qty
      weeks   type kweek,
      menge_pl  like ekpo-menge,  "Production order Qty
      mfrnr   like mara-mfrnr,  "Order No.
      mfrpn   like mara-mfrpn,  "Manufacturer
      lifnr   like lfa1-lifnr,
      name1   like lfa1-name1,
      end of itab.
data: wa_itab like itab .
data: begin of it_down occurs 0,
          line type c length 10000,
end of it_down .
data:lv_string type string.
data:lv_type type string.
types:lv_types type string.
data: gv_file like rlgrap-filename.

field-symbols: <dyn_table> type standard table, "Dynamic internal table name
               <dyn_wa>    type any,            "Field symbol to create work area
               <dyn_field> type any.            "Field symbol to assign values

data: dy_table type ref to data,
      dy_line  type ref to data,
      it_structure type lvc_t_fcat,
      wa_structure type lvc_s_fcat.
define create_stru.
  wa_structure-fieldname = &1.
  wa_structure-inttype = &2.
  wa_structure-intlen = &3.
  wa_structure-datatype =  &4.
  wa_structure-decimals = &5.
  append wa_structure to it_structure.
end-of-definition.
type-pools: slis.
data: fc_hier type slis_t_fieldcat_alv,
      wa_hier type slis_fieldcat_alv .
define alv_field.
  clear:wa_hier.
  wa_hier-fieldname = &1.
  wa_hier-seltext_m = &2.
  wa_hier-seltext_l = &3.
  wa_hier-outputlen = &4.
  wa_hier-just = &5.
  wa_hier-do_sum = &6.
  wa_hier-ref_tabname = &7 .
  wa_hier-ref_fieldname = &8 .
  append wa_hier to fc_hier.
end-of-definition.
define alv_sort.
  clear sort.
  sort-fieldname = &1.
  sort-spos      = &2.
  sort-up        = &3.
  sort-subtot    = &4.
  append sort.
end-of-definition.
data: sort     type slis_t_sortinfo_alv with header line.
*----------------------------------------------------------------------*
*  Parameter & Select-Options                                          *
*----------------------------------------------------------------------*
selection-screen begin of block 1 with frame title text-001.
parameters : s_werks like marc-werks obligatory default '8101'.
select-options : s_matnr for mara-matnr.
select-options : s_mat_d for mara-matnr.
select-options : ms_werks for marc-werks no-display.
selection-screen end of block 1.
selection-screen begin of block 2 with frame title text-002.
parameters: p_detail radiobutton group gp1 default 'X',
          p_summ radiobutton group gp1.
selection-screen end of block 2.
selection-screen begin of block 3 with frame title text-003.
parameters: p_txt as checkbox  .
parameters: p_file like rlgrap-filename default 'C:\temp' .
parameters: p_test as checkbox default 'X' .
selection-screen end of block 3.


at selection-screen on value-request for  p_file.
  perform f4_filename using p_file .


*&---------------------------------------------------------------------*
* start of process
*&---------------------------------------------------------------------*
start-of-selection.
  if s_mat_d[] is not initial and s_matnr[] is initial.
    perform get_component_data.
  else.
    perform get_fg_material.
    if it_fg[] is initial.
      message i003(zmm).
      exit.
    endif.
    perform get_bom_data.
  endif.
  if it_sub_matnr[] is initial.
    message i003(zmm).
    exit.
  endif.
  perform create_structure_w.
  perform create_dynamic_table_w.
  if p_txt = 'X'.
    perform add_header.
  endif.
  perform get_mrp_data.

  if p_txt = 'X'.
    perform get_file using 'ZPPR017A' p_file p_test '.txt' changing  gv_file.
    if p_test = 'X'.
      perform download_local tables it_down using gv_file.
    else.
      perform download_server tables  it_down using  gv_file.
    endif.
  else.
    perform dispaly_data.
  endif.

end-of-selection.
*&---------------------------------------------------------------------*
*&      Form  f4_filename
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_FILENAME text
*----------------------------------------------------------------------*
form f4_filename  using    p_filename.
  call function 'F4_FILENAME'
*    EXPORTING
*     PROGRAM_NAME        = SYST-CPROG
*     DYNPRO_NUMBER       = SYST-DYNNR
*     FIELD_NAME          =
    importing
      file_name           = p_filename.
endform.                    " F4_FILENAME
*&---------------------------------------------------------------------*
*&      Form  GET_FG_MATERIAL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form get_fg_material .
  select werks matnr  into table it_fg
    from marc
    where matnr in s_matnr
      and werks = s_werks.
endform.                    " GET_FG_MATERIAL
*&---------------------------------------------------------------------*
*&      Form  GET_BOM_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form get_bom_data .
  data: begin of it_stpo occurs 0 .
          include structure stpox.
  data: end of  it_stpo.
  data: wa_stpo like it_stpo occurs 0 with header line.
  data: begin of it_matcat occurs 0 .
          include structure cscmat.
  data: end of it_matcat.
  loop at it_fg.
    call function 'CS_BOM_EXPL_MAT_V2'
      exporting
        capid                 = 'PP01'
        datuv                 = sy-datum
        emeng                 = 1
        mtnrv                 = it_fg-matnr
        mehrs                 = 'X'
        mmory                 = 'X'
        werks                 = it_fg-werks
        aumgb                 = 'X'
      tables
        stb                   = it_stpo
        matcat                = it_matcat
      exceptions
        material_not_found    = 4
        no_plant_data         = 8
        no_bom_found          = 12
        no_suitable_bom_found = 16
        alt_not_found         = 24
        missing_authorization = 28
        conversion_error      = 36.
    if sy-subrc eq 0 .
      if it_stpo[] is not initial.
        loop at it_stpo.
          check it_stpo-postp = 'L'.
          check it_stpo-idnrk in s_mat_d[] .
          it_sub_matnr-matnr = it_stpo-idnrk.
          it_sub_matnr-werks = it_stpo-werks.
          collect it_sub_matnr.
          clear:it_sub_matnr.
        endloop.
      endif.
    endif.
    clear:it_stpo,it_stpo[],it_matcat,it_matcat[].
  endloop.
endform.                    " GET_BOM_DATA
*&---------------------------------------------------------------------*
*&      Form  CREATE_STRUCTURE_W
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form create_structure_w .
  data: l_fname_i type i,
        l_week(2),
        g_week(3),
        l_year(4),
        lv_str type i,
        l_fname type lvc_fname,
        p_date type sy-datum.
  create_stru 'WERKS'  'C' '4' '' '' .
  create_stru 'FG_MATNR'  'C' '20' '' '' .
  create_stru 'MATNR'  'C' '20' '' '' .
  create_stru 'CLABS'  'P' '20' 'DEC' '3' .
  create_stru 'MENGE_P'  'P' '20' 'DEC' '3' .
  create_stru 'MENGE'  'P' '20' 'DEC' '3' .
  create_stru 'MFRPN'  'C' '40' '' '' .
  create_stru 'MFRNR'  'C' '10' '' '' .
  create_stru 'NAME1'   'C' '20' '' '' .
  create_stru 'PAST_DUE'  'P' '20' 'DEC' '3' .

  p_date = sy-datum.
  perform get_week using p_date   changing  lv_week_f.
  perform get_first_date_by_week using lv_week_f changing lv_first.
  l_fname_i = lv_week_f.
  l_week = lv_week_f+4(2).
  l_year = lv_week_f+0(4).

  do 52 times.
    lv_str  = strlen( l_week ).
    if lv_str = 1.
      concatenate '0' l_week into g_week.
    else.
      g_week = l_week .
    endif.
    concatenate l_year g_week into lv_week_t  .
    l_fname = l_fname_i.
    condense l_fname.
    it_field-index = it_field-index + 1.
    it_field-fieldname = l_fname.
    concatenate 'W' l_fname into it_field-fielddesc .
    collect it_field.
    create_stru l_fname  'P' '20' 'DEC' '3' .
    l_week = l_week + 1.
    l_fname_i = l_fname_i + 1.
    if l_week = 53.
      l_year = l_year + 1.
      l_week = '01'.
      concatenate l_year l_week into l_fname.
      l_fname_i = l_fname.
    endif.
  enddo.
  perform get_first_date_by_week using  lv_week_t  changing lv_last.
  lv_last = lv_last + 6.

  create_stru 'TOTAL'  'P' '20' 'DEC' '3' .

endform.                    " CREATE_STRUCTURE_W
*&---------------------------------------------------------------------*
*&      Form  create_dynamic_table_w
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form create_dynamic_table_w .
  call method cl_alv_table_create=>create_dynamic_table
    exporting
      it_fieldcatalog = it_structure
    importing
      ep_table        = dy_table.

  assign dy_table->* to <dyn_table>.    " 用表类型指针 <dyn_table> 指向 数据对象的内容.
  create data dy_line like line of <dyn_table>.
  assign dy_line->* to <dyn_wa>.
endform.                    " CREATE_DYNAMIC_TABLE_W
*&---------------------------------------------------------------------*
*&      Form  GET_MRP_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form get_mrp_data .
  data: it_mrp_items like bapi_mrp_items occurs 0 with header line ,
        lv_edelnr like  mdps-del12 ,
        lv_total type  menge_d.
  data: it_mdrq like mdrq occurs 0 with header line.
  data: begin of it_menge occurs 0,
        werks like marc-werks,
        matnr like mara-matnr,
        weeks   type kweek,
        menge   like ekpo-menge,  "On Order Qty
        end of it_menge.
  data:lv_strmatnr type string,
     lv_week type kweek,
     lv_week_c type c length 6.
  data: begin of it_mara occurs 0,
        matnr like mara-matnr,
        mfrnr like mara-mfrnr,
        mfrpn like mara-mfrpn,
        end of it_mara.

  data:begin of it_lifnr occurs 0,
        matnr   like mara-matnr,
        werks   like marc-werks,
        lifnr  like lfa1-lifnr,
        name1  like lfa1-name1,
      end of it_lifnr.

  loop at it_sub_matnr.
    clear: itab.
    move-corresponding it_sub_matnr to itab.

    call function 'BAPI_MATERIAL_MRP_LIST'
      exporting
        material         = it_sub_matnr-matnr
        plant            = it_sub_matnr-werks
        get_item_details = 'X'
        get_ind_lines    = ' '
      tables
        mrp_items        = it_mrp_items.
    if it_mrp_items[] is initial.
      continue.
    endif.
    delete it_mrp_items where avail_date > lv_last "
                        or ( mrp_element_ind ne 'AR'
                        and mrp_element_ind ne 'BB'
                        and mrp_element_ind ne 'PP'
                        and mrp_element_ind ne 'SB'
                        and mrp_element_ind ne 'WB'
                        and mrp_element_ind ne 'PB'
                        and mrp_element_ind ne 'BE'
                        and mrp_element_ind ne 'LA') .
    loop at it_mrp_items where  rec_reqd_qty ne 0  .
      if ( it_mrp_items-mrp_element_ind = 'WB' or it_mrp_items-mrp_element_ind = 'PB' ) and  it_mrp_items-rec_reqd_qty > 0 .
        itab-clabs = it_mrp_items-rec_reqd_qty .
      elseif   ( it_mrp_items-mrp_element_ind = 'BE' or it_mrp_items-mrp_element_ind = 'LA' ) and  it_mrp_items-rec_reqd_qty > 0 .
        itab-menge = it_mrp_items-rec_reqd_qty .
      elseif   ( it_mrp_items-mrp_element_ind = 'AR' or it_mrp_items-mrp_element_ind = 'BB' ).
        itab-menge_p =  abs( it_mrp_items-rec_reqd_qty ).
      endif.
    endloop.

    delete it_mrp_items where avail_date > lv_last "
                        or ( mrp_element_ind ne 'PP'
                        and mrp_element_ind ne 'SB')
                        or rec_reqd_qty eq 0 .
    read table it_mrp_items index 1.
    if sy-subrc ne 0.
      if itab-clabs = 0 and itab-menge = 0 and itab-menge_p = 0.
        continue.
      endif.
      if p_summ = 'X'.
        if itab-fg_matnr is not initial.
          itab-fg_matnr = itab-fg_matnr+0(8).
        endif.
        concatenate  itab-fg_matnr itab-matnr into itab-fg_mat.
        collect:itab.
      else.
        concatenate  itab-fg_matnr itab-matnr into itab-fg_mat.
        append:itab.
      endif.
    else.
      loop at it_mrp_items.
        clear: lv_week.
        perform get_week using it_mrp_items-avail_date  changing  lv_week .
        if lv_week < lv_week_f.
          lv_week = '200001'.
        endif.
        lv_edelnr = it_mrp_items-mrp_no.

        call function 'MD_PEGGING_NODIALOG'
          exporting
            edelet                = it_mrp_items-mrp_item
            edelkz                = it_mrp_items-mrp_element_ind
            edelnr                = lv_edelnr
            edelps                = it_mrp_items-mrp_pos
            eplscn                = 000
            ematnr                = it_sub_matnr-matnr
            ewerks                = it_sub_matnr-werks
            eplwrk                = ' '
            eplaab                = it_mrp_items-plngsegmt
            eplanr                = it_mrp_items-plngsegno
            eberid                = ' '
            edat00                = it_mrp_items-avail_date
          tables
*           EMDPSX                =
            imdrqx                = it_mdrq
          exceptions
            error                 = 1
            no_requirements_found = 2
            order_not_found       = 3
            others                = 4.
        if sy-subrc eq 0.
          if it_mdrq[] is not  initial.
            sort it_mdrq by  werks matnr.
            loop at it_mdrq.
              it_menge-werks = it_mdrq-werks.
              it_menge-matnr = it_mdrq-matnr.
              it_menge-weeks = lv_week .
              it_menge-menge = it_mdrq-mng02.
              collect it_menge.
            endloop.
          endif.
        else.
          it_menge-werks = it_sub_matnr-werks.
          it_menge-weeks = lv_week .
          it_menge-menge = abs( it_mrp_items-rec_reqd_qty ).
          collect it_menge.
        endif.
        clear: it_mdrq,it_mdrq[].
      endloop.
      loop at it_menge.
        itab-menge_pl = it_menge-menge.
        itab-fg_matnr = it_menge-matnr.
        itab-weeks = it_menge-weeks.
        if p_summ = 'X'.
          if itab-fg_matnr is not initial.
            itab-fg_matnr = itab-fg_matnr+0(8).
          endif.
          concatenate  itab-fg_matnr itab-matnr into itab-fg_mat.
          collect:itab.
        else.
          concatenate  itab-fg_matnr itab-matnr into itab-fg_mat.
          append:itab.
        endif.
      endloop.
      clear: it_menge,it_menge[].
    endif.
    clear:it_mrp_items,it_mrp_items[],itab.
  endloop.

  check itab[] is not initial.

  sort it_sub_matnr by werks matnr.
  select matnr mfrnr mfrpn into table it_mara
      from mara
      for all entries in itab
      where matnr = itab-matnr.
  sort it_mara by matnr.

  select  a~matnr a~werks a~lifnr b~name1
    into corresponding fields of table it_lifnr
      from eord as a inner join lfa1 as b on a~lifnr = b~lifnr
      for all entries in itab
      where a~matnr = itab-matnr
        and a~werks = itab-werks
        and a~autet = '1'.
  sort it_lifnr by werks  matnr.


  sort itab by werks fg_matnr fg_mat .
  loop at itab.
    read table it_mara with  key  matnr = itab-matnr binary search.
    if sy-subrc eq 0.
      itab-mfrnr = it_mara-mfrnr.
      itab-mfrpn = it_mara-mfrpn .
    endif.

    "vendor vendor name
    read table it_lifnr with key werks = itab-werks matnr = itab-matnr.
    if sy-subrc eq 0.
      itab-lifnr = it_lifnr-lifnr.
      itab-name1 = it_lifnr-name1.
    endif.
    wa_itab = itab.

    if itab-weeks < lv_week_f.
      assign component 'PAST_DUE' of structure <dyn_wa> to <dyn_field>.
      <dyn_field> = <dyn_field> +  itab-menge_pl .
    else.
      lv_week_c =  itab-weeks .
      assign component lv_week_c of structure <dyn_wa> to <dyn_field>.
      <dyn_field> = <dyn_field> +  itab-menge_pl .
    endif.
    lv_total = lv_total + itab-menge_pl .

    at end of fg_mat.
      assign component 'WERKS' of structure <dyn_wa> to <dyn_field>.
      <dyn_field> =  wa_itab-werks.

      assign component 'FG_MATNR' of structure <dyn_wa> to <dyn_field>.
      <dyn_field> = wa_itab-fg_matnr.

      assign component 'MATNR' of structure <dyn_wa> to <dyn_field>.
      <dyn_field> = wa_itab-matnr.

*    " On hand qty = mmbe Unrestricted use
      assign component 'CLABS' of structure <dyn_wa> to <dyn_field>.
      <dyn_field> = wa_itab-clabs.

*    "PO qty  = mmbe On Order
      assign component 'MENGE' of structure <dyn_wa> to <dyn_field>.
      <dyn_field> = wa_itab-menge_p.

      assign component 'TOTAL' of structure <dyn_wa> to <dyn_field>.
      <dyn_field> =  lv_total.

      assign component 'MFRPN' of structure <dyn_wa> to <dyn_field>.
      <dyn_field> = wa_itab-mfrpn.

      assign component 'MFRNR' of structure <dyn_wa> to <dyn_field>.
      <dyn_field> = wa_itab-mfrnr.

      assign component 'NAME1' of structure <dyn_wa> to <dyn_field>.
      <dyn_field> = wa_itab-name1.

      if p_txt = 'X'.
        loop at it_structure into wa_structure.
          assign component wa_structure-fieldname of structure <dyn_wa> to <dyn_field>.
          if wa_structure-fieldname = 'MATNR' or wa_structure-fieldname = 'FG_MATNR'.
            perform tranfer_material   using <dyn_field> 'X' changing lv_type.
          else.
            lv_type = <dyn_field>.
          endif.
          perform get_string using lv_type changing lv_string.
        endloop.
        it_down-line = lv_string.
        condense it_down .
        append it_down .
      endif.

      append <dyn_wa> to <dyn_table>.
      clear: <dyn_wa>,lv_total,lv_string.
    endat.
    clear:wa_itab.
  endloop.
  free:itab,it_mrp_items,it_menge,it_mara,it_lifnr,it_sub_matnr,it_fg.
endform.                    " GET_MRP_DATA
*&---------------------------------------------------------------------*
*&      Form  DISPALY_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form dispaly_data .
  refresh: fc_hier.
  alv_field  'WERKS' 'Plant' '' '6' 'L' '' '' ''.
  alv_field  'FG_MATNR' 'FG Material' '' '18' 'L' '' 'MARA' 'MATNR'.
  alv_field  'MATNR' 'Material' '' '18' 'L' '' 'MARA' 'MATNR'.
  alv_field  'CLABS' '' 'On Hand Qty' '15' 'R' '' '' ''.
  alv_field  'MENGE_P' '' 'Prod Order Qty' '15' 'R' '' '' ''.
  alv_field  'MENGE' '' 'PO Qty' '15' 'R' '' '' ''.
  alv_field  'MFRPN' '' 'Order No.' '' 'L' '' '' ''.
  alv_field  'MFRNR' '' 'Manufacturer' '' 'L' '' '' ''.
  alv_field  'NAME1' '' 'Vendor Name' '20' 'L' '' '' ''.
  alv_field  'PAST_DUE' '' 'Past due' '15' 'R' '' '' ''.
  loop at it_field.
    alv_field  it_field-fieldname it_field-fielddesc '' '12' 'R' '' '' ''.
  endloop.
  alv_field  'TOTAL' '' 'TOTAL' '15' 'R' '' '' ''.

*---SORT
  alv_sort 'WERKS' '1' 'X' 'X' .
  alv_sort 'FG_MATNR' '2' 'X' 'X' .
  alv_sort 'MATNR' '3' 'X' 'X' .

  perform display_alv tables  fc_hier <dyn_table> sort using 'A'.

endform.                    " DISPALY_DATA
*&---------------------------------------------------------------------*
*&      Form  display_alv
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->FC_HIER    text
*      -->ITAB       text
*      -->P_SAVE     text
*----------------------------------------------------------------------*
form display_alv tables fc_hier itab sort
                  using p_save .
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      it_fieldcat        = fc_hier[]
      i_save             = p_save
      i_callback_program = sy-repid
      it_sort            = sort[]
    tables
      t_outtab           = itab[]
    exceptions
      program_error      = 1
      others             = 2.
endform.                    "display_alv
*&---------------------------------------------------------------------*
*&      Form  get_file
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_FILENAME text
*      -->P_FILE     text
*      -->P_TEST     text
*      -->GV_FILE    text
*----------------------------------------------------------------------*
form get_file using p_filename p_file p_test p_ext
              changing gv_file .
  data: wa_key(30) type c.
  data: lv_i type i.
  data: lv_c(1) type c.
  data: wa_date(8) type c.
  data: wa_time like sy-uzeit.
  data: lv_char type c.
  wa_date = sy-datum.
  wa_time =  sy-uzeit.
  concatenate p_filename wa_date wa_time  into wa_key.
  concatenate wa_key p_ext  into wa_key. "'.txt'

  lv_i = strlen( p_file ).
  lv_i = lv_i - 1 .
  if lv_i > 1.
    lv_c = p_file+lv_i(1).
  endif.
  if p_test = 'X'.
    lv_char = '\' .
  else.
    lv_char = '/' .
  endif.
  if lv_c eq lv_char.
    concatenate p_file wa_key into gv_file.
  else.
    concatenate p_file lv_char wa_key into gv_file.
  endif.
endform.  "  get_file
*&---------------------------------------------------------------------*
*&      Form  download_local
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->GV_FILE    text
*----------------------------------------------------------------------*
form download_local  tables it_down
                     using  gv_file .
  data: lv_filename type string.
  lv_filename = gv_file.

  call function 'GUI_DOWNLOAD'
    exporting
      filename                = lv_filename
      filetype                = 'ASC'
      write_field_separator   = 'X'
    tables
      data_tab                = it_down
    exceptions
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception  = 20
      control_flush_error     = 21
      others                  = 22.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
          with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
endform.                    " DOWNLOAD_LOCAL

*&---------------------------------------------------------------------*
*&      Form  get_first_date_by_week
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_WEEK     text
*      -->P_DATE     text
*----------------------------------------------------------------------*
form get_first_date_by_week using p_week
                            changing p_date .
  call function 'HRIQ_WEEK_GET_FIRST_DAY'
    exporting
      week         = p_week
    importing
      date         = p_date
    exceptions
      week_invalid = 1
      others       = 2.
endform.                    "get_first_date_by_week
*&---------------------------------------------------------------------*
*&      Form  get_week
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_DATE     text
*      -->P_WEEK     text
*----------------------------------------------------------------------*
form get_week using p_date
              changing p_week.
  call function 'GET_WEEK_INFO_BASED_ON_DATE'
    exporting
      date   = p_date
    importing
      week   = p_week
*     monday =
*     sunday =
    .
endform.                    "get_week
*&---------------------------------------------------------------------*
*&      Form  GET_STRING
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LV_TYPE  text
*      <--P_LV_STRING  text
*----------------------------------------------------------------------*
form get_string  using    p_type type lv_types
                 changing p_string.
  shift p_type right deleting trailing space.
  shift p_type left deleting leading space.
  if p_string is initial.
    p_string = p_type.
  else.
    concatenate p_string
           p_type
          into p_string separated by cl_abap_char_utilities=>horizontal_tab.
  endif.
  condense p_string.
endform.                    " GET_STRING
*&---------------------------------------------------------------------*
*&      Form  tranfer_material
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_OLD      text
*      -->P_OUTPUT   text
*      -->P_NEW      text
*----------------------------------------------------------------------*
form  tranfer_material using    p_old
                                p_output
                       changing p_new  .
  if p_output = 'X'.
    call function 'CONVERSION_EXIT_MATN1_OUTPUT'
      exporting
        input  = p_old
      importing
        output = p_new.
  else.
    data:lv_input type c length 50.
    lv_input = p_old.
    translate   lv_input to upper case.
    call function 'CONVERSION_EXIT_MATN1_INPUT'
      exporting
        input        = lv_input
      importing
        output       = p_new
      exceptions
        length_error = 1
        others       = 2.
    if sy-subrc <> 0.
    endif.
  endif.
endform.                    "tranfer_material
*&---------------------------------------------------------------------*
*&      Form  download_server
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->IT_DOWN    text
*      -->GV_FILE    text
*----------------------------------------------------------------------*
form download_server tables lt_down
                    using  gv_file .
  data: begin of it_down occurs 0,
        line type c length 10000,
  end of it_down .
  it_down[] = lt_down[].
  open dataset gv_file for output in text mode encoding default.
  loop at it_down.
    transfer it_down-line to gv_file.
  endloop.
  close dataset gv_file.
endform.                    " DOWNLOAD_SERVER
*&---------------------------------------------------------------------*
*&      Form  ADD_HEADER
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form add_header .
  perform get_string using 'Plant' changing lv_string.
  perform get_string using 'FG Material' changing lv_string.
  perform get_string using 'Material' changing lv_string.
  perform get_string using 'On Hand Qty' changing lv_string.
  perform get_string using 'Prod Order Qty' changing lv_string.
  perform get_string using 'On Order Qty' changing lv_string.
  perform get_string using 'Order No' changing lv_string.
  perform get_string using 'Manufacturer' changing lv_string.
  perform get_string using 'Vendor Name' changing lv_string.
  perform get_string using 'Past due' changing lv_string.
  loop at it_field.
    lv_type = it_field-fielddesc .
    perform get_string using lv_type  changing lv_string.
  endloop.
  perform get_string using 'Total' changing lv_string.

  it_down-line = lv_string.
  condense it_down .
  append it_down .
  clear:it_down ,lv_string.
endform.                    " ADD_HEADER
*&---------------------------------------------------------------------*
*&      Form  GET_COMPONENT_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form get_component_data .
  select  werks matnr
      into table it_sub_matnr
    from marc
    where matnr  in s_mat_d
      and werks  = s_werks.
endform.                    " GET_COMPONENT_DATA