Change AWTYP in accounting document header

Hello all,
I want to change the accounting document field AWTYP from "CAJO" (Cash Journal document) to "BKPF", so that I can use transaction FB08 to reverse it.
I tried using the Business transaction event PROCESS_00001120. I added the AWTYP field to the BKPF_SUBST structure and modified table T_BKPFSUB, however it did not work.
Any ideas? Thank you in advance!

Hello,
the requirement is to create a program where the user selects a cash journal document entry and then reverses the FI document of this entry.
I retrieve the corresponding BELNR document and try to reverse it by using batch input for transaction FB08. The message I get is:
"Not possible to reverse the document in financial accounting. Document '3000000212' in company code '0100' should be reversed. However, this document was not posted in the Financial Accounting module, CAJO is, rather, of type ''.
Therefore, when saving the original cash journal document, I want to modify the AWTYP field from CAJO to BKPF, so that I can reverse it later.
Thank you!

Similar Messages

Change Accounting Document header text

I want to change the Accounting document header text (BKPF-BKTXT).
I dont want to use Call transaction for this.
Please tell me if there is any function module or BAPI available?

>
lavanya koduganti wrote:
> I want to change the Accounting document header text (BKPF-BKTXT).
Do you want to change the A/c'ing doc. header text for an existing doc? I think that CALL TRANSACTION would be easier. Why do you think otherwise?
Any specific reason for this?
BR,
Suhas

Change the Invoice accounting document type RV to some other

Dear Friends,
I need to change the Invoice accounting document type RV to some other, how can I accomplish this
Kind Regards
Ravi

You want to change the doucment type after you have posted the document, you can do so, by following config
IMG . Financial aaccounting > Financial aaccounting basic setting > Document > Rules for changing document > Document change rules document header.
If you are posting through FB60, you can go to EDITING OPTION once you are in FB60 screen. And under Document type option, select Entry with short name
Thanks
ROn

Tracing the line item change in a accounting document

We have to send accounting document line items details which have been created or changed to non-SAP system.
I am looking for way to identify the line items which have been changed as I don't want to send the other line items of the accounting documents which are not changed.
Thanks.

Shailendra,
You've hit the nail on the head - CDHDR and CDPOS are the central repository tables that contain all changes - wherever logged.
There's no other way.
P.S.: I'm assuming you know how to extract data from these tables - so am not going into it.
Remember to assign points if found useful.
Regards
Gulshan

Accounting document header text field

Gurus
I need some help pulling a header text field from an accounting document. I need to run a report on that. Header text is not stored in a table, can anyone suggest what the best way to do that is?
thanks!

Thanks for the tip on those tables. I was able to get some data in STXL -
FF06010102028000343130320000000063010000121F9D021D331F030303230F90606065C00642187C183C19FC185CD74254AE028BB28029468E7510C17D5033
It seems like its in hex, i entered "Error Code :1" in the text field and got this stored in the table!

To change profitcenter in accounting document at line item level

Hi guru's,
I have a requirement that i need to change the profitcenter value in the accounting document based on the G/L number and reference key number when i am releasing the billing document number through vf02.
i tried in many ways but i am unable to achieve this...
Please help me in this regard.
Thanks & Regards
Sastry

