批次更新BAPI_OBJCL_CHANGE详解编程语言

FORM frm_edit_batch  TABLES pt_field STRUCTURE dfies 
                       USING ps_batch TYPE ty_batch 
                    CHANGING ps_rturn TYPE bapiret2. 
 
  DATA : lv_key        TYPE            bapi1003_key-object, 
         lv_table      TYPE            bapi1003_key-objecttable VALUE 'MCH1', 
         lv_class      TYPE            bapi1003_key-classnum VALUE 'Z_CLASS_BATCH', 
         lv_class_type TYPE            bapi1003_key-classtype VALUE  '023', 
         lv_status     TYPE            bapi1003_key-status, 
*--------------------TUS-CHARG-BEGIN---------------------------------* 
         lt_alloc_curr TYPE TABLE OF   zbapi1003_alloc_values_curr, 
         lt_alloc_num     TYPE TABLE OF   zbapi1003_alloc_values_num, 
         lt_alloc_char TYPE TABLE OF      zbapi1003_alloc_values_char, 
*--------------------TUS-CHARG-END-----------------------------------* 
         lt_return     TYPE TABLE OF   bapiret2, 
         ls_return     TYPE            bapiret2. 
  DATA:ls_field      TYPE dfies, 
       lv_field(100) TYPE c. 
 
*--------------------TUS-CHARG-BEGIN---------------------------------* 
  FIELD-SYMBOLS: 
    <fs_s_alloc_curr> TYPE zbapi1003_alloc_values_curr, 
    <fs_s_alloc_char> TYPE zbapi1003_alloc_values_char, 
    <fs_s_alloc_num>  TYPE zbapi1003_alloc_values_num, 
    <fs_value>. 
*--------------------TUS-CHARG-END-----------------------------------* 
  REFRESH:lt_alloc_curr,lt_return,lt_alloc_num,lt_alloc_char. 
  CLEAR:lv_key,lv_status,ls_return. 
 
  lv_key+0(18)  = ps_batch-matnr. 
  lv_key+18(10) = ps_batch-charg. 
*--------------------TUS-CHARG-BEGIN---------------------------------* 
  CALL FUNCTION 'BAPI_OBJCL_GETDETAIL' 
    EXPORTING 
      objectkey       = lv_key 
      objecttable     = lv_table 
      classnum        = lv_class 
      classtype       = lv_class_type 
      keydate         = sy-datum 
      language        = sy-langu 
    IMPORTING 
      status          = lv_status 
    TABLES 
      allocvaluesnum  = lt_alloc_num 
      allocvalueschar = lt_alloc_char 
      allocvaluescurr = lt_alloc_curr 
      return          = lt_return. 
*--------------------TUS-CHARG-END-----------------------------------* 
  LOOP AT pt_field INTO ls_field. 
    CLEAR lv_field. 
    CONCATENATE 'Z_' ls_field-fieldname INTO lv_field. 
 
    ASSIGN COMPONENT ls_field-fieldname OF STRUCTURE ps_batch TO <fs_value>. 
    IF sy-subrc EQ 0. 
      CASE ls_field-datatype. 
        WHEN 'CHAR'. 
          READ TABLE lt_alloc_char ASSIGNING <fs_s_alloc_char> WITH KEY charact = lv_field. 
          IF sy-subrc = 0. 
            IF <fs_value> IS NOT INITIAL. 
              <fs_s_alloc_char>-charact       = lv_field. 
              <fs_s_alloc_char>-value_char    = <fs_value>. 
              <fs_s_alloc_char>-value_neutral = <fs_value>. 
            ENDIF. 
          ELSE. 
            APPEND INITIAL LINE TO lt_alloc_char ASSIGNING <fs_s_alloc_char>. 
            <fs_s_alloc_char>-charact       = lv_field. 
            <fs_s_alloc_char>-value_char    = <fs_value>. 
            <fs_s_alloc_char>-value_neutral = <fs_value>. 
          ENDIF. 
          IF <fs_value> EQ '999'. 
            CLEAR : <fs_s_alloc_char>-value_char,<fs_s_alloc_char>-value_neutral. 
          ENDIF. 
 
        WHEN 'DEC' OR 'QUAN'. 
          READ TABLE lt_alloc_num ASSIGNING <fs_s_alloc_num> WITH KEY charact = lv_field. 
          IF sy-subrc = 0 . 
            IF <fs_value> IS NOT INITIAL. 
              <fs_s_alloc_num>-charact    = lv_field. 
              <fs_s_alloc_num>-value_from = <fs_value>. 
              <fs_s_alloc_num>-value_to   = <fs_value>. 
            ENDIF. 
          ELSE. 
            APPEND INITIAL LINE TO lt_alloc_num ASSIGNING <fs_s_alloc_num>. 
            <fs_s_alloc_num>-charact    = lv_field. 
            <fs_s_alloc_num>-value_from = <fs_value>. 
            <fs_s_alloc_num>-value_to   = <fs_value>. 
          ENDIF. 
          IF <fs_value> EQ 999 . 
            CLEAR: <fs_s_alloc_num>-value_from,<fs_s_alloc_num>-value_to. 
          ENDIF. 
 
        WHEN 'CURR'. 
          READ TABLE lt_alloc_curr ASSIGNING <fs_s_alloc_curr> WITH KEY charact = lv_field. 
          IF sy-subrc = 0. 
            IF <fs_value> IS NOT INITIAL. 
              <fs_s_alloc_curr>-charact           = lv_field. 
              <fs_s_alloc_curr>-value_from        = <fs_value>. 
              <fs_s_alloc_curr>-currency_from     = 'CNY'. 
              <fs_s_alloc_curr>-currency_from_iso = 'CNY'. 
            ENDIF. 
          ELSE. 
            APPEND INITIAL LINE TO lt_alloc_curr ASSIGNING <fs_s_alloc_curr>. 
            <fs_s_alloc_curr>-charact           = lv_field. 
            <fs_s_alloc_curr>-value_from        = <fs_value>. 
            <fs_s_alloc_curr>-currency_from     = 'CNY'. 
            <fs_s_alloc_curr>-currency_from_iso = 'CNY'. 
          ENDIF. 
          IF <fs_value> EQ 999 . 
            CLEAR <fs_s_alloc_curr>-value_from . 
          ENDIF. 
        WHEN OTHERS. 
      ENDCASE. 
    ENDIF. 
  ENDLOOP. 
 
*--------------------TUS-CHARG-BEGIN---------------------------------* 
  CALL FUNCTION 'BAPI_OBJCL_CHANGE' 
    EXPORTING 
      objectkey          = lv_key 
      objecttable        = lv_table 
      classnum           = lv_class 
      classtype          = lv_class_type 
      status             = '1' 
      keydate            = sy-datum 
    IMPORTING 
      classif_status     = lv_status 
    TABLES 
      allocvaluesnumnew  = lt_alloc_num 
      allocvaluescharnew = lt_alloc_char 
      allocvaluescurrnew = lt_alloc_curr 
      return             = lt_return. 
*--------------------TUS-CHARG-END-----------------------------------* 
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' 
    EXPORTING 
      wait = 'X'. 
 
  LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A'. 
    ps_rturn = ls_return. 
    EXIT. 
  ENDLOOP. 
 
ENDFORM.                    " FRM_EDIT_BATCH