report ZPM_X_MEASUREM_DOCUM_CANCEL.

DATA:   BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
DATA:   MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

parameters: mdocm like IMRG-MDOCM. " Документ измерений

end-of-selection.


  perform MEASUREM_DOCUM_CANCEL using mdocm.

*&--------------------------------------------------------------------*
*&      Form  MEASUREM_DOCUM_CANCEL
*&--------------------------------------------------------------------*
form MEASUREM_DOCUM_CANCEL using mdocm type IMRC_MDOCM.

  perform bdc_dynpro using 'SAPLIMR0' '1210'.
  perform bdc_field using: 'BDC_OKCODE' '/00',
                           'IMRG-MDOCM' mdocm.

  perform bdc_dynpro using 'SAPLIMR0' '5210'.
  perform bdc_field using: 'BDC_OKCODE' '=CNC1'.

  perform bdc_dynpro using 'SAPLIMR0' '5210'.
  perform bdc_field using: 'BDC_OKCODE' '=BU'.

  CALL TRANSACTION 'IK12' USING BDCDATA
                   MODE   'E'   "N-фон E-только ошибки A-все экраны
                   UPDATE 'S'   "S-синхронно A-асинхрон L-локально
                   MESSAGES INTO MESSTAB.
endform.

*&--------------------------------------------------------------------*
*&      Form  BDC_DYNPRO
*&--------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = PROGRAM.
  BDCDATA-DYNPRO   = DYNPRO.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.
ENDFORM.                    "BDC_DYNPRO

*----------------------------------------------------------------------*
*        Insert field                                                  *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
    CLEAR BDCDATA.
    BDCDATA-FNAM = FNAM.
    BDCDATA-FVAL = FVAL.
    APPEND BDCDATA.
ENDFORM.                    "BDC_FIELD