Please see [note 1057713|https://websmp230.sap-ag.de/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/sapnotes/index2.htm?numm=1057713]
Rob

Profit center change in posted accounting document

Hello,
please, is it possible to change the profit center in already posted accounting document?
We DTO'd open customer balance with wrong profit center. PC document has been created as well. Please, what is the proper way to change the PC?? Or how to proceed?
Thanks a lot
Kind regards
Marcela

It is not possible to change profit center, for that matter any other CO assignment cannot be changed. You can try transfering to correct profit center through 9ke0

BAPI to change Accounting Document Header

Hi Folks,
I have a requirement to go into an existing document (Billing Doc.) and change the Reference field (XBLNR). The business requirement is specifically to modify the BKPF-XBLNR field to contain a new reference. Is there a BAPI that can be used to modify accounting header details? All the accounting BAPI's I can find seem to be for posting a new record.
Points will be rewarded for helpful answers
Cheers,
Steve

Hi,
Check this example code
TABLES: bapiache08, bapiacgl08,bapiaccr08, bapiret2.
DATA: t_bapiache08 LIKE TABLE OF bapiache08 WITH HEADER LINE,
t_bapiacgl08 LIKE TABLE OF bapiacgl08 WITH HEADER LINE,
t_bapiaccr08 LIKE TABLE OF bapiaccr08 WITH HEADER LINE,
t_bapiret2 LIKE TABLE OF bapiret2 WITH HEADER LINE,
ct_bapiret2 LIKE TABLE OF bapiret2 WITH HEADER LINE.
t_bapiache08-obj_type = 'BKPFF'. "BKPFF
t_bapiache08-obj_key = '010000000000062005'.
t_bapiache08-obj_sys = 'T90CLNT800'. "T09CLNT800
t_bapiache08-username = 'SSI4'.
t_bapiache08-header_txt = 'DOCUMENT POSTING'.
t_bapiache08-comp_code = '1000'.
t_bapiache08-fisc_year = '2005'.
t_bapiache08-doc_date = '20050805'.
t_bapiache08-pstng_date = '20050805'.
t_bapiache08-fis_period = '07'.
t_bapiache08-doc_type = 'SA'.
t_bapiache08-compo_acc = 'FI'. "GL
APPEND t_bapiache08.
t_bapiacgl08-itemno_acc = '031'.
t_bapiacgl08-gl_account = '160000'.
t_bapiacgl08-comp_code = '1000'.
t_bapiacgl08-pstng_date = '20050805'.
t_bapiacgl08-doc_type = 'SA'.
t_bapiacgl08-fisc_year = '2005'.
t_bapiacgl08-fis_period = '07'.
t_bapiacgl08-stat_con = 'X'.
t_bapiacgl08-vendor_no = '1920'. "ACCOUNTING NO.FOR VENDOR/CREDITOR.
t_bapiacgl08-item_text = 'LINE ITEM TEXT BY VIN'.
APPEND t_bapiacgl08.
t_bapiaccr08-itemno_acc = '031'.
t_bapiaccr08-currency_iso = 'EUR'.
t_bapiaccr08-amt_doccur = '2000'.
APPEND t_bapiaccr08.
CALL FUNCTION 'BAPI_ACC_GL_POSTING_POST'
EXPORTING
documentheader = t_bapiache08
* IMPORTING
* OBJ_TYPE =
* OBJ_KEY =
* OBJ_SYS =
TABLES
accountgl = t_bapiacgl08
currencyamount = t_bapiaccr08
return = t_bapiret2
* EXTENSION1 =
LOOP AT t_bapiret2.
WRITE :/ t_bapiret2-type, t_bapiret2-id, t_bapiret2-number,
t_bapiret2-message,t_bapiret2-parameter,
t_bapiret2-row, t_bapiret2-field, t_bapiret2-system.
ENDLOOP.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = ' '
IMPORTING
return = ct_bapiret2.
LOOP AT ct_bapiret2.
WRITE :/ ct_bapiret2-type, ct_bapiret2-id, ct_bapiret2-number,
ct_bapiret2-message,ct_bapiret2-log_no, ct_bapiret2-parameter,
ct_bapiret2-row, ct_bapiret2-field, ct_bapiret2-system.
ENDLOOP.
a®

Migo & Miro Accounting Documents Report

Hello Abapers,
I have made the new ALV report as shown below :-
Report zaccounting no standard page heading line-size 300 line-count 40.
tables : mkpf, "Header: Material Document
         mseg, "Document Segment: Material
         bkpf, "Accounting Document Header
         ekbe. "PO History Table
type-pools slis.
*DATA DECLARATION
data : pos type i,
       l_layout type slis_layout_alv.
data gt_fieldcat type slis_t_fieldcat_alv.
data gt_sort type slis_t_sortinfo_alv.
data ls_fieldcat type slis_fieldcat_alv.
data is_print type slis_print_alv.
data it_events type slis_alv_event occurs 5.
data gs_variant type disvariant.
data t_list_top_of_page type slis_t_listheader.
data title like sy-title.
data : l_title(105) type c,
       l_list(105) type c,         "Store the Top-of-page headings
       l_date(10)   type c,         "Store date in top-of-page
       l_time(8)    type c,         "Store time in top-of-page
       title1 like sy-title,
       title2 like sy-title,
       title3 like sy-title.
*-- Data Declaration
data : repid like sy-repid.
constants: x type c value 'X'.
data zawkey like bkpf-awkey.
types : begin of x_mkpf,
mblnr like mkpf-mblnr,
mjahr like mkpf-mjahr,
budat like mkpf-budat,
ebeln like mseg-ebeln,
ebelp like mseg-ebelp,
bwart like mseg-bwart,
matnr like mseg-matnr,
gsber like mseg-gsber,
werks like mseg-werks,
bukrs like bkpf-bukrs,
belnr like bkpf-belnr,
gjahr like bkpf-gjahr,
bukrs1 like bkpf-bukrs,
belnr1 like bkpf-belnr,
gjahr1 like bkpf-gjahr,
belnr2 like bkpf-belnr,
gjahr2 like bkpf-gjahr,
end of x_mkpf.
data : t_mkpf type standard table of x_mkpf with header line.
S E L E C T I O N - S C R E E N *
selection-screen begin of block b1 with frame title text-009.
select-options: s_budat for mkpf-budat obligatory.
select-options: s_bwart for mseg-bwart.
select-options: s_matnr for mseg-matnr.
select-options: s_gsber for mseg-gsber.
select-options: s_werks for mseg-werks.
selection-screen end of block b1.
start-of-selection.
break abapdev1.
select msegmblnr msegmjahr mkpf~budat
msegebeln msegebelp msegbwart msegmatnr mseggsber msegwerks
into table t_mkpf
from mkpf inner join mseg
on mkpfmblnr = msegmblnr
where budat in s_budat
and bwart in s_bwart
and matnr in s_matnr
and gsber in s_gsber
and werks in s_werks.
loop at t_mkpf.
select single belnr gjahr into (t_mkpf-belnr, t_mkpf-gjahr) from ekbe where ebeln = t_mkpf-ebeln
                              and ebelp = t_mkpf-ebelp
                              and lfbnr = t_mkpf-mblnr
                              and lfgja = t_mkpf-mjahr
                              and bewtp = 'Q'.
modify t_mkpf transporting belnr gjahr.
endloop.
loop at t_mkpf.
clear : zawkey.
concatenate t_mkpf-mblnr t_mkpf-mjahr into zawkey.
select single belnr gjahr into (t_mkpf-belnr1,t_mkpf-gjahr1) from bkpf
                   where awtyp = 'MKPF'
                   and awkey = zawkey.
break abapdev1.
clear : zawkey.
concatenate t_mkpf-belnr t_mkpf-gjahr into zawkey.
select single belnr gjahr into (t_mkpf-belnr2,t_mkpf-gjahr2) from bkpf
                   where awtyp = 'RMRP'
                   and awkey = zawkey.
modify t_mkpf transporting belnr1 gjahr1 belnr2 gjahr2.
endloop.
ls_fieldcat-col_pos       = '1'.
ls_fieldcat-fieldname     = 'BUDAT'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'BUDAT'.
ls_fieldcat-ref_tabname   = 'MKPF'.
ls_fieldcat-seltext_l     = 'PSG DATE'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '2'.
ls_fieldcat-fieldname     = 'MBLNR'.
ls_fieldcat-tabname       = 'X_MSEG'.
ls_fieldcat-ref_fieldname = 'MBLNR'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'MIGO MAT DOCNO.'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '3'.
ls_fieldcat-fieldname     = 'BELNR1'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'BELNR1'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'FI DocNo.'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '4'.
ls_fieldcat-fieldname     = 'GJAHR1'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'GJAHR1'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'FI FiscalYr'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '2'.
ls_fieldcat-fieldname     = 'MJAHR'.
ls_fieldcat-tabname       = 'X_MKPF'.
ls_fieldcat-ref_fieldname = 'MJAHR'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'MIGO MATERIAL DOC. YEAR'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '5'.
ls_fieldcat-fieldname     = 'EBELN'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'EBELN'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'PO No.'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '6'.
ls_fieldcat-fieldname     = 'EBELP'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'EBELP'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'PO ItemNo.'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '7'.
ls_fieldcat-fieldname     = 'BWART'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'BWART'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'Mvt.Type'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '8'.
ls_fieldcat-fieldname     = 'BELNR'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'BELNR'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'MIRO DocNo.'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '9'.
ls_fieldcat-fieldname     = 'GJAHR'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'GJAHR'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'MIRO FiscalYr'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '10'.
ls_fieldcat-fieldname     = 'GSBER'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'GSBER'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'BUS.AREA'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '11'.
ls_fieldcat-fieldname     = 'WERKS'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'WERKS'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'PLANT'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '12'.
ls_fieldcat-fieldname     = 'MATNR'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'MATNR'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'MAT.NO'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '13'.
ls_fieldcat-fieldname     = 'BELNR2'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'BELNR2'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'MIRO FI Doc.No'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
ls_fieldcat-col_pos       = '14'.
ls_fieldcat-fieldname     = 'GJAHR2'.
ls_fieldcat-tabname       = 'T_MSEG'.
ls_fieldcat-ref_fieldname = 'GJAHR2'.
ls_fieldcat-ref_tabname   = 'MSEG'.
ls_fieldcat-seltext_l     = 'MIRO FI FiscalYr'.
append ls_fieldcat to gt_fieldcat.
clear ls_fieldcat.
*&      Form ALV_GRID_DISPLAY
form alv_grid_display .
call function 'REUSE_ALV_GRID_DISPLAY'
   exporting
      i_callback_program                = sy-repid   " 'ZRD_DD'
      it_fieldcat                       = gt_fieldcat "catalogue field
      i_callback_top_of_page            = 'TOP_PAGE'
      is_layout                         = l_layout
     it_sort                           = gt_sort
      i_default                         = 'X'
     i_save                            = 'A'
     is_variant                        = gs_variant
     it_events                         = it_events
     is_print                          = is_print
    tables
      t_outtab                          = t_mkpf
    exceptions
     program_error                      = 1
     others                             = 2
if sy-subrc <> 0.
    message id sy-msgid type 'I' number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform.                    " ALV_GRID_DISPLAY
**&      Form ALV_LAYOUT
*FORM alv_layout USING   ps_layout TYPE slis_layout_alv.
ps_layout-get_selinfos      = x.
ps_layout-colwidth_optimize = x.
ps_layout-detail_popup      = x.
ps_layout-no_keyfix         = x.
ps_layout-coltab_fieldname    = 'CLR'.
ps_layout-key_hotspot       = x.
ps_layout-group_change_edit = x.
ps_layout-zebra = 'X'.
*ENDFORM.                    " ALV_LAYOUT
**&      Form ALV_PRINT
*FORM alv_print .
is_print-no_print_selinfos = x. " display no selection infos
is_print-no_coverpage = x.
is_print-no_new_page = x.
is_print-no_print_listinfos = x. " display no listinfos
*ENDFORM.                    " ALV_PRINT
**&      Form TOP_OF_PAGE
form top_page.
data: ls_line type slis_listheader,
        i_top_of_page type slis_t_listheader.
title = sy-title.
ls_line-typ = 'H'.
ls_line-info = title.
append ls_line to i_top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary = i_top_of_page.
endform.                    "TOP_OF_PAGE
In this report , i have faced some problems :-
1. In MIGO numbers some cases MIRO doc. numbers are not shown against some migo doc. numbers whereas actually MIRO is already done.
2. The Problem in downloading the report, its not accurate download & the MIGO Document Number not shown when we download the report.
Thanks,
Sumit.

Hi Sumit,
Im not sure if it will completely support ur needs but check it out
This is for MIRO.Note here business area is hardcoded.
REPORT zmm_miro_track.
TABLES : rseg, bkpf, bseg, lfa1, ekbe, skat, bsis .
AlV related data declarations
Type Pools
TYPE-POOLS: slis.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
      Data Declaration file                                         *
DATA : BEGIN OF it_rseg OCCURS 0,
         belnr TYPE rseg-belnr,
         gjahr TYPE rseg-gjahr,
         ebeln TYPE rseg-ebeln,
         ebelp TYPE rseg-ebelp,
         bukrs TYPE rseg-bukrs,
         awkey TYPE bkpf-awkey,
         END OF it_rseg.
DATA : BEGIN OF it_bkpf OCCURS 0,
         belnr TYPE bkpf-belnr,
         gjahr TYPE bkpf-gjahr,
         xblnr TYPE bkpf-xblnr,
         budat TYPE bkpf-budat,
         awkey TYPE bkpf-awkey,
         bukrs TYPE bkpf-bukrs,
         belnr1 TYPE bkpf-belnr,
         blart TYPE bkpf-blart,
        END OF it_bkpf.
DATA : BEGIN OF it_bseg OCCURS 0,
         belnr TYPE bseg-belnr,
         gjahr TYPE bseg-gjahr,
         bupla TYPE bseg-bupla,
         lifnr TYPE bseg-lifnr,
         hkont TYPE bseg-hkont,
         koart TYPE bseg-koart,
         mwskz TYPE bseg-mwskz,
         pswbt TYPE bseg-pswbt,
         ebeln TYPE bseg-ebeln,
         ebelp TYPE bseg-ebelp,
         xref3 TYPE bseg-xref3,
         bschl TYPE bseg-bschl,
         shkzg TYPE bseg-shkzg,
         miro_accnt TYPE bseg-hkont,
         xblnr TYPE bkpf-xblnr,
         budat TYPE bkpf-budat,
         belnr1 TYPE bseg-belnr,
         acdes(50),
         belnr2 TYPE bseg-belnr,
         belnr3 TYPE bseg-belnr,
         gjahr1 TYPE bseg-gjahr,
         hkont1 TYPE bseg-hkont,
         pswbt1 TYPE bseg-pswbt,
         budat1 TYPE ekbe-budat,
         acdes1(50),
        END OF it_bseg.
DATA : it_bseg1 LIKE it_bseg OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF it_bsis OCCURS 0,
         belnr TYPE bsis-belnr,
         gjahr TYPE bsis-gjahr,
         bschl TYPE bsis-bschl,
         xref3 TYPE bsis-xref3,
        END OF it_bsis.
DATA : BEGIN OF it_lfa1 OCCURS 0,
         lifnr TYPE lfa1-lifnr,
         name1 TYPE lfa1-name1,
         spras TYPE lfa1-spras,
        END OF it_lfa1.
DATA : BEGIN OF it_skat OCCURS 0,
         saknr TYPE skat-saknr,
         txt20 TYPE skat-txt20,
         txt50 TYPE skat-txt50,
         spras TYPE skat-spras,
         ktopl TYPE skat-ktopl,
        END OF it_skat.
DATA : BEGIN OF it_ekbe OCCURS 0,
         ebeln TYPE ekbe-ebeln,
         ebelp TYPE ekbe-ebelp,
         budat TYPE ekbe-budat,
         bewtp TYPE ekbe-bewtp,
        END OF it_ekbe.
DATA : fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
       gd_repid LIKE sy-repid.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
      gs_layout   TYPE slis_layout_alv ,
      gs_print    TYPE slis_print_alv,
      gt_sort     TYPE slis_t_sortinfo_alv ,
      gt_filter   TYPE slis_t_filter_alv,
      gt_sp_group TYPE slis_t_sp_group_alv,
      gt_alv_graphics TYPE dtc_t_tc,
      gt_excluding TYPE slis_t_extab ,
      gt_events   TYPE slis_t_event .
DATA: g_repid LIKE sy-repid.
DATA: gt_list_top_of_page TYPE slis_t_listheader.
DATA:       g_boxnam TYPE slis_fieldname VALUE 'BOX',
            p_f2code LIKE sy-ucomm       VALUE '&ETA',
            p_lignam TYPE slis_fieldname VALUE 'LIGHTS',
            g_save(1) TYPE c,
            g_default(1) TYPE c,
            g_exit(1) TYPE c,
            gx_variant LIKE disvariant,
            g_variant LIKE disvariant.
      USER ENTRY PARAMETERS                                         *
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_belnr FOR rseg-belnr OBLIGATORY,
                 s_gjahr FOR rseg-gjahr OBLIGATORY,
                 s_budat FOR bkpf-budat.
SELECTION-SCREEN END OF BLOCK blk1.
      START-OF-SELECTION                                            *
START-OF-SELECTION.
PERFORM data_retrive.
PERFORM data_call_alv.
PERFORM build_layout.
END-OF-SELECTION.
*&      Form DATA_CALL_ALV
      text
--> p1        text
<-- p2        text
FORM data_call_alv .
g_repid = sy-repid.
PERFORM e01_fieldcat_init USING gt_fieldcat[].
PERFORM eventtab_build CHANGING gt_events.
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM display_report.
ENDFORM.                    " DATA_CALL_ALV
*&      Form E01_FIELDCAT_INIT
      text
     -->P_GT_FIELDCAT[] text
FORM e01_fieldcat_init USING    e01_lt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
DATA: gs_sort TYPE slis_sortinfo_alv.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BELNR'.
ls_fieldcat-key = 'X'. "SUBTOTAL KEY
ls_fieldcat-col_pos      = '1'.
ls_fieldcat-seltext_l    = 'Accounting Doc'.
ls_fieldcat-outputlen    = 15.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BELNR1'.
ls_fieldcat-col_pos      = '2'.
ls_fieldcat-seltext_l    = 'IR Doc'.
ls_fieldcat-outputlen    = 10.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'XBLNR'.
ls_fieldcat-col_pos      = '3'.
ls_fieldcat-seltext_l    = 'IR Reference'.
ls_fieldcat-outputlen    = 15.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BUDAT'.
ls_fieldcat-col_pos      = '4'.
ls_fieldcat-seltext_l    = 'IR Posting Date'.
ls_fieldcat-outputlen    = 10.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BUPLA'.
ls_fieldcat-col_pos      = '5'.
ls_fieldcat-seltext_l    = 'Business Place'.
ls_fieldcat-outputlen    = 10.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'HKONT'.
ls_fieldcat-col_pos      = '6'.
ls_fieldcat-seltext_l    = 'G/L accounts Posted'.
ls_fieldcat-outputlen    = 15.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'ACDES'.
ls_fieldcat-col_pos      = '7'.
ls_fieldcat-seltext_l    = 'G/L description'.
ls_fieldcat-outputlen    = 20.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'MWSKZ'.
ls_fieldcat-col_pos      = '8'.
ls_fieldcat-seltext_l    = 'Tax Code'.
ls_fieldcat-outputlen    = 8.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'PSWBT'.
ls_fieldcat-col_pos      = '9'.
ls_fieldcat-seltext_l    = 'G/L Amount'.
ls_fieldcat-outputlen    = 20.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'EBELN'.
ls_fieldcat-col_pos      = '10'.
ls_fieldcat-seltext_l    = 'Purchase Order'.
ls_fieldcat-outputlen    = 15.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'EBELP'.
ls_fieldcat-col_pos      = '11'.
ls_fieldcat-seltext_l    = 'P.O.Line Item'.
ls_fieldcat-outputlen    = 10.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BELNR2'.
ls_fieldcat-col_pos      = '12'.
ls_fieldcat-seltext_l    = 'GRN Doc '.
ls_fieldcat-outputlen    = 10.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BELNR3'.
ls_fieldcat-col_pos      = '13'.
ls_fieldcat-seltext_l    = 'GRN FI Doc No.'.
ls_fieldcat-outputlen    = 15.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BUDAT1'.
ls_fieldcat-col_pos      = '14'.
ls_fieldcat-seltext_l    = 'GR Posting Date '.
ls_fieldcat-outputlen    = 10.
APPEND ls_fieldcat TO e01_lt_fieldcat.
ENDFORM.                    "e01_fieldcat_init
*&      Form EVENTTAB_BUILD
      text
     <--P_GT_EVENTS text
FORM eventtab_build CHANGING lt_events TYPE slis_t_event.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = lt_events.
READ TABLE lt_events WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
    MOVE gc_formname_top_of_page TO ls_event-form.
    APPEND ls_event TO lt_events.
ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&      Form E04_COMMENT_BUILD
      text
     -->P_GT_LIST_TOP_OF_PAGE[] text
FORM e04_comment_build USING e04_lt_top_of_page TYPE slis_t_listheader.
DATA : v_time(5) TYPE c.
DATA: ls_line TYPE slis_listheader.
DATA: ls_colr TYPE slis_specialcol_alv.
DATA : v_text(90) TYPE c.
CONCATENATE ' Report for MIRO track ':' ' INTO v_text SEPARATED BY space.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = v_text.
APPEND ls_line TO e04_lt_top_of_page.
ENDFORM.                    " E04_COMMENT_BUILD
      FORM TOP_OF_PAGE                                              *
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gt_list_top_of_page.
ENDFORM.                    "TOP_OF_PAGE
**&      Form DATA_RETRIVE
      text
FORM data_retrive.
fetching Accounting Document Number and Fiscal year from Incoming Invoice table
SELECT belnr gjahr ebeln ebelp bukrs
     INTO CORRESPONDING FIELDS OF TABLE it_rseg
       FROM rseg
       WHERE belnr IN s_belnr
        AND gjahr IN s_gjahr
        AND bukrs = '1000'.
LOOP AT it_rseg.
    CONCATENATE it_rseg-belnr it_rseg-gjahr INTO it_rseg-awkey.
    MODIFY it_rseg.
    CLEAR it_rseg.
ENDLOOP.
IF it_rseg[] IS NOT INITIAL.
    SELECT belnr gjahr xblnr budat awkey
      INTO CORRESPONDING FIELDS OF TABLE it_bkpf
        FROM bkpf
        FOR ALL ENTRIES IN it_rseg
        WHERE awkey = it_rseg-awkey
          AND budat IN s_budat
          AND bukrs = '1000'
          AND blart <> 'ML'.
ENDIF.
IF it_bkpf[] IS NOT INITIAL.
    SELECT belnr gjahr bupla lifnr hkont koart mwskz pswbt ebeln ebelp xref3 bschl shkzg
       INTO CORRESPONDING FIELDS OF TABLE it_bseg
       FROM bseg
       FOR ALL ENTRIES IN it_bkpf
       WHERE belnr = it_bkpf-belnr
         AND gjahr = it_bkpf-gjahr.
ENDIF.
fetching G/L account description
IF it_bseg[] IS NOT INITIAL.
    SELECT lifnr name1
    INTO CORRESPONDING FIELDS OF TABLE it_lfa1
    FROM lfa1
    FOR ALL ENTRIES IN it_bseg
    WHERE lifnr = it_bseg-lifnr
      AND spras = 'EN'.
    SELECT saknr txt20 txt50
    INTO CORRESPONDING FIELDS OF TABLE it_skat
    FROM skat
    FOR ALL ENTRIES IN it_bseg
    WHERE saknr = it_bseg-hkont
      AND spras = 'EN'
      AND ktopl = 'HRJL'.
    SELECT ebeln ebelp budat
    INTO CORRESPONDING FIELDS OF TABLE it_ekbe
    FROM ekbe
    FOR ALL ENTRIES IN it_bseg
    WHERE ebeln = it_bseg-ebeln
      AND ebelp = it_bseg-ebelp
      AND bewtp = 'E'.
ENDIF.
LOOP AT it_bseg.
    IF it_bseg-koart = 'K'.
      it_bseg-miro_accnt = it_bseg-lifnr.
    ELSE.
      it_bseg-miro_accnt = it_bseg-hkont.
    ENDIF.
    IF it_bseg-shkzg = 'H'.
      it_bseg-pswbt = it_bseg-pswbt * -1.
    ENDIF.
    it_bseg-belnr2 = it_bseg-xref3+4(10).
    MODIFY it_bseg.
    READ TABLE it_ekbe WITH KEY ebeln = it_bseg-ebeln
                                ebelp = it_bseg-ebelp.
    IF sy-subrc = 0.
      it_bseg-budat1 = it_ekbe-budat.
    ENDIF.
    READ TABLE it_bkpf WITH KEY belnr = it_bseg-belnr
                                gjahr = it_bseg-gjahr.
    IF sy-subrc = 0.
      it_bseg-belnr = it_bkpf-belnr.
      it_bseg-gjahr = it_bkpf-gjahr.
      it_bseg-xblnr = it_bkpf-xblnr.
      it_bseg-budat = it_bkpf-budat.
      it_bseg-belnr1 = it_bkpf-awkey+0(10).
    ENDIF.
    IF it_bseg-koart = 'K'.
      READ TABLE it_lfa1 WITH KEY lifnr = it_bseg-miro_accnt.
      IF sy-subrc = 0.
        it_bseg-acdes = it_lfa1-name1.
      ENDIF.
    ELSE.
      READ TABLE it_skat WITH KEY saknr = it_bseg-miro_accnt.
      IF sy-subrc = 0.
        IF it_skat-txt20 IS NOT INITIAL.
          it_bseg-acdes = it_skat-txt20.
        ELSE.
          it_bseg-acdes = it_skat-txt50.
        ENDIF.
      ENDIF.
    ENDIF.
    MODIFY it_bseg.
    CLEAR it_bseg.
ENDLOOP.
it_bseg1[] = it_bseg[].
LOOP AT it_bseg1.
    IF it_bseg1-xref3 = ''.
      DELETE it_bseg1.
      CLEAR it_bseg1.
    ENDIF.
ENDLOOP.
IF it_bseg1[] IS NOT INITIAL.
    SELECT belnr gjahr bschl xref3
    FROM bsis
    INTO CORRESPONDING FIELDS OF TABLE it_bsis
    FOR ALL ENTRIES IN it_bseg1
    WHERE xref3 = it_bseg1-xref3
      AND gjahr = it_bseg1-gjahr
      AND bschl = '96'.
ENDIF.
LOOP AT it_bseg.
    READ TABLE it_bsis WITH KEY xref3 = it_bseg-xref3.
    IF sy-subrc = 0.
      it_bseg-belnr3 = it_bsis-belnr.
      it_bseg-gjahr1 = it_bsis-gjahr.
    ENDIF.
    MODIFY it_bseg.
    CLEAR it_bseg.
ENDLOOP.
ENDFORM.                    "data_retrive
*&      Form DISPLAY_REPORT
      text
--> p1        text
<-- p2        text
FORM display_report .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_background_id         = ''
      i_callback_program      = g_repid
     i_callback_user_command = 'USER_COMMAND'
      is_layout               = gs_layout
      it_fieldcat             = gt_fieldcat[]
      it_special_groups       = gt_sp_group[]
      it_sort                 = gt_sort[]
      it_filter               = gt_filter[]
      i_save                  = g_save
      is_variant              = g_variant
      it_events               = gt_events[]
      is_print                = gs_print
      it_alv_graphics         = gt_alv_graphics[]
      it_excluding            = gt_excluding
    TABLES
      t_outtab                = it_bseg.
ENDFORM.                    " DISPLAY_REPORT
*&      Form build_layout
      text
--> p1        text
<-- p2        text
FORM build_layout.
gs_layout-no_input          = 'X'.
gs_layout-colwidth_optimize = 'X'.
gs_layout-totals_text       = 'Totals'(201).
gs_layout-info_fieldname =      'LINE_COLOR'.
ENDFORM.                    " BUILD_LAYOUT
This is for MIGO.
REPORT zmm_migo_track.
TABLES : bseg, ekbe, skat, bsis.
AlV related data declarations
Type Pools
TYPE-POOLS: slis.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
      Data Declaration file                                         *
DATA : BEGIN OF it_bseg OCCURS 0,
         belnr TYPE bseg-belnr,
         gjahr TYPE bseg-gjahr,
         bukrs TYPE bseg-bukrs,
         hkont TYPE bseg-hkont,
         pswbt TYPE bseg-pswbt,
         ebeln TYPE bseg-ebeln,
         ebelp TYPE bseg-ebelp,
         xref3 TYPE bseg-xref3,
         shkzg TYPE bseg-shkzg,
         budat TYPE ekbe-budat,
         acdes(50),
         belnr1 TYPE bseg-belnr,
        END OF it_bseg.
DATA : it_bseg1 LIKE it_bseg OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF it_bsis OCCURS 0,
         belnr TYPE bsis-belnr,
         gjahr TYPE bsis-gjahr,
         bschl TYPE bsis-bschl,
         xref3 TYPE bsis-xref3,
        END OF it_bsis.
DATA : BEGIN OF it_skat OCCURS 0,
         saknr TYPE skat-saknr,
         txt20 TYPE skat-txt20,
         txt50 TYPE skat-txt50,
         spras TYPE skat-spras,
         ktopl TYPE skat-ktopl,
        END OF it_skat.
DATA : BEGIN OF it_ekbe OCCURS 0,
         ebeln TYPE ekbe-ebeln,
         ebelp TYPE ekbe-ebelp,
         budat TYPE ekbe-budat,
         bewtp TYPE ekbe-bewtp,
        END OF it_ekbe.
DATA : fiscal_year_low(4),
        fiscal_year_high(4).
DATA : fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
       gd_repid LIKE sy-repid.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
      gs_layout   TYPE slis_layout_alv ,
      gs_print    TYPE slis_print_alv,
      gt_sort     TYPE slis_t_sortinfo_alv ,
      gt_filter   TYPE slis_t_filter_alv,
      gt_sp_group TYPE slis_t_sp_group_alv,
      gt_alv_graphics TYPE dtc_t_tc,
      gt_excluding TYPE slis_t_extab ,
      gt_events   TYPE slis_t_event .
DATA: g_repid LIKE sy-repid.
DATA: gt_list_top_of_page TYPE slis_t_listheader.
DATA:       g_boxnam TYPE slis_fieldname VALUE 'BOX',
            p_f2code LIKE sy-ucomm       VALUE '&ETA',
            p_lignam TYPE slis_fieldname VALUE 'LIGHTS',
            g_save(1) TYPE c,
            g_default(1) TYPE c,
            g_exit(1) TYPE c,
            gx_variant LIKE disvariant,
            g_variant LIKE disvariant.
      USER ENTRY PARAMETERS                                         *
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_belnr FOR bseg-belnr OBLIGATORY,
                 s_budat FOR ekbe-budat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk1.
AT SELECTION-SCREEN.
IF s_budat-low IS NOT INITIAL.
    CALL FUNCTION 'GM_GET_FISCAL_YEAR'
      EXPORTING
        i_date                           = s_budat-low
        i_fyv                            = 'V3'
     IMPORTING
        e_fy                             = fiscal_year_low
EXCEPTIONS
FISCAL_YEAR_DOES_NOT_EXIST       = 1
NOT_DEFINED_FOR_DATE             = 2
OTHERS                           = 3
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF.
IF s_budat-high IS NOT INITIAL.
    CALL FUNCTION 'GM_GET_FISCAL_YEAR'
      EXPORTING
        i_date                           = s_budat-high
        i_fyv                            = 'V3'
     IMPORTING
        e_fy                             = fiscal_year_high
EXCEPTIONS
FISCAL_YEAR_DOES_NOT_EXIST       = 1
NOT_DEFINED_FOR_DATE             = 2
OTHERS                           = 3
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF.
      START-OF-SELECTION                                            *
START-OF-SELECTION.
PERFORM data_retrive.
PERFORM data_call_alv.
PERFORM build_layout.
END-OF-SELECTION.
*&      Form DATA_CALL_ALV
      text
--> p1        text
<-- p2        text
FORM data_call_alv .
g_repid = sy-repid.
PERFORM e01_fieldcat_init USING gt_fieldcat[].
PERFORM eventtab_build CHANGING gt_events.
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM display_report.
ENDFORM.                    " DATA_CALL_ALV
*&      Form E01_FIELDCAT_INIT
      text
     -->P_GT_FIELDCAT[] text
FORM e01_fieldcat_init USING    e01_lt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
DATA: gs_sort TYPE slis_sortinfo_alv.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BELNR1'.
ls_fieldcat-col_pos      = '1'.
ls_fieldcat-seltext_l    = 'GRN Doc '.
ls_fieldcat-outputlen    = 10.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BELNR'.
ls_fieldcat-col_pos      = '2'.
ls_fieldcat-seltext_l    = 'GRN FI Doc No.'.
ls_fieldcat-outputlen    = 15.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BUDAT'.
ls_fieldcat-col_pos      = '3'.
ls_fieldcat-seltext_l    = 'GR Posting Date '.
ls_fieldcat-outputlen    = 10.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'HKONT'.
ls_fieldcat-col_pos      = '4'.
ls_fieldcat-seltext_l    = 'Account Assignment'.
ls_fieldcat-outputlen    = 15.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'ACDES'.
ls_fieldcat-col_pos      = '5'.
ls_fieldcat-seltext_l    = 'Description'.
ls_fieldcat-outputlen    = 20.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'PSWBT'.
ls_fieldcat-col_pos      = '6'.
ls_fieldcat-seltext_l    = 'G/L Amount'.
ls_fieldcat-outputlen    = 15.
APPEND ls_fieldcat TO e01_lt_fieldcat.
ENDFORM.                    "e01_fieldcat_init
*&      Form EVENTTAB_BUILD
      text
     <--P_GT_EVENTS text
FORM eventtab_build CHANGING lt_events TYPE slis_t_event.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = lt_events.
READ TABLE lt_events WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
    MOVE gc_formname_top_of_page TO ls_event-form.
    APPEND ls_event TO lt_events.
ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&      Form E04_COMMENT_BUILD
      text
     -->P_GT_LIST_TOP_OF_PAGE[] text
FORM e04_comment_build USING e04_lt_top_of_page TYPE slis_t_listheader.
DATA : v_time(5) TYPE c.
DATA: ls_line TYPE slis_listheader.
DATA: ls_colr TYPE slis_specialcol_alv.
DATA : v_text(90) TYPE c.
CONCATENATE ' Report for MIGO track ':' ' INTO v_text SEPARATED BY space.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = v_text.
APPEND ls_line TO e04_lt_top_of_page.
ENDFORM.                    " E04_COMMENT_BUILD
      FORM TOP_OF_PAGE                                              *
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gt_list_top_of_page.
ENDFORM.                    "TOP_OF_PAGE
**&      Form DATA_RETRIVE
      text
FORM data_retrive.
fetching migo G/L account
IF fiscal_year_high IS NOT INITIAL.
    SELECT belnr gjahr hkont pswbt ebeln ebelp xref3 shkzg
       FROM bseg
       INTO CORRESPONDING FIELDS OF TABLE it_bseg
       WHERE belnr IN s_belnr
         AND gjahr BETWEEN fiscal_year_low AND fiscal_year_high
         AND bukrs = '1000'.
ELSE.
    SELECT belnr gjahr hkont pswbt ebeln ebelp xref3 shkzg
       FROM bseg
       INTO CORRESPONDING FIELDS OF TABLE it_bseg
       WHERE belnr IN s_belnr
         AND gjahr = fiscal_year_low
         AND bukrs = '1000'.
ENDIF.
fetching G/L account description
IF it_bseg[] IS NOT INITIAL.
    SELECT saknr txt20 txt50
    INTO CORRESPONDING FIELDS OF TABLE it_skat
    FROM skat
    FOR ALL ENTRIES IN it_bseg
    WHERE saknr = it_bseg-hkont
      AND spras = 'EN'
      AND ktopl = 'HRJL'.
    SELECT ebeln ebelp budat
    INTO CORRESPONDING FIELDS OF TABLE it_ekbe
    FROM ekbe
    FOR ALL ENTRIES IN it_bseg
    WHERE ebeln = it_bseg-ebeln
      AND ebelp = it_bseg-ebelp
      AND bewtp = 'E'.
ENDIF.
LOOP AT it_bseg.
    IF it_bseg-shkzg = 'H'.
      it_bseg-pswbt = it_bseg-pswbt * -1.
    ENDIF.
    MODIFY it_bseg.
    READ TABLE it_ekbe WITH KEY ebeln = it_bseg-ebeln
                                ebelp = it_bseg-ebelp.
    IF sy-subrc = 0.
      it_bseg-budat = it_ekbe-budat.
    ENDIF.
    READ TABLE it_skat WITH KEY saknr = it_bseg-hkont.
    IF sy-subrc = 0.
      IF it_skat-txt20 IS NOT INITIAL.
        it_bseg-acdes = it_skat-txt20.
      ELSE.
        it_bseg-acdes = it_skat-txt50.
      ENDIF.
    ENDIF.
    MODIFY it_bseg.
    CLEAR it_bseg.
ENDLOOP.
it_bseg1[] = it_bseg[].
LOOP AT it_bseg1.
    IF it_bseg1-xref3 = ''.
      DELETE it_bseg1.
      CLEAR it_bseg1.
    ENDIF.
ENDLOOP.
LOOP AT it_bseg.
    READ TABLE it_bseg1 WITH KEY belnr = it_bseg-belnr.
    IF sy-subrc = 0.
      it_bseg-belnr1 = it_bseg1-xref3+4(10).
      it_bseg-xref3 = it_bseg1-xref3.
    ENDIF.
    MODIFY it_bseg.
    CLEAR it_bseg.
ENDLOOP.
ENDFORM.                    "data_retrive
*&      Form DISPLAY_REPORT
      text
--> p1        text
<-- p2        text
FORM display_report .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_background_id         = ''
      i_callback_program      = g_repid
     i_callback_user_command = 'USER_COMMAND'
      is_layout               = gs_layout
      it_fieldcat             = gt_fieldcat[]
      it_special_groups       = gt_sp_group[]
      it_sort                 = gt_sort[]
      it_filter               = gt_filter[]
      i_save                  = g_save
      is_variant              = g_variant
      it_events               = gt_events[]
      is_print                = gs_print
      it_alv_graphics         = gt_alv_graphics[]
      it_excluding            = gt_excluding
    TABLES
      t_outtab                = it_bseg.
ENDFORM.                    " DISPLAY_REPORT
*&      Form build_layout
      text
--> p1        text
<-- p2        text
FORM build_layout.
gs_layout-no_input          = 'X'.
gs_layout-colwidth_optimize = 'X'.
gs_layout-totals_text       = 'Totals'(201).
gs_layout-info_fieldname =      'LINE_COLOR'.
ENDFORM.                    " BUILD_LAYOUT

SO number as reference in accounting document created when posting GI

Hello,
In the header of accounting document, which is being created after posting goods issue, in the "Reference doc." field delivery number is displayed.
Is it possible to have in this field sales order number?? If so, where can I change this set up?
Regards,
Sylwia

Thank you for your advice.
I chcecked the VTFL and I can only see that in this transaction you can do this kind of settings and change the reference field but in accounting document which is created after posting a billing document (and I would like to change it for accounting document created after posting GI when the billing doc. does not exist yet)

How to fetch accounting document number from known material document number

Hi,
Using MIGO transaction, by giving mblnr(material document number) as input, I get accounting document number by clicking FI document.I have to add this accounting document number in my report for corresponding known mblnr(material document number) values.
My question is how to fetch the accounting document number present in MIGO to add in my report program.
I used the xblnr(Reference Document Number) which is present both in mkpf and bkpf tables to fetch values.
I extracted xblnr values with known mblnr values from mkpf (Header: Material Document table).
and then extracted belnr(accounting document number) from bkpf (Accounting Document Header table) by using xblnr values.
But the query is running for a long time.
Is there any other method to extract the values in a simpler way.
Kindly advise.
Thanks and Regards,
Sanjeev

I had the values of xblnr and some other fields such as mblnr, budat etc in wi_item table.
I created a new internal table i_xblnr and got down those values.
And then created a new internal table i_belnr and tried to get values of belnr in it.
The code I wrote is given below:
IF not wi_item[] is initial.
loop at wi_item.
   at new xblnr.
    ws_xblnr-xblnr = wi_item-xblnr.
     append ws_xblnr to i_xblnr.
   endat.
endloop.
select belnr xblnr from bkpf into table i_belnr for all entries in i_xblnr where xblnr = i_xblnr-xblnr.
ENDIF.
Kindly look after it.Thank you.
Regards,
Sanjeev

Accounting document for Export Excise invoice

Dear All,
We have two scenario's one is Domestic Sales & Export Sale.
In domestic sales as per the normal flow of document we create excise invoice after billing document and accounting documents are also generated and updated in the billing document accounting (VF02). Accounting document for excise invoice has been generated.
However in export sales we create excise invoice with the reference of billing document but no accounting document has been generated for excise invoice.
Can u please tell me where i have to make changes so my accounting document for export excise invoice will generate?
Thanks & Regards,
Ratish

Hi ALL,
There are 4 export scenario :
1) Deemed export 2) Export under Bond 3) Export under claim for rebate [No bond] 4) Export under Letter of Undertaking.
3) In export under no bond process is :- we pay the excise on the goods for exports and create the ARE-1 doc and send to port where the customers officials note the actual quantity of goods on the ARE-1 doc and stamped it. Then these stamped ARE-1 will be send to the excise range of the despatch plant(for exports) where we claim the rebate.
Now if you are not able to generate the accounting doc for such a scenario some of the consultants may suggest u to use the user exit (J_1I7_USEREXIT_DUTY_IN_EXPORT) and pass the the value X to the parameter SUPPRESS_CALCULATION this intern will help u to generate the Accounting doc also. but real problem lies somewhere else.
Actual Solution: Maintain J1ID (Customer excise details)
for export customer maintained the excise indicator to 3 {Nil Duty} insted of 1 {100% tax}.
Problem will be solved
Regards
Satish Zade

