***INCLUDE MV45AFZB .

************************************************************************
*                                                                      *
* This include is reserved for user modifications                      *
*                                                                      *
* Forms for sales document processing                                  *
*                                                                      *
* The name of modification modules should begin with 'ZZ'.             *
*                                                                      *
************************************************************************

*&---------------------------------------------------------------------*
*&      Form  USEREXIT_CHECK_XVBAP_FOR_DELET
*&---------------------------------------------------------------------*
*                                                                     *
*       Additional examination can be entered in this form, before    *
*       the position is released for deletion.                        *
*                                                                     *
*       US_ERROR  - Flag that controls displaying messages            *
*       US_EXIT   - If this flag is set, an item is not allowed       *
*                   to be deleted                                     *
*                                                                     *
*       This form is called from form XVBAP_LOESCHEN_PRUEFEN.         *
*                                                                     *
*---------------------------------------------------------------------*
form userexit_check_xvbap_for_delet using us_error
                                          us_exit.

* Example

* IF US_ERROR NE SPACE.
*   MESSAGE ......
* ENDIF.

* IF .......
*   US_EXIT = CHARX.
* ENDIF.

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1 ) FORM USEREXIT_CHECK_XVBAP_FOR_DELET, Выход                                                                                                   D
*$*$-Start: (1 )--------------------------------------------------------------------------------$*$*
enhancement 319  zsd_mv45afzb.    "active version
*--------------------------------------------------------------------*
*..проверка возможности удаления заказа
  data :
          ls_zcerth type zcerth
        .
  if xvbak-vbeln is not initial .
    select single * into ls_zcerth
        from zcerth
        where vbeln = xvbak-vbeln
    .
    if sy-subrc = 0
       and xvbap-pstyv ne 'TATX' . "
      if ls_zcerth-loekz <> 'X' .
        "
        us_exit = 'X' .
        if us_error <> space .
          message e002(zsd) with xvbak-vbeln ls_zcerth-certnum .
        else .
          message s002(zsd) with xvbak-vbeln ls_zcerth-certnum .
        endif .
      endif.
    endif .
  endif .
endenhancement.
*$*$-End:   (1 )--------------------------------------------------------------------------------$*$*
endform.