DO 12 TIMES.
     add 1 to p1. "add 1 to p2.
       k = 0. s = 0. a = 0.

   CONCATENATE 'Обработка' p1 'периода.'  into help separated by space.
*  отображаем часики и сообщение
   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
       EXPORTING
            PERCENTAGE = SY-INDEX
            TEXT       = help.

    REFRESH bdcdata.

      perform bdc_dynpro      using 'SAPLKPP0'   '1000'.
      perform bdc_field       using 'BDC_CURSOR' 'KPP1B-ONLY'.
      perform bdc_field       using 'BDC_OKCODE' '=CSUB'.
      perform bdc_field       using 'KPP1B-ONLY' 'X'.
      perform bdc_field       using 'KPP0B-VALUE(01)' '0'.
      perform bdc_field       using 'KPP0B-VALUE(02)' p1.
      perform bdc_field       using 'KPP0B-VALUE(03)' p1.
      perform bdc_field       using 'KPP0B-VALUE(04)' GJAHR.
      perform bdc_field       using 'KPP0B-VALUE(06)' kostl.
      perform bdc_field       using 'KPP0B-VALUE(08)' ''.
      perform bdc_field       using 'KPP0B-VALUE(11)' '21'."'1'.

   SELECT SINGLE * INTO wa_cokp FROM COKP
         WHERE
            OBJNR LIKE str_mvz
        AND VERSN = '000'
        AND WRTTP = '01'
        AND gjahr = GJAHR.
*  очистка
   IF SY-subrc = 0.
      perform bdc_dynpro      using 'SAPLKPP2'   '0112'.
      perform bdc_field       using 'BDC_OKCODE' '=CMAL'.
      perform bdc_dynpro      using 'SAPLKPP2'   '0112'.
      perform bdc_field       using 'BDC_OKCODE' '=CDEL'.
      perform bdc_dynpro      using 'SAPLSPO1'   '0200'.
      perform bdc_field       using 'BDC_OKCODE' '=YES'.
    ENDIF.

   LOOP AT wa_imp_mvz ASSIGNING <wa_imp_mvz>.

      IF p1 = 1 .sum_all = <wa_imp_mvz>-sum01. ENDIF. IF p1 = 2 .sum_all = <wa_imp_mvz>-sum02. ENDIF.
      IF p1 = 3 .sum_all = <wa_imp_mvz>-sum03. ENDIF. IF p1 = 4 .sum_all = <wa_imp_mvz>-sum04. ENDIF.
      IF p1 = 5 .sum_all = <wa_imp_mvz>-sum05. ENDIF. IF p1 = 6 .sum_all = <wa_imp_mvz>-sum06. ENDIF.
      IF p1 = 7 .sum_all = <wa_imp_mvz>-sum07. ENDIF. IF p1 = 8 .sum_all = <wa_imp_mvz>-sum08. ENDIF.
      IF p1 = 9 .sum_all = <wa_imp_mvz>-sum09. ENDIF. IF p1 = 10 .sum_all = <wa_imp_mvz>-sum10. ENDIF.
      IF p1 = 11 .sum_all = <wa_imp_mvz>-sum11. ENDIF. IF p1 = 12 .sum_all = <wa_imp_mvz>-sum12. ENDIF.
      sum = sum_all.
       k = k + 1. s = s + 1.
       CONDENSE sum.
       REPLACE '.' WITH ',' INTO  sum.
* позицеанируемся
    IF k = 11.

        perform bdc_dynpro using 'SAPLKPP2'  '0112'.
        perform bdc_field using 'BDC_OKCODE' '=CPOZ'.

        perform bdc_dynpro using 'SAPLKPP4' '0100'.
        perform bdc_field using 'KPP0B-VALUE(01)' <wa_imp_mvz>-hkont.
        perform bdc_field using 'BDC_OKCODE' '=CSPA'.
         k = 1. s = 1.
    ENDIF.
          CONCATENATE 'Z-BDC01' '(' k ')' into pole.
          CONCATENATE 'Z-BDC03' '(' s ')' into pole1.

        perform bdc_dynpro using 'SAPLKPP2'  '0112'.
        perform bdc_field using 'BDC_OKCODE' '/00'.
        perform bdc_field using pole  <wa_imp_mvz>-hkont.
        perform bdc_field using pole1  sum.
   ENDLOOP.

        perform bdc_dynpro using 'SAPLKPP2'  '0112'.
        perform bdc_field using 'BDC_OKCODE' '=CBUC'.

        opt-dismode = dismode.
        opt-updmode = 'A'.
        opt-defsize = 'X'.
        opt-racommit = 'X'.
