Who is patient it is difficult

Question

well i have this program ( about 3000 rows) when i execute it , it is displayed the balance carry forward for each vendor and customer. this is my problem. i want it to be displayed right down of the header the whole balance carry forward for all customers and vendors ( not for each vendor-customer) . i will reward with points for helpful answers. pls it's urgent. here is the code:
*&   Written by: Antonis Nezos
REPORT  z_1gvcl000_v1  NO STANDARD PAGE HEADING
                    MESSAGE-ID 00
                    LINE-COUNT 58(3).
- Global declarations -
TABLES : kna1, knb1, knc1, bsid, bsad, bkpf, t001, t001a, t000,
         t005, t880, t004, ska1, skb1, tbslt, bsec, j_2gmd, tcurt.
TABLES : lfa1, lfb1, lfc1, bsik, bsak.
INCLUDE j_1gspledger.
<< AN
DATA: BEGIN OF ilifnr OCCURS 0,
      lifnr LIKE lfa1-lifnr,
      kunnr LIKE lfa1-kunnr.
DATA: END OF ilifnr.
RANGES:r_kunnr FOR lfa1-kunnr.
DATA:w_lines TYPE p DECIMALS 0.
>> AN
FIELD GROUPS ***
FIELD-GROUPS : header, daten.
DATA :
  BEGIN OF f_group,
    bukrs LIKE lfb1-bukrs,
    lifnr LIKE lfa1-lifnr,
    kunnr LIKE kna1-kunnr,
    akont LIKE lfb1-akont,
    umskz LIKE bsik-umskz,
    id(1),  " 1 = Previous year 2 = Previous dates 3 = Current dates
    otcname LIKE bsec-name1,     " One time vendor name
    budat LIKE bsik-budat,
    xblnr LIKE bsik-xblnr,
    belnr LIKE bsik-belnr,
    buzei LIKE bsik-buzei,
    blart LIKE bsik-blart,
    bschl LIKE bsik-bschl,
    bldat LIKE bsik-bldat,
    waers LIKE bsik-waers,       " Transaction currency
    sgtxt LIKE bsik-sgtxt,
    debitt LIKE bseg-wrbtr,      " In transaction currency
    creditt LIKE bseg-wrbtr,
    balancet LIKE bseg-wrbtr,
    debitl LIKE  bseg-dmbtr,     " In local currency
    creditl LIKE bseg-dmbtr,
    balancel LIKE bseg-dmbtr,
  END OF f_group.
INSERT f_group-bukrs f_group-lifnr f_group-kunnr f_group-akont "SPOT
            f_group-umskz
       f_group-id  f_group-otcname f_group-budat f_group-belnr
       f_group-buzei
       INTO header.
INSERT f_group-blart f_group-bschl f_group-xblnr
       f_group-bldat f_group-waers f_group-sgtxt
       f_group-debitt f_group-creditt f_group-balancet
       f_group-debitl f_group-creditl f_group-balancel
       INTO daten.
DATA DECLARATIONS ***
DATA : success.
DATA : method(1) TYPE n.       " Read standard or extended ledger
DATA : msgtab LIKE fimsg OCCURS 100 WITH HEADER LINE.
DATA : no_headers.
DATA : g_curr LIKE bsik-waers.
DATA : g_curr_t LIKE tcurt-ktext.
DATA : wrote_previous_year.
DATA : wrote_previous_dates.
DATA : g_header(255).
DATA : g_len TYPE i.
DATA : date_string(100).
DATA : h_bukrs LIKE bsik-bukrs.
DATA : h_belnr LIKE bsik-belnr.
DATA : h_gjahr LIKE bsik-gjahr.
DATA : h_akont LIKE bsik-hkont.
DATA : h_lifnr LIKE bsik-lifnr.
DATA : h_kunnr LIKE bsid-kunnr.   "SPOT
RANGES : valid_accounts FOR bsis-hkont.
RANGES : r_umskz FOR bsik-umskz.
Internal table with companies and chart of account used
DATA : BEGIN OF charts_tab OCCURS 10,
         bukrs LIKE t001-bukrs,
         chart LIKE t001-ktopl,
         sakln LIKE t004-sakln,
       END OF charts_tab.
Currencies tables
DATA : BEGIN OF currency_tab OCCURS 100,
         bukrs LIKE t001-bukrs,
         waers LIKE t001-waers,
         curtp LIKE t001-waers,        " Type of currency
       END OF currency_tab.
Ranges and variables that dictate time periods to read.
DATA   : last_previous_period LIKE bkpf-monat. " last previous period.
RANGES : previous_dates FOR sy-datum.
RANGES : all_dates FOR sy-datum.
Summation tables
DATA : BEGIN OF sum_bukrs,             " Summation on local currency
         debitl LIKE lfc1-umsav,
         creditl LIKE lfc1-umsav,
         balancel LIKE lfc1-umsav,
       END OF sum_bukrs.
DATA : BEGIN OF sum_bukrs_t OCCURS 5,  " Summations on transaction curr
         waers LIKE bsik-waers,
         debitt LIKE lfc1-umsav,
         creditt LIKE lfc1-umsav,
         balancet LIKE lfc1-umsav,
       END OF sum_bukrs_t.
