API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Aug 21st, 2018
232
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 18.98 KB | None | 0 0
raw download clone embed print report
  1. *&---------------------------------------------------------------------*
  2. *& Report  Z_VIP_STORNIRANJE_TEST
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8.  
  9. REPORT  Z_VIP_STORNIRANJE_TEST.
  10.  
  11. START-OF-SELECTION.
  12.  
  13.   DATA lv_doc_nr TYPE belnr.
  14.   PARAMETERS p_code TYPE bukrs OBLIGATORY.
  15.   PARAMETERS p_fi_yr TYPE GJAHR OBLIGATORY.
  16.   SELECT-OPTIONS s_doc_nr FOR lv_doc_nr.
  17.  
  18.   DATA wa_bkpf TYPE bkpf. "wa for header
  19.  
  20.   DATA lv_doc_tmp TYPE belnr.
  21.   lv_doc_tmp = s_doc_nr-low.
  22.  
  23.   DATA wa_bseg1 TYPE bseg.
  24.   DATA wa_bseg2 TYPE bseg.
  25.  
  26.   DATA wa_header TYPE bapiache09.
  27.  
  28.  
  29.   DATA it_acc_pay TYPE STANDARD TABLE OF BAPIACAP09.
  30.   DATA wa_acc_pay TYPE BAPIACAP09.
  31.  
  32.   DATA it_rev_acc TYPE STANDARD TABLE OF bapiacgl09.
  33.   DATA wa_rev_acc TYPE bapiacgl09.
  34.  
  35.   DATA: it_curr_amount TYPE STANDARD TABLE OF bapiaccr09,
  36.         wa_curr_amount TYPE bapiaccr09.
  37.  
  38.   DATA: it_return TYPE STANDARD TABLE OF bapiret2,
  39.         wa_return TYPE bapiret2.
  40.  
  41.   DATA it_acc_rec TYPE STANDARD TABLE OF bapiacar09.
  42.   DATA wa_acc_rec TYPE bapiacar09.
  43.  
  44.   DATA wa_reversal TYPE BAPIACREV.
  45.   DATA lv_bus_act TYPE BAPIACHE09-BUS_ACT.
  46.  
  47.   DATA: it_return_rev TYPE STANDARD TABLE OF bapiret2,
  48.         wa_return_rev TYPE bapiret2.
  49.  
  50.  
  51.  
  52.   WHILE lv_doc_tmp <= s_doc_nr-high.
  53.  
  54.     CLEAR: wa_header, wa_bseg1, wa_bseg2, wa_acc_pay, it_acc_pay, wa_rev_acc, it_rev_acc, wa_curr_amount, it_curr_amount, it_return, wa_return, wa_reversal, it_return_rev, wa_return_rev.
  55.  
  56.     SELECT *
  57.       FROM bkpf
  58.       into wa_bkpf
  59.       WHERE bukrs = p_code and belnr = lv_doc_tmp and gjahr = p_fi_yr.
  60.       "mandt = sy-mandt and
  61.     ENDSELECT.
  62.     IF sy-subrc <> 0.
  63.       CONTINUE.
  64.     ELSE.
  65.       SELECT *
  66.         FROM bseg
  67.         INTO wa_bseg1
  68.         WHERE bukrs = p_code and belnr = lv_doc_tmp and gjahr = p_fi_yr and buzei = '001'.
  69.       ENDSELECT.
  70.       IF wa_bseg1-bschl = '11' and wa_bseg1-kunnr = '0410000469'.
  71.         SELECT *
  72.         FROM bseg
  73.         INTO wa_bseg2
  74.         WHERE bukrs = p_code and belnr = lv_doc_tmp and gjahr = p_fi_yr and buzei = '002'.
  75.         ENDSELECT.
  76.         IF wa_bseg2-bschl = '40' and wa_bseg2-kunnr = '0004630001'.
  77.           "header
  78.           wa_header-username = wa_bkpf-usnam.
  79.           wa_header-comp_code = wa_bkpf-bukrs.
  80.           wa_header-doc_date = wa_bkpf-bldat.
  81.           wa_header-pstng_date = wa_bkpf-budat. "doznaj posle
  82.           wa_header-doc_type = wa_bkpf-blart.
  83.           wa_header-ref_doc_no = wa_bkpf-xblnr.
  84.  
  85.           "vendor
  86.           wa_acc_pay-itemno_acc = '0000000001'.
  87.           wa_acc_pay-vendor_no = '0051000469'.
  88.           wa_acc_pay-comp_code = wa_bseg1-bukrs.
  89.           wa_acc_pay-tax_code = wa_bseg1-mwskz.
  90.           wa_acc_pay-alloc_nmbr = wa_bseg1-zuonr.
  91.           wa_acc_pay-item_text = wa_bseg1-sgtxt.
  92.           wa_acc_pay-bline_date = wa_bseg1-zfbdt.
  93.           wa_acc_pay-PMNTTRMS = wa_bseg1-zterm.
  94.           APPEND wa_acc_pay TO it_acc_pay.
  95.  
  96.           "discount
  97.           wa_rev_acc-itemno_acc = '0000000002'.
  98.           wa_rev_acc-gl_account = '0004630001'.
  99.           "wa_rev_acc-doc_type = 'ZW'.
  100.           wa_rev_acc-comp_code = wa_bseg2-bukrs.
  101.           wa_rev_acc-tax_code = wa_bseg2-mwskz.
  102.           wa_rev_acc-costcenter = wa_bseg2-KOSTL.
  103.           wa_rev_acc-TR_PART_BA = wa_bseg2-pargb.
  104.           wa_rev_acc-ORDERID = wa_bseg2-aufnr.
  105.           wa_rev_acc-alloc_nmbr = wa_bseg2-ZUONR.
  106.           wa_rev_acc-item_text = wa_bseg2-sgtxt.
  107.           APPEND wa_rev_acc TO it_rev_acc.
  108.  
  109.           "vendor
  110.           wa_curr_amount-itemno_acc = '0000000001'.
  111.           wa_curr_amount-curr_type = '00'.
  112.           "wa_curr_amount-currency = 'EUR'.
  113.           "wa_curr_amount-currency_iso = 'EUR'.
  114.           wa_curr_amount-currency = wa_bkpf-waers.
  115.           wa_curr_amount-currency_iso = wa_bkpf-waers.
  116.           wa_curr_amount-amt_doccur = wa_bseg1-WRBTR.
  117.           APPEND wa_curr_amount TO it_curr_amount.
  118.           CLEAR wa_curr_amount.
  119.  
  120.           "discount
  121.           wa_curr_amount-itemno_acc = '0000000002'.
  122.           wa_curr_amount-curr_type = '00'.
  123.           "wa_curr_amount-currency = 'EUR'.
  124.           "wa_curr_amount-currency_iso = 'EUR'.
  125.           wa_curr_amount-currency = wa_bkpf-waers.
  126.           wa_curr_amount-currency_iso = wa_bkpf-waers.
  127.           wa_curr_amount-amt_doccur = wa_bseg2-WRBTR.
  128.           APPEND wa_curr_amount TO it_curr_amount.
  129.           CLEAR wa_curr_amount.
  130.  
  131.           CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
  132.               EXPORTING
  133.                 DOCUMENTHEADER          = wa_header
  134. *             CUSTOMERCPD             =
  135. *             CONTRACTHEADER          =
  136. *           IMPORTING
  137. *             OBJ_TYPE                =
  138. *             OBJ_KEY                 =
  139. *             OBJ_SYS                 =
  140.               TABLES
  141.                 ACCOUNTGL               = it_rev_acc
  142. *             ACCOUNTRECEIVABLE       =
  143.                 ACCOUNTPAYABLE          = it_acc_pay
  144. *             ACCOUNTTAX              =
  145.                 CURRENCYAMOUNT          = it_curr_amount
  146. *             CRITERIA                =
  147. *             VALUEFIELD              =
  148. *             EXTENSION1              =
  149.                 RETURN                  = it_return
  150. *             PAYMENTCARD             =
  151. *             CONTRACTITEM            =
  152. *             EXTENSION2              =
  153. *             REALESTATE              =
  154. *             ACCOUNTWT               =
  155.                       .
  156.  
  157.           "tuka delot za storniranje
  158.           wa_reversal-obj_type = wa_bkpf-awtyp.
  159.           wa_reversal-obj_key = wa_bkpf-awkey.
  160.           wa_reversal-obj_sys = wa_bkpf-awsys.
  161.           wa_reversal-obj_key_r = wa_bkpf-awtyp.
  162.           lv_bus_act = wa_bkpf-glvor.
  163.           CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
  164.             EXPORTING
  165.               REVERSAL       = wa_reversal
  166.               BUS_ACT        = lv_bus_act
  167. *           IMPORTING
  168. *             OBJ_TYPE       =
  169. *             OBJ_KEY        =
  170. *             OBJ_SYS        =
  171.             TABLES
  172.               RETURN         = it_return_rev
  173.                     .
  174.  
  175.  
  176.         endif.
  177.  
  178.  
  179.       ELSEIF wa_bseg1-bschl = '01'.
  180.         SELECT *
  181.         FROM bseg
  182.         INTO wa_bseg2
  183.         WHERE bukrs = p_code and belnr = lv_doc_tmp and gjahr = p_fi_yr and buzei = '002'.
  184.         ENDSELECT.
  185.         IF wa_bseg2-bschl = '50' and wa_bseg2-kunnr = '0004630001'.
  186.           "header
  187.           wa_header-username = wa_bkpf-usnam.
  188.           wa_header-comp_code = wa_bkpf-bukrs.
  189.           wa_header-doc_date = wa_bkpf-bldat.
  190.           wa_header-pstng_date = wa_bkpf-budat. "doznaj posle
  191.           wa_header-doc_type = wa_bkpf-blart.
  192.           wa_header-ref_doc_no = wa_bkpf-xblnr.
  193.  
  194.           "vendor
  195.           wa_acc_pay-itemno_acc = '0000000001'.
  196.           "wa_acc_pay-vendor_no = '0051000469'.
  197.           wa_acc_pay-comp_code = wa_bseg1-bukrs.
  198.           wa_acc_pay-tax_code = wa_bseg1-mwskz.
  199.           wa_acc_pay-alloc_nmbr = wa_bseg1-zuonr.
  200.           wa_acc_pay-item_text = wa_bseg1-sgtxt.
  201.           wa_acc_pay-bline_date = wa_bseg1-zfbdt.
  202.           wa_acc_pay-PMNTTRMS = wa_bseg1-zterm.
  203.           APPEND wa_acc_pay TO it_acc_pay.
  204.  
  205.           "discount
  206.           wa_rev_acc-itemno_acc = '0000000002'.
  207.           wa_rev_acc-gl_account = '0004630001'.
  208.           "wa_rev_acc-doc_type = 'ZW'.
  209.           wa_rev_acc-comp_code = wa_bseg2-bukrs.
  210.           wa_rev_acc-tax_code = wa_bseg2-mwskz.
  211.           wa_rev_acc-costcenter = wa_bseg2-KOSTL.
  212.           wa_rev_acc-TR_PART_BA = wa_bseg2-pargb.
  213.           wa_rev_acc-ORDERID = wa_bseg2-aufnr.
  214.           wa_rev_acc-alloc_nmbr = wa_bseg2-ZUONR.
  215.           wa_rev_acc-item_text = wa_bseg2-sgtxt.
  216.           APPEND wa_rev_acc TO it_rev_acc.
  217.  
  218.           "vendor
  219.           wa_curr_amount-itemno_acc = '0000000001'.
  220.           wa_curr_amount-curr_type = '00'.
  221.           "wa_curr_amount-currency = 'EUR'.
  222.           "wa_curr_amount-currency_iso = 'EUR'.
  223.           wa_curr_amount-currency = wa_bkpf-waers.
  224.           wa_curr_amount-currency_iso = wa_bkpf-waers.
  225.           wa_curr_amount-amt_doccur = wa_bseg1-WRBTR.
  226.           APPEND wa_curr_amount TO it_curr_amount.
  227.           CLEAR wa_curr_amount.
  228.  
  229.           "discount
  230.           wa_curr_amount-itemno_acc = '0000000002'.
  231.           wa_curr_amount-curr_type = '00'.
  232.           "wa_curr_amount-currency = 'EUR'.
  233.           "wa_curr_amount-currency_iso = 'EUR'.
  234.           wa_curr_amount-currency = wa_bkpf-waers.
  235.           wa_curr_amount-currency_iso = wa_bkpf-waers.
  236.           wa_curr_amount-amt_doccur = wa_bseg2-WRBTR.
  237.           APPEND wa_curr_amount TO it_curr_amount.
  238.           CLEAR wa_curr_amount.
  239.  
  240.           CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
  241.             EXPORTING
  242.               DOCUMENTHEADER          = wa_header
  243. *             CUSTOMERCPD             =
  244. *             CONTRACTHEADER          =
  245. *           IMPORTING
  246. *             OBJ_TYPE                =
  247. *             OBJ_KEY                 =
  248. *             OBJ_SYS                 =
  249.             TABLES
  250.               ACCOUNTGL               = it_rev_acc
  251. *             ACCOUNTRECEIVABLE       =
  252.               ACCOUNTPAYABLE          = it_acc_pay
  253. *             ACCOUNTTAX              =
  254.               CURRENCYAMOUNT          = it_curr_amount
  255. *             CRITERIA                =
  256. *             VALUEFIELD              =
  257. *             EXTENSION1              =
  258.               RETURN                  = it_return
  259. *             PAYMENTCARD             =
  260. *             CONTRACTITEM            =
  261. *             EXTENSION2              =
  262. *             REALESTATE              =
  263. *             ACCOUNTWT               =
  264.                     .
  265.  
  266.  
  267.           "tuka delot za storniranje
  268.           wa_reversal-obj_type = wa_bkpf-awtyp.
  269.           wa_reversal-obj_key = wa_bkpf-awkey.
  270.           wa_reversal-obj_sys = wa_bkpf-awsys.
  271.           wa_reversal-obj_key_r = wa_bkpf-awtyp.
  272.           lv_bus_act = wa_bkpf-glvor.
  273.           CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
  274.             EXPORTING
  275.               REVERSAL       = wa_reversal
  276.               BUS_ACT        = lv_bus_act
  277. *           IMPORTING
  278. *             OBJ_TYPE       =
  279. *             OBJ_KEY        =
  280. *             OBJ_SYS        =
  281.             TABLES
  282.               RETURN         = it_return_rev
  283.                     .
  284.  
  285.  
  286.  
  287.  
  288.         ENDIF.
  289.  
  290.         "ENDIF.
  291.  
  292.       ELSEIF wa_bseg1-bschl = '31' and wa_bseg1-kunnr = '0051000059'. "mozhe da treba wa_bseg1-lifnr mesto kunnr
  293.         SELECT *
  294.         FROM bseg
  295.         INTO wa_bseg2
  296.         WHERE bukrs = p_code and belnr = lv_doc_tmp and gjahr = p_fi_yr and buzei = '002'.
  297.         ENDSELECT.
  298.         IF wa_bseg2-bschl = '40' and wa_bseg2-kunnr = '0008270001'.
  299.           "header
  300.           wa_header-username = wa_bkpf-usnam.
  301.           wa_header-comp_code = wa_bkpf-bukrs.
  302.           wa_header-doc_date = wa_bkpf-bldat.
  303.           wa_header-pstng_date = wa_bkpf-budat. "doznaj posle
  304.           wa_header-doc_type = wa_bkpf-blart.
  305.           wa_header-ref_doc_no = wa_bkpf-xblnr.
  306.  
  307.           "customer
  308.           wa_acc_rec-itemno_acc = '0000000001'.
  309.           wa_acc_rec-customer = '0410000059'.
  310.           wa_acc_rec-comp_code = wa_bseg1-bukrs.
  311.           wa_acc_rec-tax_code = wa_bseg1-mwskz.
  312.           wa_acc_rec-alloc_nmbr = wa_bseg1-zuonr.
  313.           wa_acc_rec-item_text = wa_bseg1-sgtxt.
  314.           wa_acc_rec-bline_date = wa_bseg1-zfbdt.
  315.           wa_acc_rec-PMNTTRMS = wa_bseg1-zterm.
  316.           APPEND wa_acc_rec TO it_acc_rec.
  317.  
  318.           "discount
  319.           wa_rev_acc-itemno_acc = '0000000002'.
  320.           wa_rev_acc-gl_account = '0008270001'.
  321.           "wa_rev_acc-doc_type = 'ZW'.
  322.           wa_rev_acc-comp_code = wa_bseg2-bukrs.
  323.           wa_rev_acc-tax_code = wa_bseg2-mwskz.
  324.           wa_rev_acc-costcenter = wa_bseg2-KOSTL.
  325.           wa_rev_acc-TR_PART_BA = wa_bseg2-pargb.
  326.           wa_rev_acc-ORDERID = wa_bseg2-aufnr.
  327.           wa_rev_acc-alloc_nmbr = wa_bseg2-ZUONR.
  328.           wa_rev_acc-item_text = wa_bseg2-sgtxt.
  329.           APPEND wa_rev_acc TO it_rev_acc.
  330.  
  331.           "customer
  332.           wa_curr_amount-itemno_acc = '0000000001'.
  333.           wa_curr_amount-curr_type = '00'.
  334.           "wa_curr_amount-currency = 'EUR'.
  335.           "wa_curr_amount-currency_iso = 'EUR'.
  336.           wa_curr_amount-currency = wa_bkpf-waers.
  337.           wa_curr_amount-currency_iso = wa_bkpf-waers.
  338.           wa_curr_amount-amt_doccur = wa_bseg1-WRBTR.
  339.           APPEND wa_curr_amount TO it_curr_amount.
  340.           CLEAR wa_curr_amount.
  341.  
  342.           "discount
  343.           wa_curr_amount-itemno_acc = '0000000002'.
  344.           wa_curr_amount-curr_type = '00'.
  345.           "wa_curr_amount-currency = 'EUR'.
  346.           "wa_curr_amount-currency_iso = 'EUR'.
  347.           wa_curr_amount-currency = wa_bkpf-waers.
  348.           wa_curr_amount-currency_iso = wa_bkpf-waers.
  349.           wa_curr_amount-amt_doccur = wa_bseg2-WRBTR.
  350.           APPEND wa_curr_amount TO it_curr_amount.
  351.           CLEAR wa_curr_amount.
  352.  
  353.           CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
  354.             EXPORTING
  355.               DOCUMENTHEADER          = wa_header
  356. *             CUSTOMERCPD             =
  357. *             CONTRACTHEADER          =
  358. *           IMPORTING
  359. *             OBJ_TYPE                =
  360. *             OBJ_KEY                 =
  361. *             OBJ_SYS                 =
  362.             TABLES
  363.               ACCOUNTGL               = it_rev_acc
  364.               ACCOUNTRECEIVABLE       = it_acc_rec
  365. *             ACCOUNTPAYABLE          =
  366. *             ACCOUNTTAX              =
  367.               CURRENCYAMOUNT          = it_curr_amount
  368. *             CRITERIA                =
  369. *             VALUEFIELD              =
  370. *             EXTENSION1              =
  371.               RETURN                  = it_return
  372. *             PAYMENTCARD             =
  373. *             CONTRACTITEM            =
  374. *             EXTENSION2              =
  375. *             REALESTATE              =
  376. *             ACCOUNTWT               =
  377.                     .
  378.  
  379.  
  380.           "tuka delot za storniranje
  381.           wa_reversal-obj_type = wa_bkpf-awtyp.
  382.           wa_reversal-obj_key = wa_bkpf-awkey.
  383.           wa_reversal-obj_sys = wa_bkpf-awsys.
  384.           wa_reversal-obj_key_r = wa_bkpf-awtyp.
  385.           lv_bus_act = wa_bkpf-glvor.
  386.           CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
  387.             EXPORTING
  388.               REVERSAL       = wa_reversal
  389.               BUS_ACT        = lv_bus_act
  390. *           IMPORTING
  391. *             OBJ_TYPE       =
  392. *             OBJ_KEY        =
  393. *             OBJ_SYS        =
  394.             TABLES
  395.               RETURN         = it_return_rev
  396.                     .
  397.  
  398.         endif.
  399.  
  400.       ELSEIF wa_bseg1-bschl = '21'.
  401.         SELECT *
  402.         FROM bseg
  403.         INTO wa_bseg2
  404.         WHERE bukrs = p_code and belnr = lv_doc_tmp and gjahr = p_fi_yr and buzei = '002'.
  405.         ENDSELECT.
  406.         IF wa_bseg1-bschl = '40' and wa_bseg1-kunnr = '0008270001'.
  407.  
  408.           "header
  409.           wa_header-username = wa_bkpf-usnam.
  410.           wa_header-comp_code = wa_bkpf-bukrs.
  411.           wa_header-doc_date = wa_bkpf-bldat.
  412.           wa_header-pstng_date = wa_bkpf-budat. "doznaj posle
  413.           wa_header-doc_type = wa_bkpf-blart.
  414.           wa_header-ref_doc_no = wa_bkpf-xblnr.
  415.  
  416.           "customer
  417.           wa_acc_rec-itemno_acc = '0000000001'.
  418.           "wa_acc_rec-customer = '0410000059'.
  419.           wa_acc_rec-comp_code = wa_bseg1-bukrs.
  420.           wa_acc_rec-tax_code = wa_bseg1-mwskz.
  421.           wa_acc_rec-alloc_nmbr = wa_bseg1-zuonr.
  422.           wa_acc_rec-item_text = wa_bseg1-sgtxt.
  423.           wa_acc_rec-bline_date = wa_bseg1-zfbdt.
  424.           wa_acc_rec-PMNTTRMS = wa_bseg1-zterm.
  425.           APPEND wa_acc_rec TO it_acc_rec.
  426.  
  427.           "discount
  428.           wa_rev_acc-itemno_acc = '0000000002'.
  429.           wa_rev_acc-gl_account = '0008270001'.
  430.           "wa_rev_acc-doc_type = 'ZW'.
  431.           wa_rev_acc-comp_code = wa_bseg2-bukrs.
  432.           wa_rev_acc-tax_code = wa_bseg2-mwskz.
  433.           wa_rev_acc-costcenter = wa_bseg2-KOSTL.
  434.           wa_rev_acc-TR_PART_BA = wa_bseg2-pargb.
  435.           wa_rev_acc-ORDERID = wa_bseg2-aufnr.
  436.           wa_rev_acc-alloc_nmbr = wa_bseg2-ZUONR.
  437.           wa_rev_acc-item_text = wa_bseg2-sgtxt.
  438.           APPEND wa_rev_acc TO it_rev_acc.
  439.  
  440.           "customer
  441.           wa_curr_amount-itemno_acc = '0000000001'.
  442.           wa_curr_amount-curr_type = '00'.
  443.           "wa_curr_amount-currency = 'EUR'.
  444.           "wa_curr_amount-currency_iso = 'EUR'.
  445.           wa_curr_amount-currency = wa_bkpf-waers.
  446.           wa_curr_amount-currency_iso = wa_bkpf-waers.
  447.           wa_curr_amount-amt_doccur = wa_bseg1-WRBTR.
  448.           APPEND wa_curr_amount TO it_curr_amount.
  449.           CLEAR wa_curr_amount.
  450.  
  451.           "discount
  452.           wa_curr_amount-itemno_acc = '0000000002'.
  453.           wa_curr_amount-curr_type = '00'.
  454.           "wa_curr_amount-currency = 'EUR'.
  455.           "wa_curr_amount-currency_iso = 'EUR'.
  456.           wa_curr_amount-currency = wa_bkpf-waers.
  457.           wa_curr_amount-currency_iso = wa_bkpf-waers.
  458.           wa_curr_amount-amt_doccur = wa_bseg2-WRBTR.
  459.           APPEND wa_curr_amount TO it_curr_amount.
  460.           CLEAR wa_curr_amount.
  461.  
  462.           CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
  463.             EXPORTING
  464.               DOCUMENTHEADER          = wa_header
  465. *             CUSTOMERCPD             =
  466. *             CONTRACTHEADER          =
  467. *           IMPORTING
  468. *             OBJ_TYPE                =
  469. *             OBJ_KEY                 =
  470. *             OBJ_SYS                 =
  471.             TABLES
  472.               ACCOUNTGL               = it_rev_acc
  473.               ACCOUNTRECEIVABLE       = it_acc_rec
  474. *             ACCOUNTPAYABLE          =
  475. *             ACCOUNTTAX              =
  476.               CURRENCYAMOUNT          = it_curr_amount
  477. *             CRITERIA                =
  478. *             VALUEFIELD              =
  479. *             EXTENSION1              =
  480.               RETURN                  = it_return
  481. *             PAYMENTCARD             =
  482. *             CONTRACTITEM            =
  483. *             EXTENSION2              =
  484. *             REALESTATE              =
  485. *             ACCOUNTWT               =
  486.                     .
  487.  
  488.  
  489.           "tuka delot za storniranje
  490.           wa_reversal-obj_type = wa_bkpf-awtyp.
  491.           wa_reversal-obj_key = wa_bkpf-awkey.
  492.           wa_reversal-obj_sys = wa_bkpf-awsys.
  493.           wa_reversal-obj_key_r = wa_bkpf-awtyp.
  494.           lv_bus_act = wa_bkpf-glvor.
  495.           CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
  496.             EXPORTING
  497.               REVERSAL       = wa_reversal
  498.               BUS_ACT        = lv_bus_act
  499. *           IMPORTING
  500. *             OBJ_TYPE       =
  501. *             OBJ_KEY        =
  502. *             OBJ_SYS        =
  503.             TABLES
  504.               RETURN         = it_return_rev
  505.                     .
  506.  
  507.         endif.
  508.  
  509.       ENDIF.
  510.  
  511.     endif.
  512.  
  513.     LOOP AT it_return INTO wa_return.
  514.       WRITE:/ wa_return-message.
  515.     ENDLOOP.
  516.  
  517.     LOOP AT it_return_rev INTO wa_return_rev.
  518.       WRITE:/ wa_return_rev-message.
  519.  
  520.     ENDLOOP.
  521.  
  522.     lv_doc_tmp = lv_doc_tmp + 1.
  523.   ENDWHILE.
  524.  
  525.   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  526.   EXPORTING
  527.     wait          = 'X'
  528. *     IMPORTING
  529. *       RETURN        =
  530.           .
  531.  
  532. end-of-SELECTION.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!