Accounting document entry date

Is there a function to get the Accounting document entry date? Given the batch number (charg) and Number of material document (mblnr)
Thanks.

hi ,
try this FM <b>AC_DOCUMENT_RECORD</b>, to get the Accounting Documents . For Export parameters just search for this FM in MIRO program , put a break-point, where u will come to know how to use this FM .
Option 2 : Get the MBLNR for the CHARG from MKPFMSEG ,and get AWKEY from this like MBLNRMJAHR pass this one to BKPF to get the Accounting Document @ Header Level.
Regards
Prabhu

Mass Change fuctionality for Delivery Documents

Hi all,
I want to carry out a mass change for a field in the delivery document header.
I know the transaction MASS is not catering for that.
Is that any other standard transaction to do a mass change in the delivery document header level, other than do it through a LSMW?
Appreciate your help on this!
Best regards,
Anupa

hi,
MASS is not there.
As per my knowledge
BAPI_OUTB_DELIVERY_CHANGE - BAPI for Change to Outbound Delivery
BAPI_INB_DELIVERY_SAVEREPLICA - Create Inbound Delivery
RV_DELIVERY_CREATE - Create Delivery
GN_DELIVERY_CREATE - Create an Outbound Delivery
REGARDS,
BALAJIA

Relation between accounting document and vendor

Hello,
What is the relation between Accounting Document Header ( BKPF ) and Vendor Master ( LFA1 ) ?
I need to provide a report for total number of documents for a particular vendor.
Thank you.

Hello,
LFA1 is just a master data table.
To get the number of open items you refer table BSIK
To get the number of cleared items, you refer table BSAK
These two tables gives you the number of line items posted on vendors.
Hope this is informative.
Regards,
Ravi

Change AWTYP in accounting document header

Similar Messages

Maybe you are looking for