DATA : sum_umskz LIKE sum_bukrs.
DATA : sum_umskz_t LIKE sum_bukrs_t OCCURS 5 WITH HEADER LINE.
For previous years
DATA : sum_umskz_py LIKE sum_bukrs.
DATA : sum_umskz_t_py LIKE sum_bukrs_t OCCURS 5 WITH HEADER LINE.
For previous dates
DATA : sum_umskz_pd LIKE sum_bukrs.
DATA : sum_umskz_t_pd LIKE sum_bukrs_t OCCURS 5 WITH HEADER LINE.
Vendor totals
DATA : sum_lifnr LIKE sum_bukrs.
DATA : sum_lifnr_t LIKE sum_bukrs_t OCCURS 5 WITH HEADER LINE.
Customer totals
DATA : sum_kunnr LIKE sum_bukrs.
DATA : sum_kunnr_t LIKE sum_bukrs_t OCCURS 5 WITH HEADER LINE.
For page and carry forward totals.
DATA : sum_page LIKE sum_bukrs.
DATA : sum_cfw LIKE sum_bukrs.
Summation structures ON XBLNR ( reference document )
DATA : items LIKE f_group OCCURS 100 WITH HEADER LINE.
DATA : BEGIN OF xblnr_sum OCCURS 10,
         xblnr LIKE bsik-xblnr,
         budat LIKE bsik-budat,
         bschl LIKE bsik-bschl,
         waers LIKE bsik-waers,        " Currency of transaction
         debitl LIKE  lfc1-umsav,
         creditl LIKE lfc1-umsav,
         balancel LIKE lfc1-umsav,
         debitt LIKE  lfc1-umsav,
         creditt LIKE lfc1-umsav,
         balancet LIKE lfc1-umsav,
         counter TYPE i,               " How many collects where done
       END OF xblnr_sum.
OUTPUT STRUCTURES ***
DATA : BEGIN OF out_1,                 " General info
          budat(10),
          v1(1),
          bldat(10),                       "gleventis 12.07.2006
          v5(1),                           "gleventis 12.07.2006
          xblnr LIKE bsik-xblnr,
          v2(1),
          belnr LIKE bsik-belnr,
          v3(1),
          sgtxt(50),
          v4(1),
          bschl LIKE bsik-bschl,
       END OF out_1,
       BEGIN OF out_2,                 " Local currency
          v1(1),
          debitl(16),
          v2(1),
          creditl(16),
          v3(1),
          balancel(17),
       END OF out_2,
       BEGIN OF out_3,                 " Transaction currency
          v1(1),
          debitt(16),
          v2(1),
          creditt(16),
          v3(1),
          balancet(17),
          v4(1),
          waers(4),
       END OF out_3.
DATA : cfw_1 LIKE out_1.               " For carry forwards
DATA : cfw_2 LIKE out_2.
DATA : pg_1 LIKE out_1.                " For page totals
DATA : pg_2 LIKE out_2.
DATA : bukrs_page LIKE sy-pagno.
- Selection screen definitions -
PARAMETERS: s_ledger LIKE t881-rldnr DEFAULT 'ZD'.
SELECT-OPTIONS: s_bukrs FOR lfb1-bukrs MEMORY ID buk.
SELECT-OPTIONS s_lifnr FOR lfb1-lifnr MATCHCODE OBJECT kred.
SELECTION-SCREEN ULINE.
SELECT-OPTIONS: s_akont FOR lfb1-akont.        " Reconciliation accounts
In which chart of accounts the results will be displayed
SELECTION-SCREEN COMMENT /1(60) text-004.
PARAMETERS s_chart RADIOBUTTON GROUP y." Chart of accounts of company
PARAMETERS s_altk RADIOBUTTON GROUP y. " Alternative chart of accounts
PARAMETERS s_group RADIOBUTTON GROUP y." Group chart of accounts
In which chart of accounts the range of reconciliation accounts
where given by the user
SELECTION-SCREEN COMMENT /1(60) text-019.
PARAMETERS s_acch RADIOBUTTON GROUP j.
PARAMETERS s_asch RADIOBUTTON GROUP j DEFAULT 'X'.
Use 2nd parallel currency
PARAMETERS : s_2curr AS CHECKBOX.
SELECTION-SCREEN ULINE.
Selections on special G/Ls
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS :  s_umskzn RADIOBUTTON GROUP c DEFAULT 'X'. " Normal G/Ls
SELECTION-SCREEN COMMENT (30) text-001.
PARAMETERS :  s_umskzs RADIOBUTTON GROUP c.             " Special G/Ls
SELECTION-SCREEN COMMENT (30) text-002.
PARAMETERS :  s_umskzb RADIOBUTTON GROUP c.             " Both
SELECTION-SCREEN COMMENT (30) text-003.
SELECTION-SCREEN END OF LINE.
Range of special g/L transactions
SELECT-OPTIONS : s_umskz FOR bsik-umskz.
SELECTION-SCREEN ULINE.
Posting dates
PARAMETERS:
  s_gjahr LIKE bkpf-gjahr OBLIGATORY DEFAULT sy-datum(4).
SELECT-OPTIONS:
  s_budat FOR bkpf-budat OBLIGATORY NO-EXTENSION DEFAULT sy-datum.
