Author: Christian Gradolf
Last saved by: Michael Kahl

ProNovia Produkte Korrekturanleitung
Knowledge Base ID / Version | CFM-208 / V8.0.3
Ausgabe Korrekturanleitung | I / MK / 13.12.2022
Farblegende Korrekturen | INSERT | REPLACE THIS | REPLACE WITH | DELETE

Include | /PRONOVIA/LPRMOBDF09
Form | _FILL_DP_INFO

*&---------------------------------------------------------------------*
*& Form _fill_dp_info
*&---------------------------------------------------------------------*
* CG/CFM-150/neu
*&---------------------------------------------------------------------*
FORM _fill_dp_info  USING    iv_knftp    TYPE /pronovia/knftp
                    CHANGING ct_work     TYPE tt_work.

  "CG/CFM-150/immer alle DP Stücklistennummern lesen 

 . . .

      MOVE-CORRESPONDING <ls_work> TO ls_dp_str.
      INSERT ls_dp_str INTO TABLE lt_dp_str.

      "und gleich den DP Typ setzen
      <ls_work>-dptyp = <ls_dp_def>-dptyp.
    ENDLOOP.
  ENDLOOP.

>>>START INSERT
  IF lt_dp_str IS NOT INITIAL.                              "MK/CFM-208
>>>END INSERT
    SELECT * INTO CORRESPONDING FIELDS OF TABLE @lt_dp_str
           FROM dost
           FOR ALL ENTRIES IN @lt_dp_str
           WHERE dokar = @lt_dp_str-dokar
             AND doknr = @lt_dp_str-doknr
             AND doktl = @lt_dp_str-doktl
             AND dokvr = @lt_dp_str-dokvr.
>>>START INSERT
  ENDIF.                                                    "MK/CFM-208
>>>END INSERT

  LOOP AT ct_work ASSIGNING <ls_work> WHERE NOT dptyp IS INITIAL.
    LOOP AT lt_dp_str ASSIGNING FIELD-SYMBOL(<ls_dp_str>)
         WHERE dokar = <ls_work>-dokar
           AND doknr = <ls_work>-doknr
           AND doktl = <ls_work>-doktl
           AND dokvr = <ls_work>-dokvr.
      <ls_work>-stlnr = <ls_dp_str>-stlnr.
      EXIT.
    ENDLOOP.
  ENDLOOP.

ENDFORM.

<ENDE>

ProNovia Produkte Korrekturanleitung		Template  Version B.00