MIRO增强凭证拆分增强点

Function：FI_DOCUMENT_POST
Form：FI_DOCUMENT_PREPARE

隐士增强

SE38->LFACIF5D

  PERFORM fill_localization_fields.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form FI_DOCUMENT_PREPARE, End                                                                                                                     A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZEN_MIRO_SPLIT_ENHANCEMENT.    "active version
  BREAK yangtao.
  DATA:lv_active.
  CALL FUNCTION 'ZFMBS_CHECK_ENHNMT'
    EXPORTING
      i_program = 'LFACIF5D'
      i_method  = 'ZEN_MIRO_SPLIT_ENHANCEMENT'
      i_form    = 'MIRO'
*     I_BUKRS   =
*     I_WERKS   =
    CHANGING
      active    = lv_active.
  IF lv_active = 'X'.
    IF sy-tcode = 'MIRO' OR sy-tcode = 'MR8M' OR sy-tcode = 'MIR4' OR sy-tcode = 'MIR7'.
      IF line_exists( xbkpf[  bukrs = '1000' ] ) AND
          line_exists( xbkpf[  bukrs = '3000' ] ).
        DELETE xbkpf WHERE bukrs = '1000'.
        DELETE xbseg WHERE bukrs = '1000'.
      ENDIF.
    ENDIF.
  ENDIF.
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.                    "FI_DOCUMENT_PREPARE