Attachment 988 Details for Bug 3078 – Suchhilfe aus Projekt muss noch für den Standard auf PRODH-Stufen angepasst werden

Suchhilfe aus Projekt muss noch für den Standard auf PRODH-Stufen angepasst werden

Suchhilfe_vorschlag.txt (text/plain), 2.43 KB, created by Lenz, Florian on 2013-07-12 11:52:05 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Lenz, Florian

Created: 2013-07-12 11:52:05 CEST

Size: 2.43 KB

patch

obsolete

>FUNCTION z_pscmgib_dcf_sbu_filter.
>*----------------------------------------------------------------------
>Local Interface:
>*  TABLES
>*      SHLP_TAB TYPE  SHLP_DESCT
>*      RECORD_TAB STRUCTURE  SEAHLPRES
>*  CHANGING
>*     VALUE(SHLP) TYPE  SHLP_DESCR
>*     VALUE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL
>*----------------------------------------------------------------------
>&------------------------------------------------------------------------
>
>	Date created  : 27-May-2013                                             *
>	Preconditions : Nil                                                     *
>	References    : Nil                                                     *
>	History:
>-------------------------------------------------------------------------
>	Index|Author | Requestor     | Date   |Description           |Transport *
>-------------------------------------------------------------------------
>	1    |xx     | xx            |20120910|xxx                   |          *
>-------------------------------------------------------------------------
>
>DATA: ls_if     LIKE LINE OF shlp-interface,
>lf_stufe TYPE prodh_stuf.
>DATA:  BEGIN OF ls_rec,
>zzdpc TYPE /gib/dcf_mara-zzdpc,
>zzsbu TYPE /gib/dcf_mara-zzsbu,
>zzspg TYPE /gib/dcf_mara-zzspg,
>zzprf TYPE /gib/dcf_mara-zzprf,
>END OF ls_rec,
>ls_prop TYPE ddshfprop,
>lt_rec LIKE STANDARD TABLE OF ls_rec.
>DATA: lf_prdha TYPE prodh_d.
>CHECK callcontrol-step = SELECT.
>READ TABLE shlp-fieldprop INTO ls_prop WITH KEY shlpoutput = X.
>CASE ls_prop-fieldname.
>WHEN ZZDPC.
>lf_stufe = 2.
>WHEN ZZSBU.  lf_stufe = 3.
>WHEN ZZSPG.  lf_stufe = 4.
>WHEN ZZPRF.  lf_stufe = 5.
>WHEN ZZMPD.  lf_stufe = 6.
>WHEN OTHERS.
>MESSAGE s000(0k) WITH Please specify hierarchy level(t01).  callcontrol-step = EXIT.
>EXIT.
>ENDCASE.
>CALL FUNCTION RV_PRODUKTHIERARCHIE_SHOW
>EXPORTING
>stufe       = lf_stufe
>IMPORTING
>node_picked = lf_prdha.
>IF lf_prdha IS INITIAL.
>callcontrol-step = EXIT.
>EXIT.
>ENDIF.
>ls_rec-zzdpc = ls_rec-zzsbu = ls_rec-zzspg = ls_rec-zzprf = lf_prdha.
>APPEND ls_rec TO lt_rec.
>CALL FUNCTION F4UT_RESULTS_MAP
>TABLES
>      shlp_tab          = shlp_tab
>      record_tab        = record_tab
>      source_tab        = lt_rec
>CHANGING
>      shlp              = shlp
>      callcontrol       = callcontrol
>EXCEPTIONS
>illegal_structure = 1
>OTHERS            = 2.
>
>CHECK sy-subrc IS INITIAL.
>callcontrol-step = RETURN.
>ENDFUNCTION.

Actions: View

Attachments on bug 3078: 988