SELECTION-SCREEN ULINE.
Read previous year balance
PARAMETERS : s_rprevy AS CHECKBOX DEFAULT 'X'.
Read previous dates
PARAMETERS : s_rprevd AS CHECKBOX DEFAULT 'X'.
Print vendors not posted to.
PARAMETERS : s_nonpos AS CHECKBOX.
The following vendors not posted to
SELECT-OPTIONS : s_cusnon FOR lfb1-lifnr MATCHCODE OBJECT kred.
Print one time vendor data.
PARAMETERS : s_onetim AS CHECKBOX.
Amounts in transaction currency
PARAMETERS : s_tran AS CHECKBOX.
Sums on XBLNR
PARAMETERS : s_sxblnr AS CHECKBOX.
Show same XBLNRS as one line
PARAMETERS : s_xblnr AS CHECKBOX.
*<<< DDS Exclude documents with doc type 'CL'
PARAMETERS : s_cl AS CHECKBOX.
*>>> DDS
SELECTION-SCREEN ULINE.
Print user selections.
PARAMETERS : s_psel AS CHECKBOX.
- Selection screen processing -
{ au1++
**********************************************TEST temp
AT SELECTION-SCREEN ON s_bukrs.
  call function 'J_1GBUKRS_AUTH_CHECK'
    exporting
      i_xdb     = 'KB'
    tables
      it_buksel = s_bukrs.
AT SELECTION-SCREEN.
  AUTHORITY-CHECK OBJECT 'F_BKPF_KOA'
                  ID 'KOART' FIELD 'K'
                  ID 'ACTVT' FIELD '03'.
  IF sy-subrc <> 0.
    MESSAGE e482(f4).
  ENDIF.
} au1
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_akont-low.
  CALL FUNCTION 'FI_F4_AKONT'
    EXPORTING
      i_bukrs        = s_bukrs-low
      i_mitkz        = 'K'
    IMPORTING
      e_akont        = s_akont-low
    EXCEPTIONS
      invalid_call   = 1
      nothing_found  = 2
      internal_error = 3
      OTHERS         = 4.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_akont-high.
  CALL FUNCTION 'FI_F4_AKONT'
    EXPORTING
      i_bukrs        = s_bukrs-low
      i_mitkz        = 'K'
    IMPORTING
      e_akont        = s_akont-high
    EXCEPTIONS
      invalid_call   = 1
      nothing_found  = 2
      internal_error = 3
      OTHERS         = 4.
- Data Selection part -
START-OF-SELECTION.
<< AN
  r_kunnr-sign   = 'I'.
  r_kunnr-option = 'EQ'.
  SELECT * FROM lfa1 WHERE lifnr IN s_lifnr.
    IF NOT lfa1-kunnr IS INITIAL.
      ilifnr-kunnr = lfa1-kunnr.
      ilifnr-lifnr = lfa1-lifnr.
      APPEND ilifnr.
      CLEAR: ilifnr.
      r_kunnr-low = lfa1-kunnr.
      COLLECT r_kunnr.
    ENDIF.
  ENDSELECT.
*>> AN
  CALL FUNCTION 'FI_MESSAGE_INIT'.
  PERFORM create_headers.
  PERFORM setup_glind.
get spl summary table
  IF NOT s_ledger IS INITIAL.
    PERFORM get_ledger_table USING s_ledger
                          CHANGING table.
    IF table IS INITIAL.
      MESSAGE s000(8n1) WITH text-s01 s_ledger.
      LEAVE PROGRAM.
    ENDIF.
  compare spl summary table with program data type
    PERFORM check_summary_table CHANGING l_table_differs.
    IF l_table_differs = c_true.
      IF sy-batch <> 'X'.              " (Running in dialog mode)
        string = text-s02.
        REPLACE '$' WITH table INTO string.
        CONDENSE string.
        CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
          EXPORTING
            titel     = sy-title
            textline1 = string
            textline2 = text-s03.
      ENDIF.
    ENDIF.
  ENDIF.                               " not s_ledger is initial
  SELECT * FROM t001 WHERE bukrs IN s_bukrs.
    PERFORM check_posting USING t001 success.
    CHECK success = 'X'.
    PERFORM setup_periods USING  t001-bukrs s_gjahr success.
    CHECK success = 'X'.
    PERFORM setup_currency USING t001 success.
    CHECK success = 'X'.
    PERFORM set_up_chart USING t001 success.
    CHECK success = 'X'.
    PERFORM setup_accounts USING t001. " Setup valid accounts
    IF s_rprevy = 'X' OR s_rprevd = 'X'.
      PERFORM determine_method USING t001.
     << AN
      method = 2.
     >> AN
      IF method = 1.                   " Read from standard ledger "SPOT
        PERFORM collect_knc1 USING t001-bukrs.
        PERFORM collect_lfc1 USING t001-bukrs.
      ELSE.                            " Read from special ledger
        PERFORM collect_extended USING t001-bukrs success.
        CHECK success = 'X'.
      ENDIF.
    ENDIF.
    PERFORM collect_transactions USING t001-bukrs 'BSIK'.
    PERFORM collect_transactions USING t001-bukrs 'BSAK'.
    PERFORM collect_transactions_bsid USING t001-bukrs 'BSID'.
    PERFORM collect_transactions_bsid USING t001-bukrs 'BSAD'.
    IF s_nonpos = 'X' AND ( s_umskzn = 'X' OR s_umskzb = 'X' ).
      PERFORM create_dummy_entries USING t001.
    ENDIF.
  ENDSELECT.
