langtexte beim Fertigungsauftrag

Code: Alles auswählen.

select single objnr
                into *aufk-objnr
                from *aufk
                where aufnr = faufnr.
refresh lines.
concatenate sy-mandt *aufk-objnr+2(12) into xtdname.
  call function 'READ_TEXT'
    exporting
*    CLIENT                        = SY-MANDT
      id                            = 'KOPF'
      language                      = sy-langu
      name                          = xtdname
      object                        = 'AUFK'
*    ARCHIVE_HANDLE                = 0
*    LOCAL_CAT                     = ' '
*  IMPORTING
*    HEADER                        =
    tables
      lines                         = lines
   

Code: Alles auswählen.

DATA: lt_fertigung_hinw_text TYPE STANDARD TABLE OF tline,
       lv_kdauf_kdpos         TYPE tdobname.

 LOOP AT gt_vinfo ASSIGNING FIELD-SYMBOL(<lfs_vinfo>).
   CLEAR: lt_fertigung_hinw_text, lv_kdauf_kdpos.

   IF <lfs_vinfo>-kdauf IS NOT INITIAL AND
      <lfs_vinfo>-kdpos IS NOT INITIAL.

     CONCATENATE <lfs_vinfo>-kdauf <lfs_vinfo>-kdpos INTO lv_kdauf_kdpos.

     CALL FUNCTION 'READ_TEXT'
       EXPORTING
         client   = sy-mandt
         id       = '0006'   " Production Note
         language = sy-langu
         name     = lv_kdauf_kdpos
         object   = 'VBBP'   " Positionstext (VBBK : Kopftext)
       TABLES
         lines    = lt_fertigung_hinw_text
       EXCEPTIONS
         OTHERS   = 99.

     IF sy-subrc <> 0.
       " unbekannter Fehler beim auslesen
       CONTINUE.
     ENDIF.

     IF lines( lt_fertigung_hinw_text ) <> 0.
       " FAUF hat F-Hinweis
       <lfs_vinfo>-zfertigungs_hinweis = abap_true. " 'X'
     ENDIF.
   ENDIF.
 ENDLOOP.