*------------------------------------------------------------------
* CALL Bapi
*------------------------------------------------------------------

  CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
  EXPORTING
    order_header_in      = l_order_header_in
    order_header_inx     = l_order_header_inx
  IMPORTING
    salesdocument        = l_vbeln
  TABLES
    RETURN               = li_return
    order_items_in       = li_order_items_in
    order_items_inx      = li_order_items_inx
    order_conditions_in  = li_order_conditions_in
    order_conditions_inx = li_order_conditions_inx
    order_schedules_in   = li_order_schedules_in
    order_schedules_inx  = li_order_schedules_inx
    order_partners       = li_order_partners.
  CLEAR l_errflag.


  "Потом допишу
  IF NOT l_vbeln IS INITIAL.


    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT   = 'X'
    IMPORTING
      RETURN = rtr.

    " 02.04.2012 10:28:07
    " Для вида транспортного средства
    " Nuriev_II

    "$ Region Для вида транспортного средства
      SELECT SINGLE  * FROM  VBKD INTO z_VBKD WHERE  vbeln = l_vbeln .
      z_VBKD-TRATY = '03'.
      CLEAR zz_vbkd.
      LOOP AT x_tab.

        zz_vbkd = zz_vbkd + 10.
        z_VBKD-posnr = zz_vbkd.
        MODIFY VBKD FROM  z_VBKD .
         UPDATE VBUP SET UVALL = 'C' UVVLK = 'C'  UVFAK = 'C' UVPRS = 'C' WHERE vbeln = l_vbeln AND POSNR = zz_vbkd. "Что бы журнал не выдвавал неполноту данных
         delete FROM VBUV  WHERE vbeln = l_vbeln and posnr = zz_vbkd. "Удаление строчек из журнала о неполноте данных

      ENDLOOP.
         UPDATE VBUK SET UVALL = 'C' UVVLS = 'C'  UVFAS = 'C' UVPRS = 'C' WHERE vbeln = l_vbeln. "Что бы журнал не выдвавал неполноту данных
    "$ Endregion Для вида транспортного средства