- Processing part -
END-OF-SELECTION.
  IF s_tran = ' '.
    NEW-PAGE LINE-SIZE 170.
  ELSE.
    NEW-PAGE LINE-SIZE 255.
  ENDIF.
  PERFORM set_headers(sapfj1glbh)
      USING '' '' '' '' '' '' '' '' '*' 'X'.
  SORT.
  LOOP.
    AT NEW f_group-bukrs.
      CLEAR bukrs_page.                " Page counter for company
      PERFORM create_bukrs_info.
      CLEAR sum_cfw.
      CLEAR : sum_bukrs, sum_bukrs_t[], sum_bukrs_t.
      READ TABLE currency_tab WITH KEY bukrs = f_group-bukrs.
      g_curr = currency_tab-waers.
      CLEAR tcurt.
      SELECT SINGLE * FROM tcurt WHERE spras = sy-langu AND
                                       waers = g_curr.
      g_curr_t = tcurt-ktext.
      NEW-PAGE.
    ENDAT.
    AT NEW f_group-lifnr.
      PERFORM write_lifnr.
      CLEAR : sum_lifnr, sum_lifnr_t[], sum_lifnr_t.
    ENDAT.
    AT NEW f_group-kunnr.
      PERFORM write_kunnr.
      CLEAR : sum_kunnr, sum_kunnr_t[], sum_kunnr_t.
    ENDAT.
    AT NEW f_group-umskz.
      PERFORM write_umskz.
      CLEAR : sum_umskz, sum_umskz_t[], sum_umskz_t.
      CLEAR : sum_umskz_py, sum_umskz_t_py[], sum_umskz_t_py.
      CLEAR : sum_umskz_pd, sum_umskz_t_pd[], sum_umskz_t_pd.
      CLEAR : wrote_previous_year, wrote_previous_dates.
    ENDAT.
    AT NEW f_group-otcname.
      IF f_group-id = '3'.             " Line items
        IF f_group-otcname NE space.
          PERFORM write_one_time_vendor USING f_group.
          PERFORM write_one_time_customer USING f_group.
        ENDIF.
        CLEAR : items[], items, xblnr_sum[], xblnr_sum.
      ENDIF.
    ENDAT.
    IF ( f_group-id = '1' ).
      ADD-CORRESPONDING f_group TO sum_umskz_py.
      MOVE-CORRESPONDING f_group TO sum_umskz_t_py.
      COLLECT sum_umskz_t_py.
    ELSEIF ( f_group-id = '2' ).
      ADD-CORRESPONDING f_group TO sum_umskz_pd.
      MOVE-CORRESPONDING f_group TO sum_umskz_t_pd.
      COLLECT sum_umskz_t_pd.
    ELSE.                              " Line items
      IF s_sxblnr = 'X'.               " Sums on XBLNR
        MOVE-CORRESPONDING f_group TO items.
        APPEND items.
        MOVE-CORRESPONDING f_group TO xblnr_sum.
        IF s_tran NE 'X'.       " No transaction currency necessary
          CLEAR xblnr_sum-waers.
        ENDIF.
        xblnr_sum-counter = 1.
        COLLECT xblnr_sum.
      ELSE.
        ADD-CORRESPONDING f_group TO sum_umskz.
        MOVE-CORRESPONDING f_group TO sum_umskz_t.
        COLLECT sum_umskz_t.
        PERFORM write_line USING f_group.
      ENDIF.
    ENDIF.
    AT END OF f_group-otcname.
      IF f_group-id = '3'.
        IF s_sxblnr = 'X'.             " Sums on XBLNR
          PERFORM process_xblnr.
        ENDIF.
      ENDIF.
    ENDAT.
    AT END OF f_group-id.
      IF ( f_group-id = '1' ).
        ADD-CORRESPONDING sum_umskz_py TO sum_umskz.
        PERFORM pass_trans TABLES sum_umskz_t_py sum_umskz_t.
        PERFORM write_previous TABLES sum_umskz_t_py
                               USING sum_umskz_py '1'.
      ELSEIF ( f_group-id = '2' ).
        ADD-CORRESPONDING sum_umskz_pd TO sum_umskz.
        PERFORM pass_trans TABLES sum_umskz_t_pd sum_umskz_t.
        PERFORM write_previous TABLES sum_umskz_t_pd
                               USING sum_umskz_pd  '2'.
      ENDIF.
    ENDAT.
    AT END OF f_group-umskz.
      PERFORM write_end_account.
      ADD-CORRESPONDING sum_umskz TO sum_bukrs.
      PERFORM pass_trans TABLES sum_umskz_t sum_bukrs_t.
    ENDAT.
    AT END OF f_group-akont.
    ENDAT.
    AT END OF f_group-lifnr.
    ENDAT.
    AT END OF f_group-kunnr.
    ENDAT.
    AT END OF f_group-bukrs.
      PERFORM print_company_totals.
    ENDAT.
  ENDLOOP.
  PERFORM write_errors.
  IF s_psel = 'X'.
    PERFORM print_user_selections.
  ENDIF.
  CLEAR : h_bukrs, h_lifnr, h_kunnr, h_gjahr, h_akont, h_belnr.
TOP OF PAGE PROCESSING ***
TOP-OF-PAGE.
  CLEAR sum_page.
  ADD 1 TO bukrs_page.
  IF no_headers = space.
Create the header lines
    PERFORM write_headers(sapfj1glbh)
            USING t001
                  text-p01 ''
                  bukrs_page
                  date_string
                  g_curr
                  g_header ' '.
    ULINE.
Write carry forwards.
    IF bukrs_page NE 1.
      CLEAR : cfw_1, cfw_2.
      cfw_1-sgtxt = text-205.
      WRITE sum_cfw-debitl TO cfw_2-debitl CURRENCY g_curr.
      WRITE sum_cfw-creditl TO cfw_2-creditl CURRENCY g_curr.
      WRITE sum_cfw-balancel TO cfw_2-balancel CURRENCY g_curr.
      WRITE : / cfw_1 NO-GAP, cfw_2 NO-GAP.
    ENDIF.
    SKIP 1.
  ENDIF.
END OF PAGE PROCESSING ***
END-OF-PAGE.
  IF no_headers = space.
    SKIP 1.
Write page totals
    CLEAR : pg_1, pg_2.
    pg_1-sgtxt = text-203.
    WRITE sum_page-debitl TO pg_2-debitl CURRENCY g_curr.
    WRITE sum_page-creditl TO pg_2-creditl CURRENCY g_curr.
    WRITE sum_page-balancel TO pg_2-balancel CURRENCY g_curr.
    WRITE : / pg_1 NO-GAP, pg_2 NO-GAP.
Write carry forwards
    CLEAR : cfw_1, cfw_2.
    cfw_1-sgtxt = text-206.
    WRITE sum_cfw-debitl TO cfw_2-debitl CURRENCY g_curr.
    WRITE sum_cfw-creditl TO cfw_2-creditl CURRENCY g_curr.
    WRITE sum_cfw-balancel TO cfw_2-balancel CURRENCY g_curr.
    WRITE : / cfw_1 NO-GAP, cfw_2 NO-GAP.
  ENDIF.
- User Interaction part -
AT LINE-SELECTION.
  IF h_belnr NE space AND h_belnr NE '**********'.
    SET PARAMETER ID 'BLN' FIELD h_belnr.
    SET PARAMETER ID 'BUK' FIELD h_bukrs.
    SET PARAMETER ID 'GJR' FIELD h_gjahr.
    CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
  ELSEIF h_akont NE space.
    IF s_chart = 'X'.
      SET PARAMETER ID 'SAK' FIELD h_akont.
      SET PARAMETER ID 'BUK' FIELD h_bukrs.
      SET PARAMETER ID 'GJR' FIELD h_gjahr.
      CALL TRANSACTION 'FS10N' AND SKIP FIRST SCREEN.
    ENDIF.
  ELSEIF h_lifnr NE space.
    SET PARAMETER ID 'LIF' FIELD h_lifnr.
    SET PARAMETER ID 'BUK' FIELD h_bukrs.
    SET PARAMETER ID 'GJR' FIELD h_gjahr.
    CALL TRANSACTION 'FK10N' AND SKIP FIRST SCREEN.
  ELSEIF h_kunnr NE space.   "SPOT
    SET PARAMETER ID 'KUN' FIELD h_kunnr.
    SET PARAMETER ID 'BUK' FIELD h_bukrs.
    SET PARAMETER ID 'GJR' FIELD h_gjahr.
    CALL TRANSACTION 'FD10N' AND SKIP FIRST SCREEN.
  ENDIF.
  CLEAR : h_bukrs, h_lifnr,  h_kunnr, h_gjahr, h_akont, h_belnr.
- S u b r o u t i n e s -
  Determine if we should read from General Ledger or Special         *
  Further criteria in the selection screen should be tested here,    *
  if they create the necessity to read form an extended ledger       *
  It is advisable if an extended ledger exists to set up method      *
  always to 2 ( always to read from extended ledger )                *
  --- Read program documentation ---                                 *
FORM determine_method USING value(v_t001) STRUCTURE t001.
  READ TABLE currency_tab WITH KEY bukrs = v_t001-bukrs.
  IF ( s_umskzn EQ 'X' ) AND
     ( currency_tab-curtp = '10' ) AND
     ( s_tran NE 'X' ).
    method = 1.             " No need to read from special ledger
  ELSE.
    method = 2.             " Need to read from special ledger
  ENDIF.
  IF NOT s_ledger IS INITIAL.
    method = 2.
  ENDIF.
ENDFORM.                    "determine_method
  Set up the last previous period and the current periods.           *
FORM setup_periods USING value(pbukrs)
                          value(pgjahr)
                          success.
  DATA : period_l  LIKE   t009b-poper.
  DATA : BEGIN OF the_periods OCCURS 20.
          INCLUDE STRUCTURE periods.
  DATA : END OF the_periods.
  DATA : date_low LIKE sy-datum.
  DATA : date_high LIKE sy-datum.
  DATA : w_date LIKE sy-datum.
  DATA : 1st_date LIKE sy-datum.
  DATA : t001_wa LIKE t001.
  success = 'X'.
Clear all date structures
  CLEAR last_previous_period.
  CLEAR previous_dates.      REFRESH previous_dates.
  CLEAR all_dates.           REFRESH all_dates.
Put selected dates into all_dates.
  LOOP AT s_budat.
    MOVE s_budat TO all_dates.
    APPEND all_dates.
  ENDLOOP.
No need to read periods balance
  IF s_rprevy = space AND s_rprevd = space.
    EXIT.
  ENDIF.
  SELECT SINGLE * FROM t001 INTO t001_wa WHERE bukrs = pbukrs.
  CALL FUNCTION 'G_PERIODS_OF_YEAR_GET'
    EXPORTING
      variant             = t001_wa-periv
      year                = pgjahr
    IMPORTING
      last_normal_period  = period_l
    TABLES
      i_periods           = the_periods
    EXCEPTIONS
      variant_not_defined = 1
      year_not_defined    = 2
      OTHERS              = 3.
  IF sy-subrc NE 0.
    CLEAR msgtab.
    msgtab-msort = '5'.
    msgtab-msgid = '00'.
    msgtab-msgty = 'E'.
    msgtab-msgno = '398'.
    msgtab-msgv1 = pbukrs.
    CALL FUNCTION 'FI_MESSAGE_COLLECT'
      EXPORTING
        i_fimsg = msgtab.
    CLEAR success.
    EXIT.
  ENDIF.
  READ TABLE s_budat INDEX 1.
  date_low = s_budat-low.
  IF s_budat-high NE 0.
    date_high = s_budat-high.
  ELSE.
    date_high = s_budat-low.
  ENDIF.
  SORT the_periods  BY buper.
  LOOP AT the_periods.
    IF date_low > the_periods-datbi.
      last_previous_period = the_periods-buper.
    ENDIF.
  ENDLOOP.
