SAP Note 22656 - RFSBSA00: Missing financial statement key

Symptom:

Key words: RFSBSA00, balance sheet, P+L, financial statement key ERGSL FSE2 FSE3
In the financial statement version display (RFSBSA00), the financial statement key is not displayed.

Cause and prerequisites

Displaying the financial statement key is not relevant for the version display. Financial statement keys are only needed for the link with the key figures.

Solution

Copy program RFSBSA00 to a separate name (ZZ....) and make the following changes.

• In the program, look for all positions in which the form routine TEXTSCHREIBEN is used (editor command FI TEXTSCHREIBEN). Change the program code at the positions found according to the following specifications.
  Be sure to note the different installation instructions for various Releases.

RELEASE: <>

1st position found ---------------------------------
... FORM X011P_ABARBEITEN.
LOOP AT X011P. "Bilanz-Positionen
"und Hierachiestufen abarbeiten
SAVE_X011P_IND = SY-TABIX.
* PERFORM TEXTSCHREIBEN USING ' ' CHAR_L. "Erzeugt Leerzeile <---old
PERFORM TEXTSCHREIBEN USING ' ' SPACE CHAR_L. "Erzeugt Leer<---new...
2nd position found ----------------------------
... FEHLERZEILE = TEXT-010.
ENDIF.
ENDIF.
* PERFORM TEXTSCHREIBEN USING FEHLERZEILE SPACE. <---old
PERFORM TEXTSCHREIBEN USING FEHLERZEILE SPACE SPACE. <---new
ENDIF.
ENDIF....
3rd and 4th positions found ---------------------------------
... IF NOT X011Q-TXT45 CO ' -='.
IF X011Q-ZEILE = 0 OR X011Q-ZEILE = 1.
* PERFORM TEXTSCHREIBEN USING X011Q-TXT45 SPACE. <-old
PERFORM TEXTSCHREIBEN USING X011Q-TXT45 X011Q-ERGSL SPACE. <-new
ELSE.
* PERFORM TEXTSCHREIBEN USING X011Q-TXT45 CHAR_X. <-old
PERFORM TEXTSCHREIBEN USING X011Q-TXT45 X011Q-ERGSL CHAR_X. <-new
ENDIF.
ENDIF.
ENDDO....
5th position found ---------------------------------
... *FORM TEXTSCHREIBEN USING TEXT FLAG. <--- old
FORM TEXTSCHREIBEN USING TEXT ERGSL FLAG. <--- new...
all other positions ---------------------------------
... * PERFORM TEXTSCHREIBEN USING AUSGABEZEILE CHAR_X. <--- old
PERFORM TEXTSCHREIBEN USING AUSGABEZEILE SPACE CHAR_X. <--- new...
---------------------------------

• Change the following lines in the TEXTSCHREIBEN form routine:
  ... * Flag = 'L' => Leerzeile
  IF FLAG = SPACE.
  WRITE: '|--', TEXT.
  IF NOT MITKO IS INITIAL. "<--- new
  WRITE: 100(10) ERGSL. "<--- new
  ENDIF. "<--- new
  NEW-LINE.
  ELSEIF FLAG = CHAR_X AND VSTRICH-SCHABLONE+0(1) = CHAR_E....
  ---------------------------------

• Find TOP-OF-PAGE in the program (editor command FI TOP-OF-PAGE)
  ... TOP-OF-PAGE.
  WRITE:/ 'Bilanz/GuV Struktur: '(005), 30 VERSN.
  IF NOT BUKRS_OK IS INITIAL.
  WRITE:/ 'Buchungskreis '(006), T001-BUKRS UNDER VERSN.
  ENDIF.
  ULINE.
  IF NOT MITKO IS INITIAL. <--- new
  WRITE:/98(13) TEXT-023. <--- new
  ENDIF. <--- new
  WRITE:/....

• Create an additional text element for the text elements of the program
  Text item 023, text: Financial statement key

RELEASE: > 3.0

1st position found ---------------------------------
... FORM X011P_ABARBEITEN.
LOOP AT X011P. "Bilanz-Positionen
"und Hierachiestufen abarbeiten
SAVE_X011P_IND = SY-TABIX.
PERFORM TEXTSCHREIBEN USING ' '
STAFFEL
GRUPPE
SPACE <---new
CHAR_L."Erzeugt Leerzeile...
2nd position found ---------------------------------
... FEHLERZEILE = TEXT-010.
ENDIF.
ENDIF.
PERFORM TEXTSCHREIBEN USING FEHLERZEILE
STAFFEL
GRUPPE
SPACE <---new
SPACE.
ENDIF.
ENDIF.

IF SAVE_SUBRC = 0. "Erste Textzeile gefunden...
3rd position found ---------------------------------
PERFORM TEXTSCHREIBEN USING X011Q-TXT45
STAFFEL
GRUPPE
X011Q-ERGSL <---new
SPACE.
CLEAR STAFFEL. CLEAR GRUPPE.
ELSE.
4th position found ---------------------------------
PERFORM TEXTSCHREIBEN USING X011Q-TXT45
STAFFEL
GRUPPE
X011Q-ERGSL <--new
CHAR_X.
ENDIF.
ENDIF.
ENDDO.

5th position found ---------------------------------
*FORM TEXTSCHREIBEN USING TEXT STAFFEL GRUPPE FLAG. <--old
FORM TEXTSCHREIBEN USING TEXT STAFFEL GRUPPE ERGSL FLAG. <--new
DATA: COLUMN_DELTA TYPE I VALUE 2, "Gibt Anzahl der ' ' zw. Stufen
I TYPE I.


all other positions ---------------------------------
PERFORM TEXTSCHREIBEN USING AUSGABEZEILE
STAFFEL
GRUPPE
SPACE <--new
CHAR_X.
---------------------------------

• Change the following line in the TEXTSCHREIBEN form routine:
  * Flag = 'L' => Leerzeile
  IF FLAG = SPACE.
  WRITE: '|--', TEXT.
  IF NOT MITKO IS INITIAL.
  * WRITE: 115(1) STAFFEL, 125(1) GRUPPE. <--old
  WRITE: 100(10) ERGSL, 115(1) STAFFEL, 125(1) GRUPPE. <--new
  ENDIF.
  NEW-LINE.

• Find TOP-OF-PAGE in the program (editor command FI TOP-OF-PAGE)
  TOP-OF-PAGE.
  WRITE:/ 'Bilanz/GuV Struktur: '(005), 30 VERSN.
  IF NOT BUKRS_OK IS INITIAL.
  WRITE:/ 'Buchungskreis: '(006), T001-BUKRS UNDER VERSN.
  ENDIF.
  ULINE.
  IF NOT MITKO IS INITIAL.
  * WRITE:/113(10) TEXT-015, 123(10) TEXT-016. <--old
  WRITE:/98(13) TEXT-023, <--new
  113(10) TEXT-015, 123(10) TEXT-016. <--new
  WRITE:/113(10) TEXT-017, 123(10) TEXT-017.
  ULINE.
  ENDIF.
  WRITE:/.
  

• Create an addiotnal text element for the text elements of the program
  Text item 023, text: Financial statement key

Additional key words

FSE2, FSE3, SAPMF02E