Block cancellation/creation of billing document on CLOSED posting period

Question

Hi Experts,
Currently, user is allowed to cancel/create backdated billing document where period already closed, but it does not release to accounting automatically, due to the period has been closed.
When account user found out that the accounting document is missing for the billing document, they have to re-open the period and manual release it to accounting, in order to generate the accounting document.
Therefore, we need the billing document to be blocked for cancellation/creation on CLOSED posting period.
  Is there any settings in stardard SAP to block cancellation/creation of billing document on CLOSED posting period?
would appreciate your inputs.
Thanks and Regards,
N.C.Reddy

Answer 1

Hi ,
We have blocked cancellation/ creation of billing document through below  user exit. Below is the progran code also.
***INCLUDE RV60AFZC.
FORM USEREXIT_NUMBER_RANGE_INV_DATE USING US_RANGE_INTERN.
Example: Number range from TVFK like in standard
US_RANGE_INTERN = TVFK-NUMKI.
*{   INSERT         KPDK904773                                        1
*Block creation or cancellation of billing doc in closed period
DATA : gv_gjahr TYPE bkpf-gjahr,
       gv_monat TYPE bkpf-monat,
       gv_poper TYPE t009b-poper,
       gv_bukrs TYPE t001-bukrs,
       lv_gjahr TYPE t001b-frye1,
       lv_monat TYPE t001b-frpe1,
       gv_oper  TYPE t001b-frpe1.
  CLEAR : gv_gjahr, gv_monat, gv_poper, gv_bukrs.
  gv_bukrs = vbrk-bukrs.
IF NOT likp-wadat_ist IS INITIAL.
*- First determine the Period of the Actual GI date.
  CALL FUNCTION 'FI_PERIOD_DETERMINE'
    EXPORTING
      i_budat              = likp-wadat_ist
      i_bukrs              = gv_bukrs
   IMPORTING
     E_GJAHR              = gv_gjahr
     E_MONAT              = gv_monat
     E_POPER              = gv_poper
   EXCEPTIONS
     FISCAL_YEAR          = 1
     PERIOD               = 2
     PERIOD_VERSION       = 3
     POSTING_PERIOD       = 4
     SPECIAL_PERIOD       = 5
     VERSION              = 6
     POSTING_DATE         = 7
     OTHERS               = 8.
      IF sy-subrc <> 0.
       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ELSE.
        CLEAR : lv_gjahr, lv_monat.
        lv_gjahr = gv_gjahr.
        lv_monat = gv_monat.
*- Once period is determine check whether Period is open or not for 'D' - Customer Account
        CALL FUNCTION 'FI_PERIOD_CHECK'
          EXPORTING
            I_BUKRS                = gv_bukrs
            i_gjahr                = lv_gjahr
            i_koart                = 'D'
            i_monat                = lv_monat
         IMPORTING
           E_OPER                 = gv_oper
         EXCEPTIONS
           ERROR_PERIOD           = 1
           ERROR_PERIOD_ACC       = 2
           INVALID_INPUT          = 3
           OTHERS                 = 4.
          IF sy-subrc <> 0.
           MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          ELSE.
*- Once period is determine check whether Period is open or not for 'S' - All G/L Accounts
            CALL FUNCTION 'FI_PERIOD_CHECK'
            EXPORTING
              I_BUKRS                = gv_bukrs
              i_gjahr                = lv_gjahr
              i_koart                = 'S'
              i_monat                = lv_monat
           IMPORTING
             E_OPER                 = gv_oper
           EXCEPTIONS
             ERROR_PERIOD           = 1
             ERROR_PERIOD_ACC       = 2
             INVALID_INPUT          = 3
             OTHERS                 = 4.
            IF sy-subrc <> 0.
              MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
           ENDIF.
         ENDIF.
     ENDIF.
ENDIF.
*- Check Billing Date period is closed or not
IF kom-fkdat is not initial.
  clear : gv_gjahr, gv_monat, gv_poper.
*- First determine the Period of the Actual GI date.
  CALL FUNCTION 'FI_PERIOD_DETERMINE'
    EXPORTING
      i_budat              = kom-fkdat
      i_bukrs              = gv_bukrs
   IMPORTING
     E_GJAHR              = gv_gjahr
     E_MONAT              = gv_monat
     E_POPER              = gv_poper
   EXCEPTIONS
     FISCAL_YEAR          = 1
     PERIOD               = 2
     PERIOD_VERSION       = 3
     POSTING_PERIOD       = 4
     SPECIAL_PERIOD       = 5
     VERSION              = 6
     POSTING_DATE         = 7
     OTHERS               = 8.
      IF sy-subrc <> 0.
       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ELSE.
        CLEAR : lv_gjahr, lv_monat.
        lv_gjahr = gv_gjahr.
        lv_monat = gv_monat.
*- Once period is determine check whether Period is open or not for 'D' - Customer Account
        CALL FUNCTION 'FI_PERIOD_CHECK'
          EXPORTING
            I_BUKRS                = gv_bukrs
            i_gjahr                = lv_gjahr
            i_koart                = 'D'
            i_monat                = lv_monat
         IMPORTING
           E_OPER                 = gv_oper
         EXCEPTIONS
           ERROR_PERIOD           = 1
           ERROR_PERIOD_ACC       = 2
           INVALID_INPUT          = 3
           OTHERS                 = 4.
          IF sy-subrc <> 0.
           MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                   WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          ELSE.
*- Once period is determine check whether Period is open or not for 'S' - All G/L Accounts
            CALL FUNCTION 'FI_PERIOD_CHECK'
            EXPORTING
              I_BUKRS                = gv_bukrs
              i_gjahr                = lv_gjahr
              i_koart                = 'S'
              i_monat                = lv_monat
           IMPORTING
             E_OPER                 = gv_oper
           EXCEPTIONS
             ERROR_PERIOD           = 1
             ERROR_PERIOD_ACC       = 2
             INVALID_INPUT          = 3
             OTHERS                 = 4.
            IF sy-subrc <> 0.
              MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
           ELSE.
            IF kom-fkdat4(2) <> likp-wadat_ist4(2).
            ENDIF.
           ENDIF.
         ENDIF.
     ENDIF.
ENDIF.
*}   INSERT
ENDFORM.
      FORM USEREXIT_FILL_VBRK_VBRP                                  *
      This userexit can be used to fill fields in VBRK and VBRP     *
      Be aware, that at this time the work areas KUAGV KURGV        *
      KUWEV and KUREV are not filled.                               *
      This form is called from FORM VBRK_VBRP_FUELLEN.              *
FORM USEREXIT_FILL_VBRK_VBRP.
Example: change Tax country
VBRK-LANDTX = T001-LAND1.
ENDFORM.
*eject