Set up dates
  LOOP AT the_periods.
    IF date_low BETWEEN the_periods-datab AND
                        the_periods-datbi.
      IF date_low GT the_periods-datab.
        CLEAR previous_dates.
        previous_dates-sign = 'I'.
        previous_dates-option = 'BT'.
        previous_dates-low = the_periods-datab.
        previous_dates-high = date_low - 1.
        APPEND previous_dates.
        MOVE previous_dates TO all_dates.
        APPEND all_dates.
      ENDIF.
      EXIT.
    ENDIF.
  ENDLOOP.
ENDFORM.                    "setup_periods
Write errors that occured                                            *
FORM write_errors.
  DATA xfeld.
  no_headers ='X'.
  CALL FUNCTION 'FI_MESSAGE_CHECK'
    EXCEPTIONS
      no_message = 01.
  IF sy-subrc = 0.
    NEW-PAGE.
    ULINE.
    WRITE text-f00.
    ULINE.
    CALL FUNCTION 'FI_MESSAGE_SORT'.
    CLEAR   msgtab.
    REFRESH msgtab.
    CALL FUNCTION 'FI_MESSAGE_GET_MSORT'
      IMPORTING
        e_xinit    = xfeld
      TABLES
        s_fimsg    = msgtab
      EXCEPTIONS
        no_message = 1.
    IF sy-subrc = 0.
      LOOP AT msgtab.
        CASE msgtab-msort.
          WHEN '1'.
            WRITE text-f01 COLOR 3.
          WHEN '2'.
            WRITE text-f02 COLOR 3.
          WHEN '3'.
            WRITE text-f03 COLOR 3.
          WHEN '4'.
            WRITE text-f04 COLOR 3.
          WHEN '5'.
            WRITE text-f05 COLOR 3.
          WHEN '6'.
            WRITE text-f06 COLOR 3.
          WHEN '7'.
            WRITE text-f07 COLOR 3.
          WHEN '8'.
            WRITE text-f08 COLOR 3.
          WHEN '9'.
            WRITE text-f09 COLOR 3.
        ENDCASE.
        CALL FUNCTION 'FI_MESSAGE_PRINT'
          EXPORTING
            i_msort = msgtab-msort
            i_xausn = ' '
            i_xeaus = 'X'
            i_xskip = ' '.
        SKIP.
      ENDLOOP.
    ENDIF.
  ENDIF.
ENDFORM.                    "write_errors
  Setup currencies
FORM setup_currency USING
                         value(v_t001) STRUCTURE t001
                         p_success.
  PERFORM test_currency USING v_t001 p_success.
  CHECK p_success = space.             " Currency determination failed
  CLEAR msgtab.
  msgtab-msort = '2'.
  msgtab-msgid = '00'.
  msgtab-msgty = 'E'.
  msgtab-msgno = '398'.
  msgtab-msgv1 = v_t001-bukrs.
  CALL FUNCTION 'FI_MESSAGE_COLLECT'
    EXPORTING
      i_fimsg = msgtab.
ENDFORM.                    "setup_currency
test if 2nd currency exists if user selected to display amounts      *
in 2nd Company code currency.                                        *
Also update the currencies_tab.                                      *
FORM test_currency USING
                         value(v_t001) STRUCTURE t001
                         p_success.
  CLEAR p_success.
  IF s_2curr = space.
    currency_tab-bukrs = v_t001-bukrs.
    currency_tab-waers = v_t001-waers.
    currency_tab-curtp = '10'.
    APPEND currency_tab.
    p_success = 'X'.
    EXIT.
  ENDIF.
  SELECT SINGLE * FROM t001a WHERE bukrs = v_t001-bukrs.
  CHECK sy-subrc = 0.
  CHECK t001a-curtp NE space.
  CASE t001a-curtp.
    WHEN '30'.                         " Group currency
      SELECT SINGLE * FROM t000  WHERE mandt = sy-mandt.
      CHECK sy-subrc = 0.
      CHECK t000-mwaer NE space.
      currency_tab-bukrs = v_t001-bukrs.
      currency_tab-waers = t000-mwaer.
      currency_tab-curtp = '30'.
      APPEND currency_tab.
    WHEN '40'.                         " Hard currency
      SELECT SINGLE * FROM t005 WHERE land1 = v_t001-land1.
      CHECK sy-subrc = 0.
      CHECK t005-curha NE space.
      currency_tab-bukrs = v_t001-bukrs.
      currency_tab-waers = t005-curha.
      currency_tab-curtp = '40'.
      APPEND currency_tab.
    WHEN '50'.                         " Index-based currency
      SELECT SINGLE * FROM t005  WHERE land1 = v_t001-land1.
      CHECK sy-subrc = 0.
      CHECK t005-curin NE space.
      currency_tab-bukrs = v_t001-bukrs.
      currency_tab-waers = t005-curin.
      currency_tab-curtp = '50'.
      APPEND currency_tab.
    WHEN '60'.                         " Global company currency
      SELECT SINGLE * FROM t880 WHERE rcomp = v_t001-rcomp.
      CHECK sy-subrc = 0.
      CHECK t880-curr NE space.
      currency_tab-bukrs = v_t001-bukrs.
      currency_tab-waers = t880-curr.
      currency_tab-curtp = '60'.
      APPEND currency_tab.
    WHEN OTHERS.  EXIT.
  ENDCASE.
  p_success = 'X'.
