SAP VF03 Enahcement:MV60AF0X_XKOMFK_AUFSETZEN / MV60AF0V_VBRK_BEARBEITEN / MV60AF0X_XKOMFK_ENDE

本文链接：https://blog.youkuaiyun.com/yong325/article/details/8818447

这篇博客介绍了如何在SAP VF03交易中使用增强功能来检查账单日期。首先，MV60AF0X_XKOMFK_AUFSETZEN的增强用于在VF01和VF11事务中设置初始账单日期。接着，MV60AF0V_VBRK_BEARBEITEN的增强调用函数'RV_INVOICE_HEAD_MAINTAIN'进行维护，并进行账单日期的检查。最后，MV60AF0X_XKOMFK_ENDE包含进一步的增强细节。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

MV60AF0X_XKOMFK_AUFSETZEN:

FORM XKOMFK_AUFSETZEN.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form XKOMFK_AUFSETZEN, Start                                                                                                                      A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZCHECKING_BILLING_DATE.    "active version
*
  IF sy-tcode eq 'VF01' OR
     sy-tcode eq 'VF11'.
    IF rv60a-fkdat IS INITIAL.
      RV60A-FKDAT = sy-datum.
    ENDIF.
  ENDIF.
ENDENHANCEMENT.

MV60AF0V_VBRK_BEARBEITEN:

ENHANCEMENT 17  OIC_SAPMV60A.    "active version
      CALL FUNCTION 'RV_INVOICE_HEAD_MAINTAIN'
        EXPORTING
          VBRK_I  = VBRK
          FCODE_I = DA_FCODE
        TABLES
          XKOMFK  = XKOMFK
          XTHEAD  = XTHEAD
          XVBFS   = XVBFS
          XVBSS   = XVBSS
          XVBRK   = XVBRK
          XVBRP   = XVBRP
          XVBPA   = XVBPA
          XKOMV   = XKOMV
          XOICQ7  = XOICQ7                       "SO3K128097 AWH
          XOICQ8  = XOICQ8                       "SO3K128097 AWH
          XOICQ9  = XOICQ9                       "SO3K128097 AWH
          XOIUQ9  = XOIUQ9.                      "SO5K000421 AWH
ENDENHANCEMENT.
ENHANCEMENT 3  ZCHECKING_BILLING_DATE.    "active version
  IF sy-ucomm ne 'FKFR'.
    DATA: end_date LIKE sy-datum,
          first_date LIKE sy-datum,
          billing_date LIKE sy-datum.
    billing_date = vbrk-fkdat.
    CONCATENATE sy-datum(6) '01' INTO first_date.
      CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
        EXPORTING
          day_in                  = sy-datum
        IMPORTING
          LAST_DAY_OF_MONTH       = end_date
        EXCEPTIONS
          DAY_IN_NO_DATE          = 1
          OTHERS                  = 2
                .
      IF sy-subrc eq 0.
        IF billing_date > end_date or billing_date < first_date.
          MESSAGE 'The billing date should be same month' TYPE 'E'.
        ENDIF.
      ENDIF.
      endif.
        CALL FUNCTION 'RV_INVOICE_HEAD_MAINTAIN'
          EXPORTING
            VBRK_I  = VBRK
            FCODE_I = DA_FCODE
          TABLES
            XKOMFK  = XKOMFK
            XTHEAD  = XTHEAD
            XVBFS   = XVBFS
            XVBSS   = XVBSS
            XVBRK   = XVBRK
            XVBRP   = XVBRP
            XVBPA   = XVBPA
            XKOMV   = XKOMV.

ENDENHANCEMENT.
*$*$-End:   VBRK_BEARBEITEN_02------------------------------------------------------------------$*$*

MV60AF0X_XKOMFK_ENDE: