Klassifizierung auslesen

www.4AP.de - ABAP Syntaxbeispiele:

Beispielcoding: Klassifizierung auslesen: (kopieren erlaubt aber auf eigene Gefahr :-))

	
	
	DATA:
         lt_exp_ausp           TYPE TABLE OF ausp,
         ls_exp_ausp           TYPE ausp,
         lv_class              TYPE klah-class,
         lv_object             LIKE ausp-objek,
         lv_atinn              LIKE ausp-atinn,
         lv_bezeichnung        TYPE atwrt,
         lv_achstyp            TYPE atwrt,
         lv_bremse             TYPE atwrt,
         lv_lagerung_bolzentyp TYPE atwrt,
         lv_bemerkung          TYPE atwrt,
         lv_bremszylindergr    TYPE atwrt,
         ls_zpptaachstyp       TYPE zpptaachstyp,
         lv_exit_flag          TYPE xflag,
	  help_cabn_atinn       TYPE cabn-atinn.         
 
	
	* Sachmerkmale
 SELECT-OPTIONS:
 so_bezei FOR help_cabn_atinn NO INTERVALS MATCHCODE OBJECT merk.
 
	
	* Klasse auslesen
   SELECT klah~class FROM kssk
     INNER JOIN klah ON kssk~clint = klah~clint
     INTO lv_class
     UP TO 1 ROWS
    WHERE kssk~objek = p_matnr
      AND kssk~mafid = 'O'
      AND kssk~klart = '001'
      AND kssk~adzhl = ''
 
	
	* Lesen des Sachmerkmales BEZEICHNUNG
   LOOP AT so_bezei.
     CALL FUNCTION 'CLFM_GET_AUSP_FROM_BUFFER'
       EXPORTING
         object                = lv_object
         classytpe             = '001'
         key_date              = sy-datum
 *     PTABLE                = PTABLE
 *     OBJECT_IS_CUOBJ       = ' '
 *     MAFID                 = 'O'
         atinn                 = so_bezei-low
 *     I_NO_DB_SELECT        = ' '
 *     I_WITH_DEL_AUSP       = ' '
       TABLES
         exp_ausp              = lt_exp_ausp.
     CLEAR: ls_exp_ausp.
     READ TABLE lt_exp_ausp INTO ls_exp_ausp INDEX 1.
     lv_bezeichnung = ls_exp_ausp-atwrt.
     IF NOT lv_bezeichnung IS INITIAL.
       EXIT.
     ENDIF. " NOT lv_bezeichnung IS INITIAL
   ENDLOOP. " AT so_bezei
  



***************
*             *
*  T       T  *
*      N      *
*             *
*    `---´    *
*             *
***************