SAP Note 18654 - RFWOBL00 - Branch is not considered

Symptom:

The remaining risk is not correcty posted to the branch.

Cause and prerequisites

This was not considered in the source code.

Solution
You have to modify the following lines to solve this problem:
------------------------------------------------------------------------
Report RFWOBL00:
------------------------------------------------------------------------
OLD: INSERT WDATE
OLD: BKPF-BUDAT
OLD: BSEG-GSBER
OLD: BSEG-FILKD <<<OLD: BSEG-ZFBDT
OLD: BSEG-WRBTR
OLD: BSEG-WSKTO
OLD: BSED-WVERD
OLD: BSEG-WVERW
OLD: BSEG-DMBTR
OLD: WEBTR INTO DATES.
------------------------------------------------------------------------
OLD: * Für Restrisikobuchung
OLD: IF P_RERIS = 'X'.
OLD: BTAB-WAERS = BKPF-WAERS.
OLD: BTAB-BELNR = BKPF-BELNR.
OLD: BTAB-GJAHR = BKPF-GJAHR.
OLD: BTAB-GSBER = BSEG-GSBER.
OLD: BTAB-ZFBDT = BSEG-ZFBDT.
NEW: BTAB-FILKD = BSEG-FILKD. <<<OLD: BTAB-BRUTT = BSEG-WRBTR + BSEG-WSKTO.
OLD: IF P_CALCU EQ 'X'.
OLD: PERFORM DUE_DATE_REM_RISK.
OLD: BTAB-HZFBD = H_ZFBDT.
OLD: ELSE.
OLD: BTAB-HZFBD = BSEG-ZFBDT.
OLD: ENDIF.
OLD: APPEND BTAB.
OLD: ENDIF.
------------------------------------------------------------------------
Include INWOBLF2:
------------------------------------------------------------------------
OLD:*-------------------------------------------------------------------
OLD:* Data
OLD:*-------------------------------------------------------------------
OLD:DATA: BEGIN OF BTAB OCCURS 500,
OLD: BUKRS LIKE BSIS-BUKRS,
OLD: WAERS LIKE BSIS-WAERS,
OLD: BELNR LIKE BSIS-BELNR,
OLD: GJAHR LIKE BSIS-GJAHR,
OLD: KUNNR LIKE BSEG-KUNNR,
NEW: FILKD LIKE BSEG-FILKD, <<<<OLD: NAME1 LIKE KNA1-NAME1,
OLD: GSBER LIKE BSEG-GSBER,
OLD: HZFBD LIKE BSEG-ZFBDT,
OLD: BRUTT LIKE BSEG-WRBTR,
OLD: ZFBDT LIKE BSEG-ZFBDT,
OLD: END OF BTAB.
------------------------------------------------------------------------
OLD: FORM DYNPRO_1_R.
OLD: PERFORM BDC_DYNPRO USING 'SAPMF05A' '108'.
OLD: PERFORM BDC_FIELD USING 'BKPF-BLDAT' DATUM1.
OLD: PERFORM BDC_FIELD USING 'BKPF-BLART' P_SBLART.
OLD: PERFORM BDC_FIELD USING 'BKPF-BUKRS' BTAB-BUKRS.
OLD: PERFORM BDC_FIELD USING 'BKPF-BUDAT' DATUM1.
OLD: PERFORM BDC_FIELD USING 'BKPF-WAERS' BTAB-WAERS.
OLD: PERFORM BDC_FIELD USING 'BSEG-WRBTR' H_WRBTR.
OLD: PERFORM BDC_FIELD USING 'BKPF-MONAT' H_MONAT.
OLD: PERFORM BDC_FIELD USING 'RF05A-NEWBS' P_SBSCHL.
OLD: PERFRM BDC_FIELD USING 'RF05A-NEWUM' P_SUMSKZ.
NEW: IF BTAB-FILKD EQ SPACE. <<OLD: PERFORM BDC_FIELD USING 'RF05A-NEWKO' BTAB-KUNNR.
NEW: ELSE. <<NEW: PERFORM BDC_FIELD USING 'RF05A-NEWKO' BTAB-FILKD. <<NEW: ENDIF. <<OLD: PERFORM BDC_FIELD USING 'BSEG-ZFBDT' DATUM2.
OLD: PERFORM BDC_FIELD USING 'BSEG-GSBER' BTAB-GSBER.
OLD: PERFORM BDC_FIELD USING 'BKPF-XBLNR' H_XBLNR.
OLD: PERFORM BDC_FIELD USING 'BSEG-SGTXT' P_RSKTXT.
OLD: PERFORM BDC_FIELD USING 'BKPF-BKTXT' H_BKTXT.
OLD: PERFORM BDC_FIELD USING 'BDC_OKCODE' '/11'.
OLD: ENDFORM.
------------------------------------------------------------------------