ENDFORM.                    "test_currency
    Set up chart of accounts                                         *
FORM set_up_chart USING value(v_t001) STRUCTURE t001
                        p_success.
  CLEAR p_success.
  IF s_chart = 'X'.                    " Normal chart of accounts
    charts_tab-bukrs = v_t001-bukrs.
    charts_tab-chart = v_t001-ktopl.
    CLEAR t004.
    SELECT SINGLE * FROM t004 WHERE ktopl = v_t001-ktopl.
    charts_tab-sakln = t004-sakln.
    IF charts_tab-sakln = 0.
      charts_tab-sakln = 10.
    ENDIF.
    APPEND charts_tab.
    p_success = 'X'.
    EXIT.
  ENDIF.
  IF s_altk = 'X'.                     " Alternative chart of accounts
    charts_tab-bukrs = v_t001-bukrs.
    IF v_t001-ktop2 = space.
      charts_tab-chart = v_t001-ktopl.
    ELSE.
      charts_tab-chart = v_t001-ktop2.
    ENDIF.
    CLEAR t004.
    SELECT SINGLE * FROM t004 WHERE ktopl = charts_tab-chart.
    charts_tab-sakln = t004-sakln.
    IF charts_tab-sakln = 0.
      charts_tab-sakln = 10.
    ENDIF.
    APPEND charts_tab.
    p_success = 'X'.
    EXIT.
  ENDIF.
  IF s_group = 'X'.                    " Group chart of accounts
    charts_tab-bukrs = v_t001-bukrs.
    CLEAR t004.
    SELECT SINGLE * FROM t004 WHERE ktopl = v_t001-ktopl.
    IF sy-subrc NE 0 OR t004-kktpl = space.
      CLEAR msgtab.
      msgtab-msort = '3'.
      msgtab-msgid = '00'.
      msgtab-msgty = 'E'.
      msgtab-msgno = '398'.
      msgtab-msgv1 = v_t001-bukrs.
      CALL FUNCTION 'FI_MESSAGE_COLLECT'
        EXPORTING
          i_fimsg = msgtab.
      EXIT.
    ENDIF.
    charts_tab-chart = t004-kktpl.
    CLEAR t004.
    SELECT SINGLE * FROM t004 WHERE ktopl = charts_tab-chart.
    charts_tab-sakln = t004-sakln.
    IF charts_tab-sakln = 0.
      charts_tab-sakln = 10.
    ENDIF.
    APPEND charts_tab.
    p_success = 'X'.
    EXIT.
  ENDIF.
ENDFORM.                    "set_up_chart
    Set up account                                                   *
FORM determine_account USING value(v_bukrs)
                             value(v_hkont)
                             p_hkont
                             p_success.
  CLEAR p_success.
If account ranges are given in company chart of accounts.
  IF s_acch = 'X' OR s_chart = 'X'.
    CHECK v_hkont IN s_akont.
  ENDIF.
  IF s_chart = 'X'.                    " Company accounts
    p_hkont = v_hkont.
    p_success = 'X'.
  ELSEIF s_altk = 'X'.                 " Alternative accounts
    PERFORM find_alternative_account USING v_bukrs v_hkont
                                           p_hkont p_success.
    CHECK p_success = 'X'.
  ELSE.                                " Group accounts
    PERFORM find_group_account USING v_bukrs v_hkont
                                     p_hkont p_success.
    CHECK p_success = 'X'.
  ENDIF.
  IF s_asch = 'X' AND s_chart NE 'X'.
    IF NOT ( p_hkont IN s_akont ).
      CLEAR p_success.
    ENDIF.
  ENDIF.
ENDFORM.                    "determine_account
Find alternative account                                             *
FORM find_alternative_account USING value(v_bukrs)
                                    value(v_hkont)
                                    p_alt_account
                                    p_success.
  DATA : altkt_not_found LIKE skb1-xkres.
  DATA : p_sakan LIKE ska1-sakan.
  DATA : ktext LIKE skat-txt20.
  DATA : ltext LIKE skat-txt50.
  DATA : text_not_found LIKE skb1-xkres.
  p_success = 'X'.
  CALL FUNCTION 'READ_SACHKONTO_ALTKT'
    EXPORTING
      bukrs           = v_bukrs
      saknr           = v_hkont
      xmass           = 'X'
      xskan           = 'X'
    IMPORTING
      altkt           = p_alt_account
      altkt_not_found = altkt_not_found
      altkt_sakan     = p_sakan
      ktext           = ktext
      ltext           = ltext
      text_not_found  = text_not_found
    EXCEPTIONS
      bukrs_not_found = 1
      saknr_not_found = 2
      OTHERS          = 3.
  IF altkt_not_found = 'X'.
    CLEAR msgtab.
    msgtab-msort = '1'.
    msgtab-msgid = 'FR'.
    msgtab-msgty = 'E'.
    msgtab-msgno = '274'.
    msgtab-msgv1 = v_hkont.
    msgtab-msgv2 = v_bukrs.
    CALL FUNCTION 'FI_MESSAGE_COLLECT'
      EXPORTING
        i_fimsg = msgtab.
    CLEAR p_success.
  ENDIF.
