点击(此处)折叠或打开
- *获取批次的属性
- 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.