获取批次特性参考

*获取批次的属性
FORM FRM_GET_BATCH_FB.
  DATA:OBTAB TYPE TABELLE,
       KLART TYPE KLASSENART,
       CLASS TYPE KLASSE_D,
       E_OBJEK TYPE CUOBN,
       OBJECTKEY TYPE BAPI1003_KEY-OBJECT,
       OBJELONG TYPE BAPI1003_KEY-OBJECT_LONG.

  DATA:LS_NUM TYPE BAPI1003_ALLOC_VALUES_NUM,
       LT_NUM TYPE TABLE OF BAPI1003_ALLOC_VALUES_NUM,
       LS_CHAR TYPE BAPI1003_ALLOC_VALUES_CHAR,
       LT_CHAR TYPE TABLE OF BAPI1003_ALLOC_VALUES_CHAR,
       LS_CURR TYPE BAPI1003_ALLOC_VALUES_CURR,
       LT_CURR TYPE TABLE OF BAPI1003_ALLOC_VALUES_CURR,
       LS_RET TYPE BAPIRET2,
       LT_RET TYPE TABLE OF BAPIRET2.

  CALL FUNCTION 'VB_BATCH_2_CLASS_OBJECT'
    EXPORTING
      I_MATNR = GS_FB-MATNR
      I_CHARG = GS_FB-CHARG
      I_WERKS = GS_FB-WERKS
    IMPORTING
      E_OBTAB = OBTAB
      E_KLART = KLART
      E_CLASS = CLASS
      E_OBJEK = E_OBJEK.

  OBJECTKEY = E_OBJEK.
  OBJELONG = E_OBJEK.

  CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
    EXPORTING
      OBJECTTABLE = OBTAB
      CLASSNUM = CLASS
      CLASSTYPE = KLART
      OBJECTKEY = OBJECTKEY
      OBJECTKEY_LONG = OBJELONG
    TABLES
      ALLOCVALUESNUM = LT_NUM
      ALLOCVALUESCHAR = LT_CHAR
      ALLOCVALUESCURR = LT_CURR
      RETURN = LT_RET.

  CLEAR:LS_NUM.
  READ TABLE LT_NUM INTO LS_NUM WITH KEY
    CHARACT = 'Z_LENGHT'.
  IF SY-SUBRC EQ 0.
    GS_FB-ZJJCPLTH = LS_NUM-VALUE_FROM.
  ENDIF.

  CLEAR:LS_NUM.
  READ TABLE LT_NUM INTO LS_NUM WITH KEY
    CHARACT = 'Z_WITDH'.
  IF SY-SUBRC EQ 0.
    GS_FB-ZJJCPWTH = LS_NUM-VALUE_FROM.
  ENDIF.

  CLEAR:LS_NUM.
  READ TABLE LT_NUM INTO LS_NUM WITH KEY
    CHARACT = 'Z_HIGHT'.
  IF SY-SUBRC EQ 0.
    GS_FB-ZJJCPSTH = LS_NUM-VALUE_FROM.
  ENDIF.

  CLEAR:LS_CHAR.
  READ TABLE LT_CHAR INTO LS_CHAR WITH KEY
    CHARACT = 'Z_HLH'.
  IF SY-SUBRC EQ 0.
    GS_FB-Z_HLH = LS_CHAR-VALUE_CHAR.
  ENDIF.

  CLEAR:LS_CHAR.
  READ TABLE LT_CHAR INTO LS_CHAR WITH KEY
    CHARACT = 'Z_TH'.
  IF SY-SUBRC EQ 0.
    GS_FB-Z_TH = LS_CHAR-VALUE_CHAR.
  ENDIF.
ENDFORM.