CALL TRANSACTION 'KP06'
            USING bdcdata OPTIONS FROM opt.

ENDDO.

SELECT SINGLE * INTO wa_cokp FROM COKP
WHERE
OBJNR LIKE str_mvz
AND VERSN = '000'
AND WRTTP = '01'
AND gjahr = GJAHR.

  DATA: ls_rep like line of gt_rep,
        ld_rms TYPE STRING,
        ls_HEADER_INFO LIKE BAPIPLNHDR,
        lt_IDX_STRUCTURE TYPE TABLE OF BAPIACPSTRU,
        lt_OBJECT TYPE TABLE OF BAPIPCPOBJ,
        lt_PER_VALUE TYPE TABLE OF BAPIPCPVAL,
        lt_TOT_VALUE TYPE TABLE OF BAPIPCPTOT,
        lt_CONTRL TYPE TABLE OF BAPIPCPCTRL,
        ls_IDX_STRUCTURE TYPE BAPIACPSTRU,
        ls_OBJECT TYPE BAPIPCPOBJ,
*        ls_PER_VALUE TYPE TABLE OF BAPIPCPVAL,
        ls_TOT_VALUE TYPE BAPIPCPTOT.
*        ls_CONTRL TYPE BAPIPCPCTRL.
  DATA: lt_RETURN TYPE TABLE OF BAPIRET2.

  ls_HEADER_INFO-CO_AREA = p_KOKRS.
  ls_HEADER_INFO-FISC_YEAR = p_GJAHR.
  ls_HEADER_INFO-PERIOD_FROM = p_PERBL.
  ls_HEADER_INFO-PERIOD_TO = p_PERBL.
  ls_HEADER_INFO-VERSION = p_VERSN.
  ls_HEADER_INFO-DOC_HDR_TX = p_BLTXT.
  ls_HEADER_INFO-PLAN_CURRTYPE = p_CURTP.

  LOOP AT gt_rep INTO ls_rep .
    ls_IDX_STRUCTURE-OBJECT_INDEX = ls_rep-row.
    ls_IDX_STRUCTURE-VALUE_INDEX = ls_rep-row.
    ls_IDX_STRUCTURE-ATTRIB_INDEX = space.
    APPEND ls_IDX_STRUCTURE TO lt_IDX_STRUCTURE.
    ls_OBJECT-OBJECT_INDEX = ls_rep-row.
    ls_OBJECT-COSTCENTER = ls_rep-COSTCENTER.
    ls_OBJECT-ACTTYPE = ls_rep-ACTTYPE.
    ls_OBJECT-CO_BUSPROC = ls_rep-CO_BUSPROC.
    ls_OBJECT-ORDERID = ls_rep-ORDERID.
    ls_OBJECT-WBS_ELEMENT = ls_rep-WBS_ELEMENT.
    APPEND ls_OBJECT TO lt_OBJECT.
    ls_TOT_VALUE-VALUE_INDEX = ls_rep-row.
    ls_TOT_VALUE-COST_ELEM = ls_rep-COST_ELEM.
    ls_TOT_VALUE-FIX_VALUE = ls_rep-FIX_VALUE.
    ls_TOT_VALUE-DIST_KEY_FIX_VAL = '2'.
    ls_TOT_VALUE-VAR_VALUE = ls_rep-VAR_VALUE.
    ls_TOT_VALUE-DIST_KEY_VAR_VAL = '2'.
    APPEND ls_TOT_VALUE TO lt_TOT_VALUE.
  ENDLOOP.

  CALL FUNCTION 'BAPI_PRIM_COST_CHECK_AND_POST'
       EXPORTING
            HEADER_INFO   = ls_HEADER_INFO
            TESTRUN       = li_test
*            DELTA         = DELTA
       TABLES
            IDX_STRUCTURE = lt_IDX_STRUCTURE
            OBJECT        = lt_OBJECT
            PER_VALUE     = lt_PER_VALUE
            TOT_VALUE     = lt_TOT_VALUE
            CONTRL        = lt_CONTRL
            RETURN        = lt_RETURN.
  IF li_test IS INITIAL.
    COMMIT WORK AND WAIT.
...