SAP Note 21716 - Acct. assign. field GSBER in check deposit program

Symptom:

When entering a check deposit list, the customer wants to be able to enter the business area as well, which will control the postings. You cannot currently include the business area in any entry variant
Key words:
FF68, OT45, SAPMF40S, BSEG-GSBER

Cause and prerequisites

As of 3.0D, the entry of a business area will be supported in check deposit in the standard system.

Solution

Modification possible (Release 2.2 and later):

************************************************************************
1.) Expand structure (SE11):
============================

Add field "GSBER_KF" with data element "GSBEI_EB" to structure "FEBSCK_KF". Activate the structure.

************************************************************************
2.) Add to the screen (SE51):
=============================

Place the field on screen "SAPVF40S/1001" (release 2.2) or "SAPVF40S/1003" (release 3.0). Note the following:

• a) Field "FEBSCK-GSBER_KF" must be selected as a long key word.

• b) Field "FEBSCK-GSBER_KF" must be selected as a template. Enter the value "222" as modification group 1.

• c) Field "*FEBSCK-GSBER_KF" must be selected as a header.

• d) Add statement "FIELD FEBSCK-GSBER_KF." to the flow logic.

Generate the screen.

************************************************************************
3.) Change the program (SE38) (release 2.2 only):
=================================================

Insert the lines indicated below. Then perform a syntax check.
------------------------------------------------------------------------

Include MF40SFA1:
-----------------

FORM KF_FELDER_FUELLEN.

KF_FELDER-FNAME = 'FEBSCK-VERTT_KF'.
APPEND KF_FELDER.
KF_FELDER-FNAME = 'FEBSCK-GSBER_KF'. <--NEW
APPEND KF_FELDER. <--NEW

ENDFORM.


------------------------------------------------------------------------

Include MF40SFB1:
-----------------

FORM AUSZUG_EINLESEN.
.
.
.
* Einzelsätze (und Referenzsätze) lesen
SELECT * FROM FEBEP WHERE KUKEY = FEBKO-KUKEY
ORDER BY PRIMARY KEY.
CLEAR TAB1.
MOVE-CORRESPONDING FEBEP TO TAB1.
TAB1-VERTT_KF = FEBEP-VERTT.
TAB1-GSBER_KF = FEBEP-GSBER. <--NEU
SELECT * FROM FEBRE WHERE KUKEY = FEBKO-KUKEY
AND ESNUM = FEBEP-ESNUM.
.
.
.
ENDFORM.


------------------------------------------------------------------------

Include MF40SIC1:
-----------------

MODULE D02XX_LOOP.
.
.
.
* Werte übernehmen
* Standard TAB1-Felder
IF NOT FEBSCA-KWBTR IS INITIAL.
TAB1-KWBTR = FEBSCA-KWBTR.
ENDIF.
* Kundenfelder
.
.
ENDIF.
ENDCASE.
ELSEIF DYNP_KFELD-FNAME+12(3) = '_KF'. <--NEU
* TAB1-Kontierungsfeld <--NEU
TAB1_NAME+5(10) = DYNP_KFELD-FNAME+7(10). <--NEU
ASSIGN (TAB1_NAME) TO . <--NEU
IF SY-SUBRC = 0. <--NEU
= . <--NEU
ENDIF. <--NEU
ELSE.
* TAB2-Feld
TAB2-ZEINR = COUNT.
.
.
.
ENDMODULE.


------------------------------------------------------------------------

Include LF40KF02:
-----------------

FORM S_FEBEP_FILL.
.
.
.
FEBEP-VERTT = TAB1_S-VERTT_KF.
FEBEP-GSBER = TAB1_S-GSBER_KF. <--NEU
.
.
.
ENDFORM.


************************************************************************