Zum Hauptinhalt springen

Einzelpostenanzeige: Daten pro Zeile ergänzen (FI)

Review

Dieser Artikel wird noch kontrolliert. Dies ist eine Vorab-Version!

Sollen die selektierten Einzelposten vor der Anzeige geändert bzw. ergänzt werden, wird der BTE 1650 benutzt und es sind folgende Schritte durchzuführen.

Betroffene Transaktionen

  • FBL1N: Einzelposten Kreditoren
  • FBL2N: Einzelposten Kreditoren
  • FBL3N: Einzelposten Sachkonten

Customizing

In diesem Fall brauchen wir ein BTE, welches mit der Transaktion FIBF eingestellt werden kann. Hierzu wird der BTE 1650 benötigt der unter P/S-Bausteine gefunden werden kann. Prüft ggf. auch die Produkte ob es hierzu bereits eine Einstellung gibt.

In diesem Beispiel finden sich zum BTE 1650 bereits zwei Ausprägungen:

Hier wird der Funktionsbaustein hinterlegt der eure Aktionen durchführen soll

Vorlage

Das gute an den BTEs ist, dass ihr Vorlagen mitbekommt für jede BTE-Nummer. Hier findet ihr den Vorlage-Funktionsbaustein unter:

FUNCTION SAMPLE_INTERFACE_00001650.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_POSTAB) LIKE RFPOS STRUCTURE RFPOS
*" EXPORTING
*" VALUE(E_POSTAB) LIKE RFPOS STRUCTURE RFPOS
*"----------------------------------------------------------------------

*-------------- Initialize Output by using the following line ----------
* E_POSTAB = I_POSTAB.

ENDFUNCTION.

Beispiel

Folgendes Beispiel: Bei der Anzeige von Belegen des Typs "ZP" soll der Belegtext (der leer ist) um den Namen des Gegenkontos ergänzt werden.

 DATA
: ls_lfa1 TYPE lfa1
.

"Nur bei BLART = ZP SGTXT anpassen
CHECK I_POSTAB-BLART eQ 'ZP'.

"Nur leere SGTXT ändern
IF e_postab-sgtxt IS INITIAL.
SELECT SINGLE name1 name2 FROM lfa1
INTO CORRESPONDING FIELDS OF ls_lfa1
WHERE lifnr = e_POSTAB-GKONT
.
IF sy-subrc eQ 0.
"Wenn in NAME2 nichts steht, dann nur NAME1
IF ls_lfa1-name2 IS INITIAL.
E_POSTAB-sgtxt = ls_lfa1-name1.
ELSE.
"Sonst NAME1 - NAME2 anzeigen
CONCATENATE ls_lfa1-name1 '-' ls_lfa1-name2
INTO E_POSTAB-sgtxt SEPARATED BY space.
ENDIF.

ENDIF.
ENDIF.

Letztes Update: 24.02.2022