CO01,CO07结算规则增强

 增强点：PPCO0007

出口函数EXIT_SAPLCOZV_001

DATA it_objnr TYPE STANDARD TABLE OF ionrb WITH HEADER LINE.
 
DATA it_cobra TYPE STANDARD TABLE OF cobra WITH HEADER LINE.
DATA it_cobrb TYPE STANDARD TABLE OF cobrb WITH HEADER LINE.
*.COBRA-BUFFER (SEE FM KOBS)
TYPES:  BEGIN OF ty_cobra_buf.
          INCLUDE STRUCTURE cobra.
          TYPES:  uflag LIKE dkobr-upd_flag,
        END OF ty_cobra_buf.
*.COBRB-PUFFER MIT ?NDERUNGSFLAG (SEE FM KOBS)
TYPES:  BEGIN OF ty_cobrb_buf.
          INCLUDE STRUCTURE cobrb.
          TYPES:  uflag LIKE dkobr-upd_flag,
        END OF ty_cobrb_buf.
DATA l_mem_cobra TYPE STANDARD TABLE OF ty_cobra_buf WITH HEADER LINE.
DATA l_mem_cobrb TYPE STANDARD TABLE OF ty_cobrb_buf WITH HEADER LINE.
 
CLEAR:l_mem_cobrb,l_mem_cobrb[].
IF sy-tcode  =  'CO01'.
  CHECK header_imp-werks = '5309' AND header_imp-auart = 'ZYF2'.
  it_objnr-objnr = header_imp-objnr.
  APPEND it_objnr.
  CALL FUNCTION 'K_SRULE_EXPORT_IMPORT'
    EXPORTING
      i_mode     = 'EX'
    EXCEPTIONS
      wrong_mode = 1
      OTHERS     = 2.
 
  IMPORT l_mem_cobra l_mem_cobrb FROM MEMORY ID 'K_SRULE'.
 
* 修改 IT_COBRA, IT_COBRB.
 
  l_mem_cobrb-objnr = it_objnr-objnr.
  l_mem_cobrb-lfdnr = 1.
  l_mem_cobrb-perbz = 'GES'."FUL "结算类型  "必