SAP 凭证项目文本 增强 demo2

SAP 凭证项目文本 增强 demo2
增强点 AC_DOCUMENT
METHOD if_ex_ac_document~change_initial.
DATA: ls_item TYPE accit,
ls_exitem TYPE accit_sub,
lv_sgtxt TYPE bseg-sgtxt,
lv_bktxt TYPE bkpf-bktxt,
lv_zuonr TYPE bseg-zuonr,
lv_blart TYPE bkpf-blart,
lv_zprono TYPE vbap-zprono,
lv_kunnr TYPE bseg-kunnr,
lv_name TYPE but000-bu_sort1,
lv_lifnr TYPE char6,
lv_ebeln TYPE char12,
lv_aubel TYPE bseg-vbeln.

CLEAR:ls_item,lv_sgtxt,lv_bktxt,lv_blart,lv_kunnr,lv_zuonr.
lv_bktxt = im_document-header-bktxt.
LOOP AT im_document-item INTO ls_item.
  lv_blart = ls_item-blart.
  IF lv_blart = 'Z6'.
    IF im_document-header-bktxt IS INITIAL.
      lv_zuonr = ls_item-zuonr.
    ENDIF.
  ENDIF.
  MOVE-CORRESPONDING ls_item TO ls_exitem.
  IF im_document-header-tcode = 'MIR7' OR im_document-header-tcode = 'MIRO' OR im_document-header-tcode = 'MR8M'.
    IF ls_item-sgtxt IS NOT INITIAL.
      lv_sgtxt = ls_item-sgtxt.
    ELSE.
      SELECT SINGLE vbund INTO lv_lifnr FROM bp001 WHERE  partner = ls_item-lifnr .
      IF lv_lifnr IS NOT INITIAL AND lv_sgtxt IS  INITIAL.
        CLEAR:lv_ebeln,lv_name.
        SELECT SINGLE bu_sort1 INTO lv_name FROM but000 WHERE partner =  ls_item-lifnr.
        READ TABLE im_document-item INTO DATA(ls_item2) WITH KEY ktosl = 'WRX' .
        IF sy-subrc = 0 .
          lv_ebeln = ls_item2-ebeln.
        ENDIF.
        CONCATENATE lv_name lv_ebeln INTO lv_sgtxt SEPARATED BY ''.
        lv_bktxt = lv_sgtxt.
      ENDIF.
      ls_exitem-sgtxt = lv_sgtxt.
    ENDIF.
  ELSEIF im_document-header-tcode = 'VF02' OR im_document-header-tcode = 'VF01' OR im_document-header-tcode = 'VFX3' OR im_document-header-tcode = 'VF04'.
    IF ls_item-kunnr IS NOT INITIAL.
      lv_kunnr = ls_item-kunnr.
    ENDIF.
    IF lv_kunnr IS INITIAL.
      lv_kunnr = ls_item-kunag.
    ENDIF.
    IF ls_item-sgtxt IS INITIAL.
      CLEAR:lv_zprono,lv_name,lv_aubel.

      IF ls_item-vbel2 IS NOT INITIAL.
        SELECT SINGLE zprono INTO lv_zprono FROM vbap WHERE vbeln = ls_item-vbel2 AND posnr = ls_item-posn2.
        SELECT SINGLE bu_sort1 INTO lv_name FROM but000 WHERE partner =  lv_kunnr.
        CONCATENATE lv_name lv_zprono ls_item-vbel2 '确认收入' INTO ls_exitem-sgtxt SEPARATED BY ''.

      ELSEIF ls_item-aubel IS NOT INITIAL.
        SELECT SINGLE zprono INTO lv_zprono FROM vbap WHERE vbeln = ls_item-aubel AND posnr = ls_item-aupos.
        SELECT SINGLE bu_sort1 INTO lv_name FROM but000 WHERE partner =  lv_kunnr.
        CONCATENATE lv_name lv_zprono ls_item-aubel '确认收入' INTO ls_exitem-sgtxt SEPARATED BY ''.
      ELSE.
        lv_aubel = ls_item-ebeln.
        SELECT SINGLE bu_sort1 INTO lv_name FROM but000 WHERE partner =  lv_kunnr.
        CONCATENATE lv_name lv_zprono lv_aubel '确认收入' INTO ls_exitem-sgtxt SEPARATED BY ''.
      ENDIF.
    ELSE.
      ls_exitem-sgtxt =  ls_item-sgtxt.
    ENDIF.
  ELSEIF im_document-header-tcode = 'VL02N' OR im_document-header-tcode = 'VL09'.
    IF ls_item-sgtxt IS INITIAL.
      CLEAR:lv_zprono,lv_name.
      IF ls_item-vbel2 IS NOT INITIAL.
        SELECT SINGLE zprono INTO lv_zprono FROM vbap WHERE vbeln = ls_item-vbel2 AND posnr = ls_item-posn2.
        SELECT SINGLE bu_sort1 INTO lv_name FROM but000 WHERE partner =  ls_item-kunnr.

•        CONCATENATE lv_name lv_zprono ls_item-vbel2 '结转成本' INTO ls_exitem-sgtxt SEPARATED BY ''.
        SELECT SINGLE auart INTO @DATA(lv_auart) FROM vbak WHERE vbeln EQ @ls_item-vbel2.
        IF sy-subrc = 0.
          IF lv_auart = 'ZRE2' OR lv_auart = 'ZCCR'.
            IF im_document-header-tcode = 'VL02N'.
              CONCATENATE lv_name lv_zprono ls_item-vbel2 '退货冲销成本' INTO ls_exitem-sgtxt SEPARATED BY ''.
            ELSE.
              CONCATENATE lv_name lv_zprono ls_item-vbel2 '退货冲销成本-冲销' INTO ls_exitem-sgtxt SEPARATED BY ''.
            ENDIF.
          ELSEIF lv_auart = 'ZFP'.
            IF im_document-header-tcode = 'VL02N'.
              CONCATENATE lv_name lv_zprono ls_item-vbel2 '结转费用' INTO ls_exitem-sgtxt SEPARATED BY ''.
            ELSE.
              CONCATENATE lv_name lv_zprono ls_item-vbel2 '结转费用-冲销' INTO ls_exitem-sgtxt SEPARATED BY ''.
            ENDIF.
          ELSE.
            IF im_document-header-tcode = 'VL02N'.
              CONCATENATE lv_name lv_zprono ls_item-vbel2 '结转成本' INTO ls_exitem-sgtxt SEPARATED BY ''.
            ELSE.
              CONCATENATE lv_name lv_zprono ls_item-vbel2 '结转成本-冲销' INTO ls_exitem-sgtxt SEPARATED BY ''.
            ENDIF.
          ENDIF.
        ELSE.
          IF im_document-header-tcode = 'VL02N'.
            CONCATENATE lv_name lv_zprono ls_item-vbel2 '结转成本' INTO ls_exitem-sgtxt SEPARATED BY ''.
          ELSE.
            CONCATENATE lv_name lv_zprono ls_item-vbel2 '结转成本-冲销' INTO ls_exitem-sgtxt SEPARATED BY ''.
          ENDIF.
        ENDIF.
      ENDIF.
    ELSE.
      ls_exitem-sgtxt =  ls_item-sgtxt.
    ENDIF.
  ENDIF.
  "  暂估科目 不带成本中心和订单
  IF ls_item-hkont = '2202010300'.
    ls_exitem-kostl = ''.
    ls_exitem-aufnr = '' .
  ENDIF.
  APPEND ls_exitem TO ex_document-item.
  

  ENDLOOP.
  IF lv_blart = ‘Z6’ AND ( im_document-header-tcode = ‘KO88’ OR im_document-header-tcode = ‘KO8G’ ). " 拆解工单抬头文本
  CONCATENATE ‘结算’ lv_zuonr ‘拆解费用’ INTO lv_bktxt.
  ex_document-header-bktxt = lv_bktxt.
  ELSEIF im_document-header-tcode = ‘VF02’ OR im_document-header-tcode = ‘VF01’ OR im_document-header-tcode = ‘VFX3’.
  IF im_document-header-bktxt IS INITIAL.
  ex_document-header-bktxt = ls_exitem-sgtxt.
  ENDIF.
  ELSEIF im_document-header-tcode = ‘VL02N’ OR im_document-header-tcode = ‘VL09’.
  ex_document-header-bktxt = ls_exitem-sgtxt.
  ELSE.
  ex_document-header-bktxt = lv_bktxt.
  ENDIF.
  ENDMETHOD.