FUNCTION zfin_bte_1030.
*"----------------------------------------------------------------------
*"*"Lokalny interfejs:
*"  IMPORTING
*"     VALUE(I_BKDF) LIKE  BKDF STRUCTURE  BKDF
*"     VALUE(I_UF05A) LIKE  UF05A STRUCTURE  UF05A
*"     VALUE(I_XVBUP) LIKE  OFIWA-XVBUP DEFAULT 'X'
*"  TABLES
*"      T_AUSZ1 STRUCTURE  AUSZ1 OPTIONAL
*"      T_AUSZ2 STRUCTURE  AUSZ2 OPTIONAL
*"      T_AUSZ3 STRUCTURE  AUSZ_CLR OPTIONAL
*"      T_BKP1 STRUCTURE  BKP1
*"      T_BKPF STRUCTURE  BKPF
*"      T_BSEC STRUCTURE  BSEC
*"      T_BSED STRUCTURE  BSED
*"      T_BSEG STRUCTURE  BSEG
*"      T_BSET STRUCTURE  BSET
*"      T_BSEU STRUCTURE  BSEU
*"----------------------------------------------------------------------

  " Kopia SAMPLE_INTERFACE_00001030


************************************************ Rozwiązanie dla tworzenia RMK ************************************************

  DATA: ls_bseg                  TYPE  bseg,
        ls_bkpf                  TYPE bkpf,
        ls_assignments           TYPE  ace_assignments,
        lt_accounts              TYPE  aceds_accounts_t,
        ls_accounts              LIKE LINE OF lt_accounts,
        lt_params                TYPE  aceds_param_t,
        ls_params                LIKE LINE OF lt_params,
        ld_effdate               TYPE  ace_effdate,
        ls_post_params           TYPE  aceps_manual_posting_params,
        ld_testrun               TYPE  ace_testrun,
        ls_object                TYPE  acac_object_header_ext,
        lt_object_items          TYPE  aceds_items_t,
        ls_object_items          LIKE LINE OF lt_object_items,
        id_comp                  TYPE ace_comp,
        it_generic_selopt        TYPE  ace_field_ranges_t,
        is_generic_selopt        LIKE LINE OF it_generic_selopt,
        it_accrual_params        TYPE  ace_field_ranges_t,
        id_transfer_purpose      TYPE  ace_data_transfer_purpose,
        id_results_list_required TYPE  flag,
        lt_return                TYPE  bapiret2_t,
        id_testrun               TYPE flag,
        ls_selopt                TYPE LINE OF ace_generic_range_t.


  FIELD-SYMBOLS:   <lt_results_list>    TYPE  STANDARD TABLE.

"break pbednarski.

  id_comp = 'ACAC'.
  id_transfer_purpose = 'T'.
  id_results_list_required = 'X'.
  id_testrun = ''.

  ls_selopt-sign = 'I'.
  ls_selopt-option = 'EQ'.

  LOOP AT t_bseg INTO ls_bseg.

* ZMIANA WKLEPCZYNSKA 10.10.2018 - ZMIANA RODZAJU DOKUMENTU RMK Z 'PR' NA 'RK'
    IF ls_bseg-zzdtfr IS NOT INITIAL AND ls_bseg-zzdtto IS NOT INITIAL AND ls_bseg-hkont CP '00004*' and ls_bkpf <> 'RK'.

      CLEAR: it_generic_selopt, ls_object, lt_object_items, lt_params, ls_params, ls_assignments, lt_accounts, ls_accounts, lt_return, ld_effdate, ls_post_params.

* ASSIGNMENTS
      ls_assignments-profit_ctr = ls_bseg-prctr.
      ls_assignments-costcenter = ls_bseg-prctr.

      ls_accounts-acrtype = '640100'. "ls_bseg-hkont+4(6).
      ls_accounts-accrule = 'ALL'.
      ls_accounts-per_start_accnt = ls_bseg-hkont.
      APPEND ls_accounts TO lt_accounts.