ENDFORM.                    "find_alternative_account
Find account according to group chart of accounts                    *
FORM find_group_account USING value(v_bukrs)
                                    value(v_hkont)
                                    p_group_account
                                    p_success.
  DATA : t001_wa LIKE t001.
  p_success = 'X'.
  CLEAR charts_tab.
  READ TABLE charts_tab WITH KEY bukrs = v_bukrs.
  SELECT SINGLE * FROM t001 INTO t001_wa WHERE bukrs = v_bukrs.
  SELECT SINGLE * FROM ska1 WHERE ktopl = t001_wa-ktopl AND
                           saknr = v_hkont.
  p_group_account = ska1-bilkt.
  IF sy-subrc NE 0 OR ska1-bilkt = space.
    CLEAR msgtab.
    msgtab-msort = '4'.
    msgtab-msgid = 'FR'.
    msgtab-msgty = 'E'.
    msgtab-msgno = '274'.
    msgtab-msgv1 = v_bukrs.
    msgtab-msgv2 = v_hkont.
    CALL FUNCTION 'FI_MESSAGE_COLLECT'
      EXPORTING
        i_fimsg = msgtab.
    CLEAR p_success.
  ENDIF.
ENDFORM.                    "find_group_account
SPOT
Collect information from lfc1                                       *
FORM collect_lfc1 USING value(pbukrs).
  DATA : amount LIKE lfc1-um01s.
  DATA : l_success.
  SELECT * FROM lfc1 WHERE bukrs = pbukrs AND
                           lifnr IN s_lifnr AND
                           gjahr = s_gjahr.
    CLEAR f_group.
    f_group-bukrs = lfc1-bukrs.
    f_group-lifnr = lfc1-lifnr.
  { au1++
    CLEAR: lfa1, lfb1.
    SELECT SINGLE * FROM lfa1 WHERE lifnr = lfc1-lifnr.
    call function 'J_1GACCOUNT_AUTH_CHECK'
      exporting
        i_xdb            = 'K'
        i_begru          = lfa1-begru
        i_aktvt          = '03'
      exceptions
        no_authorization = 1
        others           = 2.
    check sy-subrc = 0.
  } au1
    SELECT SINGLE * FROM lfb1 WHERE lifnr = lfc1-lifnr AND
                                    bukrs = pbukrs.
    IF sy-subrc NE 0.
      f_group-akont = '##########'.
    ELSE.
      PERFORM determine_account USING pbukrs lfb1-akont
                                f_group-akont l_success.
      CHECK l_success = 'X'.
    ENDIF.
  { au1++
    call function 'J_1GACCOUNT_AUTH_CHECK'
      exporting
        i_xdb            = 'K'
        i_begru          = lfb1-begru
        i_aktvt          = '03'
      exceptions
        no_authorization = 1
        others           = 2.
    check sy-subrc = 0.
  } au1
    f_group-umskz = space.
    IF lfc1-umsav NE 0 AND s_rprevy = 'X'.
      f_group-balancel = lfc1-umsav.      "BCF
      f_group-id = '1'.
      EXTRACT daten.
    ENDIF.
    IF last_previous_period > 0.
      CLEAR : amount, f_group-debitl, f_group-creditl,
              f_group-balancel.
      DO last_previous_period TIMES
         VARYING amount FROM lfc1-um01s NEXT lfc1-um02s.
        ADD amount TO f_group-debitl.
      ENDDO.
    f_group-debitl = abs( f_group-debitl ).
      CLEAR amount.
      DO last_previous_period TIMES
         VARYING amount FROM lfc1-um01h NEXT lfc1-um02h.
        ADD amount TO f_group-creditl.
      ENDDO.
    f_group-creditl = abs( f_group-creditl ).
      IF ( f_group-debitl NE 0 OR f_group-creditl NE 0 ) AND
         ( s_rprevd = 'X' ).
        f_group-balancel = f_group-debitl - f_group-creditl.
        f_group-id = '2'.
        EXTRACT daten.
      ENDIF.
    ENDIF.
  ENDSELECT.
ENDFORM.                    "collect_lfc1
SPOT
Collect information from KNC1                                       *
FORM collect_knc1 USING value(pbukrs).
  DATA : amount LIKE knc1-um01s.
  DATA : l_success.
A.NEZ
  select * from lfa1 where lifnr in s_lifnr.
*ilifnr-kunnr = lfa1-kunnr.
*append ilifnr.
*clear: ilifnr.
*endselect.
  LOOP AT ilifnr.
    SELECT * FROM knc1 WHERE bukrs = pbukrs AND
                             kunnr = ilifnr-kunnr AND
                             gjahr = s_gjahr.
      CLEAR f_group.
      f_group-bukrs = knc1-bukrs.
      f_group-kunnr = knc1-kunnr.
  { au1++
      CLEAR: kna1, knb1.   "SPOT K
      SELECT SINGLE * FROM kna1 WHERE kunnr = knc1-kunnr.
    call function 'J_1GACCOUNT_AUTH_CHECK'
      exporting
        i_xdb            = 'D'
        i_begru          = kna1-begru
        i_aktvt          = '03'
      exceptions

Answer 1

PLEASE HELP