* PARAMAS
      ls_params-param_name = 'ZVBUND'.
      ls_params-content = ''.
      APPEND ls_params TO lt_params.

      ls_params-param_name = 'ZZCIT1'.
      ls_params-content = '1'.
      APPEND ls_params TO lt_params.

* POST_PARAMS
      CLEAR ls_post_params.

* OBJECT
      ls_object-bukrs = ls_bseg-bukrs.
"      SHIFT ls_bseg-hkont LEFT DELETING LEADING '0'.
      ls_object-acac_objtype = '640100'. "ls_bseg-hkont.

      CONCATENATE ls_bseg-belnr ls_bseg-gjahr ls_bseg-buzei INTO ls_object-acac_objnumber SEPARATED BY '/'.

      CLEAR ls_object-date_from.

      READ TABLE t_bkpf INTO ls_bkpf WITH KEY bukrs = ls_bseg-bukrs belnr = ls_bseg-belnr gjahr = ls_bseg-gjahr.
      IF sy-subrc = 0.

        ls_object-text = ls_bkpf-xblnr.
        ls_object_items-currency = ls_bkpf-hwaer.

* EFFDATE
        ld_effdate = ls_bkpf-budat.

      ENDIF.

      ls_object-acac_resperson = sy-uname.

      ls_object-vality_from = ls_bseg-zzdtfr+6(4) && ls_bseg-zzdtfr+3(2) && ls_bseg-zzdtfr(2).
      ls_object-vality_to = ls_bseg-zzdtto+6(4) && ls_bseg-zzdtto+3(2) && ls_bseg-zzdtto(2).

* OBJECT ITEM
"      UNPACK ls_bseg-zzacac TO ls_object_items-acrtype.
      SHIFT ls_bseg-hkont LEFT DELETING LEADING '0'.
      ls_object_items-acrtype = ls_bseg-hkont.
      ls_object_items-accrule = 'ALL'.
      ls_object_items-amount = ls_bseg-dmbtr.
      ls_object_items-quantity = 0.
      CLEAR ls_object_items-unit.
      ls_object_items-acrmethod = 'KOMFORT'.
      CLEAR: ls_object_items-svality_from, ls_object_items-svality_to.
      APPEND ls_object_items TO lt_object_items.

      CALL FUNCTION 'ZFIN_ACAC_OBJECT_MODIFY_EXT' IN UPDATE TASK
        EXPORTING
          is_assignments  = ls_assignments
          it_accounts     = lt_accounts
          it_params       = lt_params
          id_effdate      = ld_effdate
          is_post_params  = ls_post_params
          id_testrun      = id_testrun
          cs_object       = ls_object
          ct_object_items = lt_object_items.

* URUCHOMIENIE BEZ UPDATE TASK

*  DATA: ed_data_created  TYPE  flag,
*        ed_data_changed  TYPE  flag,
*        et_docitems      TYPE  aceps_ace_doc_extended_t,
*        et_return        TYPE  bapiret2_t,
*        et_accdoc_return TYPE  ace_accdoc_return_t.
*
*      CALL FUNCTION 'ACAC_OBJECT_MODIFY_EXT'
*        EXPORTING
*          is_assignments   = ls_assignments
*          it_accounts      = lt_accounts
*          it_params        = lt_params
*          id_effdate       = ld_effdate
*          is_post_params   = ls_post_params
*          id_testrun       = id_testrun
*        IMPORTING
*          ed_data_created  = ed_data_created
*          ed_data_changed  = ed_data_changed
*          et_docitems      = et_docitems
*          et_return        = et_return
*          et_accdoc_return = et_accdoc_return
*        CHANGING
*          cs_object        = ls_object
*          ct_object_items  = lt_object_items.

"      BREAK pbednarski.

      COMMIT WORK.

    ENDIF.

  ENDLOOP.

****************************************** Koniec Rozwiązanie dla tworzenia RMK Koniec ******************************************

******************************************                  BKPF-ZZDOPE                ******************************************

"break pbednarski.






ENDFUNCTION.